+-------------------------------------------------------+
|
Drugwar by Joakim Knudsen, improved by Lionel Baboud  |
| casio site: http://perso.wanadoo.fr/duobab/index.htm   |
| e-mail: roland.baboud@wanadoo.fr                      |
+-------------------------------------------------------+

'Goto H
ClrText
AxesOff
Locate 4,3,"$$$$$$$$$$$$$$$"
Locate 4,4,"$ DRUGWAR $"
Locate 4,5,"$ sur Casio $"
Locate 4,6,"$$$$$$$$$$$$$$$"
Lbl 8
0A~Z
2000Z
5000U
100K
1B
2
100T
ClrText
'P2
"instruction$:"
"[1]:OUI"
"[2]:NON"?X
X1Goto 9
ClrText
"COKE:$15000™$28000"
"HEROINE:$5000™$12000"
"ACID:$1000™$4200"
"CANNABIS:$300™$720"
"SPEED:$70™$220"
"LSD:$10™$50"
Lbl 9
Int 12000Ran#‰16000C
Int 7000Ran#‰5000H
100(Int 34Ran#‰10)A
10(Int 42Ran#‰33)W
10(Int 15Ran#‰7)S
10(Int 4Ran#‰1)L
Int 20Ran#‰1D
ClrText
D=1"Des stups'vendent des LSD pas cher"
D=12L
D=2"Le prix du CANNABIS achute"
D=2122W
D=3"Les stups' vendent l'HEROINE de leur derniere saisie pas cher"
D=3Int 1150Ran#‰850H
D>3 And D<6"Les JUNKY achetent del'HEROINE hors de prix"
D>3 And D<6Int 25000Ran#‰18000H
D>5 And D<8"Les stups'ont demonteun reseau de COKE"
D>5 And D<8"Les prix sont fous"
D>5 And D<8Int 60000Ran#‰80000C
D=8"Tu t'es fait racketerdans le metro"
D=8Int (Z3)Z
D15 Or Z299Goto P
"Veux tu acheter un nouveau blouson avec plus de poches a $200"?X
X1Goto P
100‰TT
T™M™N™O™P™Q™RK
Z™200Z
Lbl P
If D=14:Then "Il y'a du BUZZ qui sent bon,ici..."
"Veux tu en fumer"?X:Int 2Ran#F
ClrText
If X=1:Then F=1"T'as hallucine sur lepire trip de ta vie."
F=1"Tu es tombe sur les rails et le train t'abroye"
F=1Goto 0
"C'EST DE LA BONNE"
"Pour lui avoir fait"
"confiance,le JUNKY tefile 50 sacs de COKE"
M‰50M
T‰50T:IfEnd
IfEnd
(D12 And D13) Or K4 Or Z499Goto Q
"Veux tu acheter"
Int 3Ran#X
X=0"une BERRETA"
X=1"un 38 S&W"
X=2"un.44 MAGNUM"
"a $400"?X
X1Goto Q
Isz I
Z™400Z
T™5T
T™M™N™O™P™Q™RK
Lbl Q
D16 Or K7Goto R
Int 7Ran#‰1F
"Tu as trouve"
F=1"UNE dose"
F=2"2 doses"
F=3"3 doses"
F=4"4 doses"
F=5"5 doses"
F=6"6 doses"
F=7"7 doses"
Int 5Ran#X
X=0"de LSD"
X=0R‰FR
X=1"de SPEED"
X=1Q‰FQ
X=2"de CANNABIS"
X=2P‰FP
X=3"d'ACID"
X=3O‰FO
X=4"d'HEROINE"
X=4N‰FN
X=5"de COCAINE"
X=5M‰FM
"sur un mort™shoote dumetro"
T™M™N™O™P™Q™RK
Goto H
Lbl R
D=17"Le marche est envahi par de l'ACID pas cher fait™maison"
D=17Int 550Ran#‰250A
D=17Goto H
D<9 Or D>11 Or M‰N‰O‰P‰Q‰R<50Goto H
D=91D
D=102D
D=113D
"Un mec des stups'"
D=1"avec un flic"
D=2"avec 2 flics"
D=3"avec 3 flics"
"sont a ton cul"
Lbl A
ClrText
Locate 2,1,"TU ES POURCHASSE"
Locate 3,3,"[1]:voir les guns"
Locate 3,4,"[2]:les degats?"
Locate 3,5,"[3]:ls flics?"
Locate 3,6,"[4]:COURIR!"
Locate 3,7,"[5]:TIRER!"
6X
Do:Locate 2,X,""
Do:GetkeyF
LpWhile F=0
Locate 2,X," "
F=28X™1X
F=37X‰1X
X=83X:X=27X
LpWhile F31
X™2X
X<1 Or X>5Goto A
ClrText
If X=1:Then "Tu as"
I>0Locate 7,1,I
I=0"aucun flingue"
I0Locate Int (log I)‰10,1,"flingues"
IfEnd
X=2"Tes degats:"
X=2J
" "
X=2"(50,et t'es mort)"
X=3"T'as encore"
X=3Locate 13,2,D‰1
X=3"fuckin'cops au cul"
X<4Goto A
X=5Goto E
ClrText
Int 2Ran#X
X=0"Tu ls as seme dans une rue"
X=0B=31Goto H
X=0B31Goto 9
X=1"Tu ne peux pas les semer"
X=1Goto F
Lbl E
I=0"Tu n'as plus de flingueTu dois courir"
I=0Goto A
Int 2Ran#X
X=0"T'as loupe"
X=1"T'en as eu un"
X=1Dsz D
X=1 And D<0Goto G
Lbl F
ClrText
Int 2Ran#X
"Ils te tirent dessus"
'P6
X=0"Ils t'ont loupe"
X=0Goto A
"T'as ete touche"
J‰3J
J>49"t'es mort"
J>49Goto 0
Goto A
Lbl G
ClrText
"Tu les as tous eu"
Int 1250Ran#‰750X
Z‰X‰Z
ClrText
"Tu as trouve:":X
"dollars sur le cadavre d'un des flics"
J=0Goto H
"Tu es blesse"
Z<1200"Mais tu peux obtenir une aide medicale..."
Z<1200Goto H
"Veux tu etre soigne":"POUR $1000"?X
X1Goto H
Z™1000Z
0J
Lbl H
ClrText
Locate 3,1,"[1]:voir les prix"
Locate 3,2,"[2]:blouson"
Locate 3,3,"[3]:acheter"
Locate 3,4,"[4]:vendre"
Locate 3,5,"[5]:CASSOS"
Locate 3,6,"[6]:The BOSS"
Locate 3,7,"[7]:$banque$"
Locate 16,4,"JOUR:"
Locate 17,5,B
5G
Do
Locate 2,G,""
Do:GetkeyF
LpWhile F=0
Locate 2,G," "
F=28G™1G
F=37G‰1G
G=07G
G=81G
LpWhile F31
GX
ClrText
X=4Goto L
X=5Goto M
'P7
X=6Goto 6
X=7Goto 4
"<<C/H/A/W/S/L>>"
X=2Goto I
X=3Goto K
ClrText
Locate 1,1,"COCAINE:":Locate 13,1,C
Locate 1,2,"HEROINE:":Locate 13,2,H
Locate 1,3,"ACID:"
Locate 13,3,A
Locate 1,4,"CANNABIS:":Locate 13,4,W
Locate 1,5,"SPEED:"
Locate 13,5,S
Locate 1,6,"LSD:"
Locate 13,6,L
Locate 1,7,"Thune$:"
Locate 13,7,Z
Do:GetkeyX
LpWhile X=0
Goto H
Lbl I
ClrText
Locate 1,1,"COCAINE:":Locate 17,1,M
Locate 1,2,"HEROINE:":Locate 17,2,N
Locate 1,3,"ACID:"
Locate 17,3,O
Locate 1,4,"CANNABIS:":Locate 17,4,P
Locate 1,5,"SPEED:"
Locate 17,5,Q
Locate 1,6,"LSD:"
Locate 17,6,R
'P8
Locate 1,7,"#libre:"
Locate 17,7,K
Do:GetkeyX
LpWhile X=0
Goto H
Lbl K
"T'achetes quoi"?F
FC And FH And FA And FW And FS And FLGoto K
Int (ZF)E
"libre........."
Locate 15,4,K
"Tu peux avoir:"
" "
Locate 1,6,E
Locate 10,6,"doses."
"Combien"?G
G>K Or G<0 Or G>EGoto K
Z™FGZ
F=CM‰GM
F=HN‰GN
F=AO‰GO
F=WP‰GP
F=SQ‰GQ
F=LR‰GR
T™M™N™O™P™Q™RK
Goto H
Lbl L
"Tu vends quoi"?F
FC And FH And FA And FW And FS And FLGoto L
F=CME
F=HNE
F=AOE
F=WPE
F=SQE
F=LRE
"Tu en as:"
Locate 18,3,E
"Combien t'en vends"?G
'P9
G>E Or G<0Goto L
F=CM™GM
F=HN™GN
F=AO™GO
F=WP™GP
F=SQ™GQ
F=LR™GR
Z‰FGZ
T™M™N™O™P™Q™RK
Goto H
Lbl M
ClrGraph
Text 2,43,"[BRONX]"
Text 11,42,"[GHETTO]"
Text 20,30,"[CENTRAL PARK]"
Text 29,35,"[MANHATTAN]"
Text 38,38,"[BROOKLYN]"
Orange Text 47,40,"SUICIDE"
Green Text 56,36,"<JE RESTE>"
2G
Do:Green Text G,10,"GO"
Plot ‡7,‡4
Do:GetkeyF
LpWhile F=0
Green Text G,10," "
F=28G™9G
F=37G‰9G
G=652G
G=‡756G
LpWhile F31
(G™2)9‰1X
X<1 Or X>7Goto M
X=1 And =2"T'es deja dans le BRONX"
X=1 And =2Goto M
X<71
X=12
X=6Goto 0
X=7Goto H
ClrText
">>>METRO>>>"
Isz B
Int (1.1U)U
Int (1.06V)V
B=31Goto 0
Goto 9
Lbl 6
=1"The BOSS ne deal que dans le Bronx"
=1Goto H
'P10
ClrText
Lbl 1
Locate 6,2,"THE B@SS"
Locate 4,3,"[1]:rembourse"
Locate 4,4,"[2]:emprunter"
Locate 4,5,"[3]:nevermind"
4X
Do:Locate 3,X,""
Do:GetkeyF
LpWhile F=0
Locate 3,X," "
F=28X™1X
F=37X‰1X
X=25X
X=63X
LpWhile F31
X™2X
X<1 Or X>3Goto 1
X=3Goto H
Lbl N
ClrText
"DETTES:"
Locate 12,1,U
"THUNES:"
Locate 12,2,Z
X=2Goto 5
"Tu rends combien"?F
F>Z Or F>U Or F<0Goto N
U™FU
Z™FZ
Goto H
Lbl 5
"Combien t'emprunte"?F
F>50000"TU LE PRENDS POUR UN CON,MEC?"
F>50000Goto 5
F<0Goto 6
U‰FU
Z‰FZ
Goto H
Lbl 4
=1"La banque est dans leBRONX."
=1Goto H
ClrText
Locate 4,2,"$$$BANQUE$$$"
Locate 3,4,"[1]:ton compte"
Locate 3,5,"[2]:depot"
Locate 3,6,"[3]:retrait"
Locate 3,7,"[4]:Salut"
7X
Do:Locate 2,X,""
Do:GetkeyF
LpWhile F=0
Locate 2,X," "
F=28X™1X
F=37X‰1X
X=84X
X=37X
LpWhile F31
X™3X
X<1Goto 4
X>3Goto H
Lbl 2
ClrText
"accompte:"
Locate 13,1,V
"$FLOUZE$:"
Locate 13,2,Z
X=1Goto 4
X=2"T'en deposes combien"?G
X=2 And G>ZGoto 2
X=2V‰GV
X=2Z™GZ
X=3"Tu retires combien"?F
X=3 And F>V And F0Goto 2
X=3V™FV
X=3Z‰FZ
Goto 4
Lbl 0
ClrText
B=31"Bien joue,t'as tenu 1mois"
ClrText
" "
" GAME OVER "
" "
V‰Z™UV
V<00V
V0Int (†V31.5)V
"SCORE (/100):":V
"SALUT"