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-