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
11 REM LABELED ALPHA 5
20 GOTO 4460
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 02h32
11 REM - LABELED ALPHA 6
20 GOTO 4480
30 REM->TITLEBAR
40 PRINT " DRUGWAR//E "
50 RETURN
@ -34,18 +34,18 @@
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)
360 C%=RND(1)*12000+16000
370 H%=RND(1)*7000+5000
380 A%=(RND(1)*34+10)*100
390 W%=(RND(1)*42+33)*10
400 S%=(RND(1)*15+7)*10
410 L%=(RND(1)*4+1)*10
420 B%=RND(1)*20
430 D%=D%+1
440 LS%=INT(LS%*1.1)
450 SA%=INT(SA%*1.06)
440 LS%=LS%*1.1
450 SA%=SA%*1.06
460 REM->CHECKDAY
470 IF D% >= 31 GOTO 5030
470 IF D% >= 31 GOTO 5050
480 RETURN
490 REM->SUBWAYEVENTS
500 IF B%=1 THEN GOTO 690
@ -133,7 +133,7 @@
1320 PRINT "LIKE GOOD STUFF!!"
1330 PRINT CHR$(10)
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
1370 REM->NEWCOAT
1380 IF WA%<300 THEN RETURN
@ -145,8 +145,8 @@
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)
1470 DG%=(RND(1)*7)+1)
1480 XG%=(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"
@ -183,344 +183,346 @@
1820 HOME
1830 GOSUB 40
1840 GOSUB 330
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 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"
2010 GOTO 1820
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%31
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?"
1850 INVERSE : PRINT " DAY:";D%;" ";PH$ : NORMAL
1860 PRINT "(C)HECK PRICES"
1870 PRINT "(I)NVENTORY"
1880 PRINT "(B)UY"
1890 PRINT "(S)ELL"
1900 PRINT "(J)ET"
1910 PRINT "SEE (L)OAN SHARK"
1920 PRINT "(V)ISIT BANK"
1930 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
1940 IF T$ = "C" GOTO 2040
1950 IF T$ = "I" GOTO 2180
1960 IF T$ = "B" GOTO 2320
1970 IF T$ = "S" GOTO 3190
1980 IF T$ = "J" GOTO 4030
1990 IF T$ = "L" GOTO 1680
2000 IF T$ = "V" GOTO 1750
2010 PRINT "INVALID SELECTION"
2020 GOTO 1820
2030 REM->PRICES
2040 HOME
2050 GOSUB 40
2060 INVERSE:PRINT" PRICES ":NORMAL
2070 PRINT CHR$(10)
2080 PRINT"COCAINE:","$"C%
2090 PRINT"HEROIN:","$"H%
2100 PRINT"ACID:","$"A%
2110 PRINT"WEED:","$"W%
2120 PRINT"SPEED:","$"S%
2130 PRINT"LUDES:","$"L%
2140 PRINT"WALLET:","$"WA%
2150 GOSUB 70
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"SPEED:",SI%
2270 PRINT"LUDES:",LI%
2280 PRINT"FREE SPACE:",FS%
2290 GOSUB 70
2300 GOTO 1820
2310 REM->BUY
2320 HOME
2330 GOSUB 40
2340 INVERSE:PRINT" BUY ":NORMAL
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% THEN 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% THEN 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% THEN 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% THEN 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% THEN 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% THEN 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?"
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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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 "(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"
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" GOGO 1820
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 4240
4160 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 4240
4170 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 4240
4180 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 4240
4190 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 4240
4200 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 4240
4210 IF JT$="O" THEN GOTO 1820
4220 GOTO 4030
4230 REM->JETB
4240 IF PQ$=PH$ THEN GOTO 4280
4250 PH$ = 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 " ";PH$
4340 GOSUB 70
4350 GOTO 4030
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 ";PH$
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 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 SUPPOSLISTED 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
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 GOTO 4610
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 PH$="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 SUPPOSLISTED 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

Write Preview
Loading…
Cancel
Save