master
Jay 6 years ago
parent 6b5f50b65a
commit f75c709425

File diff suppressed because it is too large Load Diff

@ -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

Loading…
Cancel
Save