master
Jay 6 years ago
parent 95548b3c3a
commit 85c08e661e

@ -1,4 +1,4 @@
10 REM DRUGWAR2EV102.BAS - 20/10/2018 - 20h50 10 REM DRUGWAR2EV103.BAS - 20/10/2018 - 20h50
20 REM DRUGWAR//E - VERSION 1.03 20 REM DRUGWAR//E - VERSION 1.03
30 REM 20-OCT-2018 30 REM 20-OCT-2018
40 REM COPYRIGHT 2018 JAY MOORE 40 REM COPYRIGHT 2018 JAY MOORE

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

Loading…
Cancel
Save