%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:930 File Name:CHARGER Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If B=1 \Then \Mat A[1,1]\->A \Mat A[3,1]\->C \Mat A[4,1]\->D \Mat A[5,1]\->E \Mat A[7,1]\->G \Mat A[8,1]\->H \Mat A[10,1]\->J \Mat A[14,1]\->N \Mat A[19,1]\->S \Mat A[22,1]\->V \Mat A[23,1]\->W \Mat A[27,1]\->\theta " " " " " " "CHARGEMENT EFFECTUE !" \IfEnd \If B=2 \Then \Mat B[1,1]\->A \Mat B[3,1]\->C \Mat B[4,1]\->D \Mat B[5,1]\->E \Mat B[7,1]\->G \Mat B[8,1]\->H \Mat B[10,1]\->J \Mat B[14,1]\->N \Mat B[19,1]\->S \Mat B[22,1]\->V \Mat B[23,1]\->W \Mat B[27,1]\->\theta " " " " " " "CHARGEMENT EFFECTUE !" \IfEnd \If B=3 \Then \Mat C[1,1]\->A \Mat C[3,1]\->C \Mat C[4,1]\->D \Mat C[5,1]\->E \Mat C[7,1]\->G \Mat C[8,1]\->H \Mat C[10,1]\->J \Mat C[14,1]\->N \Mat C[19,1]\->S \Mat C[22,1]\->V \Mat C[23,1]\->W \Mat C[27,1]\->\theta " " " " " " "CHARGEMENT EFFECTUE !" \IfEnd \If B=4 \Then \Mat D[1,1]\->A \Mat D[3,1]\->C \Mat D[4,1]\->D \Mat D[5,1]\->E \Mat D[7,1]\->G \Mat D[8,1]\->H \Mat D[10,1]\->J \Mat D[14,1]\->N \Mat D[19,1]\->S \Mat D[22,1]\->V \Mat D[23,1]\->W \Mat D[27,1]\->\theta " " " " " " "CHARGEMENT EFFECTUE !" \IfEnd \If B=5 \Then \Mat E[1,1]\->A \Mat E[3,1]\->C \Mat E[4,1]\->D \Mat E[5,1]\->E \Mat E[7,1]\->G \Mat E[8,1]\->H \Mat E[10,1]\->J \Mat E[14,1]\->N \Mat E[19,1]\->S \Mat E[22,1]\->V \Mat E[23,1]\->W \Mat E[27,1]\->\theta " " " " " " "CHARGEMENT EFFECTUE !" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1025 File Name:FAQ Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->B \While (B\<>73) \ClrText "=FOIRE AUX QUESTIONS=" "[1]:LES COMBATS" "[2]:NUMERO DE PARTIE":"[3]:QUITTER HISTOIRE":"[4]:RETOUR" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73)=0 \ClrText \If B=72 \Then "=====LES COMBATS=====" "QUAND C'EST A TON TOUR, TU PEUX TAPER SUR F1 POUR CONNAITRELE NUMERO D'UNE ATTA\(-)QUE DISPONIBLE." \Do \Getkey \LpWhile (\Getkey=31)=0:\ClrText "=====LES COMBATS=====" "TU AS AUSSI LA POSSI\(-)BILITE DE TAPER LE NUMERO SANS PASSER PAR LA PRECEDENTE ETAPE, C'EST PLUS RAPIDE" \Do \Getkey \LpWhile (\Getkey=31)=0:\ClrText "=====LES COMBATS=====" "L'UTILISATION DE REGENERATION EST LIMITEE A 3 PAR COMBAT. ARRETCEREBRAL MET KO A 25#DE CHANCE DE REUSSITE" \Do \Getkey \LpWhile (\Getkey=31)=0 \IfEnd \If B=62 \Then "==NUMERO DE PARTIE==" " " "C'EST QUOI, CA ? EN FAIT, C'EST TOUT SIM\(-)PLEMENT UN NUMERO DE LA PARTIE COMPRIS EN\(-)TRE 1 ET 5." \Do \Getkey \LpWhile (\Getkey=31)=0:\ClrText "==NUMERO DE PARTIE==":" " "POUR INFO :" "1=\Mat A, 2=\Mat B,...,5=\Mat E."\Disp\IfEnd \If B=52 \Then "==QUITTER HISTOIRE==" " " "LORSQUE LE TEXTE S'AFFICHE, APPUIE SUR LA TOUCHE MENU."\Disp\IfEnd \WhileEnd \If B=73 \Then "TU PEUX ME PROPOSER DES SUGGESTIONS AFIN D'AMELIORER LA FAQ."\Disp0\->B \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:13221 File Name:FIGHT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->V 0\->L G\->J \ClrGraph \Prog "INTRO" \ClrGraph \ClrText "[1]:CONTINUER" "[2]:CHARGER PARTIE" "[3]:(RE)COMMENCER" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52)=0 \ClrText \If B=72 \Then "SI TU AS UTILISE UN PROGRAMME DEPUIS LA DERNIERE UTILISATION DE CELUI\(-)CI, LA SAU\(-) VEGARDE PEUT ETRE ER\(-)RONNEE. LES OPTIONS ONT ETE ANNULEES." \Do \Getkey \LpWhile (\Getkey=31)=0:\IfEnd \If B=62 \Then 0\->B \While (B<1\ Or B>5) \ClrText "NUMERO DE LA PARTIE (ENTRE 1 ET 5)"?\->B \WhileEnd \ClrGraph \Prog "CHARGER" \IfEnd \If B=52 \Then \Prog "INSTALL" \ClrText 10\->A 10\->D 10\->W 30\->J J\->G 1\->N 1000\->E 1\->C 0\->\theta 0\->B \ClrText "QUELLE SPECIALITE" "VEUX\(-)TU AVOIR ?" "[1]:PSYCHISME" "[2]:FORCE" "[3]:NORMALE" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52)=0 J\->G \If B=72 \Then 11\->W 1\->S 900\->E \IfEnd \If B=62 \Then 11\->A 2\->S \IfEnd \If B=52 \Then 11\->D 3\->S \IfEnd 4.0\->H \ClrText "L'HISTOIRE SE DEROULEEN 2160, DANS LA VIL\(-)LE DE TECHNOPOLIS. TOI, TU INCARNES UN ADO. MAIS, JE NE T'ENDIRAIS PAS PLUS..."\Disp\IfEnd \ClrText \While (B\<>74) \Lbl 0 \ClrText "[1]:CONTINUER" "[2]:ENTRAINEMENT" "[3]:VOIR VOS STATS" "[4]:BOUTIQUE" "[5]:SAUVER/CHARGER" "[6]:ALLER AU MENU 2":"[7]:QUITTER" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53\ Or B=74)=0 \ClrText \If B=74 \Then \Stop \IfEnd \If B=63 \Then \Prog "FIGHT6" \IfEnd \If B=72 \Then 1\->B \IfEnd \If B=73 \Then \Prog "FIGHT3" \IfEnd \If B=53 \Then 0\->B \While (B\<>63) \Lbl 8 \ClrText "[1]:CREDITS" "[2]:CONVERSION" "[3]:BONUS/MALUS" "[4]:OPTIONS" "[5]:FAQ (=AIDE)" "[6]:RETOUR MENU 1" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53)=0 \ClrText \If B=53 \Then \Goto0 \IfEnd \If B=63 \Then \Prog "FAQ" \IfEnd \If B=73 \Then \Prog "OPTIONS" \IfEnd \If B=52 \Then \ClrText "DESCRIPTION DE..." "[1]:PSYCHISME" "[2]:FORCE" "[3]:NORMALE" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52)=0 \ClrText \Locate 1,3,"FORT FACE A" \Locate 1,4,"FAIBLE FACE A" \Locate 1,5,"ATTAQUE" \Locate 1,6,"RESISTANCE" \Locate 1,7,"AGILITE" \If B=72 \Then \Locate 1,2,"\(-)-={PSYCHISME}=-\(-)" \Locate 17,3,"FOR" \Locate 17,4,"NOR" \Locate 17,5,"+2#" \Locate 17,6,"\(-)10#" \Locate 17,7,"+8#"\Disp\ClrText \Locate 1,1,"AUTRE BONUS :" \Locate 1,2,"MONTE LES NIVEAUX" \Locate 1,3,"PLUS RAPIDEMENT" \Locate 1,5,"AUTRE MALUS :" \Locate 1,6,"APPREND LES ATTAQUES" \Locate 1,7,"PLUS TARDIVEMENT" \Do \Getkey \LpWhile (\Getkey=31)=0 \IfEnd \If B=62 \Then \Locate 1,2,"\(-)-={FORCE}=-\(-)" \Locate 17,3,"NOR" \Locate 17,4,"PSY" \Locate 17,5,"+10#" \Locate 17,6,"\(-)5#" \Locate 17,7,"\(-)5#"\Disp\ClrText \Locate 1,1,"AUTRE BONUS :" \Locate 1,2,"APPREND VITE DES ATTA" \Locate 1,3,"QUES PLUS PUISSANTES" \Locate 1,5,"AUTRE MALUS :" \Locate 1,6,"NE CONNAIT AUCUNE AT\(-)" \Locate 1,7,"TAQUE PARTICULIERE" \Do \Getkey \LpWhile (\Getkey=31)=0 \IfEnd \If B=52 \Then \Locate 1,2,"\(-)-={NORMALE}=-\(-)" \Locate 17,3,"PSY" \Locate 17,4,"FOR" \Locate 17,5,"\(-)10#" \Locate 17,6,"+8#" \Locate 17,7,"+2#"\Disp\ClrText \Locate 1,2,"AUTRE BONUS :" \Locate 1,3,"APPREND UNE ATTAQUE" \Locate 1,4,"POUR SE RESSOURCER" \Locate 1,6,"AUTRE MALUS :" \Locate 1,7,"EST FAIBLE EN ATTAQUE"\Disp\IfEnd 0\->B \IfEnd \If B=52 \Then \Goto1 \IfEnd \If B=63 \Then \Goto0 \IfEnd \If B=62 \Then \Locate 1,2,"VERSION ACTUELLE DE" \Locate 1,3,"LA PARTIE :" \Locate 1,4,H \Locate 1,6,"VERSION DU JEU :" \Locate 1,7,"4.0"\Disp\ClrText \Lbl 1 \If H=4.0 \Then " " " " " PAS DE CONVERSION NECESSAIRE."\Disp\IfEnd \If H<4.0 \Then "TU UTILISES UNE VER\(-)" "SION ANTERIEURE." "UNE CONVERSION EST" "CONSEILLEE ET MEME" "NECESSAIRE."\Disp\Lbl 9 0\->S \While (S<1\ Or S>3) \ClrText "QUELLE SRECIALITE" "VEUX\(-)TU CHOISIR ?" "[1]:PSYCHISME" "[2]:FORCE" "[3]:NORMALE"?\->S \WhileEnd (D+A)/2\->W 4.0\->H \Int W\->W \If E>1000*2^N \Then 1000*2^N/2\->E \Else E/2\->E \IfEnd \Int E\->E \ClrText \Locate 3,4,"CONVERSION FINIE"\Disp\Goto8 \IfEnd \If H>4.0 \Then "TU UTILISES UNE VER\(-) SION SUPERIEURE. ES\(-) TU SUR(E) DE VOULOIR CONTINUER ?" "[1]:OUI" "[2]:NON" \Do \Getkey\->B \LpWhile (B=72\ Or B=62)=0 \If B=72 \Then \Goto9 \Else \Goto8 \IfEnd \IfEnd \IfEnd \If B=72 \Then \Locate 1,1,"=======CREDITS=======" \Locate 1,2,"PROGRAMMEUR :" \Locate 2,3,"\(-)TOTOYO" \Locate 1,5,"TESTEURS :" \Locate 2,6,"\(-)LE JAUNE" \Locate 2,7,"\(-)TOTOYO" \Do \Getkey \LpWhile (\Getkey=31)=0:\ClrText \Locate 1,3,"SCENARIO :" \Locate 1,4,"\(-)THE MOTHER" \Locate 1,5,"\(-)TOTOYO"\Disp\ClrGraph \Text 16,1,"SITES WEB :" \Text 22,1,"WWW.SITE.VOILA.FR/TOTOCODES" \Text 28,1,"TOTOCODES.FORUMACTIF.COM"\Disp\IfEnd \WhileEnd \IfEnd \If B=52 \Then \ClrText \Locate 1,1,"VOS STATS ACTUELS :" \Locate 1,2,"SPECIALITE :" \If S=1 \Then \Locate 14,2,"PSY" \IfEnd \If S=2 \Then \Locate 14,2,"FOR" \IfEnd \If S=3 \Then \Locate 14,2,"NOR" \IfEnd \If H<4.0\ Or S<1\ Or S>3 \Then \Locate 14,2,"???" \IfEnd \Int \theta\->\theta G\->J \Locate 1,3,"NIV :" \Locate 1,4,"ATT :" \Locate 1,5,"VIE :" \Locate 1,6,"ARG :" \Locate 1,7,"EXP :" \Locate 12,3,"RES :" \Locate 12,4,"AGI :" \If H\<>4.0 \Then \Locate 7,4,A \Locate 18,3,D \Locate 18,4,W \IfEnd \Locate 7,3,N \If H=4.0 \Then \If S=1 \Then \Locate 7,4,\Int (A*1.02) \Locate 18,3,\Int (D-D\ab/c10) \Locate 18,4,\Int (W*1.08) \IfEnd \If S=2 \Then \Locate 7,4,\Int (A*1.1) \Locate 18,3,\Int (D-D/20) \Locate 18,4,\Int (W-W/20) \IfEnd \If S=3 \Then \Locate 7,4,\Int (A-A/10) \Locate 18,3,\Int (D*1.08) \Locate 18,4,\Int (W*1.02) \IfEnd \IfEnd \Locate 7,5,J \Locate 7,6,\theta \Locate 7,7,E \If H<4.0 \Then \Locate 18,4,"???" \IfEnd \Do \Getkey \LpWhile (\Getkey=31)=0:\IfEnd \If B=62 \Then "CONTRE QUI ?" "[1]:PLUS FAIBLE" "[2]:MEME NIVEAU" "[3]:PLUS FORT" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52)=0 \ClrText \If B=72 \Then (N-1)\Ran#+1\->T \IfEnd \If B=62 \Then N\->T \IfEnd \If B=52 \Then (N\ab/c3+3)\Ran#+1+N\->T:\IfEnd \Int T\->T \If T<10 \Then (1.2\Ran#+2)*T+8\->O (1.2\Ran#+2)*T+8\->R (1.2\Ran#+5)*T+24\->Q (1.2\Ran#+2)*T+8\->X \IfEnd \If N=1\ And B>52 \Then 4\Ran#+8\->O 4\Ran#+8\->R 4\Ran#+8\->X 5\Ran#+27\->Q 1\->T \IfEnd \If T\>=10 \Then (0.7\Ran#+5.5)*T+20\->Q (0.7\Ran#+2.5)*T+7\->O (0.7\Ran#+2.5)*T+7\->R (0.7\Ran#+2.5)*T+7\->X \IfEnd \Int O\->O \Int R\->R \Int Q\->Q \Int X\->X 3\Ran#+1\->Y \Int Y\->Y \ClrText "BIENVENU DANS LE DOJOVOUS ALLEZ VOUS BAT\(-) TRE CONTRE UN PARTE\(-) NAIRE, AFIN DE GAGNERDE L'EXPERIENCE ET DEL'ARGENT !"\Disp\ClrText \Prog "FIGHT2" 0\->B \IfEnd \If B=1\ And C=1 \Then \ClrGraph \Text 1,10,"IL EST MINUIT. TU ES," \Text 7,1,"AVEC TA PETITE AMIE, DANS" \Text 13,1,"UN PARC. TOUT A COUP, QUATRE" \Text 19,1,"INCONNUS SURGISSENT DE" \Text 25,1,"NULLE PART ! EN FAIT, ILS" \Text 31,1,"VEULENT VOUS VOLER. TU DECIDES" \Text 37,1,"ALORS DE LES COMBATTRE." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 29\->Q 12\->O 7\->R 8\->X 1\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 2\->C 0\->L \IfEnd \IfEnd \If B=1\ And C=2 \Then \ClrText \ClrGraph \Text 1,10,"BRAVO, TU L'AS BATTU ! MAIS" \Text 7,1,"OU EST DONC PASSE TA PETITE" \Text 13,1,"AMIE ? TU CONSTATES, AVEC" \Text 19,1,"HORREUR, QU'ILS L'ONT" \Text 25,1,"EMMENEE AVEC EUX ! TU" \Text 31,1,"FOUILLES LES POCHES DE" \Text 37,1,"L'INCONNU A LA RECHERCHE" \Text 43,1,"D'INDICES ..."\Disp\ClrGraph \Text 1,10,"TU EN TROUVES ! IL FAIT" \Text 7,1,"PARTIE D'UN RESEAU DE DROGUES." \Text 13,1,"TU VAS RAPPORTER TOUT CELA A LA" \Text 19,1,"POLICE, MAIS ELLE EST AMIE" \Text 25,1,"AVEC LE GANG. TES ENNUIS NE" \Text 31,1,"FONT QUE COMMENCER !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 10\->O 8\->R 12\->X 27\->Q 1\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 3\->C \IfEnd \IfEnd \If B=1\ And C=3 \Then \ClrGraph \Text 1,10,"UN SECOND POLICIER T'" \Text 7,1,"ATTAQUE, PLUS FORT !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 15\->O 12\->R 11\->X 36\->Q 2\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 4\->C \IfEnd \IfEnd \If B=1\ And C=4 \Then \ClrGraph \Text 1,10,"TU REUSSIS A T'EN SORTIR..." \Text 7,1,"MAIS LA, EN SORTANT, UNE" \Text 13,1,"ARMEE DE CAIDS T'ATTENDAIT !" \Text 19,1,"TU ES OBLIGE DE TOUS LES" \Text 25,1,"COMBATTRE ! BONNE CHANCE..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 8\->O 12\->R 11\->X 29\->Q 1\->T 3\->Y \Prog "FIGHT2" \If L=1 \Then 10\->O 15\->R 13\->X 36\->Q 2\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 14\->O 11\->R 14\->X 35\->Q 2\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 17\->O 12\->R 13\->X 42\->Q 3\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 16\->O 11\->R 17\->X 41\->Q 3\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 13\->O 18\->R 17\->X 46\->Q 4\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 19\->O 13\->R 19\->X 47\->Q 4\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 25\->O 18\->R 18\->X 59\->Q 6\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 5\->C \IfEnd \Else "TU ES KO !"\Disp\IfEnd \IfEnd \If B=1\ And C=5 \Then \ClrGraph \Text 1,10,"TU T'ENFUYES AVANT QUE" \Text 7,1,"D'AUTRES NE VIENNENT." \Text 19,10,"MAIS, DANS UNE RUELLE, TU" \Text 25,1,"TOMBES SUR DES CLOCHARDS" \Text 31,1,"COMPLETEMENT BOURRES. ILS T'" \Text 37,1,"ENCERCLENT !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd \ClrText 19\->O 25\->R 23\->X 53\->Q 5\->T 3\->Y \Prog "FIGHT2" \If L=1 \Then 25\->O 20\->R 20\->X 52\->Q 5\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 23\->O 21\->R 24\->X 53\->Q 5\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 6\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=6 \Then \ClrGraph \Text 1,10,"TU RETOURNES SUR L'AVENUE." \Text 7,1,"IL EST 4H... \Text 13,1,"-QUAND EST\(-)CE QUE J'AURAIS" \Text 19,1,"LA PAIX, ET MA PETITE AMIE ?!?" \Text 25,1,"-JAMAIS !!! SAUF CONTRE..." \Text 31,1,"1.000.000 EUROS ?" \Text 37,1,"-JAMAIS !!!" \Text 43,1,"-COPIE PAS MA PHRASE..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd " " " " " C'EST LE CHEF DES CAIDS !"\Disp23\->O 23\->R 23\->X 53\->Q 7\->T S-1\->Y \If Y=0 \Then 3\->Y \IfEnd \Prog "FIGHT2" \If L=1 \Then 7\->C \IfEnd \IfEnd \If B=1\ And C=7 \Then \ClrGraph \Text 1,1,"-ON SE RETROUVERA, J'EN FAIT" \Text 7,1,"LE SERMENT !" \Text 13,1,"DES QU'IL DISPARUT DANS LES" \Text 19,1,"TENEBRES DE LA NUIT, UNE" \Text 25,1,"FOURGONNETTE DE CRS ARRIVE." \Text 31,1,"-VA Y AVOIR DES VOLEES DE" \Text 37,1,"BAFFES..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 24\->O 22\->R 25\->X 56\->Q 6\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 20\->O 26\->R 22\->X 58\->Q 6\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 30\->O 24\->R 25\->X 60\->Q 7\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 25\->O 29\->R 27\->X 61\->Q 7\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 29\->O 23\->R 30\->X 62\->Q 7\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 28\->O 25\->R 30\->X 66\->Q 8\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 8\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=8 \Then \ClrGraph \Text 1,10,"C'EST UNE GROSSE ERREUR" \Text 7,1,"D'AVOIR FAIT CELA : DEUX AUTRES" \Text 13,1,"FOURGONNETTES ARRIVENT !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 26\->O 22\->R 22\->X 57\->Q 6\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 20\->O 27\->R 26\->X 58\->Q 6\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 23\->O 26\->Q 25\->X 60\->Q 7\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 27\->O 23\->R 24\->X 61\->Q 7\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 28\->O 26\->R 30\->X 67\->Q 8\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 27\->O 32\->R 30\->X 66\->Q 8\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 35\->O 28\->R 28\->X 71\->Q 9\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 33\->O 30\->R 35\->X 71\->Q 9\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 30\->O 36\->R 35\->X 72\->Q 9\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 33\->O 38\->R 34\->X 73\->Q 9\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 37\->O 32\->R 40\->X 81\->Q 10\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 9\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=9 \Then \ClrGraph \Text 1,10,"TU EN AS DU CULOT POUR" \Text 7,1,"DEFIER LES FORCES DE L'ORDRE." \Text 13,1,"ATTENTION, TU BOUSCULES UN" \Text 19,1,"GARS, UNE GROSSE BARAQUE !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 45\->O 33\->R 33\->X 91\->Q 11\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 10\->C \IfEnd \IfEnd \If B=1\ And C=10 \Then \ClrGraph \Text 1,10,"TU DECIDES DE RENTRER CHEZ" \Text 7,1,"TOI, HISTOIRE DE REMETTRE LES" \Text 13,1,"IDEES EN PLACE. MAIS TU N'ES" \Text 19,1,"PAS AU BOUT DE TES SURPRISES :" \Text 25,1,"DES CAIDS T'ENTOURENT." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 11\->O 12\->X 9\->R 30\->Q 1\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 15\->O 12\->R 12\->X 36\->Q 2\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 14\->O 18\->R 17\->X 42\->Q 3\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 21\->O 17\->R 22\->X 48\->Q 4\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 25\->O 19\->R 20\->X 54\->Q 5\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 22\->O 28\->R 26\->X 60\->Q 6\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 33\->O 25\->R 30\->X 66\->Q 7\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 37\->O 31\->R 31\->X 72\->Q 8\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 30\->O 38\->R 35\->X 78\->Q 9\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 40\->O 34\->R 37\->X 84\->Q 10\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 47\->O 38\->R 39\->X 90\->Q 11\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 40\->O 47\->R 45\->X 96\->Q 12\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO " \IfEnd \If L=1 \Then 47\->O 43\->R 50\->X 102\->Q 13\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 11\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=11 \Then \ClrGraph \Text 1,10,"TU SAUTES DANS LE PREMIER" \Text 7,1,"TRAM VENU. TU REGARDES TA" \Text 13,1,"MONTRE : IL EST DEJA 6 HEURES" \Text 19,1,"DU MATIN ! CETTE FOIS\(-)CI, LE" \Text 25,1,"VOYAGE SE PASSE PRESQUE SANS" \Text 31,1,"ENCOMBRE, JUSTE QUELQUES" \Text 37,1,"RACKETEURS..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 37\->O 33\->R 32\->X 80\->Q 9\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 31\->O 36\->R 36\->X 80\->Q 9\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO " \IfEnd \If L=1 \Then 40\->O 34\->R 34\->X 85\->Q 10\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 12\->C \IfEnd \Else "TU ES KO " \IfEnd \IfEnd \If B=1\ And C=12 \Then \ClrGraph \Text 1,10,"ENFIN CHEZ TOI, TU VAS" \Text 7,1,"DORMIR. SOUDAIN, TU ENTENDS" \Text 13,1,"UNE PORTE ENFONCEE : C'ETAIT" \Text 19,1,"LA TIENNE ! UNE PETITE BAS\(-)" \Text 25,1,"TON POUR BIEN COMMENCER LA" \Text 31,1,"JOURNEE ?" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 35\->O 45\->R 41\->X 90\->Q 11\->T 3\->Y \Prog "FIGHT2" \If L=1 \Then 45\->O 36\->R 37\->X 91\->Q 11\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 50\->O 46\->R 52\->X 102\->Q 13\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 55\->O 43\->R 60\->X 108\->Q 14\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 45\->O 55\->R 51\->X 110\->Q 14\->T 3\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 60\->O 50\->R 50\->X 109\->Q 14\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 63\->O 50\->Q 65\->X 113\->Q 15\->T 1\->Y \Prog "FIGHT2" \If L=1 \Then 13\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=13 \Then \ClrGraph \Text 1,10,"UN DE CES VOYOUS REUSSIT" \Text 7,1,"A S'ECHAPPER. TU LE SUIS" \Text 13,1,"DISCRETEMENT... .IL RENTRE" \Text 19,1,"DANS UN HANGAR ABANDONNE." \Text 25,1,"CELUI\(-)CI EST GARDE PAR DEUX" \Text 31,1,"BARAQUES." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 55\->O 60\->R 57\->X 120\->Q 15\->T 3\->Y \Prog "FIGHT2" \If L=1 \Then 65\->O 50\->R 54\->X 121\->Q 15\->T 2\->Y \Prog "FIGHT2" \If L=1 \Then 14\->C \IfEnd \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=14 \Then \ClrGraph \Text 1,10,"TU PENETRES DANS L'HANGAR." \Text 7,1,"SOUDAIN, ON S'ECRIT :" \Text 13,1,"-QUI ES\(-)TU ? ET QUE VEUX\(-)TU ?" \Text 19,1,"HE ! MAIS JE TE CONNAIS !" \Text 25,1,"VOUS AUTRES, ATTAQUEZ\(-)LE !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 45\->O 55\->R 51\->X 110\->Q 14\->T 3\->Y \Prog "FIGHT2" \If L=1 \Then 60\->O 51\->R 63\->X 115\->Q 15\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 65\->O 52\->R 68\->X 120\->Q 16\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 70\->O 53\->R 78\->X 125\->Q 17\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 75\->O 55\->R 55\->X 127\->Q 18\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 15\->C \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=15 \Then "TU VAS COMBATTRE LE CHEF DES CAIDS, ET PEUT\(-)ETRE DELIVRE TA PETITE AMIE..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 15\->C 75\->O 75\->R 75\->X 150\->Q 20\->T S-1\->Y \If Y=0 \Then 3\->Y \IfEnd \Prog "FIGHT2" \If L=1 \Then 16\->C \ClrText "TU VIENS DE DEMANTE\(-) LER UN RESEAU DE DRO\(-)GUES. TU APPELLES LA POLICE ET DELIVRES TAPETITE AMIE."\Disp\ClrText " " " " " " " FIN"\Disp\Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=16 \Then \ClrText "ET MAIS LA POLICE, ELLE N'EST PAS AMIE AVEC LE GANG. LA BOU\(-)LETTE QUE T'AS FAIT !" \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 70\->O 80\->R 73\->X 130\->Q 3\->Y 18\->T \Prog "FIGHT2" \If L=1 \Then 78\->O 65\->R 85\->X 135\->Q 19\->T 1\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 83\->O 70\->R 70\->X 141\->Q 20\->T 2\->Y \Prog "FIGHT2" \Else "TU ES KO !" \IfEnd \If L=1 \Then 17\->C \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=17 \Then "PAS DE BOL, LE BOSS AEU LE TEMPS DE SE RENFORCER DEPUIS..." \Do \Getkey\->B \LpWhile (B=31\ Or B=48)=0 \If B=48 \Then 0\->B \Goto0 \IfEnd 80\->O 80\->R 80\->X 160\->Q 22\->T S-1\->Y \If Y=0 \Then 3\->Y \IfEnd \Prog "FIGHT2" \If L=1 \Then "CETTE FOIS\(-)CI, C'EST BIEN LA FIN, ET TU APPELLES LE FBI."\Disp18\->C \Else "TU ES KO !" \IfEnd \IfEnd \If B=1\ And C=18 \Then \ClrText "TU AS FINI L'HISTOIRE"\Disp\IfEnd \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:5445 File Name:FIGHT2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrGraph 0\->P 0\->F 1\->M 3\->K 3\->I Q\->U 0\->L \If H\<>4.0 \Then \ClrText "TU N'AS PAS LA BONNE" "VERSION. FAIS UNE" "CONVERSION"\Disp\Goto4 \IfEnd \ClrText \Locate 1,2,"STATS ADVERSES :" \Locate 1,3,"SPECIALITE :" \If Y=1 \Then \Locate 14,3,"PSY" \IfEnd \If Y=2 \Then \Locate 14,3,"FOR" \IfEnd \If Y=3 \Then \Locate 14,3,"NOR" \IfEnd \Locate 1,4,"NIV :" \Locate 1,5,"ATT :" \Locate 1,6,"VIE :" \Locate 12,4,"RES :" \Locate 12,5,"AGI :" \Locate 7,4,T \Locate 7,5,O \Locate 7,6,Q \Locate 18,4,R \Locate 18,5,X\Disp\ClrText \Lbl 6 \If X>W*1.08\ And S=1\ And J>0\ And Q>0 \Then \Goto0 \IfEnd \If X>W-W/20\ And S=2\ And J>0\ And Q>0 \Then \Goto0 \IfEnd \If X>W*1.02\ And S=3\ And J>0\ And Q>0 \Then \Goto0 \IfEnd \Lbl 1 \Int J\->J \Int Q\->Q \If J<0 \Then 0\->J \IfEnd \If Q<0 \Then 0\->Q \IfEnd 1\->M \Prog "VIES" \If S=1 \Then \If B=80 \Then \Text 9,5,"1:ONDES" \If N>3 \Then \Text 15,5,"2:VERTIGES" \IfEnd \If N>8 \Then \Text 21,5,"3:CHOC MENTAL" \IfEnd \If N>11 \Then \Text 27,5,"4:RESSOURCE" \IfEnd \If N>15 \Then \Text 33,5,"5:FORCE CACHEE" \IfEnd \If N>19 \Then \Text 39,5,"6:ARRET CEREBRAL" \IfEnd \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53\ Or B=74)=0 \IfEnd \ClrGraph \RclPict 4 \Text 46,50,"TOI :" \If B=72 \Then 20\->Z \Text 52,50,"ONDES" 0\->B \IfEnd \If B=62\ And N>3 \Then 35\->Z \Text 52,50,"VERTIGES" 0\->B \IfEnd \If B=52\ And N>8 \Then 65\->Z \Text 52,50,"CHOC MENTAL" 0\->B \IfEnd \If B=73\ And N>11\ Or F=10 \Then 0\->Z G*0.1+J\->J \Text 52,50,"RESSOURCE" \If F\<>10 \Then 10\->F 0\->B \IfEnd \If J>G \Then G\->J \IfEnd \IfEnd \If B=63\ And N>15 \Then 65+30\Ran#+1\->Z \Text 52,50,"FORCE CACHEE" 0\->B \IfEnd \If B=53\ And N>19 \Then 100\Ran#+1\->Z 10\->B \Text 52,50,"ARRET CEREBRAL" \Do B-1\->B \LpWhile (B=0)=0 \Text 52,50," " \If Z\<=25 \Then \Text 52,50,"KO EN UN COUP !" 0\->Q \Goto2 \Else \Text 52,50,"RATE..." \IfEnd 0\->Z 0\->\r \IfEnd \IfEnd \If S=2 \Then \If B=80 \Then \Text 9,5,"1:COUP DE POING" \If N>2 \Then \Text 15,5,"2:COUP DE PIED" \IfEnd \If N>5 \Then \Text 21,5,"3:BALAYETTE" \IfEnd \If N>9 \Then \Text 27,5,"4:UPPERCUT" \IfEnd \If N>11 \Then \Text 33,5,"5:ACHARNEMENT" \IfEnd \If N>14 \Then \Text 39,5,"6:SUPER FRAPPE" \IfEnd \If N>19 \Then \Text 45,5,"7:COUP ULTIME" \IfEnd \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53\ Or B=74)=0 \IfEnd \ClrGraph \RclPict 4 \Text 46,50,"TOI :" \If B=72 \Then 20\->Z \Text 52,50,"COUP DE POING" 0\->B \IfEnd \If B=62\ And N>2 \Then 30\->Z \Text 52,50,"COUP DE PIED" 0\->B \IfEnd \If B=52\ And N>5 \Then 45\->Z \Text 52,50,"BALAYETTE" 0\->B \IfEnd \If B=73\ And N>9 \Then 55\->Z \Text 52,50,"UPPERCUT" 0\->B \IfEnd \If B=63\ And N>11 \Then 70\->Z \Text 52,50,"ACHARNEMENT" 0\->B \IfEnd \If B=53\ And N>14 \Then 85\->Z \Text 52,50,"SUPER FRAPPE" 0\->B \IfEnd \If B=74\ And N>19 \Then 110\->Z \Text 52,50,"COUP ULTIME" 0\->B \IfEnd \IfEnd \If S=3 \Then \If B=80 \Then \Text 9,5,"1:GRIFFURE" \If N>3 \Then \Text 15,5,"2:COUP DE BOULE" \IfEnd \If N>5 \Then \Text 21,5,"3:COUP FURTIF" \IfEnd \If N>8 \Then \Text 27,5,"4:PUISSANCE" \IfEnd \If N>12 \Then \Text 33,5,"5:ALEATOIRE" \IfEnd \If N>15 \Then \Text 39,5,"6:REGENERATION" \Text 39,71,K \IfEnd \If N>19 \Then \Text 45,5,"7:RAGE" \IfEnd \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53\ Or B=74)=0 \IfEnd \ClrGraph \RclPict 4 \Text 46,50,"TOI :" \If B=72 \Then 20\->Z \Text 52,50,"GRIFFURE" 0\->B \IfEnd \If B=62\ And N>3 \Then 35\->Z \Text 52,50,"COUP DE BOULE" 0\->B \IfEnd \If B=52\ And N>5 \Then 45\->Z \Text 52,50,"COUP FURTIF" 0\->B \IfEnd \If B=73\ And N>8 \Then 65\->Z \Text 52,50,"PUISSANCE" 0\->B \IfEnd \If B=63\ And N>12 \Then 50+35\Ran#+1\->Z \Text 52,50,"ALEATOIRE" 0\->B \IfEnd \If B=53\ And N>15\ And K>0 \Then G*1\ab/c2+J\->J 0\->Z \Text 52,50,"REGENERATION" 0\->B K-1\->K \If J>G \Then G\->J \IfEnd \IfEnd \If B=74\ And N>19 \Then 95\->Z \Text 52,50,"RAGE" 0\->B \IfEnd \IfEnd \If B\<>0 \Then \Text 52,50,"ERREUR DE FRAPPE..." 20\->Z \IfEnd \If S=1 \Then (A*1.02*Z)/(2*R)\->\r \If Y=2 \Then \r*1.25\->\r \IfEnd \If Y=1 \Then \r-\r/10\->\r \IfEnd \IfEnd \If S=2 \Then (A*1.1*Z)/(2*R)\->\r \If Y=3 \Then \r*1.25\->\r \IfEnd \If Y=2 \Then \r-\r/10\->\r \IfEnd \IfEnd \If S=3 \Then ((A-A/10)*Z)/(2*R\->\r \If Y=1 \Then \r*1.25\->\r \IfEnd \If Y=3 \Then \r-\r/10\->\r \IfEnd \IfEnd 100\Ran#\->Z \If Z\<=25 \Then \Text 52,50," " \Text 52,50,"COUP CRITIQUE" \r*1.5\->\r \IfEnd \r+\r*(5\Ran#-7)\ab/c100\->\r Q-\r\->Q 0\->Z \Int J\->J \Int Q\->Q \If J\<=0\ Or Q\<=0 \Then \Goto2 \IfEnd \ClrText \If X>W*1.08\ And S=1\ And J>0\ And Q>0 \Then \Goto2 \IfEnd \If X>W-W/20\ And S=2\ And J>0\ And Q>0 \Then \Goto2 \IfEnd \If X>W*1.02\ And S=3\ And J>0\ And Q>0 \Then \Goto2 \IfEnd \Lbl 0 0\->M \Prog "VIES" \ClrGraph \RclPict 4 \Text 46,50,"L'ADVERSAIRE :" \If Y=1 \Then \If T\<=3\ Or \Int (((20*O)\ab/c(2*D))*0.7)\>=J \Then \Text 52,50,"ONDES" 20\->Z \IfEnd \If \Int (((20*O)\ab/c(2*D))*0.7)\<=J \Then \If T>3\ And T\<=8 \Then \Text 52,50,"VERTIGES" 35\->Z \IfEnd \If T>8\ And T\<=11\ And P\<>10\ Or P=10\ And T>8\ And T\<=15 \Then \Text 52,50,"CHOC MENTALE" 65\->Z 80\->B \If T>11 \Then \Do B-1\->B \LpWhile (B=0)=0 \Text 52,50," " \IfEnd \IfEnd \If T>11\ Or P=10 \Then \Text 52,50,"RESSOURCE" U*1\ab/c10+Q\->Q \If Q>U \Then U\->Q \IfEnd \If P\<>10 \Then 20\->P 0\->Z 0\->\r \IfEnd \IfEnd \If R\<>20 \Then \If T>15\ And T\<=19\ And P=10\ Or T>19\ And NZ \IfEnd \If T>19\ And N\>=T+2\ And P=10 \Then \Text 52,50,"ARRET CEREBRALE" 20\->B \Do B-1\->B \LpWhile (B<0)=0 \Text 52,50," " 100\Ran#+1\->Z \If Z\<=25 \Then 0\->J \Text 52,50,"KO EN UN COUP" \Goto2 \Else \Text 52,50,"RATE..." 0\->Z 0\->\r \IfEnd \IfEnd \IfEnd \IfEnd \If P=20 \Then 10\->P \IfEnd \Prog "FIGHT5" \If S=1 \Then \r-\r/10\->\r \IfEnd \If S=2 \Then \r*1.25\->\r \IfEnd \IfEnd \If Y=2 \Then \If T\<=2\ Or \Int (((20*O)\ab/c(2*D))*0.7)\>=J \Then 20\->Z \Text 52,50,"COUP DE POINT" \IfEnd \If \Int (((20*O)\ab/c(2*D))*0.7)\<=J \Then \If T>2\ And T\<=5 \Then 30\->Z \Text 52,50,"COUP DE PIED" \IfEnd \If T>5\ And T\<=9 \Then 45\->Z \Text 52,50,"BALAYETTE" \IfEnd \If T>9\ And T\<=11 \Then 55\->Z \Text 52,50,"UPPERCUT" \IfEnd \If T>11\ And T\<=14 \Then 70\->Z \Text 52,50,"ACHARNEMENT" \IfEnd \If T>14\ And T\<=19 \Then 85\->Z \Text 52,50,"SUPER FRAPPE" \IfEnd \If T>19 \Then 110\->Z \Text 52,50,"COUP ULTIME" \IfEnd \IfEnd \Prog "FIGHT5" \If S=3 \Then \r*1.25\->\r \IfEnd \If S=2 \Then \r-\r/10\->\r \IfEnd \IfEnd \If Y=3 \Then \If T\<=3\ Or \Int (((20*O)\ab/c(2*D))*0.7)\>=J \Then \Text 52,50,"GRIFFURE" 20\->Z \IfEnd \If \Int (((20*O)\ab/c(2*D))*0.7)\<=J \Then \If T>3\ And T\<=5 \Then \Text 52,50,"COUP DE BOULE" 35\->Z \IfEnd \If T>5\ And T\<=8 \Then \Text 52,50,"COUP FURTIF" 45\->Z \IfEnd \If T>8\ And T\<=12\ Or T>8\ And T\<=19\ And Q>1\ab/c3U\ Or T\<=19\ And I=0 \Then \Text 52,50,"PUISSANCE" 65\->Z \IfEnd \If T>12\ And Q\<=1\ab/c3*U\ And I>0 \Then U/2+Q\->Q \If Q>U \Then U\->Q \IfEnd \Text 52,50,"REGENERATION" 0\->Z I-1\->I \Goto2 \IfEnd \If T>19\ And Q>1\ab/c3*U\ Or T>19\ And I=0 \Then \Text 52,50,"RAGE" 95\->Z \IfEnd \IfEnd \Prog "FIGHT5" \Lbl 7 \If S=1 \Then \r*1.25\->\r \IfEnd \If S=3 \Then \r-\r/10\->\r \IfEnd \IfEnd 100\Ran#\->Z \If Z\<=25 \Then \Text 52,50," " \Text 52,50,"COUP CRITIQUE" \r*1.5\->\r \IfEnd \r+\r*(5\Ran#-7)\ab/c100\->\r:J-\r\->J \Int J\->J \Int Q\->Q \If X>W*1.08\ And S=1\ And J>0\ And Q>0 \Then \Goto1 \IfEnd \If X>W-W/20\ And S=2\ And J>0\ And Q>0 \Then \Goto1 \IfEnd \If X>W*1.02\ And S=3\ And J>0\ And Q>0 \Then \Goto1 \IfEnd \Lbl 2 \Int J\->J \Int Q\->Q \If J<0 \Then 0\->J \IfEnd \If Q<0 \Then 0\->Q \IfEnd \If J>0\ And Q>0 \Then \Goto6 \IfEnd \Lbl 8 1\->B 0\->M \Prog "VIES" \If J>0\ And Q\<=0 \Then \Text 52,50,"TU AS GAGNE !" \Int E-(O+R+T)*10\->E \Int \theta+5*(O+R+T+W)\->\theta 1\->L \IfEnd \If J\<=0\ And Q\<=0 \Then \Text 52,50,"MATCH NUL ..." \Int E-10*T\->E \IfEnd \If J\<=0\ And Q>0 \Then E-10\->E \Text 52,50,"TU AS PERDU." \IfEnd \If E\<=0 \Then 1\->M \Prog "FIGHT4" \IfEnd 80\->B \Do B-1\->B \LpWhile (B<0)=0 \Text 52,50," " \Text 52,50,"FIN DU COMBAT" 40\->B \Do B-1\->B \LpWhile (B<0)=0 \If N\<=315 \Then 100000*2^N\->Q \Else 9.99999\EE99\->Q \IfEnd \ClrText G\->J \If V\>=1\ Or V\<=5 \Then V\->B \Prog "SAUVER" \IfEnd \ClrText \Lbl 4 1\->B %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:628 File Name:FIGHT3 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If H=4.0 \Then \While (B\<>0) \ClrText \Locate 1,7,"ARGENT" \Locate 10,7,\theta "[1]:ATTAQUE+ 9500" "[2]:RESISTANCE+ 9500" "[3]:AGILITE+ 9500" "[4]:VIE+ 15000" "[5]:NIVEAU+ 50000" "[6]:RETOUR" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53)=0 \ClrText \If B=72\ And \theta\>=9500 \Then A+1\->A \theta-9500\->\theta \Locate 1,2,"+1 EN ATTAQUE :" \Locate 1,3,A\Disp\IfEnd \If B=62\ And \theta\>=9500 \Then D+1\->D \theta-9500\->\theta \Locate 1,2,"+1 EN RESISTANCE :" \Locate 1,3,D\Disp\IfEnd \If B=52\ And \theta\>=9500 \Then \theta-9500\->\theta W+1\->W \Locate 1,2,"+1 EN AGILITE :" \Locate 1,3,W\Disp\IfEnd \If B=73\ And \theta\>=15000 \Then J+3\->J J\->G \theta-15000\->\theta \Locate 1,2,"+3 EN VIE :" \Locate 1,3,J\Disp\IfEnd \If B=63\ And \theta\>=50000 \Then \theta-50000\->\theta 0\->M 0\->E \Prog "FIGHT4" \IfEnd \If B=53 \Then 0\->B \IfEnd \WhileEnd \Else "TU N'AS PAS LA BONNE VERSION. FAIS UNE" "CONVERSION."\Disp\IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:285 File Name:FIGHT4 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If E\<=0 \Then \If M=0 \Then " " "TU MONTES D1 NIVEAU !"\Disp\IfEnd \If M=1 \Then \Text 52,50," " \Text 52,50,"+1 NIVEAU !" \IfEnd N+1\->N \If N\<=321 \Then E+1000*2^N/2\->E \If S=1 \Then E-E/10\->E \IfEnd \Else 9.9999999\EE99\->E \IfEnd \theta+50*N\->\theta G\->J 3\Ran#+1+A\->A 3\Ran#+1+D\->D 3\Ran#+1+W\->W 4\Ran#+3+J\->J \Int A\->A \Int D\->D \Int W\->W \Int J\->J \Int E\->E J\->G \Else "TRICHE PAS !" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:95 File Name:FIGHT5 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If S=1 \Then (O*Z)\ab/c(2*(D-D\ab/c10))\->\r \IfEnd \If S=2 \Then (O*Z)\ab/c(2*(D-D\ab/c20))\->\r \IfEnd \If S=3 \Then (O*Z)\ab/c(2*D*1.1)\->\r \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:283 File Name:FIGHT6 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "QUE VEUX\(-)TU FAIRE ?":"[1]:SAUVEGARDER" "[2]:CHARGER" "[3]:RETOUR" \Do \Getkey\->B \LpWhile (B=72\ Or B=62\ Or B=52)=0 \ClrText \If B=72 \Then 0\->B \While (B<1\ Or B>5) "NUMERO DE LA PARTIE (ENTRE 1 ET 5)"?\->B \ClrText \WhileEnd \Prog "SAUVER" \IfEnd \If B=62 \Then 0\->B \While (B<1\ Or B>5) "NUMERO DE LA PARTIE (ENTRE 1 ET 5)"?\->B \ClrText \WhileEnd \Prog "CHARGER" \IfEnd 0\->B %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:335 File Name:INSTALL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \AxesOff \BG-None \ClrGraph \ViewWindow 1,127,1,1,65,1 \Cls \Text 6,1,"TOI :" \Text 30,1,"L'ADVERSAIRE :" \Text 6,98,"/" \Text 30,98,"/" \F-Line 7,45,121,45 \F-Line 7,52,121,52 \F-Line 122,46,122,51 \F-Line 6,46,6,51 \F-Line 7,27,121,27 \F-Line 7,21,121,21 \F-Line 122,26,122,22 \F-Line 6,26,6,22 \StoPict 2 \F-Line 1,8,36,8 \F-Line 37,7,37,1 \Text 58,1,"ATTAQUES" \StoPict 3 \AxesOff \BG-None \ClrGraph \ViewWindow 1,127,1,1,65,1 \Cls \F-Line 2,13,2,59 \F-Line 75,13,75,59 \F-Line 3,12,74,12 \F-Line 3,60,74,60 \StoPict 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:552 File Name:INTRO Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \AxesOff \BG-None \ClrGraph \ViewWindow 1,127,1,1,65,1 \Cls \F-Line 1,3,1,64 \F-Line 2,65,125,65 \F-Line 126,64,126,3 \F-Line 125,2,2,2 \F-Line 10,10,10,60 \F-Line 11,60,50,60 \F-Line 11,35,30,35 \F-Line 40,25,40,15 \F-Line 40,15,41,12 \F-Line 41,12,42,11 \F-Line 42,11,44,10 \F-Line 45,10,48,10 \F-Line 48,10,50,12 \PxlOn 32,40 \F-Line 77,58,75,60 \F-Line 74,60,69,60 \F-Line 69,60,66,57 \F-Line 66,57,66,50 \F-Line 66,49,69,46 \F-Line 69,46,74,46 \F-Line 74,46,76,47 \F-Line 76,47,77,49 \F-Line 77,49,77,51 \F-Line 77,51,73,51 \F-Line 80,46,80,60 \F-Line 88,46,88,60 \F-Line 81,53,87,53 \F-Line 91,60,105,60 \F-Line 98,59,98,46 \Text 15,110,"4.0" 60\->B \Do B-1\->B \LpWhile (B<0)=0 \Text 30,85,"PAR" \Text 38,85,"..." 80\->B \Do B-1\->B \LpWhile (B<0)=0 \Text 50,79,"TOTOYO" \Do \Getkey \LpWhile (\Getkey=31)=0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:311 File Name:OPTIONS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->B \While (B\<>62) \ClrText "=======OPTIONS=======" "[1]:AUTO\(-)SAUVEGARDE" "[2]:RETOUR" \Do \Getkey\->B \LpWhile (B=72\ Or B=62)=0 \If B=72 \Then \ClrText "SAUVEGARDER AUTOMATI\(-)QUEMENT APRES CHAQUE COMBAT ?" "[1]:OUI" "[2]:NON" \Do \Getkey\->B \LpWhile (B=72\ Or B=62)=0 \If B=72 \Then \While (B<1\ Or B>5):\ClrText "NUMERO DE LA PARTIE (ENTRE 1 ET 5)"?\->B \WhileEnd B\->V \Prog "SAUVER" \IfEnd \IfEnd \WhileEnd \ClrText 0\->B %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:995 File Name:SAUVER Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \If B=1 \Then {27,1}\->\Dim \Mat A A\->\Mat A[1,1] C\->\Mat A[3,1] D\->\Mat A[4,1] E\->\Mat A[5,1] G\->\Mat A[7,1] H\->\Mat A[8,1] J\->\Mat A[10,1] N\->\Mat A[14,1] S\->\Mat A[19,1] V\->\Mat A[22,1] W\->\Mat A[23,1] \theta\->\Mat A[27,1] " " " " " " "SAUVEGARDE TERMINEE !" \IfEnd \If B=2 \Then {27,1}\->\Dim \Mat B A\->\Mat B[1,1] C\->\Mat B[3,1] D\->\Mat B[4,1] E\->\Mat B[5,1] G\->\Mat B[7,1] H\->\Mat B[8,1] J\->\Mat B[10,1] N\->\Mat B[14,1] S\->\Mat B[19,1] V\->\Mat B[22,1] W\->\Mat B[23,1] \theta\->\Mat B[27,1] " " " " " " "SAUVEGARDE TERMINEE !" \IfEnd \If B=3 \Then {27,1}\->\Dim \Mat C A\->\Mat C[1,1] C\->\Mat C[3,1] D\->\Mat C[4,1] E\->\Mat C[5,1] G\->\Mat C[7,1] H\->\Mat C[8,1] J\->\Mat C[10,1] N\->\Mat C[14,1] S\->\Mat C[19,1] V\->\Mat C[22,1] W\->\Mat C[23,1] \theta\->\Mat C[27,1] " " " " " " "SAUVEGARDE TERMINEE !" \IfEnd \If B=4 \Then {27,1}\->\Dim \Mat D A\->\Mat D[1,1] C\->\Mat D[3,1] D\->\Mat D[4,1] E\->\Mat D[5,1] G\->\Mat D[7,1] H\->\Mat D[8,1] J\->\Mat D[10,1] N\->\Mat D[14,1] S\->\Mat D[19,1] V\->\Mat D[22,1] W\->\Mat D[23,1] \theta\->\Mat D[27,1] " " " " " " "SAUVEGARDE TERMINEE !" \IfEnd \If B=5 \Then {27,1}\->\Dim \Mat E A\->\Mat E[1,1] C\->\Mat E[3,1] D\->\Mat E[4,1] E\->\Mat E[5,1] G\->\Mat E[7,1] H\->\Mat E[8,1] J\->\Mat E[10,1] N\->\Mat E[14,1] S\->\Mat E[19,1] V\->\Mat E[22,1] W\->\Mat E[23,1] \theta\->\Mat E[27,1] " " " " " " "SAUVEGARDE TERMINEE !" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:540 File Name:VIES Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Int J\->J \Int Q\->Q \AxesOff \BG-None \ClrGraph \ViewWindow 1,127,1,1,65,1 \Cls \If M=0 \Then \RclPict 2 \IfEnd \If M=1 \Then \RclPict 3 \IfEnd \Text 6,80,J \Text 6,103,G \Text 30,80,Q \Text 30,103,U (110*J)\ab/cG+9\->B \Int B\->B \If J>0 \Then \F-Line 9,47,B,47 \F-Line 9,48,B,48 \F-Line 9,49,B,49 \F-Line 9,50,B,50 \IfEnd (110*Q)\ab/cU+9\->B \Int B\->B \If Q>0 \Then \F-Line 9,23,B,23 \F-Line 9,24,B,24 \F-Line 9,25,B,25 \IfEnd \StoPict 4 \If M=1 \Then \Do \Getkey\->B \LpWhile (B=79\ Or B=69\ Or B=72\ Or B=62\ Or B=52\ Or B=73\ Or B=63\ Or B=53\ Or B=74)=0 \If B=79\ Or B=69 \Then 80\->B \Text 6,1," " \Text 12,1," " \Text 18,1," " \Text 30,1," " \Text 36,1," " \Text 42,1," " \RclPict 1 \IfEnd \IfEnd \Lbl 9 %End