From bdb2c90cfaee678963fba2453447d8fbab571986 Mon Sep 17 00:00:00 2001 From: dewdude Date: Mon, 5 Nov 2018 23:47:25 -0500 Subject: [PATCH] oops --- DRUGWAR2e.bas | 335 +++++++++++++++++++++++++------------------------- 1 file changed, 167 insertions(+), 168 deletions(-) diff --git a/DRUGWAR2e.bas b/DRUGWAR2e.bas index 97a88dd..50d3f5d 100644 --- a/DRUGWAR2e.bas +++ b/DRUGWAR2e.bas @@ -1,5 +1,5 @@ 1 -2 RV=1.05:GOTO308 +2 RV=1.05:GOTO307 3 4 POKE36,0:POKE37,1:CALL -958:INVERSE:?" ":NORMAL:?:?:RETURN 5 @@ -49,12 +49,12 @@ 49 ?"YOU NEED TO HEAD TO THE BRONX":?"TO TAKE CARE OF THIS BUSINESS." 50 GOSUB24:GOTO65 51 -52 IFAD>=3THENGOTO315 +52 IFAD>=3THENGOTO314 53 RETURN 54 55 C=INT(RND(1)*12000+16000.5):H=INT(RND(1)*7000+5000.5):A=INT((RND(1)*34+10)*100+.5):Z=INT((RND(1)*42+33)*10+.5):S=INT((RND(1)*15+7)*10+.5):L=INT((RND(1)*4+1)*10+.5):B=INT(RND(1)*20+.5):D=D+1:AC=INT(((RND(1)*3)+1)*-1) 56 -57 IFD>=31GOTO320:RETURN +57 IFD>=31GOTO319:RETURN 58 59 K=(W+E)-V:IFK<0THENK=0:RETURN 60 K=INT(SQR((K/31.5)+.5)):IFK>100THENK=100 @@ -127,15 +127,15 @@ 127 GOTO168 128 129 GOSUB4:INVERSE:GOSUB10:?"LOAN SHARK":NORMAL:?:GOSUB48:?"YOUR DEBT IS:$";V:?"YOU HAVE:$";W:?:INPUT"(R)EPAY, (B)ORROW, (L)EAVE:";X$ -130 IFX$="R"THENGOTO285 -131 IFX$="B"THENGOTO290 +130 IFX$="R"THENGOTO284 +131 IFX$="B"THENGOTO289 132 IFX$="L"THENGOTO65 133 GOTO129 134 135 GOSUB4:INVERSE:GOSUB8:?"BANK O'MURICA":NORMAL:?:GOSUB48:?"YOUR BALANCE:$";E:?"YOUR WALLET:$";W:? 136 INPUT"(D)EPOSIT, (W)ITHDRAW, (L)EAVE:";X$ -137 IFX$="D"THENGOTO296 -138 IFX$="W"THENGOTO303 +137 IFX$="D"THENGOTO295 +138 IFX$="W"THENGOTO302 139 IFX$="L"THENGOTO65 140 GOTO135 141 @@ -166,165 +166,164 @@ 166 GOSUB4:GOSUB18:?:?"YOU'RE ALREADY IN:":HTAB15:? P$:GOSUB24:GOTO113 167 168 GOSUB4:GOSUB55:V=INT(V*1.1+.5):E=INT(E*1.06+.5):INVERSE:GOSUB14:?"SUBWAY":NORMAL:?:? -169 IFB=1THENGOTO190 -170 IFB=2THENGOTO192 -171 IFB=3THENGOTO194 -172 IFB=4THENGOTO196 -173 IFB=5THENGOTO196 -174 IFB=6THENGOTO198 -175 IFB=7THENGOTO198 -176 IFB=8THENGOTO200 -177 IFB=9THENGOTO202 -178 IFB=10THENGOTO202 -179 IFB=11THENGOTO202 -180 IFB=12THENGOTO255 -181 IFB=13THENGOTO255 -182 IFB=14THENGOTO263 -183 IFB=15THENGOTO267 -184 IFB=16THENGOTO272 -185 IFB=17THENGOTO283 +169 IFB=1GOTO189 +170 IFB=2GOTO191 +171 IFB=3GOTO193 +172 IFB=4GOTO195 +173 IFB=5GOTO195 +174 IFB=6GOTO197 +175 IFB=7GOTO197 +176 IFB=8GOTO199 +177 IFB=9GOTO201 +178 IFB=10GOTO201 +179 IFB=11GOTO201 +180 IFB=12GOTO254 +181 IFB=13GOTO254 +182 IFB=14GOTO262 +183 IFB=15GOTO266 +184 IFB=16GOTO271 +185 IFB=17GOTO282 186 -187 -188 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65 -189 -190 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65 -191 -192 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65 -193 -194 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65 -195 -196 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65 -197 -198 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65 -199 -200 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65 -201 -202 GOSUB42:IFF=0GOTO242 -236 GOTO240 -237 -238 ?"THEY MISSED!" -239 -240 GOSUB20:GOTO208 -241 -242 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO320 -243 -244 ?"YOU KILLED ALL OF THEM!":?:GOSUB20 -245 J=INT(((RND(1)*1250)+750)+.5):W=W+J -246 ?"YOU FOUND $";J;"ON OFFICER HARDASS'" -247 ?"CARCASS!" -248 IFW>=1200THENGOTO251 -249 GOTO65 -250 -251 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$ -252 IFX$<>"Y"THENGOTO65 -253 W=W-1000:BB=100:GOTO65 -254 -255 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187 -256 J=INT((RND(1)*2)+.5) -257 IFJ=0THENY$="BARETTA" -258 IFJ=1THENY$="SATURDAY NIGHT SPECIAL" -259 IFJ=2THENY$=".44 MAGNUM" -260 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65 -261 G=G+1:W=W-400:GOTO65 -262 -263 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$ -264 IFX$="Y"THENGOTO317 -265 GOTO65 -266 -267 IFW<300THENGOTO188 -268 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$ -269 IFX$<>"Y"THENGOTO65 -270 I=I+10:W=W-200:GOTO65 -271 -272 GOSUB42 -273 IFF<8THENGOTO188 -274 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5) -275 IFK=0THENQ=Q+J:Y$="LUDES" -276 IFK=1THENT=T+J:Y$="SPEED" -277 IFK=2THENU=U+J:Y$="WEED" -278 IFK=3THENO=O+J:Y$="ACID" -279 IFK=4THENN=N+J:Y$="HEROIN" -280 IFK=5THENM=M+J:Y$="COKE" -281 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65 -282 -283 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65 -284 -285 INPUT"REPAY HOW MUCH?";K:IFK=0THEN?"GET OUT OF HERE, LOSER!":GOSUB22:GOTO65 -286 IFK>WTHEN?:?"YOU DON'T HAVE THAT MUCH!":GOSUB22:GOTO129 -287 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129 -288 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65 -289 -290 ?:J=INT((RND(1)*10000)+4000):INPUT"HOW MUCH DO YOU WANT?";K:?:IFK=0GOTO65 -291 IFK<0THEN?"TRYING TO CHEAT? DOUBLE DEBT!":AD=AD+3:V=V*2:GOSUB24:GOSUB52:GOTO65 -292 IFK>14000THEN?"HE'S NOT THAT STUPID!":GOSUB24:GOTO65 -293 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65 -294 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?" -295 -296 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65 -297 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO296 -298 IFK=2THENGOTO301 -299 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65 -300 -301 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65 -302 -303 ?:INPUT"HOW MUCH?";J -304 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135 -305 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO303 -306 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65 -307 -308 HOME:VTAB2:HTAB10:?"WELCOME TO DRUGWAR//E":HTAB14:?"VERSION ";RV:VTAB8:HTAB3:?"BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:?"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME.":VTAB12:HTAB6:?"APPLESOFT VERSION BY:JAY MOORE" -309 VTAB19:INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y/N):";X$:J =RND(-1 *(PEEK(78)+256*PEEK(79))):IFX$="Y"THENGOTO312 -310 GOTO63 -311 -312 HOME:?:?"THIS IS A GAME OF BUYING AND SELLING.":?"YOUR GOAL IS TO PAY OFF YOUR DEBT AND":?"MAKE AS MUCH MONEY AS POSSIBLE IN A ONE":?"MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL." -313 ?:?"IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE.":?:?"COMMANDS ARE ENTERED USING THE LETTER HIGHLIGHTED (L)IKE (S)O. Y IS YES AND ANYTHING COUNTS AS NO.":GOSUB6:GOTO63 -314 -315 HOME:HTAB8:VTAB10:?"PUT A QUARTER IN YOUR ASS":GOSUB22:HTAB7:?"'CAUSE YOU PLAYED YOURSELF!":GOSUB24:GOSUB24:VTAB19:HTAB11:?"DON'T CHEAT SO MUCH.":GOSUB24:GOSUB24:GOSUB24:CLEAR:END -316 -317 GOSUB4:INVERSE:GOSUB8:?"SMOKE WEED":NORMAL:SPEED=50:?"YOU HALLUCINATE ON THE WILDEST TRIP":?"OF YOUR LIFE, STUMBLE ON TO THE TRACKS,":?"AND GET CREAMED BY A TRAIN!":?:? -318 HTAB10:?"JUST SAY NO TO DRUGS!":SPEED=255:GOSUB24:GOSUB22:GOTO324 -319 -320 GOSUB4:GOSUB59:GOSUB46:?:?"YOUR SCORE ON A SCALE OF 1 TO 100:";K:? -321 INPUT"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$:IFX$="Y"THENGOTO63 -322 ?"THANKS FOR PLAYING.":?" -323 -324 GOSUB4:GOSUB46:?:SPEED=50:?"YOU DIED FROM SMOKING WEED.":?:?:GOSUB24:?"SEE? GAMES ARE TOTALLY FAKE.":SPEED=255:?:INPUT"WOULD YOU LIKE TO PLAY AGAIN?";X$:IFX$= "Y"THENGOTO63 -325 CLEAR:END -326 REM DRUGWAR//E - VERSION 1.05 -327 REM 5-NOV-2018 -328 REM COPYRIGHT 2018 JAY MOORE -330 REM GITLAB.COM/DEWDUDE/DRUGWAR2E -331 REM TWITTER: _NQ4T \ No newline at end of file +187 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65 +188 +189 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65 +190 +191 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65 +192 +193 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65 +194 +195 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65 +196 +197 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65 +198 +199 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65 +200 +201 GOSUB42:IFF=0GOTO241 +235 GOTO239 +236 +237 ?"THEY MISSED!" +238 +239 GOSUB20:GOTO207 +240 +241 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO319 +242 +243 ?"YOU KILLED ALL OF THEM!":?:GOSUB20 +244 J=INT(((RND(1)*1250)+750)+.5):W=W+J +245 ?"YOU FOUND $";J;"ON OFFICER HARDASS'" +246 ?"CARCASS!" +247 IFW>=1200THENGOTO250 +248 GOTO65 +249 +250 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$ +251 IFX$<>"Y"THENGOTO65 +252 W=W-1000:BB=100:GOTO65 +253 +254 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187 +255 J=INT((RND(1)*2)+.5) +256 IFJ=0THENY$="BARETTA" +257 IFJ=1THENY$="SATURDAY NIGHT SPECIAL" +258 IFJ=2THENY$=".44 MAGNUM" +259 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65 +260 G=G+1:W=W-400:GOTO65 +261 +262 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$ +263 IFX$="Y"THENGOTO316 +264 GOTO65 +265 +266 IFW<300THENGOTO187 +267 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$ +268 IFX$<>"Y"THENGOTO65 +269 I=I+10:W=W-200:GOTO65 +270 +271 GOSUB42 +272 IFF<8THENGOTO187 +273 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5) +274 IFK=0THENQ=Q+J:Y$="LUDES" +275 IFK=1THENT=T+J:Y$="SPEED" +276 IFK=2THENU=U+J:Y$="WEED" +277 IFK=3THENO=O+J:Y$="ACID" +278 IFK=4THENN=N+J:Y$="HEROIN" +279 IFK=5THENM=M+J:Y$="COKE" +280 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65 +281 +282 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65 +283 +284 INPUT"REPAY HOW MUCH?";K:IFK=0THEN?"GET OUT OF HERE, LOSER!":GOSUB22:GOTO65 +285 IFK>WTHEN?:?"YOU DON'T HAVE THAT MUCH!":GOSUB22:GOTO129 +286 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129 +287 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65 +288 +289 ?:J=INT((RND(1)*10000)+4000):INPUT"HOW MUCH DO YOU WANT?";K:?:IFK=0GOTO65 +290 IFK<0THEN?"TRYING TO CHEAT? DOUBLE DEBT!":AD=AD+3:V=V*2:GOSUB24:GOSUB52:GOTO65 +291 IFK>14000THEN?"HE'S NOT THAT STUPID!":GOSUB24:GOTO65 +292 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65 +293 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?" +294 +295 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65 +296 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO295 +297 IFK=2THENGOTO300 +298 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65 +299 +300 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65 +301 +302 ?:INPUT"HOW MUCH?";J +303 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135 +304 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO302 +305 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65 +306 +307 HOME:VTAB2:HTAB10:?"WELCOME TO DRUGWAR//E":HTAB14:?"VERSION ";RV:VTAB8:HTAB3:?"BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:?"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME.":VTAB12:HTAB6:?"APPLESOFT VERSION BY:JAY MOORE" +308 VTAB19:INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y/N):";X$:J =RND(-1 *(PEEK(78)+256*PEEK(79))):IFX$="Y"THENGOTO311 +309 GOTO63 +310 +311 HOME:?:?"THIS IS A GAME OF BUYING AND SELLING.":?"YOUR GOAL IS TO PAY OFF YOUR DEBT AND":?"MAKE AS MUCH MONEY AS POSSIBLE IN A ONE":?"MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL." +312 ?:?"IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE.":?:?"COMMANDS ARE ENTERED USING THE LETTER HIGHLIGHTED (L)IKE (S)O. Y IS YES AND ANYTHING COUNTS AS NO.":GOSUB6:GOTO63 +313 +314 HOME:HTAB8:VTAB10:?"PUT A QUARTER IN YOUR ASS":GOSUB22:HTAB7:?"'CAUSE YOU PLAYED YOURSELF!":GOSUB24:GOSUB24:VTAB19:HTAB11:?"DON'T CHEAT SO MUCH.":GOSUB24:GOSUB24:GOSUB24:CLEAR:END +315 +316 GOSUB4:INVERSE:GOSUB8:?"SMOKE WEED":NORMAL:SPEED=50:?"YOU HALLUCINATE ON THE WILDEST TRIP":?"OF YOUR LIFE, STUMBLE ON TO THE TRACKS,":?"AND GET CREAMED BY A TRAIN!":?:? +317 HTAB10:?"JUST SAY NO TO DRUGS!":SPEED=255:GOSUB24:GOSUB22:GOTO323 +318 +319 GOSUB4:GOSUB59:GOSUB46:?:?"YOUR SCORE ON A SCALE OF 1 TO 100:";K:? +320 INPUT"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$:IFX$="Y"THENGOTO63 +321 ?"THANKS FOR PLAYING.":?" +322 +323 GOSUB4:GOSUB46:?:SPEED=50:?"YOU DIED FROM SMOKING WEED.":?:?:GOSUB24:?"SEE? GAMES ARE TOTALLY FAKE.":SPEED=255:?:INPUT"WOULD YOU LIKE TO PLAY AGAIN?";X$:IFX$= "Y"THENGOTO63 +324 CLEAR:END +325 REM DRUGWAR//E - VERSION 1.05 (fixed) +326 REM 5-NOV-2018 +327 REM COPYRIGHT 2018 JAY MOORE +328 REM GITLAB.COM/DEWDUDE/DRUGWAR2E +329 REM TWITTER:_NQ4T