BETA 9

drugwar2e.baz

@@ -1,4 +1,4 @@
-rem Drugwar//e - Beta 8
+rem Drugwar//e - Beta 9
 rem Copyright 2018 Jay Moore
 rem Released under GPL v3
 rem drugwar2e.sourceforge.io
@@ -12,6 +12,14 @@ rem twitter: _nq4t
 	print chr$(10)
 	input "Press enter to continue.";x$
 	return
+£timera
+	for n = 1 to 500
+	next n
+	return
+£timerb
+	for n = 1 to 300
+	next n
+	return
 [
 "Common logic" has been moved to buy/sell subroutines. 
 This has cleaned the code up a bit
@@ -289,6 +297,7 @@ goto @menu
 		if x$="I" then y$ = "Coney Island" : goto @jetb
 		if x$="K" then y$ = "Brooklyn" : goto @jetb
 		if x$="O" then goto @menu
+		if x$="COPTEST" then b = 5 : goto @police
 		goto @jet
 £jetb
 	if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
@@ -330,6 +339,8 @@ goto @menu
 		if b=15 then goto @newcoat
 		if b=16 then goto @dedguy
 		if b=17 then goto @homeacid 
+£nothinghappened
+£nothinghappens	
 	print chr$(10) {the only way you should wind up here is if nothing happens}
 	print "Welcome to ";p$ {i hope}
 	print chr$(10)
@@ -381,17 +392,150 @@ goto @menu
 my improved revisions will likely add some additional
 conditions on how/when we run cops
 ]
-	if k<50 then return
+	if k<50 then goto @nothinghappened
+	if b=9 then b = 2
+	if b=10 then b=4
+	if b=11 then b=5
 	print "It's the cops!"
 	print chr$(10)
-	print "Just kidding!"
-	print "Cops haven't been coded yet."
+	print "Officer Hardass and ";B-1;" of his"
+	print "deputies are after you!"
+	print
+	gosub @wait
+	goto @police
+£police
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "View (G)uns"
+	print "View (D)amage"
+	print "(N)umber of pigs"
+	print "(R)un"
+	print "(F)ight"
+	print
+	input "What do you want to do? ";x$
+		if x$="G" goto @pgun
+		if x$ = "D" goto @damage
+		if x$ = "N" goto @ncops
+		if x$ = "R" goto @run
+		if X$="F" goto @fight
+	goto @police
+£pgun
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "You have ";g;" guns.
+	print
+	gosub @wait
+	goto @police
+£damage
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "Your current damage is ";bb;"."
+	print
+	print "50 and you die!"
+	print
+	gosub @wait
+	goto @police
+£ncops
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "There are ";b;" pigs still chasing you!"
+	print
+	print
+	gosub @wait
+	goto @police
+£run
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "RUNNING..."
+	gosub @timera
+	k=int(rnd(1)+.5)
+		if k = 0 then print "You lost them in an alley!" : goto @loserun
+	print "You can't shake them!"
+	print
+	gosub @wait
+	goto @police
+£loserun
+	print
+	gosub @wait
+	goto @menu
+£fight
+	if g<=0 then print : print : print "YOU DON'T HAVE ANY GUNS!" : gosub @wait : goto @police
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print "You shoot!"
+	gosub @timera
+	k = rnd(1)
+	k = int(k+.5)
+		If K=0 THEN GOTO @miss
+	print "You got one!" : b = b-1 : goto @next
+£miss 
+	print "You missed!"
+£next
+	print
+	print
+		If b <= 0 THEN goto @allgone
+	gosub @timerb
+	print "They're firing at you!"
+	gosub @timera
+	k = rnd(1)
+	k = int(k+.5)
+		if k=0 then goto @theymiss
+	print "You've been hit!"
+	bb=bb+3
+	if bb >= 50 goto @ded
+	goto @nexta
+£theymiss
+	print "They missed!"
+£nexta
+	gosub @wait
+	goto @police
+£ded
+	print
+	print "You've been killed!"
 	gosub @wait
-	goto @menu {goto @police}
+	goto @endgame
+
+£allgone
+	print "You killed all of them!"
+	print
+	gosub @timera
+	j=int((rnd(1)*1250)+750)
+	w=w+j
+	print "You found $";j;" on officer Hardass'" 
+	print "carcass!"
+		if w>=1200 then goto @doctor
+	gosub @wait
+	goto @menu
+£doctor
+	gosub @timera
+	print
+	print "Will you pay $1000 for a doctor"
+	input "to sew you up? (Y/N)";x$
+		if X$ <> "Y" then goto @menu
+	w=w-1000
+	bb=0
+
 £gunbuy
-	if w < 500 THEN return
+	if w < 500 THEN goto @nothinghappened
 	f=int(i-(m+n+o+u+t+p))
-	if f < 5 THEN return
+	if f < 5 THEN goto @nothinghappened
 	j=int(rnd(1)*2)
 		if j = 0 then y$ = "Baretta"
 		if j = 1 then y$ = "Saturday Night Special"
@@ -419,7 +563,7 @@ conditions on how/when we run cops
 		w=int(w-200)
 		goto @menu
 £dedguy
-	If f<8 THEN return {only if you have enough freespace}
+	If f<8 THEN goto @nothinghappens {only if you have enough freespace}
 	j=int((rnd(1)*7)+1.5)
 	k=int(rnd(1)*5+.5)
 		if k=0 THEN q=q+j : y$ = "Ludes"
@@ -518,7 +662,7 @@ conditions on how/when we run cops
 	home
 	gosub @titlebar
 	print chr$(10)
-	print "Welcome to DRUGWAR//e Beta 8"
+	print "Welcome to DRUGWAR//e Beta 9"
 	print chr$(10)
 	print chr$(10)
 	input "Would you like instructions? (Y/N): ";X$
@@ -541,7 +685,6 @@ conditions on how/when we run cops
 	q=0
 	gosub @daily {the only time we'll call this outside of the subway}
 	goto @menu {the real start of the game}
-£police