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

ALPHA 6

Browse Source
master
Jay 6 years ago
parent 17ae17f6a1
commit 44612ea63c
1 changed files with 356 additions and 354 deletions
Show Stats Download Patch File Download Diff File

710
drugwar2e.bas
Unescape Escape View File

@ -1,6 +1,6 @@
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h58 10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 02h32
11 REM LABELED ALPHA 5 11 REM - LABELED ALPHA 6
20 GOTO 4460 20 GOTO 4480
30 REM->TITLEBAR 30 REM->TITLEBAR
40 PRINT " DRUGWAR//E " 40 PRINT " DRUGWAR//E "
50 RETURN 50 RETURN
@ -34,18 +34,18 @@
330 FS%=IN%-((CI%+HI%+AI%+WI%+SI%+LI%)+(GN%*5)) 330 FS%=IN%-((CI%+HI%+AI%+WI%+SI%+LI%)+(GN%*5))
340 RETURN 340 RETURN
350 REM->DAILY 350 REM->DAILY
360 C%=INT(RND(1)*12000+16000) 360 C%=RND(1)*12000+16000
370 H%=INT(RND(1)*7000+5000) 370 H%=RND(1)*7000+5000
380 A%=INT((RND(1)*34+10)*100) 380 A%=(RND(1)*34+10)*100
390 W%=INT((RND(1)*42+33)*10) 390 W%=(RND(1)*42+33)*10
400 S%=INT((RND(1)*15+7)*10) 400 S%=(RND(1)*15+7)*10
410 L%=INT((RND(1)*4+1)*10) 410 L%=(RND(1)*4+1)*10
420 B%=INT(RND(1)*20) 420 B%=RND(1)*20
430 D%=D%+1 430 D%=D%+1
440 LS%=INT(LS%*1.1) 440 LS%=LS%*1.1
450 SA%=INT(SA%*1.06) 450 SA%=SA%*1.06
460 REM->CHECKDAY 460 REM->CHECKDAY
470 IF D% >= 31 GOTO 5030 470 IF D% >= 31 GOTO 5050
480 RETURN 480 RETURN
490 REM->SUBWAYEVENTS 490 REM->SUBWAYEVENTS
500 IF B%=1 THEN GOTO 690 500 IF B%=1 THEN GOTO 690
@ -133,7 +133,7 @@
1320 PRINT "LIKE GOOD STUFF!!" 1320 PRINT "LIKE GOOD STUFF!!"
1330 PRINT CHR$(10) 1330 PRINT CHR$(10)
1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$ 1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
1350 IF X$ = "Y" THEN GOTO 4930 1350 IF X$ = "Y" THEN GOTO 4950
1360 RETURN 1360 RETURN
1370 REM->NEWCOAT 1370 REM->NEWCOAT
1380 IF WA%<300 THEN RETURN 1380 IF WA%<300 THEN RETURN
@ -145,8 +145,8 @@
1440 GOTO 1820 1440 GOTO 1820
1450 REM->DEDGUY 1450 REM->DEDGUY
1460 IF FS%<8 THEN RETURN 1460 IF FS%<8 THEN RETURN
1470 DG%=(INT((RND(1)*7)+1) 1470 DG%=(RND(1)*7)+1)
1480 XG%=INT((RND(1)*5) 1480 XG%=(RND(1)*5)
1490 IF XG%=0 THEN LI%=LI%+DG% : SS$ = "LUDES" 1490 IF XG%=0 THEN LI%=LI%+DG% : SS$ = "LUDES"
1500 IF XG%=1 THEN SI%=SI%+DG% : SS$ = "SPEED" 1500 IF XG%=1 THEN SI%=SI%+DG% : SS$ = "SPEED"
1510 IF XG%=2 THEN WI%=WI%+DG% : SS$ = "WEED" 1510 IF XG%=2 THEN WI%=WI%+DG% : SS$ = "WEED"
@ -183,344 +183,346 @@
1820 HOME 1820 HOME
1830 GOSUB 40 1830 GOSUB 40
1840 GOSUB 330 1840 GOSUB 330
1850 PRINT "(C)HECK PRICES" 1850 INVERSE : PRINT " DAY:";D%;" ";PH$ : NORMAL
1860 PRINT "(I)NVENTORY" 1860 PRINT "(C)HECK PRICES"
1870 PRINT "(B)UY" 1870 PRINT "(I)NVENTORY"
1880 PRINT "(S)ELL" 1880 PRINT "(B)UY"
1890 PRINT "(J)ET" 1890 PRINT "(S)ELL"
1900 PRINT "SEE (L)OAN SHARK" 1900 PRINT "(J)ET"
1910 PRINT "(V)ISIT BANK" 1910 PRINT "SEE (L)OAN SHARK"
1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$ 1920 PRINT "(V)ISIT BANK"
1930 IF T$ = "C" GOTO 2030 1930 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
1940 IF T$ = "I" GOTO 2170 1940 IF T$ = "C" GOTO 2040
1950 IF T$ = "B" GOTO 2300 1950 IF T$ = "I" GOTO 2180
1960 IF T$ = "S" GOTO 3170 1960 IF T$ = "B" GOTO 2320
1970 IF T$ = "J" GOTO 4220 1970 IF T$ = "S" GOTO 3190
1980 IF T$ = "L" GOTO 1680 1980 IF T$ = "J" GOTO 4030
1990 IF T$ = "V" GOTO 1750 1990 IF T$ = "L" GOTO 1680
2000 PRINT "INVALID SELECTION" 2000 IF T$ = "V" GOTO 1750
2010 GOTO 1820 2010 PRINT "INVALID SELECTION"
2020 REM->PRICES 2020 GOTO 1820
2030 HOME 2030 REM->PRICES
2040 GOSUB 40 2040 HOME
2050 INVERSE:PRINT" PRICES ":NORMAL 2050 GOSUB 40
2060 PRINT CHR$(10) 2060 INVERSE:PRINT" PRICES ":NORMAL
2070 PRINT"COCAINE:","$"C% 2070 PRINT CHR$(10)
2080 PRINT"HEROIN:","$"H% 2080 PRINT"COCAINE:","$"C%
2090 PRINT"ACID:","$"A% 2090 PRINT"HEROIN:","$"H%
2100 PRINT"WEED:","$"W% 2100 PRINT"ACID:","$"A%
2110 PRINT"SPEED:","$"S% 2110 PRINT"WEED:","$"W%
2120 PRINT"LUDES:","$"L% 2120 PRINT"SPEED:","$"S%
2130 PRINT"WALLET:","$"WA%31 2130 PRINT"LUDES:","$"L%
2140 GOSUB 70 2140 PRINT"WALLET:","$"WA%
2150 GOTO 1820 2150 GOSUB 70
2160 REM->INVENTORY 2160 GOTO 1820
2170 HOME 2170 REM->INVENTORY
2180 GOSUB 40 2180 HOME
2190 INVERSE:PRINT" INVENTORY ":NORMAL 2190 GOSUB 40
2200 PRINT CHR$(10) 2200 INVERSE:PRINT" INVENTORY ":NORMAL
2210 PRINT"COCAINE:",CI% 2210 PRINT CHR$(10)
2220 PRINT"HEROIN:",HI% 2220 PRINT"COCAINE:",CI%
2230 PRINT"ACID:",AI% 2230 PRINT"HEROIN:",HI%
2240 PRINT"WEED:",WI% 2240 PRINT"ACID:",AI%
2250 PRINT"LUDES:",LI% 2250 PRINT"WEED:",WI%
2260 PRINT"FREE SPACE:",FS% 2260 PRINT"SPEED:",SI%
2270 GOSUB 70 2270 PRINT"LUDES:",LI%
2280 GOTO 1820 2280 PRINT"FREE SPACE:",FS%
2290 REM->BUY 2290 GOSUB 70
2300 HOME 2300 GOTO 1820
2310 GOSUB 40 2310 REM->BUY
2320 INVERSE:PRINT" BUY ":NORMAL 2320 HOME
2330 PRINT CHR$(10) 2330 GOSUB 40
2340 PRINT"WHAT DO YOU WANT TO BUY?" 2340 INVERSE:PRINT" BUY ":NORMAL
2350 PRINT CHR$(10) 2350 PRINT CHR$(10)
2360 PRINT "(C)OCAINE" 2360 PRINT"WHAT DO YOU WANT TO BUY?"
2370 PRINT "(H)EROIN" 2370 PRINT CHR$(10)
2380 PRINT "(A)CID" 2380 PRINT "(C)OCAINE"
2390 PRINT "(W)EED" 2390 PRINT "(H)EROIN"
2400 PRINT "(S)PEED" 2400 PRINT "(A)CID"
2410 PRINT "(L)UDES" 2410 PRINT "(W)EED"
2420 INPUT "ENTER SELECTION: ";DB$ 2420 PRINT "(S)PEED"
2430 IF DB$="C" GOTO 2510 2430 PRINT "(L)UDES"
2440 IF DB$="H" GOTO 2620 2440 INPUT "ENTER SELECTION: ";DB$
2450 IF DB$="A" GOTO 2730 2450 IF DB$="C" GOTO 2530
2460 IF DB$="W" GOTO 2840 2460 IF DB$="H" GOTO 2640
2470 IF DB$="S" GOTO 2950 2470 IF DB$="A" GOTO 2750
2480 IF DB$="L" GOTO 3060 2480 IF DB$="W" GOTO 2860
2490 GOTO 1820 2490 IF DB$="S" GOTO 2970
2500 REM->COKEBUY 2500 IF DB$="L" GOTO 3080
2510 HOME 2510 GOTO 1820
2520 GOSUB 40 2520 REM->COKEBUY
2530 INVERSE:PRINT" BUY COCAINE ":NORMAL 2530 HOME
2540 PRINT CHR$(10) 2540 GOSUB 40
2550 J%=INT(WA%/C%) 2550 INVERSE:PRINT" BUY COCAINE ":NORMAL
2560 GOSUB 110 2560 PRINT CHR$(10)
2570 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2510 2570 J%=WA%/C%
2580 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%) 2580 GOSUB 110
2590 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510 2590 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2530
2600 GOTO 1820 2600 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
2610 REM->HERBUY 2610 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2530
2620 HOME 2620 GOTO 1820
2630 GOSUB 40 2630 REM->HERBUY
2640 INVERSE:PRINT" BUY HEROIN ":NORMAL 2640 HOME
2650 PRINT CHR$(10) 2650 GOSUB 40
2660 J%=INT(WA%/H%) 2660 INVERSE:PRINT" BUY HEROIN ":NORMAL
2670 GOSUB 110 2670 PRINT CHR$(10)
2680 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2620 2680 J%=WA%/H%
2690 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%) 2690 GOSUB 110
2700 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620 2700 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2640
2710 GOTO 1820 2710 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
2720 REM->ACIDBUY 2720 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2640
2730 HOME 2730 GOTO 1820
2740 GOSUB 40 2740 REM->ACIDBUY
2750 INVERSE:PRINT" BUY ACID ":NORMAL 2750 HOME
2760 PRINT CHR$(10) 2760 GOSUB 40
2770 J%=INT(WA%/A%) 2770 INVERSE:PRINT" BUY ACID ":NORMAL
2780 GOSUB 110 2780 PRINT CHR$(10)
2790 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2730 2790 J%=WA%/A%
2800 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%) 2800 GOSUB 110
2810 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730 2810 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2750
2820 GOTO 1820 2820 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
2830 REM->WEEDBUY 2830 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2750
2840 HOME 2840 GOTO 1820
2850 GOSUB 40 2850 REM->WEEDBUY
2860 INVERSE:PRINT" BUY WEED ":NORMAL 2860 HOME
2870 PRINT CHR$(10) 2870 GOSUB 40
2880 J%=INT(WA%/W%) 2880 INVERSE:PRINT" BUY WEED ":NORMAL
2890 GOSUB 110 2890 PRINT CHR$(10)
2900 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2840 2900 J%=WA%/W%
2910 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%) 2910 GOSUB 110
2920 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840 2920 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2860
2930 GOTO 1820 2930 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
2940 REM->SPDBUY 2940 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2860
2950 HOME 2950 GOTO 1820
2960 GOSUB 40 2960 REM->SPDBUY
2970 INVERSE:PRINT" BUY SPEED ":NORMAL 2970 HOME
2980 PRINT CHR$(10) 2980 GOSUB 40
2990 J%=INT(WA%/S%) 2990 INVERSE:PRINT" BUY SPEED ":NORMAL
3000 GOSUB 110 3000 PRINT CHR$(10)
3010 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2950 3010 J%=WA%/S%
3020 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%) 3020 GOSUB 110
3030 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950 3030 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2970
3040 GOTO 1820 3040 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
3050 REM->LUDBUY 3050 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2970
3060 HOME 3060 GOTO 1820
3070 GOSUB 40 3070 REM->LUDBUY
3080 INVERSE:PRINT" BUY LUDES ":NORMAL 3080 HOME
3090 PRINT CHR$(10) 3090 GOSUB 40
3100 J%=INT(WA%/L%) 3100 INVERSE:PRINT" BUY LUDES ":NORMAL
3110 GOSUB 110 3110 PRINT CHR$(10)
3120 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3060 3120 J%=WA%/L%
3130 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%) 3130 GOSUB 110
3140 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060 3140 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3080
3150 GOTO 1820 3150 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
3160 REM->SELL 3160 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3080
3170 HOME 3170 GOTO 1820
3180 GOSUB 40 3180 REM->SELL
3190 INVERSE:PRINT" SELL ":NORMAL 3190 HOME
3200 PRINT CHR$(10) 3200 GOSUB 40
3210 PRINT "WHAT WOULD YOU LIKE TO SELL?" 3210 INVERSE:PRINT" SELL ":NORMAL
3220 PRINT CHR$(10) 3220 PRINT CHR$(10)
3230 PRINT "(C)OCAINE" 3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
3240 PRINT "(H)EROIN" 3240 PRINT CHR$(10)
3250 PRINT "(A)CID" 3250 PRINT "(C)OCAINE"
3260 PRINT "(W)EED" 3260 PRINT "(H)EROIN"
3270 PRINT "(S)PEED" 3270 PRINT "(A)CID"
3280 PRINT "(L)UDES" 3280 PRINT "(W)EED"
3290 REM->SELLSEL 3290 PRINT "(S)PEED"
3300 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$ 3300 PRINT "(L)UDES"
3310 IF DB$="C" GOTO 3410 3310 REM->SELLSEL
3320 IF DB$="H" GOTO 3510 3320 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
3330 IF DB$="A" GOTO 3610 3330 IF DB$="C" GOTO 3430
3340 IF DB$="W" GOTO 3710 3340 IF DB$="H" GOTO 3530
3350 IF DB$="S" GOTO 3810 3350 IF DB$="A" GOTO 3630
3360 IF DB$="L" GOTO 3910 3360 IF DB$="W" GOTO 3730
3370 IF DB$="0" GOGO 1820 3370 IF DB$="S" GOTO 3830
3380 PRINT "INVALID SELECTION!" 3380 IF DB$="L" GOTO 3930
3390 GOTO 3300 3390 IF DB$="0" GOGO 1820
3400 REM->COKESELL 3400 PRINT "INVALID SELECTION!"
3410 HOME 3410 GOTO 3320
3420 GOSUB 40 3420 REM->COKESELL
3430 INVERSE:PRINT" SELL COCAINE ":NORMAL 3430 HOME
3440 PRINT CHR$(10) 3440 GOSUB 40
3450 J%=CI% 3450 INVERSE:PRINT" SELL COCAINE ":NORMAL
3460 GOSUB 180 3460 PRINT CHR$(10)
3470 CI%=CI%-J% 3470 J%=CI%
3480 WA%=WA%+(C%*J%) 3480 GOSUB 180
3490 GOTO 1820 3490 CI%=CI%-J%
3500 REM->HERSELL 3500 WA%=WA%+(C%*J%)
3510 HOME 3510 GOTO 1820
3520 GOSUB 40 3520 REM->HERSELL
3530 INVERSE:PRINT" SELL HEROIN ":NORMAL 3530 HOME
3540 PRINT CHR$(10) 3540 GOSUB 40
3550 J%=HI% 3550 INVERSE:PRINT" SELL HEROIN ":NORMAL
3560 GOSUB 180 3560 PRINT CHR$(10)
3570 HI%=HI%-J% 3570 J%=HI%
3580 WA%=WA%+(H%*J%) 3580 GOSUB 180
3590 GOTO 1820 3590 HI%=HI%-J%
3600 REM->ACIDSELL 3600 WA%=WA%+(H%*J%)
3610 HOME 3610 GOTO 1820
3620 GOSUB 40 3620 REM->ACIDSELL
3630 INVERSE:PRINT" SELL ACID ":NORMAL 3630 HOME
3640 PRINT CHR$(10) 3640 GOSUB 40
3650 J%=AI% 3650 INVERSE:PRINT" SELL ACID ":NORMAL
3660 GOSUB 180 3660 PRINT CHR$(10)
3670 AI%=AI%-J% 3670 J%=AI%
3680 WA%=WA%+(A%*J%) 3680 GOSUB 180
3690 GOTO 1820 3690 AI%=AI%-J%
3700 REM->WEEDSELL 3700 WA%=WA%+(A%*J%)
3710 HOME 3710 GOTO 1820
3720 GOSUB 40 3720 REM->WEEDSELL
3730 INVERSE:PRINT" SELL WEED ":NORMAL 3730 HOME
3740 PRINT CHR$(10) 3740 GOSUB 40
3750 J%=WI% 3750 INVERSE:PRINT" SELL WEED ":NORMAL
3760 GOSUB 180 3760 PRINT CHR$(10)
3770 WI%=WI%-J% 3770 J%=WI%
3780 WA%=WA%+(W%*J%) 3780 GOSUB 180
3790 GOTO 1820 3790 WI%=WI%-J%
3800 REM->SPDSELL 3800 WA%=WA%+(W%*J%)
3810 HOME 3810 GOTO 1820
3820 GOSUB 40 3820 REM->SPDSELL
3830 INVERSE:PRINT" SELL SPEED ":NORMAL 3830 HOME
3840 PRINT CHR$(10) 3840 GOSUB 40
3850 J%=SI% 3850 INVERSE:PRINT" SELL SPEED ":NORMAL
3860 GOSUB 180 3860 PRINT CHR$(10)
3870 SI%=SI%-J% 3870 J%=SI%
3880 WA%=WA%+(S%*J%) 3880 GOSUB 180
3890 GOTO 1820 3890 SI%=SI%-J%
3900 REM->LUDSELL 3900 WA%=WA%+(S%*J%)
3910 HOME 3910 GOTO 1820
3920 GOSUB 40 3920 REM->LUDSELL
3930 INVERSE:PRINT" SELL COCAINE ":NORMAL 3930 HOME
3940 PRINT CHR$(10) 3940 GOSUB 40
3950 J%=LI% 3950 INVERSE:PRINT" SELL COCAINE ":NORMAL
3960 GOSUB 180 3960 PRINT CHR$(10)
3970 LI%=LI%-J% 3970 J%=LI%
3980 WA%=WA%+(L%*J%) 3980 GOSUB 180
3990 GOTO 1820 3990 LI%=LI%-J%
4000 REM->JET 4000 WA%=WA%+(L%*J%)
4010 HOME 4010 GOTO 1820
4020 GOSUB 40 4020 REM->JET
4030 INVERSE:PRINT" JET ":NORMAL 4030 HOME
4040 PRINT CHR$(10) 4040 GOSUB 40
4050 PRINT "(B)RONX" 4050 INVERSE:PRINT" JET ":NORMAL
4060 PRINT "(G)HETTO" 4060 PRINT CHR$(10)
4070 PRINT "(C)ENTRAL PARK 4070 PRINT "(B)RONX"
4080 PRINT "(M)ANHATTEN" 4080 PRINT "(G)HETTO"
4090 PRINT "CONEY (I)SLAND" 4090 PRINT "(C)ENTRAL PARK
4100 PRINT "BROO(K)LYN" 4100 PRINT "(M)ANHATTEN"
4110 PRINT "(O)OPS...STAY!" 4110 PRINT "CONEY (I)SLAND"
4120 INPUT "WHERE TO DUDE";JT$ 4120 PRINT "BROO(K)LYN"
4130 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 42202 4130 PRINT "(O)OPS...STAY!"
4140 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 42202 4140 INPUT "WHERE TO DUDE";JT$
4150 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 42202 4150 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 4240
4160 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 42202 4160 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 4240
4170 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 42202 4170 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 4240
4180 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 42202 4180 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 4240
4190 IF JT$="O" THEN GOTO 1820 4190 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 4240
4200 GOTO 4220 4200 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 4240
4210 REM->JET2 4210 IF JT$="O" THEN GOTO 1820
4220 IF PQ$=P$ THEN GOTO 4260 4220 GOTO 4030
4230 P$ = PQ$ 4230 REM->JETB
4240 GOTO 4350 4240 IF PQ$=PH$ THEN GOTO 4280
4250 REM->ALREADYTHERE 4250 PH$ = PQ$
4260 HOME 4260 GOTO 4370
4270 GOSUB 40 4270 REM->ALREADYTHERE
4280 INVERSE:PRINT" JET ":NORMAL 4280 HOME
4290 PRINT CHR$(10) 4290 GOSUB 40
4300 PRINT "YOU'RE ALREADY IN:" 4300 INVERSE:PRINT" JET ":NORMAL
4310 PRINT " ";P$ 4310 PRINT CHR$(10)
4320 GOSUB 70 4320 PRINT "YOU'RE ALREADY IN:"
4330 GOTO 4220 4330 PRINT " ";PH$
4340 REM->SUBWAY 4340 GOSUB 70
4350 GOSUB 360 4350 GOTO 4030
4360 GOSUB 40 4360 REM->SUBWAY
4370 INVERSE:PRINT" SUBWAY " 4370 GOSUB 360
4380 PRINT CHR$(10) 4380 GOSUB 40
4390 GOSUB 500 4390 INVERSE:PRINT" SUBWAY "
4400 PRINT CHR$(10) 4400 PRINT CHR$(10)
4410 PRINT "WELCOME TO ";P$ 4410 GOSUB 500
4420 PRINT CHR$(10) 4420 PRINT CHR$(10)
4430 INPUT "PRESS ENTER TO CONTINUE. ";X$ 4430 PRINT "WELCOME TO ";PH$
4440 GOTO 1820 4440 PRINT CHR$(10)
4450 REM->INSTRUCTIONS 4450 INPUT "PRESS ENTER TO CONTINUE. ";X$
4460 HOME 4460 GOTO 1820
4470 GOSUB 40 4470 REM->INSTRUCTIONS
4480 PRINT CHR$(10) 4480 HOME
4490 PRINT "WELCOME TO DRUGWAR//E" 4490 GOSUB 40
4500 PRINT CHR$(10) 4500 PRINT CHR$(10)
4510 PRINT CHR$(10) 4510 PRINT "WELCOME TO DRUGWAR//E"
4520 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$ 4520 PRINT CHR$(10)
4530 REM->INSERRORHANDLER 4530 PRINT CHR$(10)
4540 IF Q$ = "Y" THEN GOTO 4760 4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
4550 IF Q$ = "N" THEN GOTO 4590 4550 REM->INSERRORHANDLER
4560 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$ 4560 IF Q$ = "Y" THEN GOTO 4780
4570 GOTO 4540 4570 IF Q$ = "N" THEN GOTO 4610
4580 REM->GAMESTART 4580 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
4590 WA%=2000 4590 GOTO 4560
4600 SA%=0 4600 REM->GAMESTART
4610 LS%=5000 4610 WA%=2000
4620 D%=0 4620 SA%=0
4630 P$="THE BRONX" 4630 LS%=5000
4640 GN%=0 4640 D%=0
4650 DP%=0 4650 PH$="THE BRONX"
4660 IN%=100 4660 GN%=0
4670 CI%=0 4670 DP%=0
4680 HI%=0 4680 IN%=100
4690 AI%=0 4690 CI%=0
4700 WI%=0 4700 HI%=0
4710 SI%=0 4710 AI%=0
4720 LI%=0 4720 WI%=0
4730 GOSUB 360 4730 SI%=0
4740 GOTO 1820 4740 LI%=0
4750 REM->INST 4750 GOSUB 360
4760 HOME 4760 GOTO 1820
4770 GOSUB 40 4770 REM->INST
4780 PRINT CHR$(10) 4780 HOME
4790 PRINT "THIS IS A GAME OF BUYING AND SELLING." 4790 GOSUB 40
4800 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND" 4800 PRINT CHR$(10)
4810 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE" 4810 PRINT "THIS IS A GAME OF BUYING AND SELLING."
4820 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY" 4820 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
4830 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED" 4830 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
4840 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL" 4840 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
4850 PRINT "ATTRACT THE ATTENTION OF THE POLICE. 4850 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
4860 PRINT CHR$(10) 4860 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
4870 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER" 4870 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
4880 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND" 4880 PRINT CHR$(10)
4890 PRINT "N = NO." 4890 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
4900 INPUT "PRESS ENTER TO CONTINUE.";X$ 4900 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
4910 GOTO 4590 4910 PRINT "N = NO."
4920 REM->WEEDEND 4920 INPUT "PRESS ENTER TO CONTINUE.";X$
4930 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP" 4930 GOTO 4610
4940 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS," 4940 REM->WEEDEND
4950 PRINT "AND GET CREAMED BY A TRAIN!" 4950 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
4960 PRINT CHR$(10) 4960 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
4970 PRINT CHR$(10) 4970 PRINT "AND GET CREAMED BY A TRAIN!"
4980 PRINT "JUST SAY NO TO DRUGS!" 4980 PRINT CHR$(10)
4990 WD%=1 4990 PRINT CHR$(10)
5000 GOTO 70 5000 PRINT "JUST SAY NO TO DRUGS!"
5010 GOTO 5030 5010 WD%=1
5020 REM->ENDGAME 5020 GOTO 70
5030 HOME 5030 GOTO 5050
5040 GOSUB 40 5040 REM->ENDGAME
5050 INVERSE : PRINT " GAME OVER " : NORMAL 5050 HOME
5060 PRINT CHR$(10) 5060 GOSUB 40
5070 IF WD%=1 THEN GOTO 5170 5070 INVERSE : PRINT " GAME OVER " : NORMAL
5080 PRINT "THANKS FOR PLAYING." 5080 PRINT CHR$(10)
5090 PRINT "AT THIS POINT I'M SUPPOSLISTED TO CALCULATE" 5090 IF WD%=1 THEN GOTO 5190
5100 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS" 5100 PRINT "THANKS FOR PLAYING."
5110 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE." 5110 PRINT "AT THIS POINT I'M SUPPOSLISTED TO CALCULATE"
5120 PRINT CHR$(10) 5120 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
5130 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING" 5130 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
5140 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB." 5140 PRINT CHR$(10)
5150 END 5150 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
5160 REM->IRONICEND 5160 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
5170 HOME 5170 END
5180 GOSUB 40 5180 REM->IRONICEND
5190 INVERSE : PRINT " GAME OVER " : NORMAL 5190 HOME
5200 PRINT CHR$(10) 5200 GOSUB 40
5210 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT" 5210 INVERSE : PRINT " GAME OVER " : NORMAL
5220 PRINT "IN A GAME ABOUT DRUG DEALING." 5220 PRINT CHR$(10)
5230 PRINT CHR$(10) 5230 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
5240 PRINT "WELL, THANKS FOR PLAYING." 5240 PRINT "IN A GAME ABOUT DRUG DEALING."
5250 END 5250 PRINT CHR$(10)
5260 PRINT "WELL, THANKS FOR PLAYING."
5270 END

Write Preview
Loading…
Cancel
Save