%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:8431 File Name:-MAFIA- Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 8,5,"-" \Locate 9,5,"M" \Locate 10,5,"A" \Locate 11,5,"F" \Locate 12,5,"I" \Locate 13,5,"A" \Locate 14,5,"-" \While \Getkey\<>31 \WhileEnd 0\->A~Z \Lbl 0 \ClrText " -MAFIA-" "" "[F1]:Nouveau jeu" "[F2]:Charger jeu" "[F3]:Credits" \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=59))=0 \If \Ans=79 \Then \ClrText "[F1]:Facile" "[F2]:Moyen" "[F3]:Dur" \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=59))=0 \If \Ans=79 \Then [[5000,10,5,0][0,0,0,0][0,100,0,1]]\->\Mat Z \IfEnd \If \Ans=69 \Then [[3000,3,1,0][0,0,0,0][0,100,0,2]]\->\Mat Z \IfEnd \If \Ans=59 \Then [[1000,1,0,0][0,0,0,1][0,100,0,3]]\->\Mat Z \IfEnd \Goto1 \IfEnd \If \Ans=69 \Then \ClrText "" "" " On the bad road" " AGAIN"\Disp\Goto1 \IfEnd \If \Ans=59 \Then \ClrText "\Prog by:" \Locate 9,3,"T" \Locate 10,3,"C" \Locate 11,3,"H" \Locate 12,3,"E" \Locate 13,3,"R" \Locate 14,3,"N" \Locate 15,3,"O" \Locate 16,3,"-" \Locate 17,3,"B" \Locate 18,3,"I" \Locate 19,3,"L" \Locate 20,3,"L" \Locate 5,6,"Version BETA 1.0" \While \Getkey\<>31 \WhileEnd \Goto0 \IfEnd \Lbl 1 \ClrText \Mat Z[1,1]\->A \Mat Z[1,2]\->B \Mat Z[1,3]\->C \Mat Z[1,4]\->D \Mat Z[2,1]\->E \Mat Z[2,2]\->F \Mat Z[2,3]\->G \Mat Z[2,4]\->H \Mat Z[3,1]\->I \Mat Z[3,2]\->J \Mat Z[3,3]\->K \Mat Z[3,4]\->L \Lbl 2 \If H>10\ And H<20 \Then \Int 3\Ran#+1\->N N=1\=>\Goto8 \IfEnd \If H=20 \Then \Goto7 \IfEnd \ClrText "Thunes:" \Locate 8,1,A "Que faire ? Sac" "(1) Dealer SP:" "(2) Acheter CA:" "(3) Planque CO:" "(4) Banque HE:" "(5) Hospital EC:" \Locate 17,3,B \Locate 17,4,C \Locate 17,5,D \Locate 17,6,E \Locate 17,7,F \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63))=0 \If \Ans=72 \Then 1\->M \Goto3 \IfEnd \If \Ans=62 \Then 2\->M \Goto3 \IfEnd \If \Ans=52 \Then 3\->M \Goto3 \IfEnd \If \Ans=73 \Then 4\->M \Goto3 \IfEnd \If \Ans=63 \Then \GotoE \IfEnd \Lbl 3 0\->N L=1\=>\Int 15\Ran#+1\->N L=2\=>\Int 10\Ran#+1\->N L=3\=>\Int 5\Ran#+1\->N N=5\=>\Goto4 M=1\=>\GotoA M=2\=>\GotoB M=3\=>\GotoC M=4\=>\GotoD \Lbl 4 \ClrText \Int 3\Ran#+1\->N N=1\=>"22 V'la les flics"\DispN=2\=>"Merde les flics"\DispN=3\=>"HEP la bas \!mark"\Disp"TU AS" \If I=0 \Then \Locate 7,2,"Pas d'armes"\Disp\IfEnd \If I=1 \Then \Locate 7,2,"Le berreta"\Disp\IfEnd \If I=2 \Then \Locate 7,2,"Le fusil"\Disp\IfEnd \If I=3 \Then \Locate 7,2,"L'ingram"\Disp\IfEnd \If I=4 \Then \Locate 7,2,"Le M16"\Disp\IfEnd \If I=5 \Locate 7,2,"Les rockets" " " "Que faire ?" "(1) Leur tirer dessus(2) Leur parler" "(3) Fuir" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \Ans=72\=>\GotoF \Ans=62\=>\GotoG \Ans=52\=>\GotoH \Lbl A 0\->N \Int 100\Ran#+150\->T \Int 200\Ran#+200\->U \Int 1000\Ran#+500\->V \Int 500\Ran#+1000\->W \Int 1500\Ran#+2500\->X \Int 11\Ran#+1\->N \If N=1 \Then \ClrText "Les stups ont demanteles un resau de coke les prix sonts fous"\DispV+1000\->V \IfEnd \If N=2 \Then \ClrText "Des junkies achetent de l'heroine h\ors de prix"\DispW*2\->W \IfEnd \If N=3 \Then \ClrText "descente des stups dans le coin (0cana) \!mark"\Disp0\->C \IfEnd \If N=4 \Then \ClrText "Arrivee massive d'ecstasy fait maison et bon marche"\DispX-1000\->X \IfEnd \If N=5 \Then \ClrText "Ce soir y'a des clients pour le concert de Marilyn Manson"\DispT+250\->T U+500\->U \IfEnd \If N=6 \Then \ClrText "Le marche s'essoufle grave"\Disp100\->T 200\->U 300\->V 400\->W 500\->X \IfEnd \If N=7 \Then \ClrText "Merde les stups son enc\ore la pas moyen de dealer ici"\Disp\Goto2 \IfEnd \If N=8 \Then \ClrText "Tu trouve 5 sacs d'ecstasy sur un m\ort soote dans la rue"\DispF+5\->F \IfEnd \If N=9 \Then \ClrText "nouvelle lois sur les drogues: les prix sont fous"\DispT+500\->T U+800\->U V+1000\->V W+1500\->W X+2000\->X \IfEnd \If N=10 \Then \ClrText "Bof rien de nouveau"\Disp\IfEnd \If N=11 \Then \ClrText "Une b\ande de lyceens cherchent de la beuh"\DispU+300\->U \IfEnd \ClrText "Vendre qoi ?" "(1) Speed:.... \@24" "(2) Canabis:.. \@24" "(3) Coke:..... \@24" "(4) Heroine:.. \@24" "(5) Ecstasy:.. \@24" "(6) Rien:" \Locate 15,2,T \Locate 15,3,U \Locate 15,4,V \Locate 15,5,W \Locate 15,6,X \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63)\ Or (\Ans=53))=0 \If \Ans=72 \Then \ClrText "Vendre speed" "Prix:.............\@24" "T'en as:.........." \Locate 17,3,B \Locate 17,2,T\Disp"en vendre combien "?\->O O>B\=>"T'en as pas assez"\DispO*T\->P A+P\->A B-O\->B \Goto2 \IfEnd \If \Ans=62 \Then \ClrText "Vendre canabis" "Prix:.............\@24" "T'en as:..........." \Locate 17,3,C \Locate 17,2,U\Disp"en vendre combien "?\->O O>C\=>"T'en as pas assez"\DispO*U\->P A+P\->A C-O\->C \Goto2 \IfEnd \If \Ans=52 \Then \ClrText "Vendre coke" "Prix:.......... \@24" "T'en as:..........." \Locate 17,3,D \Locate 17,2,V "en vendre combien "?\->O O>D\=>"T'en as pas assez"\DispO*U\->P A+P\->A D-O\->D \Goto2 \IfEnd \If \Ans=73 \Then \ClrText "Vendre heroine" "Prix:.......... \@24" "T'en as:..........." \Locate 17,3,E \Locate 17,2,W "en vendre combien "?\->O O>E\=>"T'en as pas assez"\DispO*W\->P A+P\->A E-O\->E \Goto2 \IfEnd \If \Ans=63 \Then \ClrText "Vendre ecstasy" "Prix:.......... \@24" "T'en as:..........." \Locate 19,3,F \Locate 16,2,X "en vendre combien "?\->O O>F\=>"T'en as pas assez"\DispO*X\->P A+P\->A F-O\->F \Goto2 \IfEnd \If \Ans=53 \Then \Goto2 \IfEnd \Lbl B \ClrText \Int 100\Ran#+100\->O \Int 150\Ran#+150\->P \Int 500\Ran#+500\->Q \Int 300\Ran#+1000\->R \Int 1000\Ran#+2000\->S "Acheter:" "(1) Drogues" "(2) Flingues" "(3) Rien" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \If \Ans=72 \Then \ClrText "(1) Speed..... \@24" "(2) Canabis... \@24" "(3) Coke..... \@24" "(4) Heroine.. \@24" "(5) Ecstasy.. \@24" "" "Thunes:" \Locate 8,7,A \Locate 15,1,O \Locate 15,2,P \Locate 14,3,Q \Locate 14,4,R \Locate 14,5,S \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63))=0 \If \Ans=72 \Then \ClrText "Combien "?\->N O*N\->O \If O>A \Then \ClrText "Pas assez de thunes"\Disp\GotoB \IfEnd A-O\->A B+N\->B \GotoB \IfEnd \If \Ans=62 \Then \ClrText "Combien "?\->N P*N\->P \If P>A \Then \ClrText "Pas assez de thunes"\Disp\GotoB \IfEnd A-P\->A C+N\->C \GotoB \IfEnd \If \Ans=52 \Then \ClrText "Combien "?\->N Q*N\->Q \If Q>A \Then \ClrText "Pas assez de thunes"\Disp\GotoB \IfEnd A-Q\->A D+N\->D \GotoB \IfEnd \If \Ans=73 \Then \ClrText "Combien "?\->N R*N\->R \If R>A \Then \ClrText "Pas assez de thunes"\Disp\GotoB \IfEnd A-R\->A E+N\->E \GotoB \IfEnd \If \Ans=63 \Then \ClrText "Combien "?\->N S*N\->S \If S>A \Then \ClrText "Pas assez de thunes"\Disp\GotoB \IfEnd A-S\->A F+N\->F \GotoB \IfEnd \GotoB \IfEnd \If \Ans=62 \Then \ClrText "Tu veu quoi ?" "(1) Le beretta..500\@24" "(2) Le fusil...1000\@24" "(3) L'ingram...1500\@24" "(4) Le M16.....2500\@24" "(5) Rien" "Thunes:" \Locate 8,7,A \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63)\ Or (\Ans=63))=0 \Ans=63\=>\GotoB \If \Ans=72\ And A\>=500 \Then A-500\->A 1\->I \GotoB \IfEnd \If \Ans=62\ And A\>=1000 \Then A-1000\->A 2\->I \GotoB \IfEnd \If \Ans=52\ And A\>=1500 \Then A-1500\->A 3\->I \GotoB \IfEnd \If \Ans=73\ And A\>=2500 \Then A-2500\->A 4\->I \GotoB \IfEnd \ClrText "t'essaie de m'arnaquer ?"\Disp\GotoB \IfEnd \If \Ans=52 \Then \Goto2 \IfEnd \Lbl C \ClrText "Ma planque" "(1) Sauveguarde" "(2) Quitter jeu" "(3) S\ortir" "(4) Sc\ore" "(5) Pot de vin" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52)\ Or (\Ans=73)\ Or (\Ans=63))=0 \If \Ans=72 \Then A\->\Mat Z[1,1] B\->\Mat Z[1,2] C\->\Mat Z[1,3] D\->\Mat Z[1,4] E\->\Mat Z[2,1] F\->\Mat Z[2,2] G\->\Mat Z[2,3] H\->\Mat Z[2,4] I\->\Mat Z[3,1] J\->\Mat Z[3,2] K\->\Mat Z[3,3] L\->\Mat Z[3,4] \ClrText "" "" "Sauveguarde effectue"\Disp\GotoC \IfEnd \If \Ans=62 \Then \Stop \IfEnd \If \Ans=52 \Then \Goto2 \IfEnd \If \Ans=73 \Then \ClrText "Sc\ores" "" "Kills:" "Thunes:" "Recherche:" \Locate 7,3,G \Locate 8,4,A \Locate 11,5,H\Disp\GotoC \IfEnd \If \Ans=63 \Then \ClrText "Payer les flics pour diminuer la recherche?" "Prix:..........1000\@24" "(1) Oui" "(2) Non" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \If \Ans=72 \Then A-1000\->A H-1\->H \IfEnd \Ans=62\=>\GotoC \If H<0 \Then \ClrText "T'es pas recherche"\Disp\GotoC \IfEnd \GotoC \IfEnd \Lbl D \ClrText "Bank" "" "nous somme une banquehonnete et n'acceptonpas l'argent sale"\Disp\ClrText "Bank" "" "(1) Attaquer la bank" "(2) S\ortir" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \If \Ans=72 \Then \ClrText "Que personne ne bougececi est un hold up \!mark" L=1\=>\Int 4\Ran#+1\->N L=2\=>\Int 3\Ran#+1\->N L=3\=>\Int 2\Ran#+1\->N \If N=1 \Then "" "Et merde les flics" ""\Disp"Tu t'es fait coffrer"\Disp\Goto9 \IfEnd "" "Par ici la monaie" ""\Disp"Tu te tire avec le" \Int 5\Ran#+1\->N N=1\=>"Pognon"\DispN=2\=>"Flouze"\DispN=3\=>"Fric"\DispN=4\=>"Ble"\Disp\If N=5 \Then "Coffre"\DispA+12000\->A \IfEnd A+7500\->A H+1\->H \Goto2 \IfEnd \If \Ans=62 \Then \Goto2 \IfEnd \Lbl E \ClrText "Hospital" "" "(1) Soin.......1000\@24" "(2) Voler coke" "(3) S\ortir" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \If \Ans=72\ And A\>=1000 \Then 100\->J A-1000\->A \Goto2 \IfEnd \If \Ans=62 \Then \ClrText \Int 3\Ran#+1\->N \If N=1 \Then "Tu trouve 10 sacs de coke sur un patient"\DispD+10\->D \IfEnd \If N=2 \Then "Tu trouve 5 sacs de coke sur un patient"\DispD+5\->D \IfEnd \If N=3 \Then "Tu trouve un flic Hein ?\!mark"\Disp\Goto9 \IfEnd \Goto2 \IfEnd \Ans=52\=>\Goto2 \IfEnd \Lbl F \If I=0 \Then \ClrText "T'avais pas d'armes tu t'es fait coffrer"\Disp\Goto9 \IfEnd \ClrText "Tu leur tire dessus"\Disp\If I=1 \Then "Au beretta"\Disp\Int 4\Ran#+1\->N \IfEnd \If I=2 \Then "Au fusil"\Disp\Int 3\Ran#+1\->N \IfEnd \If I=3 \Then "A l'ingram"\Disp\Int 2\Ran#+1\->N \IfEnd \If I=4 \Then "Au M16"\Disp\Int 1\Ran#+1\->N \IfEnd \If I=5 \Then "Au rockets" 1\->N \IfEnd \If N=1 \Then \ClrText "C'est bon tu les as eus"\Disp\Isz H G+2\->G M=1\=>\GotoA M=2\=>\GotoB M=3\=>\GotoC M=4\=>\GotoD \IfEnd \ClrText "VIE:" \Locate 5,1,J "" "ils te canardent" ""\DispL=1\=>\Int 4\Ran#+1\->N L=2\=>\Int 3\Ran#+1\->N L=3\=>\Int 2\Ran#+1\->N \If N=2 \Then \ClrText "Pan ils t'on eu" ""\Disp"VIE:" J-25\->J \Locate 5,3,J \While \Getkey\<>31 \WhileEnd \IfEnd \If J\<=0 \Then \Goto9 \IfEnd \GotoF \Lbl G \If H<2 \Then \ClrText "Ok circulez"\DispM=1\=>\GotoA M=2\=>\GotoB M=3\=>\GotoC M=4\=>\GotoD \IfEnd \If H>2\ And H<4 \Then \ClrText "HEY mais on te connait toi \!mark" ""\Disp"(1) Leur tirer dessus" "(2) Fuir" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>\GotoF \Ans=62\=>\GotoH \IfEnd \If H>4\ And H<10 \Then \ClrText "C'est lui" ""\Disp"(1) Tirer" "(2) Se rendre" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62))=0 \Ans=72\=>\GotoF \Ans=62\=>\Goto9 \IfEnd \If H>10 \Then \ClrText "Alerte prevenez les renf\orts"\Disp\Goto8 \IfEnd \Lbl H \ClrText "Tu prend la fuite"\DispL=1\=>\Int 4\Ran#+1\->N L=2\=>\Int 3\Ran#+1\->N L=3\=>\Int 2\Ran#+1\->N \If N=1 \Then "Mais ils te ratrappent"\Disp\GotoF \IfEnd M=1\=>\GotoA M=2\=>\GotoB M=3\=>\GotoC M=4\=>\GotoD \Lbl 8 \ClrText "Inf\ormee de tes activites un com\ando militaire debarque en ville"\Disp\ClrText "T'es dans la merde \!mark" "Que faire ?" "(1) Confrontation" "(2) Fuite vers la planque" "(3) Rreddition" \Do \Getkey \LpWhile ((\Ans=72)\ Or (\Ans=62)\ Or (\Ans=52))=0 \If \Ans=72 \Then \ClrText \If I<4 \Then "T'as pas le M16tu t' es fait tuer"\Disp\Goto9 \IfEnd "Tu vas essayer de te les faire au" \If I=4 \Then "M16"\Disp\IfEnd \If I=5 \Then "Lance rocket"\Disp\IfEnd 100\->Y \Lbl I \ClrText "Tu leur tire dessus"\Disp\Int 4\Ran#+1\->N \If N=1\ And I=5 \Then \ClrText "Boum tu les a eus a la rocket" "Trop f\ort"\DispG+10\->G H+6\->H \GotoC \IfEnd \If N=1\ And Y=50 \Then \ClrText "Wow \!mark tu les as tous refroidis" "T'as l'etofe de Rambo"\DispG+10\->G H+5\->H \ClrText "Tu recupers le lance rocket sur un soldat"\Disp5\->I \GotoC \IfEnd \If N=1\ And Y=100 \Then \ClrText "T'en a eus plusieurs"\Disp50\->Y \IfEnd \ClrText "Ils ouvrent le feu sur toi"\Disp\Int 3\Ran#+1\->N \If N=1 \Then \ClrText "T'es touche"\DispJ-50\->J J\<=0\=>\Goto9 \GotoI \IfEnd \GotoI \IfEnd \If \Ans=62 \Then \ClrText "T'essaie de t'enfuir" \Int 2\Ran#+1\->N \If N=1 \Then "Mais un tank te rattrape"\Disp\Goto9 \IfEnd "Et tu reussi en volant une bagnole"\Disp\GotoC \IfEnd \If \Ans=52 \Then \ClrText "C'est bon j'me rend"\Disp\Goto9 \IfEnd \Lbl 9 \ClrText \Locate 7,5,"G" \Locate 8,5,"A" \Locate 9,5,"M" \Locate 10,5,"E" \Locate 11,5," " \Locate 12,5,"O" \Locate 13,5,"V" \Locate 14,5,"E" \Locate 15,5,"R" %End