%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:12240 File Name:PIZZA Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrGraph:\AxesOff:\GridOff:\LabelOff:\ViewWindow 127,0,1,63,0,1:\Green \Text 1,1,"PIZZA FRENZY":\Horizontal 8:\Text 16,1,"LE SIMULATEUR DE VENTE":\Text 24,1,"DE PIZZA SUR TA CASIO !":\Text 32,1,"LES PARTIES SONT SAUVEGARDEES":\Text 40,1,"DANS LA MATRICE P (7*2).":\Horizontal 54:\Orange \Text 58,51,"(C) 2006 MARC DENIS":5\->M:0\->R~W:\Do:\LpWhile \Getkey\<>31 \Lbl 0:\ClrText:"\slash\slash\slash\slash\slash\slash\slashMENU PRINCIPAL":\Locate 1,3,"1.ACHETER INGREDIENTS":\Locate 1,4,"2.INVENTAIRE":\Locate 1,5,"3.VENDRE DES PIZZAS":\Locate 1,6,"4.CASINO PALACE":\Locate 1,7,"5.CHARGER\slashSAUVEGARDER":M\>=20\ And R=0\=>\GotoZ:M\>=50\ And R=1\=>\GotoZ:M\>=100\ And R=2\=>\GotoZ:M\>=250\ And R=3\=>\GotoZ:M\>=500\ And R=4\=>\GotoZ:M\>=1000\ And R=5\=>\GotoZ:M\>=3000\ And R=6\=>\GotoZ:M\>=8500\ And R=7\=>\GotoZ:M\>=20000\ And R=8\=>\GotoZ:\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\ And K\<>63\=>\Goto0:K=72\=>\Goto1:K=62\=>\Goto2:K=52\=>\Goto3:K=73\=>\Goto4:K=63\=>\Goto5 \Lbl 1:\ClrGraph:\Text 1,1,"OU VEUX-TU ALLER ?":\Horizontal 11:\Text 15,1,"1.LA VIE, LA VRAIE. AUCHAN !":\Text 23,1,"2.CARREFOUR, TOUTOUTOUTOUTOU !":\Text 31,1,"3.NETTO HRD-DSCNT POUR DE VRAI!":\Text 39,1,"4.CORA, LA QUALITE EST LA !":\Text 47,1,"5.DONGDIDIDONGDING, LECLERC !":\Text 55,1,"6.RANGER LE CADDY.":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\ And K\<>63\ And K\<>53\=>\Goto1:K=53\=>\Goto0:K=72\ Or K=62\ Or K=52\ Or K=73\ Or K=63\=>\Int 2\Ran#+1\->J:J-((\Int 50\Ran#+1)/100)\->A:\Int 2\Ran#+1\->J:J-((\Int 50\Ran#+1)/100)\->B:\Int 2\Ran#+1\->J:J+((\Int 50\Ran#+1)/100)\->C:\Int 2\Ran#+2\->J:J-((\Int 100\Ran#+1)/100)\->D:\Int 3\Ran#+1\->J:J+((\Int 100\Ran#+1)/100)\->E:\Ran#\->H:H\<=0.1\ Or H\>=0.9\=>\GotoB:H>0.1\ And H<0.9\=>\ClrText:\Lbl A:\ClrText:\Locate 1,1,"1.PATE":\Locate 1,2,"2.PEPPERONI":\Locate 1,3,"3.MOZZARELLA":\Locate 1,4,"4.CHAMPIGNONS":\Locate 1,5,"5.ANCHOIS":\Locate 1,6,"6.RETOUR":\Locate 1,7,"EUROS :":\Locate 18,1,A:\Locate 18,2,B:\Locate 18,3,C:\Locate 18,4,D:\Locate 18,5,E:\Locate 9,7,M:\Do:\Getkey\->K:\LpWhile K=0:K=53\=>\Goto1:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\ And K\<>63\ And K\<>53\=>\GotoA:K=72\ Or K=62\ Or K=52\ Or K=73\ Or K=63\=>\ClrText:"T'EN VEUX COMBIEN":?\->H:\If H<0:\Then "C'EST COMIQUE...":"TRY AGAIN :\(-)) !":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If M-HA<0\ And K=72:\Then "T'ES RUINE, MEC !":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If M-HB<0\ And K=62:\Then "PAS ASSEZ DE FRIC !":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If M-HC<0\ And K=52:\Then "IL TE FAUT PLUS DE":"POGNON POUR CA !":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If M-HD<0\ And K=73:\Then "TROP CHER POUR TOI !":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If M-HE<0\ And K=63:\Then "ECONOMISE UN PEU...":\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H\>=0\ And K=72\ And M-HA\>=0:\Then M-HA\->M:S+H\->S:\GotoA:\Else \If H\>=0\ And K=62\ And M-HB\>=0:\Then M-HB\->M:T+H\->T:\GotoA:\Else \If H\>=0\ And K=52\ And M-HC\>=0:\Then M-HC\->M:U+H\->U:\GotoA:\Else \If H\>=0\ And K=73\ And M-HD\>=0:\Then M-HD\->M:V+H\->V:\GotoA:\Else \If H\>=0\ And K=63\ And M-HE\>=0:\Then M-HE\->M:W+H\->W:\GotoA:\Lbl B:\ClrText:\For 1\->H \To 21 \Step 3:\Locate H,4," *":\Next :\ClrText:\Locate 1,1,"EVENEMENT SPECIAL!":\Locate 1,2,"APPUIE SUR [EXE] POUR":\Locate 1,3,"DECOUVRIR CE QUI VA":\Locate 1,4,"T'ARRIVER !":\Do:\LpWhile \Getkey\<>31:\For 1\->H \To 21 \Step 1:\Locate H,5,".":\Next :\Int 11\Ran#\->H:\If H\<=2:\Then \Locate 1,6,"PORTE-FEUILLE PERCE !":\Locate 1,7,"PERTE: E":\Int 0.25M\->H:M-H\->M:\Locate 7,7,H:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H>2\ And H\<=5:\Then \Locate 1,6,"JOUR DE CHANCE ! TU":\Locate 1,7,"AS TROUVE EUROS !":\Int 99\Ran#+1\->H:M+H\->M:\Locate 11,7,H:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H=6:\Then \Locate 1,6,"PATE A PIZZA EN PROMO":\Locate 1,7,"0.15 EUR. SEULEMENT !":0.15\->A:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H=7:\Then \Locate 1,6,"PEPPERONI EN PROMO !!":\Locate 1,7,"0.35 EUR. SEULEMENT !":0.35\->B:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H=8:\Then \Locate 1,6,"MOZZARELLA EN PROMO !":\Locate 1,7,"0.55 EUR. SEULEMENT !":0.55\->C:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H=9:\Then \Locate 1,6,"CHAMPIGNONS EN PROMO!":\Locate 1,7,"0.70 EUR. SEULEMENT !":0.70\->D:\Do:\LpWhile \Getkey\<>31:\GotoA:\Else \If H=10:\Then \Locate 1,6,"ANCHOIS EN PROMO !!!!":\Locate 1,7,"0.80 EUR. SEULEMENT !":0.80\->E:\Do:\LpWhile \Getkey\<>31:\GotoA:\Lbl 2:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashINVENTAIRE":\Locate 1,2,"PATE:":\Locate 13,2,S:\Locate 1,3,"PEPPERONI:":\Locate 13,3,T:\Locate 1,4,"MOZZARELLA:":\Locate 13,4,U:\Locate 1,5,"CHAMPIGNONS:":\Locate 13,5,V:\Locate 1,6,"ANCHOIS:":\Locate 13,6,W:\Locate 1,7,"ARGENT:":\Locate 13,7,M:\Do:\LpWhile \Getkey\<>31:\Goto0:\Lbl 3:\ClrText:"\slash\slash\slash\slash\slash\slashCHOISIR RECETTE":\Locate 1,2,"1.MARGHERITA":R\>=2\=>\Locate 1,3,"2.FORESTIERE":R\>=4\=>\Locate 1,4,"3.GRANDE MARGHERITA":R\>=6\=>\Locate 1,5,"4.MARINA CHEESE":R\>=8\=>\Locate 1,6,"5.FULLY MEGAMIX":\Locate 1,7,"6.RETOUR":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\ And K\<>63\ And K\<>53\=>\Goto3:K=62\ And R<2\=>\Goto3:K=52\ And R<4\=>\Goto3:K=73\ And R<6\=>\Goto3:K=63\ And R<8\=>\Goto3:K=53\=>\Goto0:K=72\=>\GotoC:K=62\ And R\>=2\=>\GotoD:K=52\ And R\>=4\=>\GotoE:K=73\ And R\>=6\=>\GotoF:K=63\ And R\>=8\=>\GotoG:\Lbl C:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashMARGHERITA":\Locate 1,2,"INGREDIENTS REQUIS :":\Locate 1,3,"\-> 1 PATE A PIZZA":\Locate 1,4,"\-> 1 PEPPERONI":\Locate 1,5,"\-> 1 MOZZARELLA":\Locate 1,6,"PRIX DE VENTE : E":\Int 3\Ran#+4\->J:J+((\Int 10\Ran#)/10)\->A:\Locate 17,6,A:\Do:\LpWhile \Getkey\<>31:\GotoH:\Lbl H:\ClrText:"TU EN VENDS COMBIEN":?\->H:\If H<0:\Then "C'EST COMIQUE...":"TRY AGAIN :\(-)) !":\Do:\LpWhile \Getkey\<>31:\Goto3:\Else \If K=72\ And H\>=0\ And (S31:\Goto3:\Else \If K=72\ And H\>=0\ And S\>=H\ And T\>=H\ And U\>=H:\Then "MARCHE CONCLU !":M+HA\->M:S-H\->S:T-H\->T:U-H\->U:\Do:\LpWhile \Getkey\<>31:\Goto3:\Else \If K=62\ And H\>=0\ And (S31:\Goto3:\Else \If K=62\ And H\>=0\ And S\>=H\ And T\>=H\ And V\>=2H:\Then "MARCHE CONCLU !":M+HB\->M:S-H\->S:T-H\->T:V-2H\->V:\Do:\LpWhile \Getkey\<>31:\Goto3:\Else \If K=52\ And H\>=0\ And (S31:\Goto3:\Else \If K=52\ And H\>=0\ And S\>=H\ And T\>=3H\ And U\>=3H:\Then "MARCHE CONCLU !":M+HC\->M:S-H\->S:T-3H\->T:U-3H\->U:\Do:\LpWhile \Getkey\<>31:\Goto3:\Else \If K=73\ And H\>=0\ And (S31:\Goto3:\Else \If K=73\ And H\>=0\ And S\>=H\ And U\>=2H\ And W\>=3H:\Then "MARCHE CONCLU !":M+HD\->M:S-H\->S:U-2H\->U:W-3H\->W:\Do:\LpWhile \Getkey\<>31:\Goto3:\Else \If K=63\ And H\>=0\ And (S31:\Goto3:\Else \If K=63\ And H\>=0\ And S\>=H\ And T\>=4H\ And U\>=4H\ And V\>=4H\ And W\>=4H:\Then "MARCHE CONCLU !":M+HE\->M:S-H\->S:T-4H\->T:U-4H\->U:V-4H\->V:W-4H\->W:\Do:\LpWhile \Getkey\<>31:\Goto3:\Lbl D:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashFORESTIERE":\Locate 1,2,"INGREDIENTS REQUIS :":\Locate 1,3,"\-> 1 PATE A PIZZA":\Locate 1,4,"\-> 1 PEPPERONI":\Locate 1,5,"\-> 2 CHAMPIGNONS":\Locate 1,6,"PRIX DE VENTE : E":\Int 3\Ran#+6\->J:J-((\Int 10\Ran#)/10)\->B:\Locate 17,6,B:\Do:\LpWhile \Getkey\<>31:\GotoH:\Lbl E:\ClrText:"\slash\slash\slash\slashGRANDE MARGHERITA":\Locate 1,2,"INGREDIENTS REQUIS :":\Locate 1,3,"\-> 1 PATE A PIZZA":\Locate 1,4,"\-> 3 PEPPERONI":\Locate 1,5,"\-> 3 MOZZARELLA":\Locate 1,6,"PRIX DE VENTE : E":\Int 4\Ran#+8\->H:H+((\Int 10\Ran#)/10)\->C:\Locate 17,6,C:\Do:\LpWhile \Getkey\<>31:\GotoH:\Lbl F:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slashMARINA CHEESE":\Locate 1,2,"INGREDIENTS REQUIS :":\Locate 1,3,"\-> 1 PATE A PIZZA":\Locate 1,4,"\-> 2 MOZZARELLA":\Locate 1,5,"\-> 3 ANCHOIS":\Locate 1,6,"PRIX DE VENTE : E":\Int 4\Ran#+10\->J:J-((\Int 10\Ran#)/10)\->D:\Locate 17,6,D:\Do:\LpWhile \Getkey\<>31:\GotoH:\Lbl G:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slashFULLY MEGAMIX":\Locate 1,2,"INGREDIENTS REQUIS :":\Locate 1,3,"\-> 1 PATE A PIZZA":\Locate 1,4,"\-> 4 PEPPERONI":\Locate 1,5,"\-> 4 MOZZARELLA":\Locate 1,6,"\-> 4 CHAMPIGNONS":\Locate 1,7,"\-> 4 ANCHOIS\slashPRX: E":\Int 4\Ran#+13\->J:J-((\Int 10\Ran#)/10)\->E:\Locate 17,7,E:\Do:\LpWhile \Getkey\<>31:\GotoH \Lbl 4:\ClrText:\If R=0:\Then "TU N'AS PAS ENCORE DEBLOQUE LE CASINO ! REVIENS PLUS TARD...":\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R\>=1:\Then "\slash\slash\slash\slash\slash\slash\slash\slashCASINO PALACE":\Locate 1,2,"SALUT ! BIENVENUE AU":\Locate 1,3,"CASINO ! ICI TU VAS":\Locate 1,4,"POUVOIR JOUER A DES":\Locate 1,5,"MINI-JEUX POUR":\Locate 1,6,"AUGMENTER TON ARGENT.":\Locate 1,7,"CHAQUE JEU EST PAYANT":\Do:\LpWhile \Getkey\<>31:\IfEnd:\Lbl I:\ClrText:"\slash\slash\slash\slash\slashCHOISIR MINI-JEU":R\>=1\=>\Locate 1,2,"1.DICE ANGEL":R\>=3\=>\Locate 1,3,"2.GUESS THAT!":R\>=5\=>\Locate 1,4,"3.PPC CHALLENGE":R\>=7\=>\Locate 1,5,"4.LUCKY KEY":R\>=9\=>\Locate 1,6,"5.CHRONO PARTY":\Locate 1,7,"6.RETOUR\slashARG.:":\Locate 14,7,M:\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\ And K\<>63\ And K\<>53\=>\GotoI:K=53\=>\Goto0:K=62\ And R<3\=>\GotoI:K=52\ And R<5\=>\GotoI:K=73\ And R<7\=>\GotoI:K=63\ And R<9\=>\GotoI:K=72\=>\GotoJ:K=62\ And R\>=3\=>\GotoK:K=52\ And R\>=5\=>\GotoL:K=73\ And R\>=7\=>\GotoM:K=63\ And R\>=9\=>\GotoN:\Lbl J:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashDICE ANGEL":\Locate 1,2,"COUT PARTIE : 5 EUROS":\Locate 1,3,"BATS 3 FOIS LA CASIO":\Locate 1,4,"AUX DES AVANT ELLE !":\Locate 1,5,"20 E SI TU GAGNES,":\Locate 1,6,"0 SI TU PERDS !":\Locate 1,7,"JOUER? 1.OUI! 2.NON!":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\=>\GotoJ:K=72\ And M<5\=>\GotoJ:K=62\=>\GotoI:K=72\ And M\>=5\=>M-5\->M:\ClrText:3\->A~B:\Locate 17,1,"CASIO":\Locate 16,2,"PV :":\Locate 21,2,A:\Locate 1,6,"TOI":\Locate 1,7,"PV :":\Locate 6,7,B:\Locate 3,4,"APPUIE SUR [EXE]":\Do:\LpWhile \Getkey\<>31:\Lbl O:A=0\ Or B=0\=>\GotoP:\Int 6\Ran#+1\->C:\Int 6\Ran#+1\->D:\Locate 3,4," ":\Locate 1,3,"DE CASIO :":\Locate 12,3,C:\Locate 12,5,"TON DE :":\Locate 21,5,D:\If C=D\ And A>0\ And B>0:\Then \Locate 5,4,"EGALITE...":\Do:\LpWhile \Getkey\<>31:\GotoO:\Else \If C>D\ And A>0\ And B>0:\Then \Locate 3,4,"LA CASIO GAGNE...":B-1\->B:\Locate 6,7,B:\Do:\LpWhile \Getkey\<>31:\GotoO:\Else \If C0\ And B>0:\Then \Locate 3,4,"OUAIS, TU GAGNES!":A-1\->A:\Locate 21,2,A:\Do:\LpWhile \Getkey\<>31:\GotoO:\Lbl P:\ClrText:\If A=0:\Then "BRAVO, TU AS REUSSI !TU GAGNES LES 20 E. !":M+20\->M:\Do:\LpWhile \Getkey\<>31:\GotoI:\Else \If B=0:\Then "GAME OVER LE LOSER...":\Do:\LpWhile \Getkey\<>31:\GotoI:\Lbl K:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashGUESS THAT!":\Locate 1,2,"10 EUROS LA PARTIE":\Locate 1,3,"TAPE UN NOMBRE ENTRE":\Locate 1,4,"1 ET 5. SI TU TOMBES":\Locate 1,5,"SUR LE BON NOMBRE, TU":\Locate 1,6,"GAGNERAS 50 EUROS !":\Locate 1,7,"JOUER? 1.OUI! 2.NON!":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\=>\GotoK:K=72\ And M<10\=>\GotoK:K=62\=>\GotoI:K=72\ And M\>=10\=>M-10\->M:\ClrText:\Int 4\Ran#+1\->A:"TON NOMBRE"?\->B:\If B\<>A:\Then "PAS DE CHANCE, LE":"NOMBRE ETAIT EGAL A":\Locate 21,4,A:\Do:\LpWhile \Getkey\<>31:\GotoI:\Else \If A=B:\Then "QUELLE CHANCE !":"VOILA TES 50 EUROS !":M+50\->M:\Do:\LpWhile \Getkey\<>31:\GotoI:\Lbl L:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slashPPC CHALLENGE":\Locate 1,2,"30 EUROS LA PARTIE":\Locate 1,3,"BATS 3 FOIS LA CASIO":\Locate 1,4,"AVANT ELLE AU JEU DE":\Locate 1,5,"PIERRE-PAPIER-CISEAUX":\Locate 1,6,"100 E SI TU GAGNES !":\Locate 1,7,"JOUER? 1.OUI! 2.NON!":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\=>\GotoL:K=62\=>\GotoI:K=72\ And M<30\=>\GotoL:K=72\ And M\>=30\=>M-30\->M:\ClrText:3\->A~B:\Locate 17,1,"CASIO":\Locate 16,2,"PV :":\Locate 21,2,A:\Locate 1,6,"TOI":\Locate 1,7,"PV :":\Locate 6,7,B:\Lbl Q:\Locate 1,3," ":\Locate 13,5," ":A=0\ Or B=0\=>\GotoR:\Locate 1,4,"1.PIER. 2.PAP. 3.CIS.":\Do:\Getkey\->K:\LpWhile K=0:\Locate 1,4," ":K=72\=>\Locate 13,5," PIERRE !":K=62\=>\Locate 13,5," PAPIER !":K=52\=>\Locate 13,5,"CISEAUX !":\Int 3\Ran#+1\->C:C=1\=>\Locate 1,3,"PIERRE ! ":C=2\=>\Locate 1,3,"PAPIER ! ":C=3\=>\Locate 1,3,"CISEAUX !":\If (C=1\ And K=72)\ Or (C=2\ And K=62)\ Or (C=3\ And K=52):\Then \Locate 3,4,"EGALITE...":\Do:\LpWhile \Getkey\<>31:\GotoQ:\Else \If (C=1\ And K=52)\ Or (C=2\ And K=72)\ Or (C=3\ And K=62):\Then \Locate 3,4,"LA CASIO GAGNE...":B-1\->B:\Locate 6,7,B:\Do:\LpWhile \Getkey\<>31:\GotoQ:\Else \If (C=1\ And K=62)\ Or (C=2\ And K=52)\ Or (C=3\ And K=72):\Then \Locate 3,4,"OUAIS, TU GAGNES !":A-1\->A:\Locate 21,2,A:\Do:\LpWhile \Getkey\<>31:\GotoQ:\Lbl R:\ClrText:\If B=0:\Then "GAME OVER...":\Do:\LpWhile \Getkey\<>31:\GotoI:\Else \If A=0:\Then "BRAVO, LES 100 EUROS SONT POUR TOI !":"UTILISE-LES AVEC":"SAGESSE (VA VITE LES REJOUER) !":M+100\->M:\Do:\LpWhile \Getkey\<>31:\GotoI:\Lbl M:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashLUCKY KEY":\Locate 1,2,"50 EUROS LA PARTIE":\Locate 1,3,"TU N'AS QU'UN SEUL":\Locate 1,4,"ESSAI POUR TROUVER LA":\Locate 1,5,"BONNE TOUCHE CHIFFREE":\Locate 1,6,"ET GAGNER 500 EUROS!!":\Locate 1,7,"JOUER? 1.OUI! 2.NON!":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\=>\GotoM:K=62\=>\GotoI:K=72\ And M<50\=>\GotoM:K=72\ And M\>=50\=>M-50\->M:\ClrText:"BONNE CHANCE... SI TUTROUVES LA BONNE":"TOUCHE CHIFFREE (DE 0 A 9) TU GAGNES LE":"PACTOLE DE 500 EUROS!APPUIE DES MAINTENANT":\Do:\Getkey\->K:\LpWhile K=0:K=71\=>0\->A:K=72\=>1\->A:K=62\=>2\->A:K=52\=>3\->A:K=73\=>4\->A:K=63\=>5\->A:K=53\=>6\->A:K=74\=>7\->A:K=64\=>8\->A:K=54\=>9\->A:\Int 10\Ran#\->B:\If B\<>A:\Then \ClrText:"C'EST PERDU...":"IL FALLAIT CHOISIR LATOUCHE !":\Locate 8,3,B:\Do:\LpWhile \Getkey\<>31:\GotoI:\Else \If B=A:\Then \ClrText:"OUAIIIIIIS !!!! TU ASREMPORTE 500 EUROS !!":M+500\->M:\Do:\LpWhile \Getkey\<>31:\GotoI:\Lbl N:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slashCHRONO PARTY":\Locate 1,2,"350 EUROS LA PARTIE":\Locate 1,3,"ARRETE LE BUZZER PILE":\Locate 1,4,"SUR LE NOMBRE DONNE":\Locate 1,5,"POUR GAGNER 5000 EUR!":\Locate 1,6,"PRECISION NECESSAIRE!":\Locate 1,7,"JOUER? 1.OUI! 2.NON!":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\=>\GotoN:K=62\=>\GotoI:K=72\ And M<350\=>\GotoN:K=72\ And M\>=350\=>M-350\->M:\ClrText:\Locate 1,1,"ARRETE LE CHRONO SUR":500-((\Int 10\Ran#+1)*5)\->A:\Locate 1,2,A:\Locate 5,2,"POUR GAGNER !":0\->B:\Locate 10,4,B:\Locate 1,7,"(F1)\->GO !":\Do:\LpWhile \Getkey\<>79:\Do:\Locate 13,7,"(F6)\->STOP":B+5\->B:\Locate 10,4,B:\LpWhile \Getkey\<>29:\If A\<>B:\Then \Locate 4,6,"TU AS PERDU...":\Do:\LpWhile \Getkey\<>31:\GotoI:\Else \If A=B:\Then \Locate 1,6,"FELICITATIONS ! 5000E":M+5000\->M:\Do:\LpWhile \Getkey\<>31:\GotoI \Lbl 5:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slashCHARG.\slashSAUV.":\Locate 1,3,"1.CHARGER LA PARTIE":\Locate 1,4,"2.SAUVEGARDER PARTIE":\Locate 1,5,"3.EFFACER LA PARTIE":\Locate 1,6,"4.RETOUR":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\ And K\<>73\=>\Goto5:K=73\=>\Goto0:K=72\=>\Goto6:K=62\=>\Goto7:K=52\=>\Goto8:\Lbl 6:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashCHARGEMENT":\Locate 1,3,"1.FICHIER 1":\Locate 1,4,"2.FICHIER 2":\Locate 1,5,"3.RETOUR":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\=>\Goto6:K=52\=>\Goto5:K=72\ Or K=62\=>\ClrText:K=72\=>1\->A:K=62\=>2\->A:"ATTENTION, EST-TU":"SU\ProbR(E) DE VOULOIR":"CHARGER LE FICHIER":K=72\=>\Locate 20,3,"1?":K=62\=>\Locate 20,3,"2?":\Locate 1,5,"1.OUI, JE LE VEUX.":\Locate 1,6,"2.T'AS FUME OU QUOI ?":\Do:\Getkey\->K:\LpWhile K=0:\If K=62:\Then \Goto6:\Else \If K=72\ And A=1:\Then \ClrText:\Mat P[1,1]\->S:\Mat P[2,1]\->T:\Mat P[3,1]\->U:\Mat P[4,1]\->V:\Mat P[5,1]\->W:\Mat P[6,1]\->M:\Mat P[7,1]\->R:\Locate 2,4,"CHARGEMENT TERMINE":\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If K=72\ And A=2:\Then \ClrText:\Mat P[1,2]\->S:\Mat P[2,2]\->T:\Mat P[3,2]\->U:\Mat P[4,2]\->V:\Mat P[5,2]\->W:\Mat P[6,2]\->M:\Mat P[7,2]\->R:\Locate 2,4,"CHARGEMENT TERMINE":\Do:\LpWhile \Getkey\<>31:\Goto0:\Lbl 7:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashSAUVEGARDE":\Locate 1,3,"1.FICHIER 1":\Locate 1,4,"2.FICHIER 2":\Locate 1,5,"3.RETOUR":\Do:\Getkey\->K:\LpWhile K=0:K\<>72\ And K\<>62\ And K\<>52\=>\Goto7:K=52\=>\Goto5:K=72\ Or K=62\=>\ClrText:K=72\=>1\->A:K=62\=>2\->A:"ATTENTION, EST-TU":"SU\ProbR(E) DE VOULOIR":"SAUVEGARDER SUR LE":"FICHIER N\Deg>":K=72\=>\Locate 11,4,"1 ?":K=62\=>\Locate 11,4,"2 ?":\Locate 1,6,"1.OUI SAUVEGARDE STP.":\Locate 1,7,"2.PAS FOU, NON ??":\Do:\Getkey\->K:\LpWhile K=0:\If K=62:\Then \Goto7:\Else \If K=72\ And A=1:\Then \ClrText:S\->\Mat P[1,1]:T\->\Mat P[2,1]:U\->\Mat P[3,1]:V\->\Mat P[4,1]:W\->\Mat P[5,1]:M\->\Mat P[6,1]:R\->\Mat P[7,1]:\Locate 2,4,"SAUVEGARDE TERMINEE":\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If K=72\ And A=2:\Then \ClrText:S\->\Mat P[1,2]:T\->\Mat P[2,2]:U\->\Mat P[3,2]:V\->\Mat P[4,2]:W\->\Mat P[5,2]:M\->\Mat P[6,2]:R\->\Mat P[7,2]:\Locate 2,4,"SAUVEGARDE TERMINEE":\Do:\LpWhile \Getkey\<>31:\Goto0:\Lbl 8:\ClrText:"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashRESET":\Locate 1,3,"ATTENTION ! CECI VA":\Locate 1,4,"EFFACER LES 2 PARTIES":\Locate 1,5,"*********************":\Locate 6,6,"CONTINUER ?":\Locate 1,7,"1.OUI. 2.SURTOUT PAS!":\Do:\Getkey\->K:\LpWhile K=0:\If K=62:\Then \Goto5:\Else \If K\<>72\ And K\<>62:\Then \Goto8:\Else \If K=72:\Then \ClrText:\Fill(0,\Mat P:\Locate 5,4,"RESET TERMINE":\Do:\LpWhile \Getkey\<>31:\Goto0 \Lbl Z:\ClrText:"\slash\slash\slash\slash\slash\slashFELICITATIONS !":\Locate 1,2,"BRAVO, TU AS GAGNE UN":\Locate 1,3,"PRIX POUR RECOMPENSER":\Locate 1,4,"TES EFFORTS !":\If R=0:\Then \Locate 1,6,"TU AS MAITENANT ACCES":\Locate 5,7,"A CASINO PALACE !":1\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=1:\Then \Locate 1,6,"NOUVELLE RECETTE !":\Locate 9,7,"LA FORESTIERE":2\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=2:\Then \Locate 1,6,"NOUVEAU MINI-JEU !":\Locate 11,7,"GUESS THAT!":3\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=3:\Then \Locate 1,6,"NOUVELLE RECETTE !":\Locate 2,7,"LA GRANDE MARGHERITA":4\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=4:\Then \Locate 1,6,"NOUVEAU MINI-JEU !":\Locate 9,7,"PPC CHALLENGE":5\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=5:\Then \Locate 1,6,"NOUVELLE RECETTE !":\Locate 6,7,"LA MARINA CHEESE":6\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=6:\Then \Locate 1,6,"NOUVEAU MINI-JEU !":\Locate 13,7,"LUCKY KEY":7\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=7:\Then \Locate 1,6,"NOUVELLE RECETTE !":\Locate 6,7,"LA FULLY MEGAMIX":8\->R:\Do:\LpWhile \Getkey\<>31:\Goto0:\Else \If R=8:\Then \Locate 1,6,"NOUVEAU MINI-JEU !":\Locate 10,7,"CHRONO PARTY":9\->R:\Do:\LpWhile \Getkey\<>31:\Goto0 %End