|
|
|
@ -1,5 +1,5 @@
|
|
|
|
|
[
|
|
|
|
|
Drugwar //e beta-5
|
|
|
|
|
Drugwar //e beta-6
|
|
|
|
|
(c) 2018 Jay Moore
|
|
|
|
|
Licensed under GPLv3
|
|
|
|
|
]
|
|
|
|
@ -47,16 +47,16 @@ lines that reference a specific drug are still in normal code.
|
|
|
|
|
fs=int(in-(ci+hi+ai+wi+si+li)+(gn*5))
|
|
|
|
|
return
|
|
|
|
|
£daily {randomizes drug prices, adds a day, calculates interests, checks day number}
|
|
|
|
|
c=int(rnd(1)*12000+16000)
|
|
|
|
|
h=int(rnd(1)*7000+5000)
|
|
|
|
|
a=int((rnd(1)*34+10)*100)
|
|
|
|
|
w=int((rnd(1)*42+33)*10)
|
|
|
|
|
s=int((rnd(1)*15+7)*10)
|
|
|
|
|
l=int((rnd(1)*4+1)*10)
|
|
|
|
|
b=int(rnd(1)*20)
|
|
|
|
|
c=int(rnd(1)*12000+16000.5)
|
|
|
|
|
h=int(rnd(1)*7000+5000.5)
|
|
|
|
|
a=int((rnd(1)*34+10)*100+.5)
|
|
|
|
|
w=int((rnd(1)*42+33)*10+.5)
|
|
|
|
|
s=int((rnd(1)*15+7)*10+.5)
|
|
|
|
|
l=int((rnd(1)*4+1)*10+.5)
|
|
|
|
|
b=int(rnd(1)*20+.5)
|
|
|
|
|
d=d+1
|
|
|
|
|
ls=int(ls*1.1)
|
|
|
|
|
sa=int(sa*1.06)
|
|
|
|
|
ls=int(ls*1.1+.5)
|
|
|
|
|
sa=int(sa*1.06+.5)
|
|
|
|
|
£checkday {so I can check the day by itself}
|
|
|
|
|
if D >= 31 GOTO @endgame
|
|
|
|
|
return
|
|
|
|
@ -92,19 +92,19 @@ lines that reference a specific drug are still in normal code.
|
|
|
|
|
£pigheroin
|
|
|
|
|
print "Pigs are selling cheap heroin"
|
|
|
|
|
print "from last week's raid!"
|
|
|
|
|
h=int((rnd(1)*1150)+850)
|
|
|
|
|
h=int((rnd(1)*1150)+850.5)
|
|
|
|
|
gosub @wait
|
|
|
|
|
goto @menu
|
|
|
|
|
£heroinbust
|
|
|
|
|
print "Addicts are buying heroin"
|
|
|
|
|
print "at outrageous prices!"
|
|
|
|
|
h=int((rnd(1)*25000)+18000)
|
|
|
|
|
h=int((rnd(1)*25000)+18000.5)
|
|
|
|
|
gosub @wait
|
|
|
|
|
goto @menu
|
|
|
|
|
£cokebust
|
|
|
|
|
print "Pigs made a big coke bust!"
|
|
|
|
|
print "Prices are outrageous!!!!"
|
|
|
|
|
c=int(rnd(1)*60000)+80000)
|
|
|
|
|
c=int((rnd(1)*60000)+80000.5) {the infamous line 930}
|
|
|
|
|
gosub @wait
|
|
|
|
|
goto @menu
|
|
|
|
|
£mugged
|
|
|
|
@ -143,7 +143,6 @@ conditions on how/when we run cops
|
|
|
|
|
if re$ <> "Y" then goto @menu
|
|
|
|
|
gn = int(gn+1)
|
|
|
|
|
wa = int(wa-400)
|
|
|
|
|
fs = int(fs-5)
|
|
|
|
|
goto @menu
|
|
|
|
|
£dedweed
|
|
|
|
|
print "There's some weed here that smells"
|
|
|
|
@ -162,8 +161,8 @@ conditions on how/when we run cops
|
|
|
|
|
goto @menu
|
|
|
|
|
£dedguy
|
|
|
|
|
If fs<8 THEN return
|
|
|
|
|
dg=int((rnd(1)*7)+1)
|
|
|
|
|
xg=int(rnd(1)*5)
|
|
|
|
|
dg=int((rnd(1)*7)+1.5)
|
|
|
|
|
xg=int(rnd(1)*5+.5)
|
|
|
|
|
if xg=0 THEN li=li+dg : ss$ = "Ludes"
|
|
|
|
|
if xg=1 THEN si=si+dg : ss$ = "Speed"
|
|
|
|
|
if xg=2 THEN wi=wi+dg : ss$ = "Weed"
|
|
|
|
@ -179,7 +178,7 @@ conditions on how/when we run cops
|
|
|
|
|
£homeacid
|
|
|
|
|
print "The market has been flooded"
|
|
|
|
|
print "with cheap home-made acid!"
|
|
|
|
|
a=int((rnd(1)*550)+250)
|
|
|
|
|
a=int((rnd(1)*550)+250.5)
|
|
|
|
|
gosub @wait
|
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
|
|