+-------------------------------------------------------+
| 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
0ÞA~Z
2000ÞZ
5000ÞU
100ÞK
1ÞB
2ÞÍ
100ÞT
ClrText
'P2
"instruction$:"
"[1]:OUI"
"[2]:NON"?ÞX
Xá1ãGoto 9
ClrText
"COKE:$15000™$28000"
"HEROINE:$5000™$12000"
"ACID:$1000™$4200"
"CANNABIS:$300™$720"
"SPEED:$70™$220"
"LSD:$10™$50"Ý
Lbl 9
Int 12000Ran#‰16000ÞC
Int 7000Ran#‰5000ÞH
100(Int 34Ran#‰10)ÞA
10(Int 42Ran#‰33)ÞW
10(Int 15Ran#‰7)ÞS
10(Int 4Ran#‰1)ÞL
Int 20Ran#‰1ÞD
ClrText
D=1ã"Des stups'vendent des LSD pas cher«««"Ý
D=1ã2ÞL
D=2ã"Le prix du CANNABIS achute«««"Ý
D=2ã122ÞW
D=3ã"Les stups' vendent l'HEROINE de leur derniere saisie pas cher««"Ý
D=3ãInt 1150Ran#‰850ÞH
D>3 And D<6ã"Les JUNKY achetent del'HEROINE hors de prix«««"Ý
D>3 And D<6ãInt 25000Ran#‰18000ÞH
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<8ãInt 60000Ran#‰80000ÞC
D=8ã"Tu t'es fait racketerdans le metro««"Ý
D=8ãInt (Z¹3)ÞZ
Dá15 Or Zà299ãGoto P
"Veux tu acheter un nouveau blouson avec plus de poches a $200"?ÞX
Xá1ãGoto P
100‰TÞT
T™M™N™O™P™Q™RÞK
Z™200ÞZ
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=1ãGoto 0
"C'EST DE LA BONNE«"
"Pour lui avoir fait"
"confiance,le JUNKY tefile 50 sacs de COKE«"Ý
M‰50ÞM
T‰50ÞT:IfEnd
IfEnd
(Dá12 And Dá13) Or Kà4 Or Zà499ãGoto 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
Xá1ãGoto Q
Isz I
Z™400ÞZ
T™5ÞT
T™M™N™O™P™Q™RÞK
Lbl Q
Dá16 Or Kà7ãGoto R
Int 7Ran#‰1ÞF
"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=0ãR‰FÞR
X=1ã"de SPEED"
X=1ãQ‰FÞQ
X=2ã"de CANNABIS"
X=2ãP‰FÞP
X=3ã"d'ACID"
X=3ãO‰FÞO
X=4ã"d'HEROINE"
X=4ãN‰FÞN
X=5ã"de COCAINE"
X=5ãM‰FÞM
"sur un mort™shoote dumetro«"Ý
T™M™N™O™P™Q™RÞK
Goto H
Lbl R
D=17ã"Le marche est envahi par de l'ACID pas cher fait™maison«««"Ý
D=17ãInt 550Ran#‰250ÞA
D=17ãGoto H
D<9 Or D>11 Or M‰N‰O‰P‰Q‰R<50ãGoto H
D=9ã1ÞD
D=10ã2ÞD
D=11ã3ÞD
"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]:l¥s flics?"
Locate 3,6,"[4]:COURIR!"
Locate 3,7,"[5]:TIRER!"
6ÞX
Do:Locate 2,X,"ã"
Do:GetkeyÞF
LpWhile F=0
Locate 2,X," "
F=28ãX™1ÞX
F=37ãX‰1ÞX
X=8ã3ÞX:X=2ã7ÞX
LpWhile Fá31
X™2ÞX
X<1 Or X>5ãGoto A
ClrText
If X=1:Then "Tu as"
I>0ãLocate 7,1,I
I=0ã"aucun flingue"Ý
Iá0ãLocate Int (log I)‰10,1,"flingues"Ý
IfEnd
X=2ã"Tes degats:"
X=2ãJÝ
" "
X=2ã"(50,et t'es mort«)"
X=3ã"T'as encore"
X=3ãLocate 13,2,D‰1
X=3ã"fuckin'cops au cul«"Ý
X<4ãGoto A
X=5ãGoto E
ClrText
Int 2Ran#ÞX
X=0ã"Tu l¥s as seme dans une rue«"Ý
X=0ãB=31ãGoto H
X=0ãBá31ãGoto 9
X=1ã"Tu ne peux pas les semer««"Ý
X=1ãGoto F
Lbl E
I=0ã"Tu n'as plus de flingue«Tu dois courir«"Ý
I=0ãGoto A
Int 2Ran#ÞX
X=0ã"T'as loupe««"Ý
X=1ã"T'en as eu un«"Ý
X=1ãDsz D
X=1 And D<0ãGoto G
Lbl F
ClrText
Int 2Ran#ÞX
"Ils te tirent dessus«"
'P6
X=0ã"Ils t'ont loupe«"Ý
X=0ãGoto A
"T'as ete touche«"Ý
J‰3ÞJ
J>49ã"t'es mort««"Ý
J>49ãGoto 0
Goto A
Lbl G
ClrText
"Tu les as tous eu«"
Int 1250Ran#‰750ÞX
Z‰X‰Z
ClrText
"Tu as trouve:":XÝ
"dollars sur le cadavre d'un des flics«"
J=0ãGoto H
"Tu es blesse«"
Z<1200ã"Mais tu peux obtenir une aide medicale..."Ý
Z<1200ãGoto H
"Veux tu etre soigne":"POUR $1000"?ÞX
Xá1ãGoto H
Z™1000ÞZ
0ÞJ
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
5ÞG
Do
Locate 2,G,"ã"
Do:GetkeyÞF
LpWhile F=0
Locate 2,G," "
F=28ãG™1ÞG
F=37ãG‰1ÞG
G=0ã7ÞG
G=8ã1ÞG
LpWhile Fá31
GÞX
ClrText
X=4ãGoto L
X=5ãGoto M
'P7
X=6ãGoto 6
X=7ãGoto 4
"<<C/H/A/W/S/L>>"
X=2ãGoto I
X=3ãGoto 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:GetkeyÞX
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:GetkeyÞX
LpWhile X=0
Goto H
Lbl K
"T'achetes quoi"?ÞF
FáC And FáH And FáA And FáW And FáS And FáLãGoto K
Int (Z¹F)Þ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>EãGoto K
Z™FGÞZ
F=CãM‰GÞM
F=HãN‰GÞN
F=AãO‰GÞO
F=WãP‰GÞP
F=SãQ‰GÞQ
F=LãR‰GÞR
T™M™N™O™P™Q™RÞK
Goto H
Lbl L
"Tu vends quoi"?ÞF
FáC And FáH And FáA And FáW And FáS And FáLãGoto L
F=CãMÞE
F=HãNÞE
F=AãOÞE
F=WãPÞE
F=SãQÞE
F=LãRÞE
"Tu en as:"
Locate 18,3,E
"Combien t'en vends"?ÞG
'P9
G>E Or G<0ãGoto L
F=CãM™GÞM
F=HãN™GÞN
F=AãO™GÞO
F=WãP™GÞP
F=SãQ™GÞQ
F=LãR™GÞR
Z‰FGÞZ
T™M™N™O™P™Q™RÞK
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«>"
2ÞG
Do:Green Text G,10,"GO«Þ"
Plot ‡7,‡4
Do:GetkeyÞF
LpWhile F=0
Green Text G,10," "
F=28ãG™9ÞG
F=37ãG‰9ÞG
G=65ã2ÞG
G=‡7ã56ÞG
LpWhile Fá31
(G™2)¹9‰1ÞX
X<1 Or X>7ãGoto M
X=1 And Í=2ã"T'es deja dans le BRONX«"Ý
X=1 And Í=2ãGoto M
X<7ã1ÞÍ
X=1ã2ÞÍ
X=6ãGoto 0
X=7ãGoto H
ClrText
">>>METRO>>>"
Isz B
Int (1.1U)ÞU
Int (1.06V)ÞV
B=31ãGoto 0
Goto 9
Lbl 6
Í=1ã"The BOSS ne deal que dans le Bronx"Ý
Í=1ãGoto 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"
4ÞX
Do:Locate 3,X,"ã"
Do:GetkeyÞF
LpWhile F=0
Locate 3,X," "
F=28ãX™1ÞX
F=37ãX‰1ÞX
X=2ã5ÞX
X=6ã3ÞX
LpWhile Fá31
X™2ÞX
X<1 Or X>3ãGoto 1
X=3ãGoto H
Lbl N
ClrText
"DETTES:"
Locate 12,1,U
"THUNES:"
Locate 12,2,Z
X=2ãGoto 5
"Tu rends combien"?ÞF
F>Z Or F>U Or F<0ãGoto N
U™FÞU
Z™FÞZ
Goto H
Lbl 5
"Combien t'emprunte"?ÞF
F>50000ã"TU LE PRENDS POUR UN CON,MEC?"
F>50000ãGoto 5
F<0ãGoto 6
U‰FÞU
Z‰FÞZ
Goto H
Lbl 4
Í=1ã"La banque est dans leBRONX."Ý
Í=1ãGoto 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"
7ÞX
Do:Locate 2,X,"ã"
Do:GetkeyÞF
LpWhile F=0
Locate 2,X," "
F=28ãX™1ÞX
F=37ãX‰1ÞX
X=8ã4ÞX
X=3ã7ÞX
LpWhile Fá31
X™3ÞX
X<1ãGoto 4
X>3ãGoto H
Lbl 2
ClrText
"accompte:"
Locate 13,1,V
"$FLOUZE$:"
Locate 13,2,ZÝ
X=1ãGoto 4
X=2ã"T'en deposes combien"?ÞG
X=2 And G>ZãGoto 2
X=2ãV‰GÞV
X=2ãZ™GÞZ
X=3ã"Tu retires combien"?ÞF
X=3 And F>V And Fá0ãGoto 2
X=3ãV™FÞV
X=3ãZ‰FÞZ
Goto 4
Lbl 0
ClrText
B=31ã"Bien joue,t'as tenu 1mois««"Ý
ClrText
" ©©©©©©©©©©©©©©"
" © GAME OVER« ©"
" ©©©©©©©©©©©©©©"
V‰Z™UÞV
V<0ã0ÞV
Vâ0ãInt (†V¹31.5)ÞV
"SCORE (/100):":VÝ
"SALUT«"