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

BETA 6

Browse Source
master
Jay 6 years ago
parent 6b5f50b65a
commit f75c709425
2 changed files with 571 additions and 553 deletions
Show Stats Download Patch File Download Diff File

837
drugwar2e.bas
Unescape Escape View File

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

33
drugwar2e.baz
Unescape Escape View File

@ -1,5 +1,5 @@
[ [
Drugwar //e beta-5 Drugwar //e beta-6
(c) 2018 Jay Moore (c) 2018 Jay Moore
Licensed under GPLv3 Licensed under GPLv3
] ]
@ -47,16 +47,16 @@ lines that reference a specific drug are still in normal code.
fs=int(in-(ci+hi+ai+wi+si+li)+(gn*5)) fs=int(in-(ci+hi+ai+wi+si+li)+(gn*5))
return return
£daily {randomizes drug prices, adds a day, calculates interests, checks day number} £daily {randomizes drug prices, adds a day, calculates interests, checks day number}
c=int(rnd(1)*12000+16000) c=int(rnd(1)*12000+16000.5)
h=int(rnd(1)*7000+5000) h=int(rnd(1)*7000+5000.5)
a=int((rnd(1)*34+10)*100) a=int((rnd(1)*34+10)*100+.5)
w=int((rnd(1)*42+33)*10) w=int((rnd(1)*42+33)*10+.5)
s=int((rnd(1)*15+7)*10) s=int((rnd(1)*15+7)*10+.5)
l=int((rnd(1)*4+1)*10) l=int((rnd(1)*4+1)*10+.5)
b=int(rnd(1)*20) b=int(rnd(1)*20+.5)
d=d+1 d=d+1
ls=int(ls*1.1) ls=int(ls*1.1+.5)
sa=int(sa*1.06) sa=int(sa*1.06+.5)
£checkday {so I can check the day by itself} £checkday {so I can check the day by itself}
if D >= 31 GOTO @endgame if D >= 31 GOTO @endgame
return return
@ -92,19 +92,19 @@ lines that reference a specific drug are still in normal code.
£pigheroin £pigheroin
print "Pigs are selling cheap heroin" print "Pigs are selling cheap heroin"
print "from last week's raid!" print "from last week's raid!"
h=int((rnd(1)*1150)+850) h=int((rnd(1)*1150)+850.5)
gosub @wait gosub @wait
goto @menu goto @menu
£heroinbust £heroinbust
print "Addicts are buying heroin" print "Addicts are buying heroin"
print "at outrageous prices!" print "at outrageous prices!"
h=int((rnd(1)*25000)+18000) h=int((rnd(1)*25000)+18000.5)
gosub @wait gosub @wait
goto @menu goto @menu
£cokebust £cokebust
print "Pigs made a big coke bust!" print "Pigs made a big coke bust!"
print "Prices are outrageous!!!!" print "Prices are outrageous!!!!"
c=int(rnd(1)*60000)+80000) c=int((rnd(1)*60000)+80000.5) {the infamous line 930}
gosub @wait gosub @wait
goto @menu goto @menu
£mugged £mugged
@ -143,7 +143,6 @@ conditions on how/when we run cops
if re$ <> "Y" then goto @menu if re$ <> "Y" then goto @menu
gn = int(gn+1) gn = int(gn+1)
wa = int(wa-400) wa = int(wa-400)
fs = int(fs-5)
goto @menu goto @menu
£dedweed £dedweed
print "There's some weed here that smells" print "There's some weed here that smells"
@ -162,8 +161,8 @@ conditions on how/when we run cops
goto @menu goto @menu
£dedguy £dedguy
If fs<8 THEN return If fs<8 THEN return
dg=int((rnd(1)*7)+1) dg=int((rnd(1)*7)+1.5)
xg=int(rnd(1)*5) xg=int(rnd(1)*5+.5)
if xg=0 THEN li=li+dg : ss$ = "Ludes" if xg=0 THEN li=li+dg : ss$ = "Ludes"
if xg=1 THEN si=si+dg : ss$ = "Speed" if xg=1 THEN si=si+dg : ss$ = "Speed"
if xg=2 THEN wi=wi+dg : ss$ = "Weed" if xg=2 THEN wi=wi+dg : ss$ = "Weed"
@ -179,7 +178,7 @@ conditions on how/when we run cops
£homeacid £homeacid
print "The market has been flooded" print "The market has been flooded"
print "with cheap home-made acid!" print "with cheap home-made acid!"
a=int((rnd(1)*550)+250) a=int((rnd(1)*550)+250.5)
gosub @wait gosub @wait
goto @menu goto @menu

Write Preview
Loading…
Cancel
Save