|
|
|
|
@ -1,10 +1,10 @@
|
|
|
|
|
rem Drugwar//e - Version 1.02
|
|
|
|
|
rem Drugwar//e - Version 1.03
|
|
|
|
|
rem 20-OCT-2018
|
|
|
|
|
rem Copyright 2018 Jay Moore
|
|
|
|
|
rem Released under GPL v3
|
|
|
|
|
rem drugwar2e.sourceforge.io
|
|
|
|
|
rem twitter: _nq4t
|
|
|
|
|
rv=1.02
|
|
|
|
|
rv=1.03
|
|
|
|
|
goto @instructions {because we're sticking subroutines up here}
|
|
|
|
|
£titlebar {this literally just draws the game title at the top of the screen}
|
|
|
|
|
HTAB 16 : print "Drugwar//e"
|
|
|
|
|
@ -71,7 +71,7 @@ This has cleaned the code up a bit
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
£freespace
|
|
|
|
|
f=int(i-((g*5)-m+n+o+u+t+p))
|
|
|
|
|
f=i-((g*5)+m+n+o+u+t+q)
|
|
|
|
|
return
|
|
|
|
|
£chase
|
|
|
|
|
inverse:gosub @twofifteen: print"Being Chased":normal
|
|
|
|
|
@ -654,7 +654,7 @@ conditions on how/when we run cops
|
|
|
|
|
if x$ <> "Y" then goto @menu
|
|
|
|
|
g = g+1
|
|
|
|
|
w = w-400
|
|
|
|
|
{i = int(i-5) I kept having problems calculating this with free space as guns * 5. gave up. put it here}
|
|
|
|
|
{i = i-5}
|
|
|
|
|
goto @menu
|
|
|
|
|
£dedweed {don't smoke the weed}
|
|
|
|
|
print "There's some weed here that smells"
|
|
|
|
|
@ -672,6 +672,7 @@ conditions on how/when we run cops
|
|
|
|
|
w=w-200
|
|
|
|
|
goto @menu
|
|
|
|
|
£dedguy
|
|
|
|
|
gosub @freespace
|
|
|
|
|
If f<8 THEN goto @nothinghappens {only if you have enough freespace}
|
|
|
|
|
j=int((rnd(3)*7)+1.5)
|
|
|
|
|
k=int(rnd(3)*5+.5)
|
|
|
|
|
|
