Drugwar for Casio CFX-9850G

Description: A game of buying and selling drugs
Size: Drugwar: 6684 bytes DWHelp: 638 bytes

This program is based on the Drugwar found at Happy Parrot Casio Games. I updated it to take advantage of the 9850G's features. For a full list of changes, view the info file.

SYMBOL EXPLANATION:

@    means     theta
/    means     division
_    means     display
<=   means     less than or equal
>=   means     greater than or equal
<>   means     not equal
=>   means     then
->   means     assign
*    means     multiply
sqrt           root
%    means     exponent [EXP]
Only used in title screen:
a              Lowercase a (press: [vars] [f3] [f3] [f1])
d              Lowercase d (press: [vars] [f3] [f3] [f4])
e              Lowercase e (press: [vars] [f3] [f3] [f5])
m              Lowercase m (press: [optn] [f6] [f6] [f1] [f1])
n              Lowercase n (press: [vars] [f3] [f1] [f1])
r              Lowercase r (press: [vars] [f3] [f5] [f1])
s              Lowercase s (press: [vars] [f5] [f6] [f2]) (plus models only)
t              Lowercase t (press: [vars] [f5] [f6] [f3]) (plus models only)
y              Lowercase y (press: [vars] [f3] [f2] [f1])

Create a new file named: DRUGWAR

ClrText
" ":" ":" ":" "
Locate 7,1,"DRUGWAR"
Locate 1,2,"JOAKIM KNUNSDEN 1997"
Locate 2,3,"IMPROVED FOR 9850G"
Locate 1,4,"by JameS AndreWarTHa"
""_
Lbl 8
0->A~Z
2000->Z
5000->Y
100->K
100->T
1->B
2->r
ClrText
" "
Locate 1,1,"INSTRUCTIONS"
"[1] YES [2] NO"?->X
X=1=>Prog "DWHELP"
Lbl 9
Int 12%3Ran#+16%3->C
Int 7%3Ran#+5%3->H
Int 3400Ran#+1%3->A
Int 420Ran#+330->W
Int 150Ran#+70->S
Int 40Ran#+10->L
Int 20Ran#+1->D
ClrText
If D=1
Then " ":" ":Locate 1,1,"RIVAL DEALERS ARE"
Locate 1,2,"SELLING CHEAP LUDES!":""_
2->L:IfEnd
If D=2
Then " ":" "
Locate 1,1,"WEED PRICES HAVE"
Locate 1,2,"BOTTOMED-OUT!":""_
122->W:IfEnd
If D=3
Then " ":" ":" "
Locate 1,1,"PIGS ARE SELLING"
Locate 1,2,"CHEAP HEROIN FROM"
Locate 1,3,"LAST WEEK,S RAID!!":""_
Int 1150Ran#+850->H:IfEnd
If D>3 And D<6
Then " ":" ":" "
Locate 1,1,"ADDICTS ARE BUYING"
Locate 1,2,"HEROIN AT OUTRAGEOUS"
Locate 1,3,"PRICES!!":""_
Int 25%3Ran#+18%3:IfEnd
If D>5 And D<8
Then " ":" ":" "
Locate 1,1,"PIGS MADE A BIG COKE"
Locate 1,2,"BUST!!"
Locate 1,3,"PRICES ARE OUTRAGEOUS":""_
Int 6%4Ran#+8%4->C:IfEnd
If D=8
Then " ":" "
Locate 1,1,"YOU WERE MUGGED IN"
Locate 1,2,"THE SUBWAY!":""_
Int (I/(I+1)+1.6)->X
Int (IZ/3)->Z:IfEnd
D<>15 Or Z<T+100=>Goto P
" ":" ":" "
Locate 1,1,"WILL YOU BUY A NEW"
Locate 1,2,"TRENCHCOAT WITH MORE"
Locate 1,3,"POCKETS FOR"
Locate 13,3,100+T
Locate 17,3,"BUCKS"
?->X
If X<>1=>Goto P
100+T->T
T-M-N-O-P-Q-R->K
Z-T->Z
Lbl P
If D=14
Then " ":" ":" "
Locate 1,1,"THERE'S SOME WEED"
Locate 1,2,"HERE THAT SMELLS LIKE"
Locate 1,3,"GOOD STUFF..."
"WILL YOU SMOKE IT"?->X
If X=1
Then " ":" ":" "
Locate 1,4,"YOU HALLUCINATE ON"
Locate 1,5,"THE WILDEST TRIP OF"
Locate 1,6,"YOUR LIFE"
"YOU STUMBLE ONTO THE TRACKS, AND GET
"CREAMED BY A TRAIN!!"_
Goto 0:IfEnd:IfEnd
Z<500 Or K<5 Or (D<>12 And D<>13)=>Goto Q
" ":" ":Locate 1,1,"WILL YOU BUY A"
Int 3Ran#->X
X=0=>Locate 1,2,"BARETTA"
X=1=>Locate 1,2,"SAT. NIGHT SPECIAL"
X=2=>Locate 1,2,".44 MAGNUM"
"FOR 400 DOLLARS"?->X
X<>1Goto Q
I+1->I
Z-400->Z
T-5->T
T-M-N-O-P-Q-R->K
Lbl Q
D<>16 Or K<8=>Goto R
Int 7Ran#+1->F
" ":" ":" ":Locate 1,1,"YOU FOUND"
F=1=>Locate 11,1,"ONE UNIT"
F=2=>Locate 11,1,"TWO UNITS"
F=3=>Locate 11,1,"THREE UNITS"
F=4=>Locate 11,1,"FOUR UNITS"
F=5=>Locate 11,1,"FIVE UNITS"
F=6=>Locate 11,1,"SIX UNITS"
F=7=>Locate 11,1,"SEVEN UNITS"
Int 6Ran#->X
Locate 1,2,"OF"
If X=0:Then Locate 4,2,"LUDES"
R+F->R:IfEnd
If X=1:Then Locate 4,2,"SPEED"
Q+F->Q:IfEnd
If X=2:Then Locate 4,2,"WEED"
P+F->P:IfEnd
If X=3:Then Locate 4,2,"LUDES"
O+F->O:IfEnd
If X=4:Then Locate 4,2,"LUDES"
N+F->N:IfEnd
If X=5:Then Locate 4,2,"LUDES"
M+F->M:IfEnd
Locate 12,2,"ON A DEAD"
Locate 1,3,"DUCK IN THE SUBWAY!!"_
T-M-N-O-P-Q-R->K
Goto H
Label R
If D=17
Then " ":" ":" "
Locate 1,1,"THE MARKET HAS BEEN"
Locate 1,2,"FLOODED WITH CHEAP"
Locate 1,3,"HOME-MADE ACID!!":""_
Int 550Ran#+250->A
Goto H:IfEnd
D<9 Or D>11 Or M+N+O+P+Q+R<50=>Goto H
D=9=>1->D
D=10=>3->D
D=11=>4->D
" ":" ":" ":Locate 1,1,"OFFICER HARDASS AND
D=1=>Locate 1,2,"ONE"
D=3=>Locate 1,2,"THREE"
D=4=>Locate 1,2,"FOUR"
Locate 7,2,"OF HIS DEPUTIES"
Locate 1,3,"ARE AFTER YOU!!":""_
Lbl A
ClrText
" ":" ":" ":" ":" ":" "
Locate 1,1,"BEING CHASED!!"
Locate 1,2,"[1] VIEW GUNS"
Locate 1,3,"[2] VIEW DAMAGE"
Locate 1,4,"[3] NUMBER OF PIGS"
Locate 1,5,"[4] RUN [5] FIGHT"
?->X
X<1 Or X>5=>Goto A
ClrText
If X=1:Then " ":Locate 1,1,"YOU HAVE"
I>0=>Locate 10,1,I
I=0=>Locate 10,1,"NO"
Locate 13,1,"GUNS"
""_
IfEnd
If X=2:Then " ":" ":" ":Locate 1,1,"YOUR DAMAGE:"
Locate 14,1,J
Locate 1,2,"30 DAMAGE, AND YOU"
Locate 1,3,"DIE!":""_
If X=3:Then " ":" "
Locate 1,1,"THERE ARE":Locate 11,1,D+1
Locate 1,2,"STILL CHASING YOU!":""_
IfEnd
X<4=>Goto A
X=5=>Goto E
Int 2Ran#->X
If X=0:Then " ":" "
Locate 1,1,"YOU LOST THEM IN AN
Locate 1,2,"ALLEY!!"
""_
B+1->B:B=30=>Goto H
Goto 9:IfEnd
" ":Locate 1,1,"YOU CAN'T SHAKE THEM!":""_
Goto F
Lbl E
If I=0Then " ":" ":" ":Locate 1,1,"YOU DON'T HAVE ANY"
Locate 1,2,"GUNS! YOU'LL HAVE TO"
Locate 1,3,"RUN!!":""_
Goto A:IfEnd
Int 2Ran#->X
If X=0
Then " ":Locate 1,1,"YOU MISSED!!!":""_
IfEnd
If X=1
Then " ":Locate 1,1,"YOU KILLED ONE!!":""_
D-1->D:D<0=>Goto G
IfEnd
Int 2Ran#->X
" ":Locate 1,2,"THEY'RE FIRING AT YOU!!"
If X=0
Then " ":Locate 1,3,"THEY MISSED!!":""_
Goto A:IfEnd
" ":Locate 1,3,"YOU'VE BEEN HIT!":""_
J+3->J
If J=30:Then " "
Locate 1,4,"YOU'VE BEEN KILLED!!":""_
Goto 0:IfEnd:Goto A
Lbl G:ClrText
" ":" ":Locate 1,1,"YOU KILLED ALL OF":Locate 1,2,"THEM!":""_
Int 1250Ran#+750->X
Z+X->X
" ":" ":" ":Locate 1,3,"YOU FOUND"
Locate 11,3,X
Locate 1,4,"DOLLARS ON OFFICER"
Locate 1,5,"HARDASS' CARCASS!!":""_
J=0=>Goto H:" ":Locate 1,6,"YOU'RE HURT!
If Z<1200
Then " ":Locate 1,7,"BUT YOU CAN'T AFFORD":"MEDICAL HELP..."_
Goto H:IfEnd
" ":Locate 1,7,"WILL YOU PAY 1000"
"DOLLARS FOR A DOCTOR":"TO SEW YOU UP"?->X
X<>1=>Goto H
Z-1000->Z:0->J
Lbl H:ClrT
" ":" ":" ":" ":" "
Locate 1,1,"[1] SEE PRICES"
Locate 1,2,"[2] TRENCHCOAT"
Locate 1,3,"[3] BUY [4] SELL"
Locate 1,4,"[5] GO [6] LOAN SHARK"
Locate 1,5,"[7] VISIT BANK"
?->X
ClrText:" ":2->@
Locate 1,1,"DAY NUMBER:":Locate 13,1,B
X=5=>Goto M
X=6=>Goto 6
X=7=>Goto 7
" ":Locate 1,2,"[C][H][A][W][S][L]"
X=2=>Goto I
X=3=>Goto K
X=4=>Goto L
ClrText:" ":" ":" ":" ":" ":" "
Locate 1,1,"COCAINE"
Locate 10,1,C
Locate 1,2,"HEROIN"
Locate 10,2,H
Locate 1,3,"ACID"
Locate 11,3,A
Locate 1,4,"WEED"
Locate 12,4,W
Locate 1,5,"SPEED"
Locate 12,5,S
Locate 1,6,"LUDES"
Locate 13,6,L:""_
" ":Locate 1,7,"WALLET":Locate 10,7,Z:"[DAY]":Locate 10,7,B:""_
Goto H
Lbl I
ClrText:" ":" ":" ":" ":" ":" "
Locate 1,1,"COCAINE"
Locate 13,1,M
Locate 1,2,"HEROIN"
Locate 13,2,N
Locate 1,3,"ACID"
Locate 13,3,O
Locate 1,4,"WEED"
Locate 13,4,P
Locate 1,5,"SPEED"
Locate 13,5,Q
Locate 1,6,"LUDES"
Locate 13,6,R:""_
" ":Locate 1,7,"FREE"
Locate 10,7,K:""_
Goto H
Lbl K
@=0=>ClrText
" ":Locate 1,1+@,"WHAT TO BUY?"
Do:Getkey->F
LpWhile F<>56 And F<>65 And F<>76 And F<>52 And F<>43 And F<>25
If F=56:Then C->F:Locate 14,1+@,"C":IfEnd
If F=65:Then H->F:Locate 14,1+@,"H":IfEnd
If F=76:Then A->F:Locate 14,1+@,"A":IfEnd
If F=52:Then W->F:Locate 14,1+@,"W":IfEnd
If F=43:Then S->F:Locate 14,1+@,"S":IfEnd
If F=25:Then L->F:Locate 14,1+@,"L":IfEnd
Int (Z/F)->E:" ":" "
Locate 1,2+@,"YOU CAN AFFORD"
Locate 1,3+@,E:Locate 12,3+@,"UNITS."
"HOW MUCH"?->G
0->@
G>K=>"NOT ENOUGH SPACE"_
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
@=0=>ClrText
" ":Locate 1,1+@,"WHAT TO SELL?"
Do:Getkey->F
LpWhile F<>56 And F<>65 And F<>76 And F<>52 And F<>43 And F<>25
If F=56:Then M->E:C->F:Locate 14,1+@,"C":IfEnd
If F=65:Then N->E:H->F:Locate 14,1+@,"H":IfEnd
If F=76:Then O->E:A->F:Locate 14,1+@,"A":IfEnd
If F=52:Then P->E:W->F:Locate 14,1+@,"W":IfEnd
If F=43:Then Q->E:S->F:Locate 14,1+@,"S":IfEnd
If F=25:Then R->E:L->F:Locate 14,1+@,"L":IfEnd
" "
Locate 1,2+@,"YOU HAVE:"
Locate 10,2+@,E
"HOW MUCH"?->G:0->@
G<0 or G>E=>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:ClrText:" ":" ":" ":" ":" ":" "
Locate 1,1,"WHERE TO?"
Locate 1,2,"[1] BRONX [2] GHETTO"
Locate 1,3,"[3] CENTRAL PARK"
Locate 1,4,"[4] MANHATTEN"
Locate 1,5,"[5] BROOKLYN"
Locate 1,6,"[6] SUICIDE [7] STAY!"
?->X
X<1 Or X>7=>Goto M
If X=1:Then If r=2
Then "YOU'RE ALREADY IN THE":"BRONX!"_
Goto M:IfEnd
2->r
Else X<>7=>1->r:IfEnd
X=6=>Goto 0
X=7=>Goto H
ClrText
"SUBWAY"
For 1->X To 10
sin 5:sin cos 5
Next
B+1->B
Int (1.1Y)->Y
Int (1.06V)->V
B>=31=>Goto 0
Goto 9
Lbl 6
If r=1:Then " ":" "
Locate 1,2,"THE LOAN SHARK ONLY"
Locate 1,3,"DEALS IN THE BRONX":""_
Goto H:IfEnd
Lbl 1:ClrText
" ":" ":" ":" ":Locate 1,1,"LOAN SHARK"
Locate 1,2,"[1] REPAY"
Locate 1,3,"[2] BORROW"
Locate 1,4,"[3] NEVER MIND":?->X
X<1 Or X>3=>Goto 1
X=3=>Goto H
Lbl N
ClrText:" ":" ":" "
Locate 1,1,"DEBT:"
Locate 7,1,Y
Locate 1,2,"WALLET:"
Locate 9,2,Z
X=2=>Goto 5
Locate 1,3,"REPAY HOW MUCH"
?->F
F>Z Or F>Y Or F<0=>Goto N
Y-F->Y
Z-F->Z
Goto H
Lbl 5
Locate 1,3,"BORROW HOW MUCH"
?->F
If F+Y>5%4
Then "YOU THINK HE'S CRAZY":"MAN?!"_
Goto 5:IfEnd
F<0=>Goto 6
Y+F->F
Z+F->Z
Goto H
Lbl 7
If r=1:Then " ":" "
Locate 1,2,"THE BANK IS IN THE":Locate 1,3,"BRONX.":""_
Goto H:IfEnd
ClrText
" ":" ":" ":" ":" "
Locate 1,1,"BANK"
Locate 1,2,"[1] VIEW ACCOUNT"
Locate 1,3,"[2] DEPOSIT"
Locate 1,4,"[3] WITHDRAW"
Locate 1,5,"[4] GOODBYE":?->X
X<1=>Goto 7
X>3=>Goto H
Lbl 2:ClrText
" ":" "
Locate 1,1,"ACCOUNT":Locate 10,1,V
Locate 1,2,"WALLET":Locate 9,2,Z
X=1=>Goto 7
If X=2:Then "DEPOSIT HOW MUCH"?->G
G>Z Or G<0=>Goto 2
V+G->V:Z-G->Z:IfEnd
If X=3:Then "WITHDRAW HOW MUCH"?->F
F>V Or F<0=>Goto 2
V-F->V:Z+F->Z:IfEnd
Goto 7
Lbl 0:ClrText
" ":" ":" ":" "
Locate 1,1,"GAME OVER!"
Locate 1,2,"----------"
V+Z-Y->B
B<0=>0->B
Int (sqrtB/31.5)->B
Locate 1,3,"SCORE (OUT OF 100):"
Locate 1,4,B
"PLAY AGAIN"?->X
X=1=>Goto 8
ClrText
"THANKS FOR PLAYING!"
" "
"HAVE A NICE DAY!"_

"    DRUGWAR HELP"           // 4 spaces
"-------------------"        // 19 dashes
"THIS IS A GAME OF"
"BUYING AND SELLING."
"YOUR GOAL IS TO PAY"
"OFF YOUR DEBT TO"
"THE LOAN SHARK"_
"AND THEN MAKE AS"
"MUCH MONEY AS"
"POSSIBLE IN A ONE"
"MONTH PEROID."_
"WATCH OUT FOR THE"
"POLICE OF YOU DEAL"
"TOO HEAVILY! PRICES"
"FOR DRUGS ARE:"
"COCAINE: 15000-28000"
"HEROIN:   5000-12000"_           // 3 spaces
"ACID:     1000- 4200"            // 5 spaces
"WEED:      300-  720"            // 6,2 spaces
"SPEED:      70-  220"            // 6,2 spaces
"LUDES:      10-   50"_           // 6,3 spaces
"GENERALLY, TYPE THE"
"FIRST LETTER OF WHAT"
"YOU WANT TO DO I.E."
"W=WEED L=LUDES ETC.."
"BUT 1=YES 2=NO"_
"THE LAST NUMBER IN"
"THE PRICES LIST IS"
"YOUR WALLET. THE"
"LAST NUMBER IN YOUR"
"TRENCHCOAT IS FREE"
"SPACE."_

Variables:                           Labels:
A: Acid (price)                      Main chase loop
B: Day
C: Cocaine (price)
D: Daily event / # of pigs
E: Dummy variable                    Fight
F: Dummy variable                    Cops shoot
G: Dummy variable                    All cops dead
H: Heroin (price)                    Main menu
I: Guns                              Trenchcoat
J: Damage
K: Trenchcoat space (free)           Buy
L: Ludes (price)                     Sell
M: Cocaine (quantity)                Go
N: Heroin (quantity)                 Loan shark (display)
O: Acid (quantity)
P: Weed (quantity)                   Die from weed
Q: Speed (quantity)                  Find stuff
R: Ludes (quantity)                  Cheap acid
S: Speed (price)
T: Trenchcoat space (total)
U:
V: Bank
W: Weed (price)
X: Dummy variable (choice etc.)
Y: Debt
Z: Money
r: Place
theta: Dummy variable
0:                                   Game over
1:                                   Loan shark (menu)
2:                                   Bank (view account)
3:
4:
5:                                   Loan Shark (borrow)
6:                                   Loan Shark
7:                                   Bank
8:                                   Start of game
9:                                   New day
0:                                   End

If you encounter any problems with this program contact: trs80@daa.com.au

(beta-testers, greetings etc.)