drugwar2ebeta/drugwar2e.bas

1 REM DRUGWAR//E BETA RELEASE
2 REM COPYRIGHT 2018 JAY MOORE
3 REM DRUGWAR2E.SOURCEFORGE.IO
4 REM LICENSED UNDER GPLV3
5 REM TWITTER: _NQ4T
6 REM I STILL HAVE NO CLUE HOW
7 REM I GOT THIS FAR WITH AS
8 REM LITTLE AS I KNOW.
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 03h41
20 GOTO 4480
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%=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%=LS%*1.1
450 SA%=SA%*1.06
460 REM->CHECKDAY 
470 IF D% >= 31 GOTO 5070
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 GOTO 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 GOTO 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 4950
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%=(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"
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%=(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 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"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 "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" GOTO 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                 ":NORMAL
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 "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 HOME
4960 GOSUB 40
4970 INVERSE : PRINT "       SMOKE WEED          " : NORMAL
4980 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
4990 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
5000 PRINT "AND GET CREAMED BY A TRAIN!"
5010 PRINT CHR$(10)
5020 PRINT CHR$(10)
5030 PRINT "JUST SAY NO TO DRUGS!"
5040 GOSUB 70
5050 GOTO 5200
5060 REM->ENDGAME
5070 HOME
5080 GOSUB 40
5090 INVERSE : PRINT "       GAME OVER          " : NORMAL
5100 PRINT CHR$(10)
5110 PRINT "THANKS FOR PLAYING."
5120 PRINT "AT THIS POINT I'M SUPPOSLISTED TO CALCULATE"
5130 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
5140 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
5150 PRINT CHR$(10)
5160 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
5170 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
5180 END
5190 REM->IRONICEND
5200 HOME
5210 GOSUB 40
5220 INVERSE : PRINT "       GAME OVER          " : NORMAL
5230 PRINT CHR$(10)
5240 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
5250 PRINT "IN A GAME ABOUT DRUG DEALING."
5260 PRINT CHR$(10)
5270 PRINT "WELL, THANKS FOR PLAYING."
5280 END