drugwar2ebeta/drugwar2e.bas

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 
110 PRINT "YOU CAN AFFORD ";J%
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 
180 PRINT "YOU CAN SELL: ";J%
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
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 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
710 GOSUB 70
720 GOTO 1820
730 REM->CHEEPWEED
740 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
750 W%=122
760 GOSUB 70
770 GOTO 1820
780 REM->PIGHEROIN
790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
800 PRINT "FROM LAST WEEK'S RAID!"
810 H%=INT((RND(1)*1150)+850)
820 GOSUB 70
830 GOTO 1820
840 REM->HEROINBUST
850 PRINT "ADDICTS ARE BUYING HEROIN"
860 PRINT "AT OUTRAGEOUS PRICES!"
870 H%=INT((RND(1)*25000)+18000)
880 GOSUB 70
890 GOTO 1820
900 REM->COKEBUST
910 PRINT "PIGS MADE A BIG COKE BUST!"
920 PRINT "PRICES ARE OUTRAGEOUS!!!!"
930 C%=INT((RND(1)*60000)+80000)
940 GOSUB 70
950 GOTO 1820
960 REM->MUGGED
970 PRINT "YOU GOT MUGGED!"
980 PRINT CHR$(10)
990 MS%=WA%/3
1000 MS%=MS%*2
1010 ML%=WA%-MS%
1020 PRINT "YOU LOST $";ML%
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 
1090 PRINT "IT'S THE COPS!"
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
1170 GOSUB 330
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
1290 GOTO 1820
1300 REM->DEDWEED
1310 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
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
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
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"
1550 PRINT "YOU FOUND ";DG%;" UNITS OF"
1560 PRINT "         ";SS%
1570 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
1580 PRINT CHR$(10)
1590 GOSUB 70
1600 GOTO 1820
1610 REM->HOMEACID
1620 PRINT "THE MARKET HAS BEEN FLOODED"
1630 PRINT "WITH CHEAP HOME-MADE ACID!"
1640 A%=INT((RND(1)*550)+250)
1650 GOSUB 70
1660 GOTO 1820
1670 REM->LOAN
1680 HOME
1690 GOSUB 40
1700 PRINT CHR$(10)
1710 PRINT "LOAN SHARK NOT IMPLEMENTED.
1720 GOSUB 70
1730 GOTO 1820
1740 REM->BANK
1750 HOME
1760 GOSUB 40
1770 PRINT CHR$(10)
1780 PRINT "BANK NOT IMPLEMENTED."
1790 GOSUB 70
1800 GOTO 1820
1810 REM->MENU
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%
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