BETA 7(early?)

drugwar2e.baz

@@ -1,5 +1,5 @@
 [
-Drugwar //e beta-6
+Drugwar //e beta-7
 (c) 2018 Jay Moore
 Licensed under GPLv3
 ]
@@ -181,22 +181,7 @@ conditions on how/when we run cops
 	a=int((rnd(1)*550)+250.5)
 	gosub @wait
 	goto @menu
-		
-£loan
-	home
-	gosub @titlebar
-	print chr$(10)
-	print "Loan shark not implemented.
-	gosub @wait
-	goto @menu
 
-£bank
-	home
-	gosub @titlebar
-	print chr$(10)
-	print "Bank not implemented."
-	gosub @wait
-	goto @menu
 	
 
 	
@@ -428,7 +413,7 @@ works.
 £ludsell
 	home
 	gosub @titlebar
-	inverse:print"             SELL COCAINE               ":normal
+	inverse:print"              SELL  LUDES               ":normal
 	print chr$(10)
 	j=li
 	gosub @howmuchsell
@@ -484,6 +469,68 @@ works.
 	input "Press ENTER to continue. ";X$
 	goto @menu
 	
+£notbronx
+	print "you need to head to the bronx"
+	print "to take care of this business."
+	gosub @wait
+	goto @menu
+		
+£loan
+	home
+	gosub @titlebar
+	inverse : print "         LOAN SHARK         "
+	print chr$(10)
+	if p$ <> "THE BRONX" then goto @notbronx
+	print "Your debt is: $";ls
+	print "You have: $";wa
+	print chr$(10)
+	input "(R)epay, (B)orrow, (L)eave: ";X$
+		If X$ = "R" THEN goto @payme
+		If X$ = "B" Then goto @borrow
+		If X$ = "L" then goto @Menu
+	goto @loan
+£payme
+	INPUT "Repay how much? ";PL
+		IF PL>WA THEN PRINT "YOU DON'T HAVE THAT MUCH!" : INPUT "PRESS ENTER TO CONTINUE. ";X$ : GOTO @LOAN
+	WA=WA-PL
+	LS=LS-PL
+	PRINT "THANK YOU." 
+	GOSUB @WAIT
+	GOTO @MENU
+		
+		
+
+£bank
+	home
+	gosub @titlebar
+	inverse : print "         BANK O'MURICA         "
+	print chr$(10)
+	if p$ <> "THE BRONX" then goto @notbronx
+	print "Your balance: $";sa
+	print "Your wallet: $";sa
+	print chr$(10)
+	INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
+		if x$ = "d" then goto @deposit
+		if x$ = "w" then goto @mymoney
+		if x$ = "l" then goto @menu
+	goto @bank
+	
+£deposit
+	INPUT "How much? ";dl
+		If dl>wa then print "You don't have that much cash." : goto @deposit
+	sa=sa+dl
+	wa=wa-dl
+	Print "Thank you for your deposit."
+	gosub @wait
+	goto @menu
+£mymoney
+	INPUT "How much? ";dl
+		If dl>sa then print "You don't have sufficient funds." : goto @mymoney
+	sa=sa-dl
+	wa=wa+dl
+	print "Thank you for your business."
+	gosub @wait
+	goto @menu
 
 £instructions
 	home
@@ -544,32 +591,50 @@ works.
 	print "Just say NO to drugs!"
 	gosub @wait
 	goto @ironicend
+
+£scorecalculate
+	sc=(wa+sa)-ls
+	if sc<0 THEN sc=0 : return
+	sc=sqr((sc/31.5)+.5)
+	sc=int(sc)
+	if sc>100 then sc=100
+	return
+	
 £endgame
 	home
 	gosub @titlebar
+	gosub @scorecalculate
 	inverse : print "       GAME OVER          " : NORMAL
 	print chr$(10)
-	print "Thanks for playing."
-	print "At this point I'm supposlisted to calculate"
-	print "your final score and all that. But this"
-	print "is an alpha release. So it's not done."
+	print "Your score on a scale of 1 to 100: ";sc
 	print chr$(10)
-	print "At least you didn't die from smoking"
-	print "that weed in the subway. Good job."
+	input "Would you like to play again? (Y/N)";pa$
+	if pa$ = "Y" then goto @gamestart
+	print "Thanks for playing."
+	print "Remember...watch your back."
+	print "Have a nice day!"
 	gosub @anticheat
 	end
 
 £ironicend
 	home
 	gosub @titlebar
+	gosub @scorecalculate
 	inverse : print "       GAME OVER          " : NORMAL
 	print chr$(10)
-	print "Oh wow man. You died...from smoking pot"
-	print "in a game about drug dealing."
+	print "Your final score is: ";sc
 	print chr$(10)
-	print "Well, thanks for playing."
+	print "But you died from smoking weed? In a"
+	print "game about dealing drugs? Buddy, no"
+	print "score can redeem that stupidity."
+	print chr$(10)
+	input "Would you like to play again? ";pa$
+	if pa$= "Y" THEN GOTO @GAMESTART
+	if pa$= "N" THEN PRINT "I don't blame you." : end
+	print "What? If you're that dumb, I'm leaving."
 	gosub @anticheat
 	end
+
 £anticheat {clears out all variables at endgame to force a start-over}
 	wa=2000
 	sa=0