You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
766 lines
18 KiB
QBasic
766 lines
18 KiB
QBasic
10 rem drugwar64v101.bas - 29/10/2018 - 04h45
|
|
20 rem drugwar/64 - version 1.01
|
|
30 rem codebase: drugwar//e 1.03
|
|
40 rem ported by: jay moore
|
|
50 rem "damn that was annoying"
|
|
60 rem 28-oct-2018
|
|
70 rem copyright 2018 jay moore
|
|
80 rem released under gpl v3
|
|
90 rem drugwar2e.sourceforge.io
|
|
100 rem twitter: _nq4t
|
|
110 poke 646,1 : poke 53281,0 : poke 53280,0
|
|
120 rv=1.01
|
|
130 goto 6960
|
|
140 rem->titlebar
|
|
150 poke 214,0:poke 211,14:sys 58640 : ?"drugwar/64"
|
|
160 print chr$(18)" "
|
|
170 return
|
|
180 rem->wait
|
|
190 print
|
|
200 input "press enter to continue.";x$
|
|
210 return
|
|
220 rem->twofifteen
|
|
230 poke 214,1 : poke 211,14:sys 58640
|
|
240 return
|
|
250 rem->twosixteen
|
|
260 poke 214,1:poke 211,15:sys 58640
|
|
270 return
|
|
280 rem->twoseventeen
|
|
290 poke 214,1:poke 211,16:sys 58640
|
|
300 return
|
|
310 rem->twoeighteen
|
|
320 poke 214,1: poke 211,17:sys 58640
|
|
330 return
|
|
340 rem->twonineteen
|
|
350 poke 214,1:poke 211,18:sys 58640
|
|
360 return
|
|
370 rem->jetalthere
|
|
380 gosub 350:print chr$(18)"jet"
|
|
390 return
|
|
400 rem->timera
|
|
410 for j = 1 to 2500
|
|
420 next j
|
|
430 k = int(rnd(2)+.5)
|
|
440 return
|
|
450 rem->timerb
|
|
460 for j = 1 to 1000
|
|
470 next j
|
|
480 return
|
|
490 rem->timerc
|
|
500 for j = 1 to 2000
|
|
510 next j
|
|
520 return
|
|
530 rem->howmuchbuy
|
|
540 print "you can afford ";j
|
|
550 print "you can carry ";f
|
|
560 rem->howmanybuy
|
|
570 print
|
|
580 input "how many? (enter 0 cancel): ";k
|
|
590 if k=0 goto 1200
|
|
600 if k>f then print chr$(18)"you can't carry that much!" : goto 570
|
|
610 if k>j then print chr$(18)"you can't afford that much!" : goto 570
|
|
620 return
|
|
630 rem->howmuchsell
|
|
640 print "you can sell: ";j
|
|
650 print
|
|
660 rem->howmanysell
|
|
670 input "how many? (enter 0 to cancel.): ";k
|
|
680 if k>j then print "you don't have that many!" : goto 670
|
|
690 if k=0 goto 1200
|
|
700 return
|
|
710 rem->freespace
|
|
720 f=i-((g*5)+m+n+o+u+t+q)
|
|
730 return
|
|
740 rem->chase
|
|
750 gosub 230: print chr$(18)"being chased"
|
|
760 return
|
|
770 rem->gmod
|
|
780 gosub 260:print chr$(18)"game over"
|
|
790 return
|
|
800 rem->bronxcheck
|
|
810 if p$ = "the bronx" then return
|
|
820 print "you need to head to the bronx"
|
|
830 print "to take care of this business."
|
|
840 gosub 500
|
|
850 goto 1200
|
|
860 rem->daily
|
|
870 c=int(rnd(5)*12000+16000.5)
|
|
880 h=int(rnd(5)*7000+5000.5)
|
|
890 a=int((rnd(5)*34+10)*100+.5)
|
|
900 z=int((rnd(5)*42+33)*10+.5)
|
|
910 s=int((rnd(5)*15+7)*10+.5)
|
|
920 l=int((rnd(5)*4+1)*10+.5)
|
|
930 b=int(rnd(5)*20+.5)
|
|
940 d=d+1
|
|
950 rem->checkday
|
|
960 if d >= 31 goto 7400
|
|
970 return
|
|
980 rem->scorecalculate
|
|
990 k=(w+e)-v
|
|
1000 if k<0 then k=0 : return
|
|
1010 k=int(sqr((k/31.5)+.5))
|
|
1020 if k>100 then k=100
|
|
1030 return
|
|
1040 rem->gamestart
|
|
1050 w=2000
|
|
1060 e=0
|
|
1070 v=5000
|
|
1080 p$="the bronx"
|
|
1090 g=0
|
|
1100 i=100
|
|
1110 m=0
|
|
1120 n=0
|
|
1130 o=0
|
|
1140 u=0
|
|
1150 t=0
|
|
1160 q=0
|
|
1170 gosub 870
|
|
1180 goto 1200
|
|
1190 rem->menu
|
|
1200 print chr$(147)
|
|
1210 gosub 720
|
|
1220 gosub 150
|
|
1230 poke 214,1:poke 211,3:sys 58640:print chr$(18)"day: "d
|
|
1240 poke 214,1:poke 211,17:sys 58640:print chr$(18)"location: "p$
|
|
1250 print
|
|
1260 print "(c)heck prices"
|
|
1270 print "(t)renchcoat"
|
|
1280 print "(b)uy"
|
|
1290 print "(s)ell"
|
|
1300 print "(j)et"
|
|
1310 print "see (l)oan shark"
|
|
1320 print "(v)isit bank"
|
|
1330 print
|
|
1340 input "please make your selection: ";x$
|
|
1350 if x$ = "c" goto 1440
|
|
1360 if x$ = "t" goto 1580
|
|
1370 if x$ = "b" goto 1720
|
|
1380 if x$ = "s" goto 1930
|
|
1390 if x$ = "j" goto 2170
|
|
1400 if x$ = "l" goto 2420
|
|
1410 if x$ = "v" goto 2560
|
|
1420 goto 1200
|
|
1430 rem->prices
|
|
1440 print chr$(147)
|
|
1450 gosub 150
|
|
1460 gosub 320:print chr$(18)"prices"
|
|
1470 print
|
|
1480 print"cocaine:","$"c
|
|
1490 print"heroin:","$"h
|
|
1500 print"acid:","$"a
|
|
1510 print"weed:","$"z
|
|
1520 print"speed:","$"s
|
|
1530 print"ludes:","$"l
|
|
1540 print"wallet:","$"w
|
|
1550 gosub 190
|
|
1560 goto 1200
|
|
1570 rem->inventory
|
|
1580 print chr$(147)
|
|
1590 gosub 150
|
|
1600 gosub 260 :print chr$(18)"trenchcoat"
|
|
1610 print
|
|
1620 print"cocaine:",m
|
|
1630 print"heroin:",n
|
|
1640 print"acid:",o
|
|
1650 print"weed:",u
|
|
1660 print"speed:",t
|
|
1670 print"ludes:",q
|
|
1680 print"free space:",f
|
|
1690 gosub 190
|
|
1700 goto 1200
|
|
1710 rem->buy
|
|
1720 print chr$(147)
|
|
1730 gosub 150
|
|
1740 gosub 350: print chr$(18)"buy"
|
|
1750 print
|
|
1760 print"what do you want to buy?"
|
|
1770 print
|
|
1780 print "(c)ocaine"
|
|
1790 print "(h)eroin"
|
|
1800 print "(a)cid"
|
|
1810 print "(w)eed"
|
|
1820 print "(s)peed"
|
|
1830 print "(l)udes"
|
|
1840 input "enter selection: ";x$
|
|
1850 if x$="c" goto 2700
|
|
1860 if x$="h" goto 2790
|
|
1870 if x$="a" goto 2880
|
|
1880 if x$="w" goto 2970
|
|
1890 if x$="s" goto 3060
|
|
1900 if x$="l" goto 3150
|
|
1910 goto 1200
|
|
1920 rem->sell
|
|
1930 print chr$(147)
|
|
1940 gosub 150
|
|
1950 gosub 320: print chr$(18)"sell"
|
|
1960 print
|
|
1970 print "what would you like to sell?"
|
|
1980 print
|
|
1990 print "(c)ocaine"
|
|
2000 print "(h)eroin"
|
|
2010 print "(a)cid"
|
|
2020 print "(w)eed"
|
|
2030 print "(s)peed"
|
|
2040 print "(l)udes"
|
|
2050 rem->sellsel
|
|
2060 input "enter selection: (0 to cancel)";x$
|
|
2070 if x$="c" goto 3240
|
|
2080 if x$="h" goto 3340
|
|
2090 if x$="a" goto 3440
|
|
2100 if x$="w" goto 3540
|
|
2110 if x$="s" goto 3640
|
|
2120 if x$="l" goto 3740
|
|
2130 if x$="0" goto 1200
|
|
2140 print "invalid selection!"
|
|
2150 goto 2060
|
|
2160 rem->jet
|
|
2170 print chr$(147)
|
|
2180 gosub 150
|
|
2190 gosub 380
|
|
2200 print
|
|
2210 print "(b)ronx"
|
|
2220 print "(g)hetto"
|
|
2230 print "(c)entral park
|
|
2240 print "(m)anhattan"
|
|
2250 print "coney (i)sland"
|
|
2260 print "broo(k)lyn"
|
|
2270 print "(o)ops...stay!"
|
|
2280 input "where to dude? ";x$
|
|
2290 if x$="b" then y$ = "the bronx" : goto 2380
|
|
2300 if x$="g" then y$ = "the ghetto" : goto 2380
|
|
2310 if x$="c" then y$ = "central park" : goto 2380
|
|
2320 if x$="m" then y$ = "manhattan" : goto 2380
|
|
2330 if x$="i" then y$ = "coney island" : goto 2380
|
|
2340 if x$="k" then y$ = "brooklyn" : goto 2380
|
|
2350 if x$="o" then goto 1200
|
|
2360 goto 2170
|
|
2370 rem->jetb
|
|
2380 if y$=p$ then goto 3840
|
|
2390 p$ = y$ : y$ = ""
|
|
2400 goto 3930
|
|
2410 rem->loan
|
|
2420 print chr$(147)
|
|
2430 gosub 150
|
|
2440 gosub 260:print chr$(18)"loan shark"
|
|
2450 print
|
|
2460 gosub 810
|
|
2470 print "your debt is: $";v
|
|
2480 print "you have: $";w
|
|
2490 print
|
|
2500 input "(r)epay, (b)orrow, (l)eave: ";x$
|
|
2510 if x$ = "r" then goto 6540
|
|
2520 if x$ = "b" then goto 6630
|
|
2530 if x$ = "l" then goto 1200
|
|
2540 goto 2420
|
|
2550 rem->bank
|
|
2560 print chr$(147)
|
|
2570 gosub 150
|
|
2580 gosub 230: print chr$(18)"bank o'murica"
|
|
2590 print
|
|
2600 gosub 810
|
|
2610 print "your balance: $";e
|
|
2620 print "your wallet: $";w
|
|
2630 print
|
|
2640 input "(d)eposit, (w)ithdraw, (l)eave: ";x$
|
|
2650 if x$ = "d" then goto 6760
|
|
2660 if x$ = "w" then goto 6860
|
|
2670 if x$ = "l" then goto 1200
|
|
2680 goto 2560
|
|
2690 rem->cokebuy
|
|
2700 print chr$(147)
|
|
2710 gosub 150
|
|
2720 gosub 260: print chr$(18)"buy cocaine"
|
|
2730 print
|
|
2740 j=int(w/c)
|
|
2750 gosub 540
|
|
2760 m=m+k : w=w-(c*k)
|
|
2770 goto 1200
|
|
2780 rem->herbuy
|
|
2790 print chr$(147)
|
|
2800 gosub 150
|
|
2810 gosub 260: print chr$(18)"buy heroin"
|
|
2820 print
|
|
2830 j=int(w/h)
|
|
2840 gosub 540
|
|
2850 n=n+k : w=w-(h*k)
|
|
2860 goto 1200
|
|
2870 rem->acidbuy
|
|
2880 print chr$(147)
|
|
2890 gosub 150
|
|
2900 gosub 290:print chr$(18)"buy acid"
|
|
2910 print
|
|
2920 j=int(w/a)
|
|
2930 gosub 540
|
|
2940 o=o+k : w=w-(a*k)
|
|
2950 goto 1200
|
|
2960 rem->weedbuy
|
|
2970 print chr$(147)
|
|
2980 gosub 150
|
|
2990 gosub 290: print chr$(18)"buy weed"
|
|
3000 print
|
|
3010 j=int(w/z)
|
|
3020 gosub 540
|
|
3030 u=u+k : w=w-(z*k)
|
|
3040 goto 1200
|
|
3050 rem->spdbuy
|
|
3060 print chr$(147)
|
|
3070 gosub 150
|
|
3080 gosub 290: print chr$(18)"buy speed"
|
|
3090 print
|
|
3100 j=int(w/s)
|
|
3110 gosub 540
|
|
3120 t=t+k : w=w-(s*k)
|
|
3130 goto 1200
|
|
3140 rem->ludbuy
|
|
3150 print chr$(147)
|
|
3160 gosub 150
|
|
3170 gosub 290: print chr$(18)"buy ludes"
|
|
3180 print
|
|
3190 j=int(w/l)
|
|
3200 gosub 540
|
|
3210 q=q+k : w=w-(l*k)
|
|
3220 goto 1200
|
|
3230 rem->cokesell
|
|
3240 print chr$(147)
|
|
3250 gosub 150
|
|
3260 gosub 230:print chr$(18)"sell cocaine"
|
|
3270 print
|
|
3280 j=m
|
|
3290 gosub 640
|
|
3300 m=m-k
|
|
3310 w=w+(c*k)
|
|
3320 goto 1200
|
|
3330 rem->hersell
|
|
3340 print chr$(147)
|
|
3350 gosub 150
|
|
3360 gosub 290:print chr$(18)"sell heroin"
|
|
3370 print
|
|
3380 j=n
|
|
3390 gosub 640
|
|
3400 n=n-k
|
|
3410 w=w+(h*k)
|
|
3420 goto 1200
|
|
3430 rem->acidsell
|
|
3440 print chr$(147)
|
|
3450 gosub 150
|
|
3460 gosub 290: print chr$(18)"sell acid"
|
|
3470 print
|
|
3480 j=o
|
|
3490 gosub 640
|
|
3500 o=o-k
|
|
3510 w=w+(a*k)
|
|
3520 goto 1200
|
|
3530 rem->weedsell
|
|
3540 print chr$(147)
|
|
3550 gosub 150
|
|
3560 gosub 290:print chr$(18)"sell weed"
|
|
3570 print
|
|
3580 j=u
|
|
3590 gosub 640
|
|
3600 u=u-k
|
|
3610 w=w+(z*k)
|
|
3620 goto 1200
|
|
3630 rem->spdsell
|
|
3640 print chr$(147)
|
|
3650 gosub 150
|
|
3660 gosub 260:print chr$(18)"sell speed"
|
|
3670 print
|
|
3680 j=t
|
|
3690 gosub 640
|
|
3700 t=t-k
|
|
3710 w=w+(s*k)
|
|
3720 goto 1200
|
|
3730 rem->ludsell
|
|
3740 print chr$(147)
|
|
3750 gosub 150
|
|
3760 gosub 260:print chr$(18)"sell ludes"
|
|
3770 print
|
|
3780 j=q
|
|
3790 gosub 640
|
|
3800 q=q-k
|
|
3810 w=w+(l*k)
|
|
3820 goto 1200
|
|
3830 rem->alreadythere
|
|
3840 print chr$(147)
|
|
3850 gosub 150
|
|
3860 gosub 380
|
|
3870 print
|
|
3880 print "you're already in:"
|
|
3890 print " ";p$
|
|
3900 gosub 500
|
|
3910 goto 2170
|
|
3920 rem->subway
|
|
3930 print chr$(147)
|
|
3940 gosub 870
|
|
3950 v=int(v*1.1+.5)
|
|
3960 e=int(e*1.06+.5)
|
|
3970 gosub 150
|
|
3980 gosub 320:print chr$(18)"subway"
|
|
3990 print
|
|
4000 if b=1 then goto 4250
|
|
4010 if b=2 then goto 4300
|
|
4020 if b=3 then goto 4350
|
|
4030 if b=4 then goto 4410
|
|
4040 if b=5 then goto 4410
|
|
4050 if b=6 then goto 4470
|
|
4060 if b=7 then goto 4470
|
|
4070 if b=8 then goto 4530
|
|
4080 if b=9 then goto 4630
|
|
4090 if b=10 then goto 4630
|
|
4100 if b=11 then goto 4630
|
|
4110 if b=12 then goto 6020
|
|
4120 if b=13 then goto 6020
|
|
4130 if b=14 then goto 6160
|
|
4140 if b=15 then goto 6230
|
|
4150 if b=16 then goto 6310
|
|
4160 if b=17 then goto 6480
|
|
4170 rem->nothinghappened
|
|
4180 rem->nothinghappens
|
|
4190 print
|
|
4200 print "welcome to ";p$
|
|
4210 print
|
|
4220 gosub 500
|
|
4230 goto 1200
|
|
4240 rem->cheapludes
|
|
4250 print "rival dealers are selling cheap ludes!"
|
|
4260 l=2
|
|
4270 gosub 500
|
|
4280 goto 1200
|
|
4290 rem->cheepweed
|
|
4300 print "weed prices have bottomed-out!"
|
|
4310 z=122
|
|
4320 gosub 500
|
|
4330 goto 1200
|
|
4340 rem->pigheroin
|
|
4350 print "pigs are selling cheap heroin"
|
|
4360 print "from last week's raid!"
|
|
4370 h=int((rnd(9)*1150)+850.5)
|
|
4380 gosub 500
|
|
4390 goto 1200
|
|
4400 rem->heroinbust
|
|
4410 print "addicts are buying heroin"
|
|
4420 print "at outrageous prices!"
|
|
4430 h=int((rnd(9)*25000)+18000.5)
|
|
4440 gosub 500
|
|
4450 goto 1200
|
|
4460 rem->cokebust
|
|
4470 print "pigs made a big coke bust!"
|
|
4480 print "prices are outrageous!!!!"
|
|
4490 c=int((rnd(9)*60000)+80000.5)
|
|
4500 gosub 500
|
|
4510 goto 1200
|
|
4520 rem->mugged
|
|
4530 print "you got mugged!"
|
|
4540 print
|
|
4550 j=int(w/3)
|
|
4560 j=int(j*2)
|
|
4570 k=int(w-j)
|
|
4580 print "you lost $";k
|
|
4590 w=j
|
|
4600 gosub 500
|
|
4610 gosub 1200
|
|
4620 rem->cops
|
|
4630 k=m+n+u+o+t+p
|
|
4640 if k<50 then goto 4180
|
|
4650 if b=9 then b = 2
|
|
4660 if b=10 then b=4
|
|
4670 if b=11 then b=5
|
|
4680 print "it's the cops!"
|
|
4690 print
|
|
4700 print "officer hardass and ";b-1;" of his"
|
|
4710 print "deputies are after you!"
|
|
4720 print
|
|
4730 gosub 500
|
|
4740 goto 4760
|
|
4750 rem->police
|
|
4760 print chr$(147)
|
|
4770 gosub 150
|
|
4780 gosub 750
|
|
4790 print
|
|
4800 print
|
|
4810 print "view (g)uns"
|
|
4820 print "view (d)amage"
|
|
4830 print "(n)umber of pigs"
|
|
4840 print "(r)un"
|
|
4850 print "(f)ight"
|
|
4860 print
|
|
4870 input "what do you want to do? ";x$
|
|
4880 if x$="g" goto 4950
|
|
4890 if x$ = "d" goto 5050
|
|
4900 if x$ = "n" goto 5170
|
|
4910 if x$ = "r" goto 5280
|
|
4920 if x$="f" goto 5450
|
|
4930 goto 4760
|
|
4940 rem->pgun
|
|
4950 print chr$(147)
|
|
4960 gosub 150
|
|
4970 gosub 750
|
|
4980 print
|
|
4990 print
|
|
5000 print "you have ";g;" guns.
|
|
5010 print
|
|
5020 gosub 190
|
|
5030 goto 4760
|
|
5040 rem->damage
|
|
5050 print chr$(147)
|
|
5060 gosub 150
|
|
5070 gosub 750
|
|
5080 print
|
|
5090 print
|
|
5100 print "your current damage is ";bb;"."
|
|
5110 print
|
|
5120 print "50 and you die!"
|
|
5130 print
|
|
5140 gosub 190
|
|
5150 goto 4760
|
|
5160 rem->ncops
|
|
5170 print chr$(147)
|
|
5180 gosub 150
|
|
5190 gosub 750
|
|
5200 print
|
|
5210 print
|
|
5220 print "there are ";b;" pigs still chasing you!"
|
|
5230 print
|
|
5240 print
|
|
5250 gosub 190
|
|
5260 goto 4760
|
|
5270 rem->run
|
|
5280 print chr$(147)
|
|
5290 gosub 150
|
|
5300 gosub 750
|
|
5310 print
|
|
5320 print
|
|
5330 print "running..."
|
|
5340 gosub 410
|
|
5350 if k = 0 then print "you lost them in an alley!" : goto 5410
|
|
5360 print "you can't shake them!"
|
|
5370 print
|
|
5380 gosub 190
|
|
5390 goto 4760
|
|
5400 rem->loserun
|
|
5410 print
|
|
5420 gosub 190
|
|
5430 goto 1200
|
|
5440 rem->fight
|
|
5450 if g>0 then goto 5510
|
|
5460 print
|
|
5470 print "you don't have any guns!"
|
|
5480 gosub 190
|
|
5490 goto 4760
|
|
5500 rem->fightc
|
|
5510 print chr$(147)
|
|
5520 gosub 150
|
|
5530 gosub 750
|
|
5540 print
|
|
5550 print "you shoot!"
|
|
5560 gosub 410
|
|
5570 if k=0 then goto 5600
|
|
5580 print "you got one!" : b = b-1 : goto 5620
|
|
5590 rem->miss
|
|
5600 print "you missed!"
|
|
5610 rem->next
|
|
5620 print
|
|
5630 print
|
|
5640 if b <= 0 then goto 5840
|
|
5650 gosub 460
|
|
5660 print "they're firing at you!"
|
|
5670 gosub 410
|
|
5680 if k=0 then goto 5740
|
|
5690 print "you've been hit!"
|
|
5700 bb=bb+3
|
|
5710 if bb >= 50 goto 5790
|
|
5720 goto 5760
|
|
5730 rem->theymiss
|
|
5740 print "they missed!"
|
|
5750 rem->nexta
|
|
5760 gosub 190
|
|
5770 goto 4760
|
|
5780 rem->ded
|
|
5790 print
|
|
5800 print "you've been killed!"
|
|
5810 gosub 190
|
|
5820 goto 7400
|
|
5830 rem->allgone
|
|
5840 print "you killed all of them!"
|
|
5850 print
|
|
5860 gosub 410
|
|
5870 j=int(((rnd(7)*1250)+750)+.5)
|
|
5880 w=w+j
|
|
5890 print "you found $";j;" on officer hardass'"
|
|
5900 print "carcass!"
|
|
5910 if w>=1200 then goto 5940
|
|
5920 goto 1200
|
|
5930 rem->doctor
|
|
5940 gosub 500
|
|
5950 print
|
|
5960 print "will you pay $1000 for a doctor"
|
|
5970 input "to sew you up? (y/n)";x$
|
|
5980 if x$ <> "y" then goto 1200
|
|
5990 w=w-1000
|
|
6000 bb=0
|
|
6010 rem->gunbuy
|
|
6020 if w < 500 then goto 4180
|
|
6030 gosub 720
|
|
6040 if f < 5 then goto 4180
|
|
6050 j=int((rnd(4)*2)+.5)
|
|
6060 if j = 0 then y$ = "baretta"
|
|
6070 if j = 1 then y$ = "saturday night special"
|
|
6080 if j = 2 then y$ = ".44 magnum"
|
|
6090 print "will you buy a ";y$
|
|
6100 input "for $400? (y/n)";x$
|
|
6110 if x$ <> "y" then goto 1200
|
|
6120 g = g+1
|
|
6130 w = w-400
|
|
6140 goto 1200
|
|
6150 rem->dedweed
|
|
6160 print "there's some weed here that smells"
|
|
6170 print "like good stuff!!"
|
|
6180 print
|
|
6190 input "will you smoke it? (y/n)";x$
|
|
6200 if x$ = "y" then goto 7270
|
|
6210 goto1200
|
|
6220 rem->newcoat
|
|
6230 if w<300 then goto 4190
|
|
6240 print "will you buy a new trenchcoat"
|
|
6250 input "with more pockets for $200? (y/n)";x$
|
|
6260 if x$ <> "y" then goto 1200
|
|
6270 i=i+10
|
|
6280 w=w-200
|
|
6290 goto 1200
|
|
6300 rem->dedguy
|
|
6310 gosub 720
|
|
6320 if f<8 then goto 4190
|
|
6330 j=int((rnd(3)*7)+1.5)
|
|
6340 k=int(rnd(3)*5+.5)
|
|
6350 if k=0 then q=q+j : y$ = "ludes"
|
|
6360 if k=1 then t=t+j : y$ = "speed"
|
|
6370 if k=2 then u=u+j : y$ = "weed"
|
|
6380 if k=3 then o=o+j : y$ = "acid"
|
|
6390 if k=4 then n=n+j : y$ = "heroin"
|
|
6400 if k=5 then m=m+j : y$ = "cocaine"
|
|
6410 print "you found ";j;" units of"
|
|
6420 print " ";y$
|
|
6430 print "on a dead dude in the subway!"
|
|
6440 print
|
|
6450 gosub 500
|
|
6460 goto 1200
|
|
6470 rem->homeacid
|
|
6480 print "the market has been flooded"
|
|
6490 print "with cheap home-made acid!"
|
|
6500 a=int((rnd(4)*550)+250.5)
|
|
6510 gosub 500
|
|
6520 goto 1200
|
|
6530 rem->payme
|
|
6540 input "repay how much? ";k
|
|
6550 if k>w then print:print "you don't have that much!" : gosub 460 : goto 2420
|
|
6560 if k>v then print:print "you don't owe that much!" : gosub 460 : goto 2420
|
|
6570 w=w-k
|
|
6580 v=v-k
|
|
6590 print:print "thank you."
|
|
6600 gosub 500
|
|
6610 goto 1200
|
|
6620 rem->borrow
|
|
6630 print
|
|
6640 input "how much do you want? ";k
|
|
6650 print
|
|
6660 j=int((rnd(10)*10000)+5000)
|
|
6670 if k>14000 then print "he's not that stupid!" : gosub 500 : goto 1200
|
|
6680 if k > j then print "he doesn't feel like it." : gosub 460 : goto 1200
|
|
6690 v=v+k
|
|
6700 w=w+k
|
|
6710 print
|
|
6720 print "here's your money." : print : print "remember, i break thumbs."
|
|
6730 gosub 500
|
|
6740 goto 1200
|
|
6750 rem->deposit
|
|
6760 print
|
|
6770 input "how much? ";j
|
|
6780 if j>w then print "you don't have that much cash." : goto 6760
|
|
6790 e=e+j
|
|
6800 w=w-j
|
|
6810 print
|
|
6820 print "thank you for your deposit."
|
|
6830 gosub 500
|
|
6840 goto 1200
|
|
6850 rem->mymoney
|
|
6860 print
|
|
6870 input "how much? ";j
|
|
6880 if j>e then print "you don't have sufficient funds." : goto 6860
|
|
6890 e=e-j
|
|
6900 w=w+j
|
|
6910 print
|
|
6920 print "thank you for your business."
|
|
6930 gosub 500
|
|
6940 goto 1200
|
|
6950 rem->instructions
|
|
6960 print chr$(147)
|
|
6970 poke 211,3:sys 58640:print "welcome to drugwar/64 version";rv
|
|
6980 poke 211,5:sys 58640: print "ported from drugwar//e v 1.03":?:?:?:?:?
|
|
6990 ?: ? : poke 211,5:sys 58640:? "based on the ti-basic clone of"
|
|
7000 poke 211,7:sys 58640:print "john e. dell's 1984 drugwar"
|
|
7010 poke 211,11:sys 58640:print "for ibm and trs-80":?:?
|
|
7020 ?:?:poke 211,6:sys 58640:?"applesoft version by jay moore"
|
|
7030 poke 211,10:sys 58640: print "c64 port by jay moore"
|
|
7040 poke 211,1 : poke 214,23 : sys 58640
|
|
7050 input "would you like instructions? (y/n)";x$
|
|
7060 j=rnd(-ti)
|
|
7070 if x$ = "y" then goto 7100
|
|
7080 goto 1050
|
|
7090 rem->inst
|
|
7100 print chr$(147)
|
|
7110 gosub 150
|
|
7120 print
|
|
7130 print "this is a game of buying and selling."
|
|
7140 print "your goal is to pay off your debt and"
|
|
7150 print "make as much money as possible in a one"
|
|
7160 print "month period. prices fluctuate every day"
|
|
7170 print "and interest on your loan is calculated as well."
|
|
7180 print:print "if you deal too heavily, you'll attract the attention"
|
|
7190 print "of the police."
|
|
7200 print
|
|
7210 print "commands are entered using the letter"
|
|
7220 print "highlighted (l)ike (s)o. y is yes and"
|
|
7230 print "anything counts as no."
|
|
7240 gosub 190
|
|
7250 goto 1050
|
|
7260 rem->weedend
|
|
7270 print chr$(147)
|
|
7280 gosub 150
|
|
7290 gosub 230: print chr$(18)"smoke weed"
|
|
7300 print "you hallucinate on the wildest trip"
|
|
7310 print "of your life, stumble on to the tracks,"
|
|
7320 print "and get creamed by a train!"
|
|
7330 print
|
|
7340 print
|
|
7350 poke 211,7:sys 58640:? "just say no to drugs!"
|
|
7360 gosub 500
|
|
7370 gosub 460
|
|
7380 goto 7540
|
|
7390 rem->endgame
|
|
7400 print chr$(147)
|
|
7410 gosub 150
|
|
7420 gosub 990
|
|
7430 gosub 780
|
|
7440 print
|
|
7450 print "your score on a scale of 1 to 100: ";k
|
|
7460 print
|
|
7470 input "would you like to play again? (y/n)";x$
|
|
7480 if x$ = "y" then goto 1050
|
|
7490 print "thanks for playing."
|
|
7500 print "remember, watch your back."
|
|
7510 print "have a nice day!"
|
|
7520 end
|
|
7530 rem->ironicend
|
|
7540 print chr$(147)
|
|
7550 gosub 150
|
|
7560 gosub 780
|
|
7570 print
|
|
7580 print "you died from smoking weed."
|
|
7590 print
|
|
7600 print
|
|
7610 gosub 500: print"see? games are totally fake."
|
|
7620 print
|
|
7630 input "would you like to play again? ";x$
|
|
7640 if x$= "y" then goto 1050
|
|
7650 end
|