ACFSÿÿÿRSEC$<ŒŒýàsCLASSEBRPGO28 ClrText "##MANU KILLER GAMES##" " " " CLASSE" " " " " "##MANU KILLER GAMES##" Do LpWhile Getkey¬31 ClrText " " " " "1‡REPRENDRE PARTIE" "2‡NOUVELLE PARTIE" " " " " Do Getkey=72îGoto 0 LpWhile Getkey¬62 {3,6}‡Dim Mat V Int (100Ran#)‡A Int (100Ran#)‡C Int (100Ran#)‡R Int (100Ran#)‡B Int (100Ran#)‡P Int (100Ran#)‡D Int (100Ran#)‡E Int (100Ran#)‡F 0‡G 30‡H 0‡L Lbl 3 A‡Mat V[1,1] C‡Mat V[1,2] R‡Mat V[1,3] B‡Mat V[1,4] P‡Mat V[1,5] D‡Mat V[1,6] E‡Mat V[2,1] F‡Mat V[2,2] G‡Mat V[2,3] H‡Mat V[2,4] L‡Mat V[2,5] Lbl 0 0‡I Mat V[1,1]‡A Mat V[1,2]‡C Mat V[1,3]‡R Mat V[1,4]‡B Mat V[1,5]‡P Mat V[1,6]‡D Mat V[2,1]‡E Mat V[2,2]‡F Mat V[2,3]‡G Mat V[2,4]‡H Mat V[2,5]‡L ClrText "‡()" "##################### ENREGISTREMENT" " EFFECTUE" "#####################‡()"» Lbl 1 A<0î0‡A B<0î0‡B C<0î0‡C D<0î0‡D E<0î0‡E F<0î0‡F G<0î0‡G R<0î0‡R P<0î0‡P 0‡I ClrText "1‡ACTION" "2‡ENREGISTRER" "3‡STATS" "4‡QUITTER" Locate 20,2," " Locate 20,3," " Locate 20,4," " Locate 20,5," " ?‡r r=1îGoto 2 r=2îGoto 3 r=3îGoto 4 ClrText " MKG MKG MKG MKT MKG " "VOULEZ VOUS VRAIMENT QUITTER ?" "1‡OUI 2‡NON" ?‡r r=2îGoto 1 ClrText "##MANU KILLER GAMES##" " " " MERCI D'AVOIR JOUE " ClrText Stop Lbl 4 ClrText " CLASSE" " STATS‡" " " " ASSIDUITE" Locate 16,4,A " CALME" Locate 16,5,C " RESPECT" Locate 16,6,R " BETISES" Locate 16,7,B For 1‡X To 7 Step 1 Locate 21,X,"=" Locate 1,X,"=" Next Do LpWhile Getkey¬31 ClrText " TOI (MENTOR)" " STATS‡" " " " APPRECIATION" Locate 17,4,P " CHARISME" Locate 17,5,D " INTELLIGENCE" Locate 17,6,E " PEDAGOGIE" Locate 17,7,F For 1‡X To 7 Step 1 Locate 21,X,"=" Locate 1,X,"=" Next Do LpWhile Getkey¬31 ClrText " GENERAL" " STATS‡" " " " ENTRAINEMENT" Locate 18,4,G " NOMBRE D'ELEVES" Locate 18,5,H " NIVEAU" Locate 18,6,2 For 1‡X To 7 Step 1 Locate 21,X,"=" Locate 21,X,"=" Next Do LpWhile Getkey¬31 Goto 1 Lbl 2 ClrText "1‡ENTRAINER LA CLASSE2‡COMBATTRE UN MENTOR3‡METTRE EN COLLE" "4‡DURCIR LE REGLEMENT" "5‡PAGE SUIVANTE"?‡r If r=1 Then ClrText "LA CLASSE FAIT UN" "ENTRAINEMENT DE FOOT" ClrText C+Int 5Ran#+1‡C C+Int 5Ran#+3‡G C+Int 5Ran#+1‡F C+Int 5Ran#-2‡R Do LpWhile Getkey¬31 Goto 5 IfEnd Lbl D If r=2 Then ClrText Int (100Ran#+100Ran#+100Ran#+100Ran#+10)‡– P+D+E+F‡r If r¯– Then ClrText "VOUS AVEZ GAGNE DE" Locate 20,1,r-– "POINTS" Int ((r-–)¤4)‡r "VOUS AVEZ GAGNE" Locate 17,3,r "ELEVES" "VOTRE APPECIATION ET VOTRE CHARISME" "AUGMENTENT" P+Int (r¤4+3Ran#)‡P D+Int (r¤4)‡D H+r‡H Do LpWhile Getkey¬31 I=1îGoto 1 Goto 5 IfEnd If r<– Then ClrText "VOUS AVEZ PERDU DE" Locate 20,1,–-r "POINTS" "VOUS AVEZ PERDU" Int ((–-r)¤4)‡r Locate 17,3,r "ELEVES" "VOTRE APPRECIATION ET VOTRE CHARISME" "DIMINUENT" P-Int (r¤4-3Ran#)‡P D-Int (r¤4)‡D H-r‡H H®0îGoto B Do LpWhile Getkey¬31 IfEnd I=1îGoto 1 Goto 5 IfEnd If r=3 Then ClrText "COMBIEN D'ELEVES" "VOULEZ VOUS COLLER"?‡– Int –‡– –>Hî"NE TRICHE PAS" –>HîGoto 2 C+Int (CRan#¤9)‡C R+Int (RRan#¤9)‡R B-Int (BRan#¤9)‡B Goto 5 IfEnd If r=4 Then ClrText "VOUS DURCISSEZ LE" "REGLEMENT" A+Int 5Ran#+1‡A B-Int 5Ran#-1‡B Do LpWhile Getkey¬31 Goto 5 IfEnd ClrText "1‡ASSOUPLIR LE" "REGLEMENT" "2‡DONNER UNE PUNITION"?‡r If r=1 Then ClrText "VOUS ASSOUPLISSEZ LE REGLEMENT" D+Int 5Ran#+1‡D Do LpWhile Getkey¬31 Goto 5 IfEnd If r=2 Then ClrText "COMBIEN DE PUNITIONS VOULEZ VOUS DONNER"?‡– Int –‡– –>Hî"NE TRICHE PAS" –>HîGoto 2 P+Int 5Ran#+1‡P R+Int ((–¤9)Ran#)+1‡R C-Int 8Ran#-1‡C IfEnd Lbl 5 A+C+R+P+D+E+F+G>480îGoto E Int 4Ran#‡r r=0 Or r=1 Or r=2îGoto 1 Int 8Ran#‡r r=0îGoto 6 r=1îGoto 7 r=2îGoto 8 r=3îGoto 9 r=4îGoto r r=5îGoto – r=6îGoto A ClrText "VOTRE CONSEIL DE" "CLASSE DU TRIMESTRE A LIEU" ClrText A<30î"LES ELEVES SONT ASSIDUS"» A<30îE+1‡E A¯30î"LES ELEVES NE SONT PAS ASSIDUS"» A¯30îE-2‡E ClrText R<30î"LES PROFS SONT RESPECTES"» R<30îE+1‡E R¯30î"LES PROFS NE SONT PAS RESPECTES"» R¯30îE-2‡E ClrText B¯30î"LES ELEVES FONT DES BETISES"» B¯30îE-2‡E B<30î"LES ELEVES NE FONT PAS DE BETISES"» B<30îE+1‡E Goto 1 Lbl 6 ClrText "UN LYCEE ORGANISE UN TOURNOI DE FOOT" "VOULEZ VOUS Y ALLER 1‡OUI" "2‡NON"?‡– –=2îE-1‡E –=3îGoto 1 Int 20Ran#‡r If rB+G Then "LES EXAMENS SONT" "PASSES AVEC SUCCES"» E+1‡E P+2‡P Else "LES EXAMENS ONT ETE RATES"» E-2‡E P-2‡P IfEnd Goto 1 Lbl 9 ClrText "UN MENTOR VOUS" "ATTAQUE"» 1‡I 2‡r Goto D Lbl A ClrText "VOTRE CLASSE PERD LE CAHIER DE TEXTE" "L'ELEVE RESPONSABLE S'EN FICHE"» ClrText "QUE VOULEZ VOUS LUI FAIRE" "1‡L'ENVOYER CHEZ LE PROVISEUR" "2‡LUI DONNER UNE" "PUNITION" "3‡LE COLLER"?‡r If r=1 Then R-1-Int 5Ran#‡R F-1-Int 5Ran#‡F B+1+Int 5Ran#‡B Goto 1 IfEnd If r=2 Then C-Int 4Ran#-1‡C B+Int 4Ran#+1‡B Goto 1 IfEnd R-1-Int 4Ran#‡R D-1-Int 4Ran#‡D Goto 1 Lbl r ClrText "UN ELEVE ARRIVE EN" "RETARD" "1‡LE PUNIR" "2‡NE RIEN FAIRE" ?‡r r=1îA-1-Int 5Ran#‡A r=2îA+1+Int 5Ran#‡A r=1îF-1-Int 5Ran#‡F r=2îF+1-Int 5Ran#‡F Goto 1 Lbl – ClrText "UN ELEVE SECHE LES" "COURS" "1‡LE COLLER" "2‡LUI DONNER UN" "AVERTISSEMENT" ?‡r r=1îA-1-Int 5Ran#‡A r=1îC+1-Int 5Ran#‡C r=2îR-1-Int 5Ran#‡R r=2îB-1-Int 5Ran#‡B Goto 1 Lbl E ClrText "VOUS PASSEZ UN NIVEAU"» A-15‡A C-15‡C R-15‡R B+10‡B P-15‡P D-15‡D E-15‡E F-15‡F G-10‡G L+1‡L Goto 1 Stop Mat VdTMXR