PROJET CALL OF DUTY SUR CALCULATRICES CASIO GRAPH35+     // Note: Pendant un long moment, je ne pense pas pouvoir rééditer le jeu à partir du 12/06/2013, faute de matériel disponible. Prière de bien vouloir patienter à mon retour.//

Programme principal (a executer) :   CALL OF

{0,0,0,0,0} -> List 3
Lbl 0
1->D
3->E
ClrText
Locate 1,1,"-=-=CALL OF CASIO=-=-"
Locate 3,3,"JOUER"              // Nouveau jeu//
Locate 3,4,"CHARGER"        // Continuer //
Locate 13,3,"MES STATS"   // Progression du jeu//
Locate 13,4,"QUITTER"         //ClrText:Stop//
Locate 1,7,"Press [F6] for choose"
Locate D,E,"=>"
While 1
Getkey
If Ans=28
Then Locate D,E," "
E-1->E
Locate D,E,"=>"
IfEnd
If Ans=37
Then Locate D,E," "
E+1->E
Locate D,E,"=>"
IfEnd
If D=1 And E=2
Then Locate D,E," "
11->D
4->E
Locate D,E,"=>"
IfEnd
If D=11 And E=5
Then Locate D,E," "
1->D
3->E
Locate D,E,"=>"
IfEnd
If D=1 And E=5
Then Locate D,E," "
11->D
3->E
Locate D,E,"=>"
IfEnd
If D=11 And E=2
Then Locate D,E," "
1->D
4->E
Locate D,E,"=>"
IfEnd
D=1=>E=3=>Ans=29=>Goto 1
D=1=>E=4=>Ans=29=>Goto 2
D=12=>E=3=>Ans=29=>Goto 3
If D=12 And E=4 And Ans=29
Then ClrText
Stop
IfEnd
For 1->A To 100
Next
WhileEnd
Lbl 2
ClrText
If List 3[5]=1
Then ClrText
Locate 3,2,"Aucune partie"
Locate 6,3,"existante !"
Locate 1,6,"Creez-en une avant..."
For 1->A To 2000
Next
Goto 0
Else "-=-=CALL OF CASIO=-=-"
"Chargement en cours"
"                                  ..."    //Ligne devant tenir en 21 sprites//
For 1->A To 1500
Next
Goto D
IfEnd
Goto 2
Lbl 3
If List 3[5]=1
Then ClrText
Locate 3,2,"Aucune partie"
Locate 6,3,"existante !"
Locate 1,6,"Creez-en une avant..."
For 1->A To 2000
Next
Goto 0
Else Cls
ViewWindow 1,127,0,1,63,0
AxesOff
Text 3,5,"=-=STATISTIQUES DE JEU=-="
Text 15,5,"NOM DU PERSO:"
Text 15,65,Str 1
Text 27,3,"PROGRESSION DU JEU:"
 Text 27,8,List 3[1]
Text 27,98,"%"
Text 40,3,"[F1]: Effacer la partie"
Text 50,3,"[F2]: Retour au menu"
Lbl J
Do:Getkey:LpWhile Ans =!79 And Ans=!69
Ans =69=>Goto 0
If Ans=79
Then For 1->A To 5
0->List 3[A]
0->List 2[A]
Next
1->List 3[5]
Goto 0
IfEnd
Goto 3
Lbl 1
ClrText
"Quel est ton nom "?->Str 1
While 1
"Confirmation ?"
"1:OUI"
"2:NON"
Getkey
Ans=62=>Goto 1
WhileEnd
Lbl A
While 1
ClrText
"-=DIFFICULTE DU JEU=-"
"[1]: Mode RECRUE"
"[2]:Mode 2nde CLASSE"
"[3]:Mode COMMANDO"
"[4]:Mode VETERAN"
Getkey
Ans=72=>{10,4,20,30,8}->List 2
Ans=62=>{7,3,15,25,6}->List 2
Ans=52=>{5,2,10,15,4}->List 2
Ans=73=>{3,1,5,10,2}->List 2
WhileEnd
Lbl B
For 1->A To 500
Next
ClrText
"Quelle arme prendre ?"
"[1]: MOSIN-NAGANT"              //Attention! Rappelons que le scénario est celui de la WWII !//
"[2]: M1-GARANT"                 //Attention! Rappelons que le scénario est celui de la WWII !//
"[3]: KAR98k"                    //Attention! Rappelons que le scénario est celui de la WWII !//
"[4]: ARISAKA"                   //Attention! Rappelons que le scénario est celui de la WWII !//
While 1
Getkey
Ans=72=>1->List 3[2]
Ans=62=>2->List 3[2]
Ans=52=>3->List 3[2]
Ans=73=>4->List 3[2]
WhileEnd
Lbl C
Cls
BG-None
View-Window 1,127,0,1,63,0
AxesOff
Text 28,2,"Tu as"
Text 28,25,List 2[1]
Text 28,35,"vies."
Text 35,2,"Tu as"
Text 35,25,List 2[2]
Text 35,35,"médikits."
Text 42,2,"Tu as"
Text 42,25,List 2[3]
Text 42,35,"recharges."-Disp-     // "-Disp-" correspond au triangle noir disponible par le chemin d'accès suivant: [SHIFT],[VARS](PRGM),[F5]//
Cls
Text 5,2,"Tu as un Colt en plus de ton"
Text 12,2,"arme principale."
Text 25,2,"Tu as"
Text 25,25,List 2[3]
Text 25,35,"balles de Colt,"
Text 32,2,"et"
Text 32,16,List 2[4]
Text 32,16,"balles pour ton arme."
Text 42,7,"Appuye sur [SHIFT] pour"      // Durant les combats; c'est évident... //
Text 49,5,"recharger tes armes,"
Text 56,5,"ou meme sauvegarder."-Disp-
ClrText
"-=-=INFORMATIONS=-=-"
"OBSTACLES: //Bloc noir//"     //Ne pas écrire //Bloc noir// sur cette ligne, mais y insérer le bloc noir dans les caractères symboles ! //
"Ton personnage: o"
"Tes enemis: //Rond noir//"    //Ne pas écrire //Rond noir// sur cette ligne, mais y insérer le rond noir dans les caractères symboles ! //
-Disp-