ALPHA 3
parent
7fc4728ba1
commit
e1a70bd8d3
@ -1,528 +1,526 @@
|
||||
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h32
|
||||
11 REM - LABELED ALPHA 2
|
||||
20 GOTO 4480
|
||||
30 REM ->TITLEBAR
|
||||
40 PRINT " DRUGWAR//E "
|
||||
50 RETURN
|
||||
60 REM ->WAIT
|
||||
70 PRINT CHR$ (10)
|
||||
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h44
|
||||
11 REM LABELED ALPHA 3
|
||||
20 GOTO 4460
|
||||
30 REM->TITLEBAR
|
||||
40 PRINT " DRUGWAR//E "
|
||||
50 RETURN
|
||||
60 REM->WAIT
|
||||
70 PRINT CHR$(10)
|
||||
80 INPUT "PRESS ENTER TO CONTINUE.";X$
|
||||
90 RETURN
|
||||
100 REM ->HOWMUCHBUY
|
||||
90 RETURN
|
||||
100 REM->HOWMUCHBUY
|
||||
110 PRINT "YOU CAN AFFORD ";J%
|
||||
120 PRINT "YOU CAN CARRY ";FS%
|
||||
130 PRINT CHR$ (10)
|
||||
120 PRINT "YOU CAN CARRY ";FS%
|
||||
130 PRINT CHR$(10)
|
||||
140 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
|
||||
150 GOSUB 260
|
||||
160 RETURN
|
||||
170 REM ->HOWMUCHSELL
|
||||
160 RETURN
|
||||
170 REM->HOWMUCHSELL
|
||||
180 PRINT "YOU CAN SELL: ";J%
|
||||
190 PRINT CHR$ (10)
|
||||
200 REM ->HOWMANYSELL
|
||||
190 PRINT CHR$(10)
|
||||
200 REM->HOWMANYSELL
|
||||
210 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
|
||||
220 IF K% > J% THEN PRINT "YOU DON'T HAVE THAT MANY!": GOTO 210
|
||||
220 IF K%>J% THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 210
|
||||
230 GOSUB 260
|
||||
240 RETURN
|
||||
250 REM ->NOBUYSELL
|
||||
260 IF K% = 0 GOTO 1820
|
||||
270 RETURN
|
||||
280 REM ->STATUSBAR
|
||||
290 INVERSE : PRINT "DAY: ";D%,P$: NORMAL
|
||||
300 PRINT CHR$ (10)
|
||||
310 RETURN
|
||||
320 REM ->FREESPACE
|
||||
330 FS% = IN% - ((CI% + HI% + AI% + WI% + SI% + LI%) + (GN% * 5))
|
||||
340 RETURN
|
||||
350 REM ->DAILY
|
||||
360 C% = INT ( RND (1) * 12000 + 16000)
|
||||
370 H% = INT ( RND (1) * 7000 + 5000)
|
||||
380 A% = INT (( RND (1) * 34 + 10) * 100)
|
||||
390 W% = INT (( RND (1) * 42 + 33) * 10)
|
||||
400 S% = INT (( RND (1) * 15 + 7) * 10)
|
||||
410 L% = INT (( RND (1) * 4 + 1) * 10)
|
||||
420 B% = INT ( RND (1) * 20)
|
||||
430 D% = D% + 1
|
||||
440 LS% = INT (LS% * 1.1)
|
||||
450 SA% = INT (SA% * 1.06)
|
||||
460 REM ->CHECKDAY
|
||||
470 IF D% > = 31 GOTO 5050
|
||||
480 RETURN
|
||||
490 REM ->SUBWAYEVENTS
|
||||
500 IF B% = 1 THEN GOTO 690
|
||||
510 IF B% = 2 THEN GOTO 740
|
||||
520 IF B% = 3 THEN GOTO 790
|
||||
530 IF B% = 4 THEN GOTO 850
|
||||
540 IF B% = 5 THEN GOGO850
|
||||
550 IF B% = 6 THEN GOTO 910
|
||||
560 IF B% = 7 THEN GOTO 910
|
||||
570 IF B% = 8 THEN GOTO 970
|
||||
580 IF B% = 9 THEN GOTO 1070
|
||||
590 IF B% = 10 THEN GOGO1070
|
||||
600 IF B% = 11 THEN GOTO 1070
|
||||
610 IF B% = 12 THEN GOTO 1160
|
||||
620 IF B% = 13 THEN GOTO 1160
|
||||
630 IF B% = 14 THEN GOTO 1310
|
||||
640 IF B% = 15 THEN GOTO 1380
|
||||
650 IF B% = 16 THEN GOTO 1460
|
||||
660 IF B% = 17 THEN GOTO 1620
|
||||
670 RETURN
|
||||
680 REM ->CHEAPLUDES
|
||||
240 RETURN
|
||||
250 REM->NOBUYSELL
|
||||
260 IF K%=0 GOTO 1820
|
||||
270 RETURN
|
||||
280 REM->STATUSBAR
|
||||
290 INVERSE:PRINT "DAY: ";D%,P$:NORMAL
|
||||
300 PRINT CHR$(10)
|
||||
310 RETURN
|
||||
320 REM->FREESPACE
|
||||
330 FS%=IN%-((CI%+HI%+AI%+WI%+SI%+LI%)+(GN%*5))
|
||||
340 RETURN
|
||||
350 REM->DAILY
|
||||
360 C%=INT(RND(1)*12000+16000)
|
||||
370 H%=INT(RND(1)*7000+5000)
|
||||
380 A%=INT((RND(1)*34+10)*100)
|
||||
390 W%=INT((RND(1)*42+33)*10)
|
||||
400 S%=INT((RND(1)*15+7)*10)
|
||||
410 L%=INT((RND(1)*4+1)*10)
|
||||
420 B%=INT(RND(1)*20)
|
||||
430 D%=D%+1
|
||||
440 LS%=INT(LS%*1.1)
|
||||
450 SA%=INT(SA%*1.06)
|
||||
460 REM->CHECKDAY
|
||||
470 IF D% >= 31 GOTO 5030
|
||||
480 RETURN
|
||||
490 REM->SUBWAYEVENTS
|
||||
500 IF B%=1 THEN GOTO 690
|
||||
510 IF B%=2 THEN GOTO 740
|
||||
520 IF B%=3 THEN GOTO 790
|
||||
530 IF B%=4 THEN GOTO 850
|
||||
540 IF B%=5 THEN GOGO 850
|
||||
550 IF B%=6 THEN GOTO 910
|
||||
560 IF B%=7 THEN GOTO 910
|
||||
570 IF B%=8 THEN GOTO 970
|
||||
580 IF B%=9 THEN GOTO 1070
|
||||
590 IF B%=10 THEN GOGO 1070
|
||||
600 IF B%=11 THEN GOTO 1070
|
||||
610 IF B%=12 THEN GOTO 1160
|
||||
620 IF B%=13 THEN GOTO 1160
|
||||
630 IF B%=14 THEN GOTO 1310
|
||||
640 IF B%=15 THEN GOTO 1380
|
||||
650 IF B%=16 THEN GOTO 1460
|
||||
660 IF B%=17 THEN GOTO 1620
|
||||
670 RETURN
|
||||
680 REM->CHEAPLUDES
|
||||
690 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
|
||||
700 L% = 2
|
||||
700 L%=2
|
||||
710 GOSUB 70
|
||||
720 GOTO 1820
|
||||
730 REM ->CHEEPWEED
|
||||
730 REM->CHEEPWEED
|
||||
740 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
|
||||
750 W% = 122
|
||||
750 W%=122
|
||||
760 GOSUB 70
|
||||
770 GOTO 1820
|
||||
780 REM ->PIGHEROIN
|
||||
780 REM->PIGHEROIN
|
||||
790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
|
||||
800 PRINT "FROM LAST WEEK'S RAID!"
|
||||
810 H% = INT (( RND (1) * 1150) + 850)
|
||||
810 H%=INT((RND(1)*1150)+850)
|
||||
820 GOSUB 70
|
||||
830 GOTO 1820
|
||||
840 REM ->HEROINBUST
|
||||
840 REM->HEROINBUST
|
||||
850 PRINT "ADDICTS ARE BUYING HEROIN"
|
||||
860 PRINT "AT OUTRAGEOUS PRICES!"
|
||||
870 H% = INT (( RND (1) * 25000) + 18000)
|
||||
870 H%=INT((RND(1)*25000)+18000)
|
||||
880 GOSUB 70
|
||||
890 GOTO 1820
|
||||
900 REM ->COKEBUST
|
||||
900 REM->COKEBUST
|
||||
910 PRINT "PIGS MADE A BIG COKE BUST!"
|
||||
920 PRINT "PRICES ARE OUTRAGEOUS!!!!"
|
||||
930 C% = INT (( RND (1) * 60000) + 80000)
|
||||
930 C%=INT((RND(1)*60000)+80000)
|
||||
940 GOSUB 70
|
||||
950 GOTO 1820
|
||||
960 REM ->MUGGED
|
||||
960 REM->MUGGED
|
||||
970 PRINT "YOU GOT MUGGED!"
|
||||
980 PRINT CHR$ (10)
|
||||
990 MS% = WA% / 3
|
||||
1000 MS% = MS% * 2
|
||||
1010 ML% = WA% - MS%
|
||||
980 PRINT CHR$(10)
|
||||
990 MS%=WA%/3
|
||||
1000 MS%=MS%*2
|
||||
1010 ML%=WA%-MS%
|
||||
1020 PRINT "YOU LOST $";ML%
|
||||
1030 WA% = MS%
|
||||
1030 WA%=MS%
|
||||
1040 GOSUB 70
|
||||
1050 GOSUB 1820
|
||||
1060 REM ->COPS
|
||||
1070 WE% = C% + H% + W% + A% + S% + L%
|
||||
1080 IF WE% < 50 THEN RETURN
|
||||
1060 REM->COPS
|
||||
1070 WE%=C%+H%+W%+A%+S%+L%
|
||||
1080 IF WE%<50 THEN RETURN
|
||||
1090 PRINT "IT'S THE COPS!"
|
||||
1100 PRINT CHR$ (10)
|
||||
1100 PRINT CHR$(10)
|
||||
1110 PRINT "JUST KIDDING!"
|
||||
1120 PRINT "COPS HAVEN'T BEEN CODED YET."
|
||||
1130 GOSUB 70
|
||||
1140 GOTO 1820
|
||||
1150 REM ->GUNBUY
|
||||
1160 IF WA% < 500 THEN RETURN
|
||||
1150 REM->GUNBUY
|
||||
1160 IF WA% < 500 THEN RETURN
|
||||
1170 GOSUB 330
|
||||
1180 IF FS% < 5 THEN RETURN
|
||||
1190 GX% = INT ( RND (1) * 2)
|
||||
1180 IF FS% < 5 THEN RETURN
|
||||
1190 GX%=INT(RND(1)*2)
|
||||
1200 IF GX% = 0 THEN AX$ = "BARETTA"
|
||||
1210 IF GX% = 1 THEN AX$ = "SATURDAY NIGHT SPECIAL"
|
||||
1220 IF GX% = 2 THEN AX$ = ".44 MAGNUM"
|
||||
1230 PRINT "WILL YOU BUY A ";AX$
|
||||
1240 INPUT "FOR $400? (Y/N)";RE$
|
||||
1250 IF RE$ < > "Y" THEN GOTO 1820
|
||||
1260 GN% = GN% + 1
|
||||
1270 WA% = WA% - 400
|
||||
1280 FS% = FS% - 5
|
||||
1250 IF RE$ <> "Y" THEN GOTO 1820
|
||||
1260 GN% = GN%+1
|
||||
1270 WA% = WA%-400
|
||||
1280 FS% = FS%-5
|
||||
1290 GOTO 1820
|
||||
1300 REM ->DEDWEED
|
||||
1300 REM->DEDWEED
|
||||
1310 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
|
||||
1320 PRINT "LIKE GOOD STUFF!!"
|
||||
1330 PRINT CHR$ (10)
|
||||
1330 PRINT CHR$(10)
|
||||
1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
|
||||
1350 IF X$ = "Y" THEN GOTO 4950
|
||||
1360 RETURN
|
||||
1370 REM ->NEWCOAT
|
||||
1380 IF WA% < 300 THEN RETURN
|
||||
1350 IF X$ = "Y" THEN GOTO 4930
|
||||
1360 RETURN
|
||||
1370 REM->NEWCOAT
|
||||
1380 IF WA%<300 THEN RETURN
|
||||
1390 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
|
||||
1400 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
|
||||
1410 IF X$ < > "Y" THEN GOTO 1820
|
||||
1420 IN% = IN% + 10
|
||||
1430 WA% = WA% - 200
|
||||
1410 IF X$ <> "Y" THEN GOTO 1820
|
||||
1420 IN%=IN%+10
|
||||
1430 WA%=WA%-200
|
||||
1440 GOTO 1820
|
||||
1450 REM ->DEDGUY
|
||||
1460 IF FS% < 8 THEN RETURN
|
||||
1470 DG% = ( INT (( RND (1) * 7) + 1)
|
||||
1480 XG% = INT (( RND (1) * 5)
|
||||
1490 IF XG% = 0 THEN LI% = LI% + DG%:SS$ = "LUDES"
|
||||
1500 IF XG% = 1 THEN SI% = SI% + DG%:SS$ = "SPEED"
|
||||
1510 IF XG% = 2 THEN WI% = WI% + DG%:SS$ = "WEED"
|
||||
1520 IF XG% = 3 THEN AI% = AI% + DG%:SS$ = "ACID"
|
||||
1530 IF XG% = 4 THEN HI% = HI% + DG%:SS$ = "HEROIN"
|
||||
1540 IF XG% = 5 THEN CI% = CI% + DG%:SS$ = "COCAINE"
|
||||
1450 REM->DEDGUY
|
||||
1460 IF FS%<8 THEN RETURN
|
||||
1470 DG%=(INT((RND(1)*7)+1)
|
||||
1480 XG%=INT((RND(1)*5)
|
||||
1490 IF XG%=0 THEN LI%=LI%+DG% : SS$ = "LUDES"
|
||||
1500 IF XG%=1 THEN SI%=SI%+DG% : SS$ = "SPEED"
|
||||
1510 IF XG%=2 THEN WI%=WI%+DG% : SS$ = "WEED"
|
||||
1520 IF XG%=3 THEN AI%=AI%+DG% : SS$ = "ACID"
|
||||
1530 IF XG%=4 THEN HI%=HI%+DG% : SS$ = "HEROIN"
|
||||
1540 IF XG%=5 THEN CI%=CI%+DG% : SS$ = "COCAINE"
|
||||
1550 PRINT "YOU FOUND ";DG%;" UNITS OF"
|
||||
1560 PRINT " ";SS%
|
||||
1560 PRINT " ";SS%
|
||||
1570 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
|
||||
1580 PRINT CHR$ (10)
|
||||
1580 PRINT CHR$(10)
|
||||
1590 GOSUB 70
|
||||
1600 GOTO 1820
|
||||
1610 REM ->HOMEACID
|
||||
1610 REM->HOMEACID
|
||||
1620 PRINT "THE MARKET HAS BEEN FLOODED"
|
||||
1630 PRINT "WITH CHEAP HOME-MADE ACID!"
|
||||
1640 A% = INT (( RND (1) * 550) + 250)
|
||||
1640 A%=INT((RND(1)*550)+250)
|
||||
1650 GOSUB 70
|
||||
1660 GOTO 1820
|
||||
1670 REM ->LOAN
|
||||
1680 HOME
|
||||
1670 REM->LOAN
|
||||
1680 HOME
|
||||
1690 GOSUB 40
|
||||
1700 PRINT CHR$ (10)
|
||||
1700 PRINT CHR$(10)
|
||||
1710 PRINT "LOAN SHARK NOT IMPLEMENTED.
|
||||
1720 GOSUB 70
|
||||
1730 GOTO 1820
|
||||
1740 REM ->BANK
|
||||
1750 HOME
|
||||
1740 REM->BANK
|
||||
1750 HOME
|
||||
1760 GOSUB 40
|
||||
1770 PRINT CHR$ (10)
|
||||
1770 PRINT CHR$(10)
|
||||
1780 PRINT "BANK NOT IMPLEMENTED."
|
||||
1790 GOSUB 70
|
||||
1800 GOTO 1820
|
||||
1810 REM ->MENU
|
||||
1820 HOME
|
||||
1810 REM->MENU
|
||||
1820 HOME
|
||||
1830 GOSUB 40
|
||||
1840 GOSUB 330
|
||||
1850 PRINT (C)HECKPRICES
|
||||
1860 PRINT (I)NVEN TO RY
|
||||
1870 PRINT (B)UY
|
||||
1880 PRINT (S)ELL
|
||||
1890 PRINT (J)ET
|
||||
1900 PRINT SEE(L)OANSHARK
|
||||
1910 PRINT (V)ISITBANK
|
||||
1850 PRINT "(C)HECK PRICES"
|
||||
1860 PRINT "(I)NVENTORY"
|
||||
1870 PRINT "(B)UY"
|
||||
1880 PRINT "(S)ELL"
|
||||
1890 PRINT "(J)ET"
|
||||
1900 PRINT "SEE (L)OAN SHARK"
|
||||
1910 PRINT "(V)ISIT BANK"
|
||||
1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
|
||||
1930 IF T$ = "C" GOTO 2030
|
||||
1940 IF T$ = "I" GOTO 2180
|
||||
1950 IF T$ = "B" GOTO 2320
|
||||
1960 IF T$ = "S" GOTO 3190
|
||||
1970 IF T$ = "J" GOTO 4240
|
||||
1940 IF T$ = "I" GOTO 2170
|
||||
1950 IF T$ = "B" GOTO 2300
|
||||
1960 IF T$ = "S" GOTO 3170
|
||||
1970 IF T$ = "J" GOTO 4220
|
||||
1980 IF T$ = "L" GOTO 1680
|
||||
1990 IF T% = "V" GOTO 1750
|
||||
2000 PRINT "INVALID SELECTION""
|
||||
2000 PRINT "INVALID SELECTION"
|
||||
2010 GOTO 1820
|
||||
2020 REM ->PRICES
|
||||
2030 HOME
|
||||
2020 REM->PRICES
|
||||
2030 HOME
|
||||
2040 GOSUB 40
|
||||
2050 INVERSE : PRINT " PRICES ": NORMAL
|
||||
2060 PRINT CHR$ (10)
|
||||
2070 PRINT "COCAINE:","$"C%
|
||||
2080 PRINT "HEROIN:","$"H%
|
||||
2090 PRINT "ACID:","$"A%
|
||||
2100 PRINT "WEED:","$"W%
|
||||
2110 PRINT "SPEED:","$"S%
|
||||
2120 PRINT "LUDES:","$"L%
|
||||
2130 PRINT "WALLET:,"$"WA%
|
||||
2140 PRINT CHR$ (10)
|
||||
2150 PRINT "PRESS ENTER TO CONTINUE.";X$
|
||||
2160 GOTO 1820
|
||||
2170 REM ->INVENTORY
|
||||
2180 HOME
|
||||
2190 GOSUB 40
|
||||
2200 INVERSE : PRINT " INVENTORY ": NORMAL
|
||||
2210 PRINT CHR$ (10)
|
||||
2220 PRINT "COCAINE:",CI%
|
||||
2230 PRINT "HEROIN:",HI%
|
||||
2240 PRINT "ACID:",AI%
|
||||
2250 PRINT "WEED:",WI%
|
||||
2260 PRINT "LUDES:",LI%
|
||||
2270 PRINT "FREE SPACE:",FS%
|
||||
2280 PRINT CHR$ (10)
|
||||
2290 PRINT "PRESS ENTER TO CONTINUE.";X$
|
||||
2300 GOTO 1820
|
||||
2310 REM ->BUY
|
||||
2320 HOME
|
||||
2330 GOSUB 40
|
||||
2340 INVERSE : PRINT " BUY ": NORMAL
|
||||
2350 PRINT CHR$ (10)
|
||||
2360 PRINT "WHAT DO YOU WANT TO BUY?"
|
||||
2370 PRINT CHR$ (10)
|
||||
2380 PRINT "(C)OCAINE"
|
||||
2390 PRINT "(H)EROIN"
|
||||
2400 PRINT "(A)CID"
|
||||
2410 PRINT "(W)EED"
|
||||
2420 PRINT "(S)PEED"
|
||||
2430 PRINT "(L)UDES"
|
||||
2440 INPUT "ENTER SELECTION: ";DB$
|
||||
2450 IF DB$ = "C" GOTO 2530
|
||||
2460 IF DB$ = "H" GOTO 2640
|
||||
2470 IF DB$ = "A" GOTO 2750
|
||||
2480 IF DB$ = "W" GOTO 2860
|
||||
2490 IF DB$ = "S" GOTO 2970
|
||||
2500 IF DB$ = "L" GOTO 3080
|
||||
2510 GOTO 1820
|
||||
2520 REM ->COKEBUY
|
||||
2530 HOME
|
||||
2540 GOSUB 40
|
||||
2550 INVERSE : PRINT " BUY COCAINE ": NORMAL
|
||||
2560 PRINT CHR$ (10)
|
||||
2570 J% = INT (WA% / C%)
|
||||
2580 GOSUB 110
|
||||
2590 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2530
|
||||
2600 IF K% < = J% THEN CI% = CI% + J%:WA% = WA% - (C% * J%)
|
||||
2610 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2530
|
||||
2620 GOTO 1820
|
||||
2630 REM ->HERBUY
|
||||
2640 HOME
|
||||
2650 GOSUB 40
|
||||
2660 INVERSE : PRINT " BUY HEROIN ": NORMAL
|
||||
2670 PRINT CHR$ (10)
|
||||
2680 J% = INT (WA% / H%)
|
||||
2690 GOSUB 110
|
||||
2700 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2640
|
||||
2710 IF K% < = J% THEN HI% = HI% + J%:WA% = WA% - (H% * J%)
|
||||
2720 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2640
|
||||
2730 GOTO 1820
|
||||
2740 REM ->ACIDBUY
|
||||
2750 HOME
|
||||
2760 GOSUB 40
|
||||
2770 INVERSE : PRINT " BUY ACID ": NORMAL
|
||||
2780 PRINT CHR$ (10)
|
||||
2790 J% = INT (WA% / A%)
|
||||
2800 GOSUB 110
|
||||
2810 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2750
|
||||
2820 IF K% < = J% THEN AI% = AI% + J%:WA% = WA% - (A% * J%)
|
||||
2830 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2750
|
||||
2840 GOTO 1820
|
||||
2850 REM ->WEEDBUY
|
||||
2860 HOME
|
||||
2870 GOSUB 40
|
||||
2880 INVERSE : PRINT " BUY WEED ": NORMAL
|
||||
2890 PRINT CHR$ (10)
|
||||
2900 J% = INT (WA% / W%)
|
||||
2910 GOSUB 110
|
||||
2920 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2860
|
||||
2930 IF K% < = J% THEN WI% = WI% + J%:WA% = WA% - (W% * J%)
|
||||
2940 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2860
|
||||
2950 GOTO 1820
|
||||
2960 REM ->SPDBUY
|
||||
2970 HOME
|
||||
2980 GOSUB 40
|
||||
2990 INVERSE : PRINT " BUY SPEED ": NORMAL
|
||||
3000 PRINT CHR$ (10)
|
||||
3010 J% = INT (WA% / S%)
|
||||
3020 GOSUB 110
|
||||
3030 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2970
|
||||
3040 IF K% < = J% THEN SI% = SI% + J%:WA% = WA% - (S% * J%)
|
||||
3050 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2970
|
||||
3060 GOTO 1820
|
||||
3070 REM ->LUDBUY
|
||||
3080 HOME
|
||||
3090 GOSUB 40
|
||||
3100 INVERSE : PRINT " BUY LUDES ": NORMAL
|
||||
3110 PRINT CHR$ (10)
|
||||
3120 J% = INT (WA% / L%)
|
||||
3130 GOSUB 110
|
||||
3140 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 3080
|
||||
3150 IF K% < = J% THEN LI% = LI% + J%:WA% = WA% - (L% * J%)
|
||||
3160 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 3080
|
||||
3170 GOTO 1820
|
||||
3180 REM ->SELL
|
||||
3190 HOME
|
||||
3200 GOSUB 40
|
||||
3210 INVERSE : PRINT " SELL ": NORMAL
|
||||
3220 PRINT CHR$ (10)
|
||||
3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
|
||||
3240 PRINT CHR$ (10)
|
||||
3250 PRINT "(C)OCAINE"
|
||||
3260 PRINT "(H)EROIN"
|
||||
3270 PRINT "(A)CID"
|
||||
3280 PRINT "(W)EED"
|
||||
3290 PRINT "(S)PEED"
|
||||
3300 PRINT "(L)UDES"
|
||||
3310 REM ->SELLSEL
|
||||
3320 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
|
||||
3330 IF DB$ = "C" GOTO 3430
|
||||
3340 IF DB$ = "H" GOTO 3530
|
||||
3350 IF DB$ = "A" GOTO 3630
|
||||
3360 IF DB$ = "W" GOTO 3730
|
||||
3370 IF DB$ = "S" GOTO 3830
|
||||
3380 IF DB$ = "L" GOTO 3930
|
||||
3390 IF DB$ = "0"GOGO1820
|
||||
3400 PRINT "INVALID SELECTION!"
|
||||
3410 GOTO 3320
|
||||
3420 REM ->COKESELL
|
||||
3430 HOME
|
||||
3440 GOSUB 40
|
||||
3450 INVERSE : PRINT " SELL COCAINE ": NORMAL
|
||||
3460 PRINT CHR$ (10)
|
||||
3470 J% = CI%
|
||||
3480 GOSUB 180
|
||||
3490 CI% = CI% - J%
|
||||
3500 WA% = WA% + (C% * J%)
|
||||
3510 GOTO 1820
|
||||
3520 REM ->HERSELL
|
||||
3530 HOME
|
||||
3540 GOSUB 40
|
||||
3550 INVERSE : PRINT " SELL HEROIN ": NORMAL
|
||||
3560 PRINT CHR$ (10)
|
||||
3570 J% = HI%
|
||||
3580 GOSUB 180
|
||||
3590 HI% = HI% - J%
|
||||
3600 WA% = WA% + (H% * J%)
|
||||
3610 GOTO 1820
|
||||
3620 REM ->ACIDSELL
|
||||
3630 HOME
|
||||
3640 GOSUB 40
|
||||
3650 INVERSE : PRINT " SELL ACID ": NORMAL
|
||||
3660 PRINT CHR$ (10)
|
||||
3670 J% = AI%
|
||||
3680 GOSUB 180
|
||||
3690 AI% = AI% - J%
|
||||
3700 WA% = WA% + (A% * J%)
|
||||
3710 GOTO 1820
|
||||
3720 REM ->WEEDSELL
|
||||
3730 HOME
|
||||
3740 GOSUB 40
|
||||
3750 INVERSE : PRINT " SELL WEED ": NORMAL
|
||||
3760 PRINT CHR$ (10)
|
||||
3770 J% = WI%
|
||||
3780 GOSUB 180
|
||||
3790 WI% = WI% - J%
|
||||
3800 WA% = WA% + (W% * J%)
|
||||
3810 GOTO 1820
|
||||
3820 REM ->SPDSELL
|
||||
3830 HOME
|
||||
3840 GOSUB 40
|
||||
3850 INVERSE : PRINT " SELL SPEED ": NORMAL
|
||||
3860 PRINT CHR$ (10)
|
||||
3870 J% = SI%
|
||||
3880 GOSUB 180
|
||||
3890 SI% = SI% - J%
|
||||
3900 WA% = WA% + (S% * J%)
|
||||
3910 GOTO 1820
|
||||
3920 REM ->LUDSELL
|
||||
3930 HOME
|
||||
3940 GOSUB 40
|
||||
3950 INVERSE : PRINT " SELL COCAINE ": NORMAL
|
||||
3960 PRINT CHR$ (10)
|
||||
3970 J% = LI%
|
||||
3980 GOSUB 180
|
||||
3990 LI% = LI% - J%
|
||||
4000 WA% = WA% + (L% * J%)
|
||||
4010 GOTO 1820
|
||||
4020 REM ->JET
|
||||
4030 HOME
|
||||
4040 GOSUB 40
|
||||
4050 INVERSE : PRINT " JET ": NORMAL
|
||||
4060 PRINT CHR$ (10)
|
||||
4070 PRINT "(B)RONX"
|
||||
4080 PRINT "(G)HETTO"
|
||||
4090 PRINT "(C)ENTRAL PARK
|
||||
4100 PRINT "(M)ANHATTEN"
|
||||
4110 PRINT "CONEY (I)SLAND"
|
||||
4120 PRINT "BROO(K)LYN"
|
||||
4130 PRINT "(O)OPS...STAY!"
|
||||
4140 INPUT "WHERE TO DUDE";JT$
|
||||
4150 IF JT$ = "B" THEN PQ$ = "THE BRONX": GOTO 42402
|
||||
4160 IF JT$ = "G" THEN PQ$ = "THE GHETTO": GOTO 42402
|
||||
4170 IF JT$ = "C" THEN PQ$ = "CENTRAL PARK": GOTO 42402
|
||||
4180 IF JT$ = "M" THEN PQ$ = "MANHATTEN": GOTO 42402
|
||||
4190 IF JT$ = "I" THEN PQ$ = "CONEY ISLAND": GOTO 42402
|
||||
4200 IF JT$ = "K" THEN PQ$ = "BROOKLYN": GOTO 42402
|
||||
4210 IF JT$ = "O" THEN GOTO 1820
|
||||
4220 GOTO 4240
|
||||
4230 REM ->JET2
|
||||
4240 IF PQ$ = P$ THEN GOTO 4280
|
||||
4250 P$ = PQ$
|
||||
4260 GOTO 4370
|
||||
4270 REM ->ALREADYTHERE
|
||||
4280 HOME
|
||||
4290 GOSUB 40
|
||||
4300 INVERSE : PRINT " JET ": NORMAL
|
||||
4310 PRINT CHR$ (10)
|
||||
4320 PRINT "YOU'RE ALREADY IN:"
|
||||
4330 PRINT " ";P$
|
||||
4340 GOSUB 70
|
||||
4350 GOTO 4240
|
||||
4360 REM ->SUBWAY
|
||||
4370 GOSUB 360
|
||||
4380 GOSUB 40
|
||||
4390 INVERSE : PRINT " SUBWAY "
|
||||
4400 PRINT CHR$ (10)
|
||||
4410 GOSUB 500
|
||||
4420 PRINT CHR$ (10)
|
||||
4430 PRINT "WELCOME TO ";P$
|
||||
4440 PRINT CHR$ (10)
|
||||
4450 INPUT "PRESS ENTER TO CONTINUE. ";X$
|
||||
4460 GOTO 1820
|
||||
4470 REM ->INSTRUCTIONS
|
||||
4480 HOME
|
||||
4490 GOSUB 40
|
||||
4500 PRINT CHR$ (10)
|
||||
4510 PRINT "WELCOME TO DRUGWAR//E"
|
||||
4520 PRINT CHR$ (10)
|
||||
4530 PRINT CHR$ (10)
|
||||
4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
|
||||
4550 REM ->INSERRORHANDLER
|
||||
4560 IF Q$ = "Y" THEN GOTO 4780
|
||||
4570 IF Q$ = "N" THEN GOGO4610
|
||||
4580 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
|
||||
4590 GOTO 4560
|
||||
4600 REM ->GAMESTART
|
||||
4610 WA% = 2000
|
||||
4620 SA% = 0
|
||||
4630 LS% = 5000
|
||||
4640 D% = 0
|
||||
4650 P$ = "THE BRONX"
|
||||
4660 GN% = 0
|
||||
4670 DP% = 0
|
||||
4680 IN% = 100
|
||||
4690 CI% = 0
|
||||
4700 HI% = 0
|
||||
4710 AI% = 0
|
||||
4720 WI% = 0
|
||||
4730 SI% = 0
|
||||
4740 LI% = 0
|
||||
4750 GOSUB 360
|
||||
4760 GOTO 1820
|
||||
4770 REM ->INST
|
||||
4780 HOME
|
||||
4790 GOSUB 40
|
||||
4800 PRINT CHR$ (10)
|
||||
4810 PRINT "THIS IS A GAME OF BUYING AND SELLING."
|
||||
4820 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
|
||||
4830 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
|
||||
4840 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
|
||||
4850 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
|
||||
4860 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
|
||||
4870 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
|
||||
4880 PRINT CHR$ (10)
|
||||
4890 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
|
||||
4900 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
|
||||
4910 PRINT "N = NO."
|
||||
4920 INPUT "PRESS ENTER TO CONTINUE.";X$
|
||||
4930 GOTO 4610
|
||||
4940 REM ->WEEDEND
|
||||
4950 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
|
||||
4960 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
|
||||
4970 PRINT "AND GET CREAMED BY A TRAIN!"
|
||||
4980 PRINT CHR$ (10)
|
||||
4990 PRINT CHR$ (10)
|
||||
5000 PRINT "JUST SAY NO TO DRUGS!"
|
||||
5010 WD% = 1
|
||||
5020 GOTO 70
|
||||
5030 GOTO 5050
|
||||
5040 REM ->ENDGAME
|
||||
5050 HOME
|
||||
5060 GOSUB 40
|
||||
5070 INVERSE : PRINT " GAME OVER ": NORMAL
|
||||
5080 PRINT CHR$ (10)
|
||||
5090 IF WD% = 1 THEN GOTO 5190
|
||||
5100 PRINT "THANKS FOR PLAYING."
|
||||
5110 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
|
||||
5120 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
|
||||
5130 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
|
||||
5140 PRINT CHR$ (10)
|
||||
5150 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
|
||||
5160 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
|
||||
5170 END
|
||||
5180 REM ->IRONICEND
|
||||
5190 HOME
|
||||
5200 GOSUB 40
|
||||
5210 INVERSE : PRINT " GAME OVER ": NORMAL
|
||||
5220 PRINT CHR$ (10)
|
||||
5230 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
|
||||
5240 PRINT "IN A GAME ABOUT DRUG DEALING."
|
||||
5250 PRINT CHR$ (10)
|
||||
5260 PRINT "WELL, THANKS FOR PLAYING."
|
||||
5270 END
|
||||
2050 INVERSE:PRINT" PRICES ":NORMAL
|
||||
2060 PRINT CHR$(10)
|
||||
2070 PRINT"COCAINE:","$"C%
|
||||
2080 PRINT"HEROIN:","$"H%
|
||||
2090 PRINT"ACID:","$"A%
|
||||
2100 PRINT"WEED:","$"W%
|
||||
2110 PRINT"SPEED:","$"S%
|
||||
2120 PRINT"LUDES:","$"L%
|
||||
2130 PRINT"WALLET:,"$"WA%
|
||||
2140 GOSUB 70
|
||||
2150 GOTO 1820
|
||||
2160 REM->INVENTORY
|
||||
2170 HOME
|
||||
2180 GOSUB 40
|
||||
2190 INVERSE:PRINT" INVENTORY ":NORMAL
|
||||
2200 PRINT CHR$(10)
|
||||
2210 PRINT"COCAINE:",CI%
|
||||
2220 PRINT"HEROIN:",HI%
|
||||
2230 PRINT"ACID:",AI%
|
||||
2240 PRINT"WEED:",WI%
|
||||
2250 PRINT"LUDES:",LI%
|
||||
2260 PRINT"FREE SPACE:",FS%
|
||||
2270 GOSUB 70
|
||||
2280 GOTO 1820
|
||||
2290 REM->BUY
|
||||
2300 HOME
|
||||
2310 GOSUB 40
|
||||
2320 INVERSE:PRINT" BUY ":NORMAL
|
||||
2330 PRINT CHR$(10)
|
||||
2340 PRINT"WHAT DO YOU WANT TO BUY?"
|
||||
2350 PRINT CHR$(10)
|
||||
2360 PRINT "(C)OCAINE"
|
||||
2370 PRINT "(H)EROIN"
|
||||
2380 PRINT "(A)CID"
|
||||
2390 PRINT "(W)EED"
|
||||
2400 PRINT "(S)PEED"
|
||||
2410 PRINT "(L)UDES"
|
||||
2420 INPUT "ENTER SELECTION: ";DB$
|
||||
2430 IF DB$="C" GOTO 2510
|
||||
2440 IF DB$="H" GOTO 2620
|
||||
2450 IF DB$="A" GOTO 2730
|
||||
2460 IF DB$="W" GOTO 2840
|
||||
2470 IF DB$="S" GOTO 2950
|
||||
2480 IF DB$="L" GOTO 3060
|
||||
2490 GOTO 1820
|
||||
2500 REM->COKEBUY
|
||||
2510 HOME
|
||||
2520 GOSUB 40
|
||||
2530 INVERSE:PRINT" BUY COCAINE ":NORMAL
|
||||
2540 PRINT CHR$(10)
|
||||
2550 J%=INT(WA%/C%)
|
||||
2560 GOSUB 110
|
||||
2570 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2510
|
||||
2580 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
|
||||
2590 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510
|
||||
2600 GOTO 1820
|
||||
2610 REM->HERBUY
|
||||
2620 HOME
|
||||
2630 GOSUB 40
|
||||
2640 INVERSE:PRINT" BUY HEROIN ":NORMAL
|
||||
2650 PRINT CHR$(10)
|
||||
2660 J%=INT(WA%/H%)
|
||||
2670 GOSUB 110
|
||||
2680 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2620
|
||||
2690 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
|
||||
2700 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620
|
||||
2710 GOTO 1820
|
||||
2720 REM->ACIDBUY
|
||||
2730 HOME
|
||||
2740 GOSUB 40
|
||||
2750 INVERSE:PRINT" BUY ACID ":NORMAL
|
||||
2760 PRINT CHR$(10)
|
||||
2770 J%=INT(WA%/A%)
|
||||
2780 GOSUB 110
|
||||
2790 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2730
|
||||
2800 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
|
||||
2810 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730
|
||||
2820 GOTO 1820
|
||||
2830 REM->WEEDBUY
|
||||
2840 HOME
|
||||
2850 GOSUB 40
|
||||
2860 INVERSE:PRINT" BUY WEED ":NORMAL
|
||||
2870 PRINT CHR$(10)
|
||||
2880 J%=INT(WA%/W%)
|
||||
2890 GOSUB 110
|
||||
2900 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2840
|
||||
2910 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
|
||||
2920 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840
|
||||
2930 GOTO 1820
|
||||
2940 REM->SPDBUY
|
||||
2950 HOME
|
||||
2960 GOSUB 40
|
||||
2970 INVERSE:PRINT" BUY SPEED ":NORMAL
|
||||
2980 PRINT CHR$(10)
|
||||
2990 J%=INT(WA%/S%)
|
||||
3000 GOSUB 110
|
||||
3010 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2950
|
||||
3020 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
|
||||
3030 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950
|
||||
3040 GOTO 1820
|
||||
3050 REM->LUDBUY
|
||||
3060 HOME
|
||||
3070 GOSUB 40
|
||||
3080 INVERSE:PRINT" BUY LUDES ":NORMAL
|
||||
3090 PRINT CHR$(10)
|
||||
3100 J%=INT(WA%/L%)
|
||||
3110 GOSUB 110
|
||||
3120 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3060
|
||||
3130 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
|
||||
3140 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060
|
||||
3150 GOTO 1820
|
||||
3160 REM->SELL
|
||||
3170 HOME
|
||||
3180 GOSUB 40
|
||||
3190 INVERSE:PRINT" SELL ":NORMAL
|
||||
3200 PRINT CHR$(10)
|
||||
3210 PRINT "WHAT WOULD YOU LIKE TO SELL?"
|
||||
3220 PRINT CHR$(10)
|
||||
3230 PRINT "(C)OCAINE"
|
||||
3240 PRINT "(H)EROIN"
|
||||
3250 PRINT "(A)CID"
|
||||
3260 PRINT "(W)EED"
|
||||
3270 PRINT "(S)PEED"
|
||||
3280 PRINT "(L)UDES"
|
||||
3290 REM->SELLSEL
|
||||
3300 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
|
||||
3310 IF DB$="C" GOTO 3410
|
||||
3320 IF DB$="H" GOTO 3510
|
||||
3330 IF DB$="A" GOTO 3610
|
||||
3340 IF DB$="W" GOTO 3710
|
||||
3350 IF DB$="S" GOTO 3810
|
||||
3360 IF DB$="L" GOTO 3910
|
||||
3370 IF DB$="0" GOGO 1820
|
||||
3380 PRINT "INVALID SELECTION!"
|
||||
3390 GOTO 3300
|
||||
3400 REM->COKESELL
|
||||
3410 HOME
|
||||
3420 GOSUB 40
|
||||
3430 INVERSE:PRINT" SELL COCAINE ":NORMAL
|
||||
3440 PRINT CHR$(10)
|
||||
3450 J%=CI%
|
||||
3460 GOSUB 180
|
||||
3470 CI%=CI%-J%
|
||||
3480 WA%=WA%+(C%*J%)
|
||||
3490 GOTO 1820
|
||||
3500 REM->HERSELL
|
||||
3510 HOME
|
||||
3520 GOSUB 40
|
||||
3530 INVERSE:PRINT" SELL HEROIN ":NORMAL
|
||||
3540 PRINT CHR$(10)
|
||||
3550 J%=HI%
|
||||
3560 GOSUB 180
|
||||
3570 HI%=HI%-J%
|
||||
3580 WA%=WA%+(H%*J%)
|
||||
3590 GOTO 1820
|
||||
3600 REM->ACIDSELL
|
||||
3610 HOME
|
||||
3620 GOSUB 40
|
||||
3630 INVERSE:PRINT" SELL ACID ":NORMAL
|
||||
3640 PRINT CHR$(10)
|
||||
3650 J%=AI%
|
||||
3660 GOSUB 180
|
||||
3670 AI%=AI%-J%
|
||||
3680 WA%=WA%+(A%*J%)
|
||||
3690 GOTO 1820
|
||||
3700 REM->WEEDSELL
|
||||
3710 HOME
|
||||
3720 GOSUB 40
|
||||
3730 INVERSE:PRINT" SELL WEED ":NORMAL
|
||||
3740 PRINT CHR$(10)
|
||||
3750 J%=WI%
|
||||
3760 GOSUB 180
|
||||
3770 WI%=WI%-J%
|
||||
3780 WA%=WA%+(W%*J%)
|
||||
3790 GOTO 1820
|
||||
3800 REM->SPDSELL
|
||||
3810 HOME
|
||||
3820 GOSUB 40
|
||||
3830 INVERSE:PRINT" SELL SPEED ":NORMAL
|
||||
3840 PRINT CHR$(10)
|
||||
3850 J%=SI%
|
||||
3860 GOSUB 180
|
||||
3870 SI%=SI%-J%
|
||||
3880 WA%=WA%+(S%*J%)
|
||||
3890 GOTO 1820
|
||||
3900 REM->LUDSELL
|
||||
3910 HOME
|
||||
3920 GOSUB 40
|
||||
3930 INVERSE:PRINT" SELL COCAINE ":NORMAL
|
||||
3940 PRINT CHR$(10)
|
||||
3950 J%=LI%
|
||||
3960 GOSUB 180
|
||||
3970 LI%=LI%-J%
|
||||
3980 WA%=WA%+(L%*J%)
|
||||
3990 GOTO 1820
|
||||
4000 REM->JET
|
||||
4010 HOME
|
||||
4020 GOSUB 40
|
||||
4030 INVERSE:PRINT" JET ":NORMAL
|
||||
4040 PRINT CHR$(10)
|
||||
4050 PRINT "(B)RONX"
|
||||
4060 PRINT "(G)HETTO"
|
||||
4070 PRINT "(C)ENTRAL PARK
|
||||
4080 PRINT "(M)ANHATTEN"
|
||||
4090 PRINT "CONEY (I)SLAND"
|
||||
4100 PRINT "BROO(K)LYN"
|
||||
4110 PRINT "(O)OPS...STAY!"
|
||||
4120 INPUT "WHERE TO DUDE";JT$
|
||||
4130 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 42202
|
||||
4140 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 42202
|
||||
4150 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 42202
|
||||
4160 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 42202
|
||||
4170 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 42202
|
||||
4180 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 42202
|
||||
4190 IF JT$="O" THEN GOTO 1820
|
||||
4200 GOTO 4220
|
||||
4210 REM->JET2
|
||||
4220 IF PQ$=P$ THEN GOTO 4260
|
||||
4230 P$ = PQ$
|
||||
4240 GOTO 4350
|
||||
4250 REM->ALREADYTHERE
|
||||
4260 HOME
|
||||
4270 GOSUB 40
|
||||
4280 INVERSE:PRINT" JET ":NORMAL
|
||||
4290 PRINT CHR$(10)
|
||||
4300 PRINT "YOU'RE ALREADY IN:"
|
||||
4310 PRINT " ";P$
|
||||
4320 GOSUB 70
|
||||
4330 GOTO 4220
|
||||
4340 REM->SUBWAY
|
||||
4350 GOSUB 360
|
||||
4360 GOSUB 40
|
||||
4370 INVERSE:PRINT" SUBWAY "
|
||||
4380 PRINT CHR$(10)
|
||||
4390 GOSUB 500
|
||||
4400 PRINT CHR$(10)
|
||||
4410 PRINT "WELCOME TO ";P$
|
||||
4420 PRINT CHR$(10)
|
||||
4430 INPUT "PRESS ENTER TO CONTINUE. ";X$
|
||||
4440 GOTO 1820
|
||||
4450 REM->INSTRUCTIONS
|
||||
4460 HOME
|
||||
4470 GOSUB 40
|
||||
4480 PRINT CHR$(10)
|
||||
4490 PRINT "WELCOME TO DRUGWAR//E"
|
||||
4500 PRINT CHR$(10)
|
||||
4510 PRINT CHR$(10)
|
||||
4520 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
|
||||
4530 REM->INSERRORHANDLER
|
||||
4540 IF Q$ = "Y" THEN GOTO 4760
|
||||
4550 IF Q$ = "N" THEN GOTO 4590
|
||||
4560 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
|
||||
4570 GOTO 4540
|
||||
4580 REM->GAMESTART
|
||||
4590 WA%=2000
|
||||
4600 SA%=0
|
||||
4610 LS%=5000
|
||||
4620 D%=0
|
||||
4630 P$="THE BRONX"
|
||||
4640 GN%=0
|
||||
4650 DP%=0
|
||||
4660 IN%=100
|
||||
4670 CI%=0
|
||||
4680 HI%=0
|
||||
4690 AI%=0
|
||||
4700 WI%=0
|
||||
4710 SI%=0
|
||||
4720 LI%=0
|
||||
4730 GOSUB 360
|
||||
4740 GOTO 1820
|
||||
4750 REM->INST
|
||||
4760 HOME
|
||||
4770 GOSUB 40
|
||||
4780 PRINT CHR$(10)
|
||||
4790 PRINT "THIS IS A GAME OF BUYING AND SELLING."
|
||||
4800 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
|
||||
4810 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
|
||||
4820 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
|
||||
4830 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
|
||||
4840 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
|
||||
4850 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
|
||||
4860 PRINT CHR$(10)
|
||||
4870 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
|
||||
4880 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
|
||||
4890 PRINT "N = NO."
|
||||
4900 INPUT "PRESS ENTER TO CONTINUE.";X$
|
||||
4910 GOTO 4590
|
||||
4920 REM->WEEDEND
|
||||
4930 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
|
||||
4940 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
|
||||
4950 PRINT "AND GET CREAMED BY A TRAIN!"
|
||||
4960 PRINT CHR$(10)
|
||||
4970 PRINT CHR$(10)
|
||||
4980 PRINT "JUST SAY NO TO DRUGS!"
|
||||
4990 WD%=1
|
||||
5000 GOTO 70
|
||||
5010 GOTO 5030
|
||||
5020 REM->ENDGAME
|
||||
5030 HOME
|
||||
5040 GOSUB 40
|
||||
5050 INVERSE : PRINT " GAME OVER " : NORMAL
|
||||
5060 PRINT CHR$(10)
|
||||
5070 IF WD%=1 THEN GOTO 5170
|
||||
5080 PRINT "THANKS FOR PLAYING."
|
||||
5090 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
|
||||
5100 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
|
||||
5110 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
|
||||
5120 PRINT CHR$(10)
|
||||
5130 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
|
||||
5140 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
|
||||
5150 END
|
||||
5160 REM->IRONICEND
|
||||
5170 HOME
|
||||
5180 GOSUB 40
|
||||
5190 INVERSE : PRINT " GAME OVER " : NORMAL
|
||||
5200 PRINT CHR$(10)
|
||||
5210 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
|
||||
5220 PRINT "IN A GAME ABOUT DRUG DEALING."
|
||||
5230 PRINT CHR$(10)
|
||||
5240 PRINT "WELL, THANKS FOR PLAYING."
|
||||
5250 END
|
||||
|
||||
Loading…
Reference in New Issue