%-----------------------------------------------------------------------------%
% InitGame.masd                                                               %
%-----------------------------------------------------------------------------%
% Initialisations du jeu, independantes du niveau.                            %
%-----------------------------------------------------------------------------%

% Affiche cartouchière et efface écran
D0=(5)ECR1 C=DAT0.A
D0=C D=C.A
A=0.W LC 5 B=0.B
{
  DAT0=A.16 D0+16
  DAT0=A.16 D0+16
  DAT0=C.1 D0+2
  B+1.B UPNC
}

% Affiche le menu
LC 00770 C+D.A
D0=C
SKUB { /Menus.grb }
C=RSTK
D1=C
B=C.A
GOSUB.COPIE.MENU
LC 00FF0 C+D.A
D0=C
GOSUB.COPIE.MENU
D0=(5)ECR2 C=DAT0.A
D=C.A
LC 00770 C+D.A D0=C
C=B.A D1=C
GOSUB.COPIE.MENU
LC 00FF0 C+D.A
D0=C
GOSUB.COPIE.MENU
SKIP {
  *.COPIE.MENU
  LC 10
  {
    A=DAT1.16 DAT0=A.16
    D0+16 D1+16
    C-1.B UPNC
  }
  RTN
}

% Initialisation RAM
C=0.W
D0=(5)NB.MUNITIONS
DAT0=C.8

% NB.VIES, NIV
D0=(2)NB.VIES
LC(1)NB.VIES.INIT
DAT0=C.X

% SANTE, TYPE.ARME
LC F
D0=(2)SANTE
DAT0=C.B

@