diff --git a/drugwar2e.baz b/drugwar2e.baz index 42e5ecc..eaf79dc 100644 --- a/drugwar2e.baz +++ b/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