dewdude
/
drugwar2e
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

oops

Browse Source
master
Jay 6 years ago
parent a6a923a8ff
commit bdb2c90cfa
1 changed files with 167 additions and 168 deletions
Show Stats Download Patch File Download Diff File

335
DRUGWAR2e.bas
Unescape Escape View File

@ -1,5 +1,5 @@
1 1
2 RV=1.05:GOTO308 2 RV=1.05:GOTO307
3 3
4 POKE36,0:POKE37,1:CALL -958:INVERSE:?" ":NORMAL:?:?:RETURN 4 POKE36,0:POKE37,1:CALL -958:INVERSE:?" ":NORMAL:?:?:RETURN
5 5
@ -49,12 +49,12 @@
49 ?"YOU NEED TO HEAD TO THE BRONX":?"TO TAKE CARE OF THIS BUSINESS." 49 ?"YOU NEED TO HEAD TO THE BRONX":?"TO TAKE CARE OF THIS BUSINESS."
50 GOSUB24:GOTO65 50 GOSUB24:GOTO65
51 51
52 IFAD>=3THENGOTO315 52 IFAD>=3THENGOTO314
53 RETURN 53 RETURN
54 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) 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 56
57 IFD>=31GOTO320:RETURN 57 IFD>=31GOTO319:RETURN
58 58
59 K=(W+E)-V:IFK<0THENK=0:RETURN 59 K=(W+E)-V:IFK<0THENK=0:RETURN
60 K=INT(SQR((K/31.5)+.5)):IFK>100THENK=100 60 K=INT(SQR((K/31.5)+.5)):IFK>100THENK=100
@ -127,15 +127,15 @@
127 GOTO168 127 GOTO168
128 128
129 GOSUB4:INVERSE:GOSUB10:?"LOAN SHARK":NORMAL:?:GOSUB48:?"YOUR DEBT IS:$";V:?"YOU HAVE:$";W:?:INPUT"(R)EPAY, (B)ORROW, (L)EAVE:";X$ 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 130 IFX$="R"THENGOTO284
131 IFX$="B"THENGOTO290 131 IFX$="B"THENGOTO289
132 IFX$="L"THENGOTO65 132 IFX$="L"THENGOTO65
133 GOTO129 133 GOTO129
134 134
135 GOSUB4:INVERSE:GOSUB8:?"BANK O'MURICA":NORMAL:?:GOSUB48:?"YOUR BALANCE:$";E:?"YOUR WALLET:$";W:? 135 GOSUB4:INVERSE:GOSUB8:?"BANK O'MURICA":NORMAL:?:GOSUB48:?"YOUR BALANCE:$";E:?"YOUR WALLET:$";W:?
136 INPUT"(D)EPOSIT, (W)ITHDRAW, (L)EAVE:";X$ 136 INPUT"(D)EPOSIT, (W)ITHDRAW, (L)EAVE:";X$
137 IFX$="D"THENGOTO296 137 IFX$="D"THENGOTO295
138 IFX$="W"THENGOTO303 138 IFX$="W"THENGOTO302
139 IFX$="L"THENGOTO65 139 IFX$="L"THENGOTO65
140 GOTO135 140 GOTO135
141 141
@ -166,165 +166,164 @@
166 GOSUB4:GOSUB18:?:?"YOU'RE ALREADY IN:":HTAB15:? P$:GOSUB24:GOTO113 166 GOSUB4:GOSUB18:?:?"YOU'RE ALREADY IN:":HTAB15:? P$:GOSUB24:GOTO113
167 167
168 GOSUB4:GOSUB55:V=INT(V*1.1+.5):E=INT(E*1.06+.5):INVERSE:GOSUB14:?"SUBWAY":NORMAL:?:? 168 GOSUB4:GOSUB55:V=INT(V*1.1+.5):E=INT(E*1.06+.5):INVERSE:GOSUB14:?"SUBWAY":NORMAL:?:?
169 IFB=1THENGOTO190 169 IFB=1GOTO189
170 IFB=2THENGOTO192 170 IFB=2GOTO191
171 IFB=3THENGOTO194 171 IFB=3GOTO193
172 IFB=4THENGOTO196 172 IFB=4GOTO195
173 IFB=5THENGOTO196 173 IFB=5GOTO195
174 IFB=6THENGOTO198 174 IFB=6GOTO197
175 IFB=7THENGOTO198 175 IFB=7GOTO197
176 IFB=8THENGOTO200 176 IFB=8GOTO199
177 IFB=9THENGOTO202 177 IFB=9GOTO201
178 IFB=10THENGOTO202 178 IFB=10GOTO201
179 IFB=11THENGOTO202 179 IFB=11GOTO201
180 IFB=12THENGOTO255 180 IFB=12GOTO254
181 IFB=13THENGOTO255 181 IFB=13GOTO254
182 IFB=14THENGOTO263 182 IFB=14GOTO262
183 IFB=15THENGOTO267 183 IFB=15GOTO266
184 IFB=16THENGOTO272 184 IFB=16GOTO271
185 IFB=17THENGOTO283 185 IFB=17GOTO282
186 186
187 187 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65
188 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65 188
189 189 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65
190 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65 190
191 191 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65
192 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65 192
193 193 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65
194 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65 194
195 195 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65
196 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65 196
197 197 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65
198 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65 198
199 199 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65
200 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65 200
201 201 GOSUB42:IFF<I/2THENGOTO187
202 GOSUB42:IFF<I/2THENGOTO187 202 IFB=9THENB=2
203 IFB=9THENB=2 203 IFB=10THENB=4
204 IFB=10THENB=4 204 IFB=11THENB=5
205 IFB=11THENB=5 205 ?"IT'S THE COPS!":?:?"OFFICER HARDASS AND ";B-1;"OF HIS":?"DEPUTIES ARE AFTER YOU!":?:GOSUB24:GOTO207
206 ?"IT'S THE COPS!":?:?"OFFICER HARDASS AND ";B-1;"OF HIS":?"DEPUTIES ARE AFTER YOU!":?:GOSUB24:GOTO208 206
207 207 GOSUB4:GOSUB44:?:?:?"VIEW (G)UNS":?"VIEW (D)AMAGE":?"(N)UMBER OF PIGS":?"(R)UN":?"(F)IGHT":?
208 GOSUB4:GOSUB44:?:?:?"VIEW (G)UNS":?"VIEW (D)AMAGE":?"(N)UMBER OF PIGS":?"(R)UN":?"(F)IGHT":? 208 INPUT"WHAT DO YOU WANT TO DO?";X$
209 INPUT"WHAT DO YOU WANT TO DO?";X$ 209 IFX$="G"GOTO216
210 IFX$="G"GOTO217 210 IFX$="D"GOTO218
211 IFX$="D"GOTO219 211 IFX$="N"GOTO220
212 IFX$="N"GOTO221 212 IFX$="R"GOTO222
213 IFX$="R"GOTO223 213 IFX$="F"GOTO225
214 IFX$="F"GOTO226 214 GOTO207
215 GOTO208 215
216 216 GOSUB4:GOSUB44:?:?:?"YOU HAVE ";G;"GUNS.:?:GOSUB6:GOTO207
217 GOSUB4:GOSUB44:?:?:?"YOU HAVE ";G;"GUNS.:?:GOSUB6:GOTO208 217
218 218 GOSUB4:GOSUB44:?:?:?"YOUR HEALTH IS ";BB;".":?:?"0 AND YOU DIE!":?:GOSUB6:GOTO207
219 GOSUB4:GOSUB44:?:?:?"YOUR HEALTH IS ";BB;".":?:?"0 AND YOU DIE!":?:GOSUB6:GOTO208 219
220 220 GOSUB4:GOSUB44:?:?:?"THERE ARE ";B;"PIGS STILL CHASING YOU!":?:?:GOSUB6:GOTO207
221 GOSUB4:GOSUB44:?:?:?"THERE ARE ";B;"PIGS STILL CHASING YOU!":?:?:GOSUB6:GOTO208 221
222 222 GOSUB4:GOSUB44:?:?:?"RUNNING...":GOSUB20:IFK=0THEN?"YOU LOST THEM IN AN ALLEY!":GOSUB24:GOTO65
223 GOSUB4:GOSUB44:?:?:?"RUNNING...":GOSUB20:IFK=0THEN?"YOU LOST THEM IN AN ALLEY!":GOSUB24:GOTO65 223 ?"YOU CAN'T SHAKE THEM!":?:GOTO232
224 ?"YOU CAN'T SHAKE THEM!":?:GOTO233 224
225 225 IFG<=0THEN?:?:?"YOU DON'T HAVE ANY GUNS!":GOSUB6:GOTO207
226 IFG<=0THEN?:?:?"YOU DON'T HAVE ANY GUNS!":GOSUB6:GOTO208 226 GOSUB4:GOSUB44
227 GOSUB4:GOSUB44 227 ?:?"YOU SHOOT!":GOSUB20:IFK=0THENGOTO230
228 ?:?"YOU SHOOT!":GOSUB20:IFK=0THENGOTO231 228 ?"YOU GOT ONE!":B=B-1: GOTO232
229 ?"YOU GOT ONE!":B=B-1: GOTO233 229
230 230 ?"YOU MISSED!"
231 ?"YOU MISSED!" 231
232 232 ?:?:IFB<=0THENGOTO243
233 ?:?:IFB<=0THENGOTO244 233 GOSUB22:?"THEY'RE FIRING AT YOU!":GOSUB20:IFK=0THENGOTO237
234 GOSUB22:?"THEY'RE FIRING AT YOU!":GOSUB20:IFK=0THENGOTO238 234 ?"YOU'VE BEEN HIT!":BB=BB-6:IFBB>=0GOTO241
235 ?"YOU'VE BEEN HIT!":BB=BB-6:IFBB>=0GOTO242 235 GOTO239
236 GOTO240 236
237 237 ?"THEY MISSED!"
238 ?"THEY MISSED!" 238
239 239 GOSUB20:GOTO207
240 GOSUB20:GOTO208 240
241 241 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO319
242 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO320 242
243 243 ?"YOU KILLED ALL OF THEM!":?:GOSUB20
244 ?"YOU KILLED ALL OF THEM!":?:GOSUB20 244 J=INT(((RND(1)*1250)+750)+.5):W=W+J
245 J=INT(((RND(1)*1250)+750)+.5):W=W+J 245 ?"YOU FOUND $";J;"ON OFFICER HARDASS'"
246 ?"YOU FOUND $";J;"ON OFFICER HARDASS'" 246 ?"CARCASS!"
247 ?"CARCASS!" 247 IFW>=1200THENGOTO250
248 IFW>=1200THENGOTO251 248 GOTO65
249 GOTO65 249
250 250 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$
251 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$ 251 IFX$<>"Y"THENGOTO65
252 IFX$<>"Y"THENGOTO65 252 W=W-1000:BB=100:GOTO65
253 W=W-1000:BB=100:GOTO65 253
254 254 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187
255 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187 255 J=INT((RND(1)*2)+.5)
256 J=INT((RND(1)*2)+.5) 256 IFJ=0THENY$="BARETTA"
257 IFJ=0THENY$="BARETTA" 257 IFJ=1THENY$="SATURDAY NIGHT SPECIAL"
258 IFJ=1THENY$="SATURDAY NIGHT SPECIAL" 258 IFJ=2THENY$=".44 MAGNUM"
259 IFJ=2THENY$=".44 MAGNUM" 259 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65
260 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65 260 G=G+1:W=W-400:GOTO65
261 G=G+1:W=W-400:GOTO65 261
262 262 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$
263 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$ 263 IFX$="Y"THENGOTO316
264 IFX$="Y"THENGOTO317 264 GOTO65
265 GOTO65 265
266 266 IFW<300THENGOTO187
267 IFW<300THENGOTO188 267 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$
268 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$ 268 IFX$<>"Y"THENGOTO65
269 IFX$<>"Y"THENGOTO65 269 I=I+10:W=W-200:GOTO65
270 I=I+10:W=W-200:GOTO65 270
271 271 GOSUB42
272 GOSUB42 272 IFF<8THENGOTO187
273 IFF<8THENGOTO188 273 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5)
274 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5) 274 IFK=0THENQ=Q+J:Y$="LUDES"
275 IFK=0THENQ=Q+J:Y$="LUDES" 275 IFK=1THENT=T+J:Y$="SPEED"
276 IFK=1THENT=T+J:Y$="SPEED" 276 IFK=2THENU=U+J:Y$="WEED"
277 IFK=2THENU=U+J:Y$="WEED" 277 IFK=3THENO=O+J:Y$="ACID"
278 IFK=3THENO=O+J:Y$="ACID" 278 IFK=4THENN=N+J:Y$="HEROIN"
279 IFK=4THENN=N+J:Y$="HEROIN" 279 IFK=5THENM=M+J:Y$="COKE"
280 IFK=5THENM=M+J:Y$="COKE" 280 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65
281 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65 281
282 282 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65
283 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65 283
284 284 INPUT"REPAY HOW MUCH?";K:IFK=0THEN?"GET OUT OF HERE, LOSER!":GOSUB22:GOTO65
285 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>WTHEN?:?"YOU DON'T HAVE THAT MUCH!":GOSUB22:GOTO129 286 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129
287 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129 287 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65
288 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65 288
289 289 ?:J=INT((RND(1)*10000)+4000):INPUT"HOW MUCH DO YOU WANT?";K:?:IFK=0GOTO65
290 ?: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<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>14000THEN?"HE'S NOT THAT STUPID!":GOSUB24:GOTO65 292 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65
293 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65 293 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?"
294 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?" 294
295 295 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65
296 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65 296 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO295
297 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO296 297 IFK=2THENGOTO300
298 IFK=2THENGOTO301 298 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65
299 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65 299
300 300 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65
301 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65 301
302 302 ?:INPUT"HOW MUCH?";J
303 ?:INPUT"HOW MUCH?";J 303 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135
304 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135 304 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO302
305 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO303 305 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65
306 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65 306
307 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 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 VTAB19:INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y/N):";X$:J =RND(-1 *(PEEK(78)+256*PEEK(79))):IFX$="Y"THENGOTO312 309 GOTO63
310 GOTO63 310
311 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 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 ?:?"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 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 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 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 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 HTAB10:?"JUST SAY NO TO DRUGS!":SPEED=255:GOSUB24:GOSUB22:GOTO324 318
319 319 GOSUB4:GOSUB59:GOSUB46:?:?"YOUR SCORE ON A SCALE OF 1 TO 100:";K:?
320 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 INPUT"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$:IFX$="Y"THENGOTO63 321 ?"THANKS FOR PLAYING.":?"
322 ?"THANKS FOR PLAYING.":?" 322
323 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 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 CLEAR:END 325 REM DRUGWAR//E - VERSION 1.05 (fixed)
326 REM DRUGWAR//E - VERSION 1.05 326 REM 5-NOV-2018
327 REM 5-NOV-2018 327 REM COPYRIGHT 2018 JAY MOORE
328 REM COPYRIGHT 2018 JAY MOORE 328 REM GITLAB.COM/DEWDUDE/DRUGWAR2E
330 REM GITLAB.COM/DEWDUDE/DRUGWAR2E 329 REM TWITTER:_NQ4T
331 REM TWITTER: _NQ4T

Write Preview
Loading…
Cancel
Save