|
|
|
|
@ -1,4 +1,4 @@
|
|
|
|
|
1 REM DRUGWAR//E BETA RELEASE
|
|
|
|
|
1 REM DRUGWAR//E BETA2 RELEASE
|
|
|
|
|
2 REM COPYRIGHT 2018 JAY MOORE
|
|
|
|
|
3 REM DRUGWAR2E.SOURCEFORGE.IO
|
|
|
|
|
4 REM LICENSED UNDER GPLV3
|
|
|
|
|
@ -6,7 +6,7 @@
|
|
|
|
|
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
|
|
|
|
|
10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 04h25
|
|
|
|
|
20 GOTO 4480
|
|
|
|
|
30 REM->TITLEBAR
|
|
|
|
|
40 PRINT " DRUGWAR//E "
|
|
|
|
|
@ -86,19 +86,19 @@
|
|
|
|
|
780 REM->PIGHEROIN
|
|
|
|
|
790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
|
|
|
|
|
800 PRINT "FROM LAST WEEK'S RAID!"
|
|
|
|
|
810 H%=INT((RND(1)*1150)+850)
|
|
|
|
|
810 H%=(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)
|
|
|
|
|
870 H%=(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)
|
|
|
|
|
930 C%=RND(1)*60000)+80000
|
|
|
|
|
940 GOSUB 70
|
|
|
|
|
950 GOTO 1820
|
|
|
|
|
960 REM->MUGGED
|
|
|
|
|
@ -265,7 +265,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
2600 IF K%<=J% THEN CI%=CI%+K% : WA%=WA%-(C%*K%)
|
|
|
|
|
2610 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2530
|
|
|
|
|
2620 GOTO 1820
|
|
|
|
|
2630 REM->HERBUY
|
|
|
|
|
@ -276,7 +276,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
2710 IF K%<=J% THEN HI%=HI%+K% : WA%=WA%-(H%*K%)
|
|
|
|
|
2720 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2640
|
|
|
|
|
2730 GOTO 1820
|
|
|
|
|
2740 REM->ACIDBUY
|
|
|
|
|
@ -287,7 +287,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
2820 IF K%<=J% THEN AI%=AI%+K% : WA%=WA%-(A%*K%)
|
|
|
|
|
2830 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2750
|
|
|
|
|
2840 GOTO 1820
|
|
|
|
|
2850 REM->WEEDBUY
|
|
|
|
|
@ -298,7 +298,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
2930 IF K%<=J% THEN WI%=WI%+K% : WA%=WA%-(W%*K%)
|
|
|
|
|
2940 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2860
|
|
|
|
|
2950 GOTO 1820
|
|
|
|
|
2960 REM->SPDBUY
|
|
|
|
|
@ -309,7 +309,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
3040 IF K%<=J% THEN SI%=SI%+K% : WA%=WA%-(S%*K%)
|
|
|
|
|
3050 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2970
|
|
|
|
|
3060 GOTO 1820
|
|
|
|
|
3070 REM->LUDBUY
|
|
|
|
|
@ -320,7 +320,7 @@
|
|
|
|
|
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%)
|
|
|
|
|
3150 IF K%<=J% THEN LI%=LI%+K% : WA%=WA%-(L%*K%)
|
|
|
|
|
3160 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3080
|
|
|
|
|
3170 GOTO 1820
|
|
|
|
|
3180 REM->SELL
|
|
|
|
|
@ -354,8 +354,8 @@
|
|
|
|
|
3460 PRINT CHR$(10)
|
|
|
|
|
3470 J%=CI%
|
|
|
|
|
3480 GOSUB 180
|
|
|
|
|
3490 CI%=CI%-J%
|
|
|
|
|
3500 WA%=WA%+(C%*J%)
|
|
|
|
|
3490 CI%=CI%-K%
|
|
|
|
|
3500 WA%=WA%+(C%*K%)
|
|
|
|
|
3510 GOTO 1820
|
|
|
|
|
3520 REM->HERSELL
|
|
|
|
|
3530 HOME
|
|
|
|
|
@ -364,8 +364,8 @@
|
|
|
|
|
3560 PRINT CHR$(10)
|
|
|
|
|
3570 J%=HI%
|
|
|
|
|
3580 GOSUB 180
|
|
|
|
|
3590 HI%=HI%-J%
|
|
|
|
|
3600 WA%=WA%+(H%*J%)
|
|
|
|
|
3590 HI%=HI%-K%
|
|
|
|
|
3600 WA%=WA%+(H%*K%)
|
|
|
|
|
3610 GOTO 1820
|
|
|
|
|
3620 REM->ACIDSELL
|
|
|
|
|
3630 HOME
|
|
|
|
|
@ -374,8 +374,8 @@
|
|
|
|
|
3660 PRINT CHR$(10)
|
|
|
|
|
3670 J%=AI%
|
|
|
|
|
3680 GOSUB 180
|
|
|
|
|
3690 AI%=AI%-J%
|
|
|
|
|
3700 WA%=WA%+(A%*J%)
|
|
|
|
|
3690 AI%=AI%-K%
|
|
|
|
|
3700 WA%=WA%+(A%*K%)
|
|
|
|
|
3710 GOTO 1820
|
|
|
|
|
3720 REM->WEEDSELL
|
|
|
|
|
3730 HOME
|
|
|
|
|
@ -384,8 +384,8 @@
|
|
|
|
|
3760 PRINT CHR$(10)
|
|
|
|
|
3770 J%=WI%
|
|
|
|
|
3780 GOSUB 180
|
|
|
|
|
3790 WI%=WI%-J%
|
|
|
|
|
3800 WA%=WA%+(W%*J%)
|
|
|
|
|
3790 WI%=WI%-K%
|
|
|
|
|
3800 WA%=WA%+(W%*K%)
|
|
|
|
|
3810 GOTO 1820
|
|
|
|
|
3820 REM->SPDSELL
|
|
|
|
|
3830 HOME
|
|
|
|
|
@ -394,8 +394,8 @@
|
|
|
|
|
3860 PRINT CHR$(10)
|
|
|
|
|
3870 J%=SI%
|
|
|
|
|
3880 GOSUB 180
|
|
|
|
|
3890 SI%=SI%-J%
|
|
|
|
|
3900 WA%=WA%+(S%*J%)
|
|
|
|
|
3890 SI%=SI%-K%
|
|
|
|
|
3900 WA%=WA%+(S%*K%)
|
|
|
|
|
3910 GOTO 1820
|
|
|
|
|
3920 REM->LUDSELL
|
|
|
|
|
3930 HOME
|
|
|
|
|
@ -404,8 +404,8 @@
|
|
|
|
|
3960 PRINT CHR$(10)
|
|
|
|
|
3970 J%=LI%
|
|
|
|
|
3980 GOSUB 180
|
|
|
|
|
3990 LI%=LI%-J%
|
|
|
|
|
4000 WA%=WA%+(L%*J%)
|
|
|
|
|
3990 LI%=LI%-K%
|
|
|
|
|
4000 WA%=WA%+(L%*K%)
|
|
|
|
|
4010 GOTO 1820
|
|
|
|
|
4020 REM->JET
|
|
|
|
|
4030 HOME
|
|
|
|
|
|
