Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 09 Avr 2007, 19:25
Ce programme est un jeu où l'on vend de la drogue et braque des banque.
Le première version est lente et finis par bugger mais la seconde est moins étoffée.
Première version
Code
FullScreen
0 -> Xmin
94 -> Xmax
0 -> Ymin
62 -> Ymax
ClrDraw
CoordOff
GridOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,34
Text(32,A," MAFIA"
End
Text(52,27,"VERSION 5.0"
Pause
ClrDraw
21 -> dim(L1
Lbl 1
Menu("MAFIA:","NOUVEAU JEU",2,"CONTINUER",3,"INSTRUCTIONS",4,"QUITTER",5)
Lbl 3
Goto 6
Lbl 5
ClrHome
ClrDraw
Output(1,1," "
Stop
Lbl 4
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST DE"
Text(7,1,"DEVENIRE CELEBRE DANS LE"
Text(13,1,"MILIEU DE LA DROGUE."
Text(20,1,"POUR Y ARRIVER, IL FAUT"
Text(26,1,"DEALER OU ATTAQUER LA"
Text(32,1,"BANQUE."
Pause
Goto 1
Lbl 2
10000 -> L1(1)
0.5 -> L1(2)
00 -> L1(3)
0 -> L1(4)
0 -> L1(5)
0 -> L1(6)
Fix 0
0 -> L1(11)
0 -> L1(10)
0 -> L1(12)
0 -> L1(13)
0 -> L1(14)
0 -> L1(15)
0 -> L1(16)
0 -> L1(17)
0 -> L1(18)
0 -> L1(19)
0 -> L1(20)
0 -> L1(21)
11 -> X
8 -> Y
100 -> L1(7)
0 -> L1(8)
Lbl 6
Fixe 0
If L1(7)/0:Then:ClrHome:Output(3,1,"T AS PLUS DE VIE"
:Output(5,4,"JEU FINIS!":Pause :Goto 1
Else
If L1(21)<10000 et L1(17)≤5:Then:ClrHome
:Output(3,1,"COMME T AS TUER 5 FLICS, TON HABILITE AUGMENTE DE 1."
Pause
L1(8)+1 -> L1(8)
L1(17)-5 -> L1(17)
Goto 6
Else
If L1(21)≤10000 et L1(16)≠5:Then:ClrHome
:Output(1,1,"TU EST TELLEMENTCONNUS DANS CE MILIEU QUE TU ELIMINE LE CHEF ET TU PREND SA PLACE."
Pause
ClrHome
Output(4,1,"TU AS GAgNER!":Pause :Goto 1
Else
If L1(21)<10000 et L1(16)≠5
Then
Menu("QUE FAIRE ?","VOIR STATS",7,"ARMURERIE",8,"ACHETER DROGUE",9,"VENDRE DROGUE",A,"VILLE",B,"MENU PRINCIPAL",D)
Lbl D
Goto 1
Lbl 7
ClrHome
If L1(21)/0100:Output(1,1,"DEALEUR"
If L1(21)/0200 et L1(21)>0100
Output(1,1,"DEALEUR PRO."
If L1(21)/1200 et L1(21)>0200
Output(1,1,"BRAQUEUR"
If L1(21)/3000 et L1(21)>1200
Output(1,1,"TUEUR"
If L1(21)/9999 et L1(21)>3000
Output(1,1,"BRAS DROIT"
Output(2,1,"ARGENT:"
Output(2,8,L1(1)
Output(3,1,"ARME:"
If L1(2)=0.5:Output(3,6,"POIGNARD"
If L1(2)=1:Output(3,6,"MAGNUM":
If L1(2)=2:Output(3,6,"DEAGLE"
If L1(2)=3:Output(3,6,"POMPE"
If L1(2)=4:Output(3,6,"M4A1"
Output(4,1,"MUNITIONS:"
Output(4,11,L1(X)
Output(5,13,L1(19)
Output(5,1,"MEDICAMENTS:"
Output(6,1,"PV:"
Output(6,4,L1(7)
Output(7,1,"HABILITE ARME:
Output(7,15,L1(8)
Output(8,1,"GENS TUES:"
Output(8,11,L1(10)
Pause
ClrHome
Output(3,1,"COCAINE:"
Output(3,9,L1(3)
Output(4,1,"HEROINE:"
Output(4,9,L1(4)
Output(5,1,"MARIJUANA:"
Output(5,11,L1(5)
Output(6,1,"OPIUM:"
Output(6,7,L1(6)
Pause
ClrHome
Goto 6
End
Lbl 8
Menu("ARMURERIE","MAGNUM 1000",E,"DEAGLE 5000",F,"POMPE 10000",G,"M4A1 25000",H,"MUNITIONS 10",C,"GILLET 2000",S,"MENU PRECEDENT",I)
Lbl S
If L1(1)-2000≤0:Then:ClrHome:Output(4,1,"GILLET ACHETEE.":Pause :L1(7)+100 -> L1(7):L1(1)-2000 -> L1(1):Goto 8
Else
If L1(1)-2000<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause
Goto 8
End
Lbl I
Goto 6
End
Lbl C
ClrHome
Output(3,1,"ARGENT:"
Output(3,8,L1(1)
Output(4,1,"PRIX:10"
Input "T EN VEUX ?",A
If L1(1)-10A≤0:Then:L1(1)-10A -> L1(1):L1(X)+A -> L1(X):ClrHome:Output(3,1,"MUNITIONS ACHETEES.":Pause :Goto 8
Else
If L1(1)-10A≤0:Then:ClrHome:Output(3,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 8
End
Lbl E
ClrHome
If L1(1)-1000≤0:Then:ClrHome:Output(4,1,"ARME ACHETEE.":Pause :L1(1)-1000 -> L1(1):1 -> L1(2):11 -> X:L1(X)+10 -> L1(X):Goto 8
Else
If L1(1)-1000<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 8
Lbl F
ClrHome
If L1(1)-5000≤0:Then:ClrHome:L1(1)-5000 -> L1(1):2 -> L1(2):12 -> X:L1(X)+10 -> L1(X):Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-5000<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 8
Lbl G
ClrHome
If L1(1)-10000≤0:Then:L1(1)-10000 -> L1(1):3 -> L1(2):13 -> X
L1(X)+10 -> L1(X)
ClrHome
Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-10000<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 8
Lbl H
ClrHome
If L1(1)-25000≤0:Then:L1(1)-25000 -> L1(1):14 -> X:4 -> L1(2):L1(X)+10 -> L1(X)
Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-25000<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS."
Pause
Goto 8
Lbl 9
Menu("ACHETER DROGUE:","COCAINE 100",J,"HEROINE 500",K,"MARIJUANA 1000",L,"OPIUM 5000",M,"MENU PRECEDENT",I)
Lbl J
ClrHome
Output(3,1,"PRIX:100"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-100*A≤0:Then:L1(1)-100*A -> L1(1):L1(3)+A -> L1(3):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-100*A<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 9
Lbl K
ClrHome
Output(3,1,"PRIX:500"
Output(4,8,L1(1)
Output(4,1,"ARGENT:"
Input "T EN VEUX ?",A
If L1(1)-500*A≤0:Then:L1(1)-500*A -> L1(1):L1(4)+A -> L1(4):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-500*A<0:Output(4,1,"T AS PAS ASSEZ DE SOUS.":Pause :Goto 9
Lbl L
ClrHome
Output(3,1,"PRIX:1000"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-1000*A≤0:Then:L1(1)-1000*A -> L1(1):A+L1(5) -> L1(5):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9:Else
If L1(1)-1000*A<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS."
Pause
Goto 9
Lbl M
ClrHome
Output(3,1,"PRIX:5000"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-5000*A≤0:Then:L1(1)-5000*A -> L1(1):L1(6)+A -> L1(6):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-5000*A<0:Then:Output(4,1,"T AS PAS ASSEZ DE SOUS."
Pause
Goto 9
Lbl A
Int Rand3 -> L
If L=0:Then
Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",I)
Else
If L=2:Then:ClrHome:Output(3,1,"IL Y A LES FLICSDANS LE COIN: LES PRIX SONT FOUS.":Pause :
Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",I)
Else
If L=1:Then:Goto R
End
Lbl N
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(3)
Output(4,1,"PRIX:125"
Input "EN VENDRE:",A
L1(1)+(A*125) -> L1(1):L1(3)-A -> L1(3):L1(21)+(0.1*A) -> L1(21):Goto 6:Else
If L=2:Then:ClrHome:
Output(3,1,"T EN A:"
Output(3,8,L1(3)
Output(4,1,"PRIX:150"
Input "EN VENDRE:",A
L1(1)+(150*A) -> L1(1):L1(3)-A -> L1(3):(0.1*A)+L1(21) -> L1(21):Goto 6:Else
If L=1:Then:Goto R
Lbl R:Int Rand5+1 -> F:F*100 -> L1(9)
ClrHome:Output(1,1,"MERDE VOILA LES FLICS. ILS ONT PV. TU AS PV."
:Output(4,9,L1(9):Output(6,7,L1(7):20 -> L1(20):Pause :5*L1(8) -> A
Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Lbl W
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(19)
Input "EN UTILISER ?",B
If L1(19)-B≤0:Then:L1(19)-B -> L1(19):L1(7)+(10*B) -> L1(7):ClrHome
:Output(4,1,"MEDICAMENT UTILISE.":Pause :Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Else
If L1(19)-B<0:Then:ClrHome:Output(4,1,"T EN AS PAS ASSEZ.":Pause :Menu("QUE FAIRE","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Lbl X
If L1(7)-10/0:Then:ClrHome:Output(4,1,"ILS T ON TUER.":Pause :ClrHome:Output(4,3,"JEU FINI":Pause :Goto 1
Else
If L1(X)=0:Then:ClrHome:Output(4,1,"MERDE T AS PLUS DE MUNITIONS.":Pause
Goto Z
Else
If L1(9)-((L1(2)*10)+A)/0:Then:ClrHome:Output(4,1,"TU LES A TUER.":Pause :L1(10)+F -> L1(10):L1(21)+F -> L1(21)
L1(17)+F -> L1(17):Goto 6
Else
If L1(7)-10>0:Then::L1(7)-10 -> L1(7)
ClrHome:Output(3,1,"ILS T ENLEVENT 10 PV."
Output(5,1,"IL TE RESTE PV."
Output(5,13,L1(7)
Pause
If L1(9)-((L1(2)*10+A)>0:Then:L1(9)-(L1(2)*10+A) -> L1(9):L1(X)-1 -> L1(X):ClrHome:Output(2,1,"TU LEUR ENLEVE PV."
Output(3,1,L1(2)*10+A
Output(4,1,"IL LEUR RESTE PV."
Output(5,1,L1(9)
Pause :Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z
End
Lbl Z
Int Rand99+1 -> A
If L1(7)-A>0:Then
ClrHome
Output(3,1,"TU COUR A FOND MAIS ILS TE TOUCHENT ET T ENLEVE PV."
Output(6,10,A
L1(7)-A -> L1(7):Pause :Goto 6
Else
If L1(7)-A/0:Then:ClrHome
:Output(2,1,"MALGRES UNE RAPIDITEE INCROYABLE, ILS ARRIVENT A TE TOUCHER ET ILS TE TUE."
:Pause :0 -> L1(7):Goto 1
Lbl O
If L=0:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(4)
Output(4,1,"PRIX:625"
Input "EN VENDRE:",A
L1(1)+(A*625) -> L1(1):L1(21)+(A*0.1) -> L1(21):L1(4)-A -> L1(4):Goto 6:Else
If L=2:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(4)
Output(4,1,"PRIX:750"
Input "EN VENDRE:",A
L1(4)-A -> L1(4):L1(1)+(A*750) -> L1(1):L1(21)+(A*0.1) -> L1(21):Goto 6:Else
If L=1:Then:Goto R
End
Lbl P
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(5)
Output(4,1,"PRIX:1250"
Input "EN VENDRE:",A
L1(1)+(A*1250) -> L1(1):L1(5)-A -> L1(5):L1(21)+A*0.2 -> L1(21):Goto 6
Else
If L=2:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(5)
Output(4,1,"PRIX:1500"
Input "EN VENDRE:",A
L1(1)+(A*1500) -> L1(1):L1(5)-A -> L1(5):L1(21)+0.2 -> L1(21):Goto 6
End
Lbl Q
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(6)
Output(4,1,"PRIX:6250"
Input "EN VENDRE:",A
L1(6)-A -> L1(6):L1(1)+(6250*A) -> L1(1):L1(21)+(A*0.2) -> L1(21):Goto 6
Else
If L=2:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(6)
Output(4,1,"PRIX:7500"
Input "EN VENDRE:",A
L1(1)+(A*7500) -> L1(1)
L1(21)+(A*0.2) -> L1(21)
L1(6)-A -> L1(6):Goto 6
Lbl B
Menu("QUE FAIRE?","ACHETER MEDIC.",V,"BANQUE",T,"ATTAQUER BASE",U,"MENU PRECEDENT",I
Lbl T
ClrHome
Output(3,1,"NE BOUGEZ PAS, C EST UN HOLD-UP. PASSEZ MOI LE POGNON."
Pause
ClrHome
0 -> C
0 -> D
0 -> E
Lbl 0
Int Rand08+1 -> M
Output(3,3,"ARGENT VOLE:"
Output(4,6,D
Output(5,6,"EUROS"
D+10000 -> D
Getkey -> K
If K=21:Goto Ө
If K=11:10000+D -> D
If K=12:1000+D -> D
If M≠7 et D<1000000:Goto 0
If M≠7 et D≤1000000:Goto Ө
If M=7:Then
ClrHome
Output(3,1,"MERDE LES "
Output(4,1,"FORCES SPECIALESSONT LA!"
Output(6,1,"IL Y EN AS !"
Int Rand101+100 -> E
Output(6,12,E
E*100 -> L1(9)
L1(8)*5 -> H
L1(7)/30 -> U
L1(9)/(L1(2)*10+H) -> V
Pause
If U/V et L1(X)-V≤0:Then:ClrHome
:Output(1,1,"ILS ETAIT TROP NOMBREUX POUR TOI: TU N AS PASPU RESISTER A CETTE ATTAQUE ET TU EST MORT."
Pause
0 -> L1(7)
Goto 1
Else
If V<U et L1(X)-V≤0:Then:ClrHome
:Output(1,1,"CETTE ARMEE A PAS FAIT LONG FEU AVEC TOI: TUPEUT TE TIRER TRANQUILLEMENT AVEC EUROS."
Pause
Output(6,6,D
L1(1)+D -> L1(1)
L1(X)-V -> L1(X)
L1(21)+D/100 -> L1(21)
Goto 6
Else
If L1(X)-V/0:Then:ClrHome:0 -> L1(7):Output(2,1,"TU N AVAIS PAS PREVU ASSEZ DE MUNITIONS ET, ENESSAYANT DE FUIRILS T ONT TUE."
Pause
Goto 1
Lbl Ө
ClrHome
Output(3,1,"TU TE TIRE AVEC"
Output(4,6,D
Output(5,6,"EUROS"
Pause
L1(21)+D/100 -> L1(21)
L1(1)+D -> L1(1)
Goto 6
Lbl U
ClrHome
Int Rand451+50 -> F
F -> Ө
Output(1,1,"TU VA ATTAQUER UNE BASE MILITAIRE POUR TE FAIRE RESPECTER MAIS TU TROUVE MILITAIRES ARMESDE M4A1."
Output(6,11,F
F*100 -> L1(9)
L1(08)*5 -> A
L1(7)/40 -> C
L1(9)/(L1(2)*10+A) -> D
Pause
If C/D et L1(X)-D≤0:Then:ClrHome
:Output(01,1,"MALGRES UNE ATTAQUE FOUDROYANTE, TU NE PARVIENT PAS A TOUS LES TUER MAIS EUX T ONT TUE.":Pause :0 -> L1(7):Goto 1
Else
If D<C et L1(X)-D≤0:Then:ClrHome:Output(1,1,"APRES UN COMBAT ACHARNE, TU PEUTFOUILLER LA BASE ET TU TROUVE:":Pause
ClrHome:L1(X)-D -> L1(X)
ClrHome
:Output(1,1,"-DES MEDICAMENTSQUE TU UTILISE -100 COCAINES -50 OPIUMS -100 MUNITIONS -100000 EUROS -100 MEDICAMENTSQUE T AS PAS UTILISER."
L1(3)+100 -> L1(3)
L1(8)+10 -> L1(08)
L1(21)+Ө*10 -> L1(21)
L1(6)+50 -> L1(6)
L1(X)+100 -> L1(X)
L1(1)+100000 -> L1(1)
L1(10)+F -> L1(10)
Pause :ClrHome:Goto 6
Else
If L1(X)-D/0:Then:ClrHome:Output(4,1,"MERDE T AS PLUS DE MUNITIONS.":Pause
:ClrHome:Output(3,1,"TU COURS A FOND MAIS TE TOUCHENTET TE TUE."
Pause
ClrHome
0 -> L1(7)
Goto 6
Lbl V
ClrHome
Input "COMBIEN ?",A
If L1(1)-300A≤0:Then:ClrHome:Output(4,1,"MEDICAMENTS ACHETES.":L1(19)+A -> L1(19):L1(1)-300A -> L1(1):Pause :Goto B
Else
If L1(1)-300A<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ DE SOUS."
Pause
Goto B
Seconde version
Code
:ClrDraw
:0 -> Xmin
:94 -> Xmax
:0 -> Ymin
:62 -> Ymax
:AxesOff
:LabelOff
:Horizontal 0
:Horizontal 62
:Vertical 0
:Vertical 94
:For(A,1,5
:Text(10,A," SANGOHAN38"
:End
:For(A,1,10
:Text(A,57," PRESENTE:"
:End
:For(A,1,37
:Text(30,A," MAFIA
:End
:Text(52,28,"VERSION 1.0"
:Pause
:ClrDraw
:Lbl 1
:Menu("MAFIA:","NOUVEAU JEU",2,"CONTINUER",3,"INSTRUCTIONS",4,"QUITTER",5
:Lbl 5
:ClrHome
:Output(1,1,"
:Stop
:Lbl 2
:ClrList L2
:25 -> dim L2
:E4 -> L2(1)
:1 -> L2(2)
:20 -> X
:9E99 -> L2(X)
:100 -> L2(7)
:0 -> L2(8)
:0 -> L2(10)
:0 -> L2(9)
:0 -> L2(11)
:0 -> L2(12)
:0 -> L2(13)
:0 -> L2(14)
:Lbl 3
:ClrHome
:If L2(14)≥5:Then:Output(3,1,"COMME T AS TUER 5 FLICS, TON HABILITEE AUGMENTE.":Pause
:ClrHome:L2(8)+1 -> L2(8):L2(14)-5 -> L2(14):Goto 3:End
:If L2(7≤0:Then:Output(4,1,"T AS PLUS DE VIE"
:Pause
:ClrHome
:Goto 1
:End
:Menu("QUE FAIRE ?","VOIR STATS",7,"ARMURERIE",8,"ACHETER DROGUE",9,"VENDRE DROGUE",A,"BANQUE",B,"MENU PRINCIPAL",1
:Lbl 7
:ClrHome
:Output(2,1,"ARGENT:
:Output(2,8,L2(1
:Output(3,1,"ARME:
:If L2(2)=1:Output(3,6,"POIGNARD
:If L2(2)=2:Output(3,6,"DEAGLE
:If L2(2)=3:Output(3,6,"POMPE
:If L2(2)=4:Output(3,6,"M4A1
:If L2(2)=5:Output(3,6,"M249
:Output(4,1,"MUNITIONS:
:Output(4,11,L2(X
:Output(5,1,"PV:
:Output(5,4,L2(7
:Output(6,1,"HABILITE:
:Output(6,10,L2(8
:Output(7,1,"GENS TUES:"
:Output(7,11,L2(9
:Pause
:ClrHome
:Output(3,1,"COCAINE:
:Output(3,9,L2(10
:Output(4,1,"HEROINE:
:Output(4,9,L2(11
:Output(5,1,"MARIJUANA:
:Output(5,11,L2(12
:Output(6,1,"OPIUM:
:Output(6,7,L2(13
:Pause
:ClrHome
:Goto 3
:Lbl 8
:10 -> C
:Menu("ARMURERIE:","DEAGLE 5000",E,"POMPE 10000",F,"M4A1 25000",G,"M249 40000",H,"MUNITIONS 10",C,"GILLET 2000",S,"MENU PRECEDENT",3
:Lbl F
:10000 -> B
:3 -> C
:Goto U
:Lbl G
:25000 -> B
:4 -> C
:Goto U
:Lbl H
:40000 -> B
:5 -> C
:Goto U
:Lbl E
:5000 -> B
:2 -> C
:Lbl U
:ClrHome
:If L2(1)-B≥0:Output(4,2,"ARME ACHETEE .
:If L2(1)-B<0:Goto 3
:If L2(1)-B≥0:C -> L2(2)
:If L2(1)-B≥0:L2(1)-B -> L2(1)
:C+1 -> X
:Pause
:ClrHome
:Goto 8
:Lbl C
:ClrHome
:Output(3,1,"PRIX:
:Output(3,6,C
:Output(4,1,"ARGENT:
:Output(4,8,L2(1
:Output(5,1,"QUANTITE MAXIMALE:"
:Fix 0
:Output(6,10,L2(1)/C
:Input "T EN VEUT ?",B
:ClrHome
:Float
:If C=10 and L2(1)-CB≥0 and B≥0:Output(4,1," MUNITIONS ACHETES ."
:If C≠10 and L2(1)-CB≥0 and B≥0:Output(4,1,"DROGUE ACHETEE .
:If L2(1)-BC<0 and B≥0:Goto 3
:If L2(1)-BC≥0 and C=10 and B≥0:L2(X)+B -> L2(X)
:If L2(1)-BC≥0 and C≠10 and B≥0:L2(Y)+B -> L2(Y)
:If L2(1)-BC≥0 and B≥0:L2(1)-BC -> L2(1)
:Pause
:ClrHome
:If C=10:Goto 8
:If C≠10:Goto 3
:Lbl S
:If L2(1)-2000≥0:Output(4,1,"GILLET ACHETE."
:If L2(1)-2000≥0:L2(7)+100 -> L2(7)
:If L2(1)-2000<0:Goto 8
:If L2(1)-2000≥0:L2(1)-2000 -> L2(1)
:Pause
:ClrHome
:Goto 8
:Lbl 9
:Menu("ACHETER DROGUE:","COCAINE 100",J,"HEROINE 500",K,"MARIJUANA 1000",L,"OPIUM 5000",M,"MENU PRECEDENT",3
:Lbl J
:100 -> C
:10 -> Y
:Goto C
:Lbl K
:500 -> C
:11 -> Y
:Goto C
:Lbl L
:1000 -> C
:12 -> Y
:Goto C
:Lbl M
:5000 -> C
:13 -> Y
:Goto C
:Lbl A
:ClrHome
:int rand4 -> Ө
:1/4 -> E
:If Ө<2:Goto I
:If Ө=2:Then:Output(2,1,"DESCENTE DE LA BRIGADE DES STUPEFIANTS: LESPRIX SONT FOUS."
:Pause
:1/2 -> E
:ClrHome
:End
:Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",3
:Lbl N
:10 -> Y
:100 -> G
:Goto T
:Lbl O
:11 -> Y
:500 -> G
:Goto T
:Lbl P
:12 -> Y
:1000 -> G
:Goto T
:Lbl Q
:13 -> Y
:5000 -> G
:Lbl T
:ClrHome
:EG+G -> F
:Output(3,1,"PRIX:
:Output(3,6,F
:Output(4,1,"QUANTITEE:
:Output(4,11,L2(Y
:Input "EN VENDRE:",B
:If B<0 or B>L2(Y):Goto 3
:L2(1)+BF -> L2(1)
:L2(Y)-B -> L2(Y)
:Goto 3
:Lbl I
:ClrHome
:int rand5+1 -> F
:F*100 -> V
:Output(3,1,"MERDE VOILA LES FLICS.
:Output(6,1,"ILS ONT PV.
:Output(6,9,V
:Pause
:Lbl R
:ClrHome
:Output(4,1,"VIE:"
:Output(4,5,L2(7)
:Output(5,1,"DEGATS:"
:10L2(2)+5*L2(8) -> D
:Output(5,8,D
:Output(6,1,"MUNITIONS:"
:Output(6,11,L2(X)
:Pause
:ClrHome
:Menu("QUE FAIRE ?","ATTAQUER",X,"COURIR",Z
:Lbl Z
:int randL2(7)+1 -> C
:ClrHome
:If C=L2(7):Then:Output(2,1,"MALGRES UNE RAPIDITEE INCROYABLE, ILS TE TOUCHE ET TE TUE."
:Pause
:ClrHome
:0 -> L2(1)
:Goto 1
:End
:Output(2,1,"TU COURE A FOND MAIS ILS ARRIVENT A TE TOUCHER ET T ENLEVE PV."
:Output(6,10,C
:Pause
:L2(7)-C -> L2(7)
:Goto 3
:Lbl X
:If L2(X)=0:Output(4,1,"MERDE, T AS PLUSDE MUNITIONS."
:If L2(X)=0:Goto 2
:If V-D≤0:Then:Output(4,1,"TU LES AS TUES.":F+L2(9) -> L2(9)
:L2(X)-1 -> L2(X)
:F+L2(14) -> L2(14)
:Goto 3
:End
:If L2(7)-10≤0:Then:Output(4,1,"IL T ONT TUER.":0 -> L2(7):Pause :ClrHome:Goto 1:End
:ClrHome
:L2(7)-10 -> L2(7)
:Output(3,1,"ILS T ENLEVENT 10 PV."
:Output(5,1,"IL TE RESTE PV."
:Output(5,13,L2(7)
:Pause
:ClrHome
:V-D -> V
:Output(3,1,"TU LEUR ENLEVE PV."
:Output(4,1,D
:Output(5,1,"IL LEUR RESTE PV."
:Output(6,1,V
:L2(X)-1 -> L2(X)
:Pause
:ClrHome
:Goto R
:Lbl B
:ClrHome
:Output(3,1,"NE BOUGEZ PAS C EST UN HOLD-UP. PASSEZ MOI LA MONNAIE."
:Pause
:ClrHome
:0 -> L
:Output(3,2,"ARGENT VOLEE:"
:Lbl W
:Output(4,6,L
:getKey -> K
:If K=105:Goto 0
:If K=45:L+100000 -> L
:int rand3+1 -> A
:If A≤2:Then:10000+L -> L:Goto W
:End
:int rand25+25 -> F
:F100 -> V
:F -> L2(9)
:ClrHome
:Output(3,1,"MERDE VOILA FLICS ARMES DE POMPES."
:Pause
:ClrHome
:10L2(2)+5L2(8) -> D
:L2(7)/30 -> G
:V/D -> H
:int G -> G
:int H -> H
:If G≤H:Then:Output(3,1,"MALGRES UNE BONNE RESISTANCETU NE PARVIENT PAS A SURVIVRE."
:0 -> L2(7)
:Pause
:ClrHome
:Goto 1
:End
:If L2(X)<H:Then:Output(3,1,"T AVAIS PAS PREVU ASSEZ DE MUNITIONS."
:Pause
:ClrHome
:0 -> L2(7)
:Goto 1
:End
:L2(X)-H -> L2(X)
:L2(7)-30G -> L2(7)
:Output(3,1,"APRES UNE DURE BATAILLE, TU EMPORTE EUROS."
:Output(5,12,L
:L2(1)+L -> L2(1)
:Pause
:ClrHome
:Goto 3
:Lbl 0
:ClrHome
:Output(3,1,"TU T EN VAS AVEC EUROS."
:Output(4,1,L
:Pause
:L2(1)+L -> L2(1)
:ClrHome
:Goto 3
