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

BETA 2

Browse Source
master
Jay 6 years ago
parent 1cbc515587
commit 2ef9136b92
2 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File

46
drugwar2e.bas
Unescape Escape View File

@ -1,4 +1,4 @@
1 REM DRUGWAR//E BETA RELEASE 1 REM DRUGWAR//E BETA2 RELEASE
2 REM COPYRIGHT 2018 JAY MOORE 2 REM COPYRIGHT 2018 JAY MOORE
3 REM DRUGWAR2E.SOURCEFORGE.IO 3 REM DRUGWAR2E.SOURCEFORGE.IO
4 REM LICENSED UNDER GPLV3 4 REM LICENSED UNDER GPLV3
@ -6,7 +6,7 @@
6 REM I STILL HAVE NO CLUE HOW 6 REM I STILL HAVE NO CLUE HOW
7 REM I GOT THIS FAR WITH AS 7 REM I GOT THIS FAR WITH AS
8 REM LITTLE AS I KNOW. 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 20 GOTO 4480
30 REM->TITLEBAR 30 REM->TITLEBAR
40 PRINT " DRUGWAR//E " 40 PRINT " DRUGWAR//E "
@ -86,19 +86,19 @@
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%=INT((RND(1)*1150)+850) 810 H%=(RND(1)*1150)+850)
820 GOSUB 70 820 GOSUB 70
830 GOTO 1820 830 GOTO 1820
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%=INT((RND(1)*25000)+18000) 870 H%=(RND(1)*25000)+18000
880 GOSUB 70 880 GOSUB 70
890 GOTO 1820 890 GOTO 1820
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%=INT((RND(1)*60000)+80000) 930 C%=RND(1)*60000)+80000
940 GOSUB 70 940 GOSUB 70
950 GOTO 1820 950 GOTO 1820
960 REM->MUGGED 960 REM->MUGGED
@ -265,7 +265,7 @@
2570 J%=WA%/C% 2570 J%=WA%/C%
2580 GOSUB 110 2580 GOSUB 110
2590 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2530 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 2610 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2530
2620 GOTO 1820 2620 GOTO 1820
2630 REM->HERBUY 2630 REM->HERBUY
@ -276,7 +276,7 @@
2680 J%=WA%/H% 2680 J%=WA%/H%
2690 GOSUB 110 2690 GOSUB 110
2700 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2640 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 2720 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2640
2730 GOTO 1820 2730 GOTO 1820
2740 REM->ACIDBUY 2740 REM->ACIDBUY
@ -287,7 +287,7 @@
2790 J%=WA%/A% 2790 J%=WA%/A%
2800 GOSUB 110 2800 GOSUB 110
2810 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2750 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 2830 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2750
2840 GOTO 1820 2840 GOTO 1820
2850 REM->WEEDBUY 2850 REM->WEEDBUY
@ -298,7 +298,7 @@
2900 J%=WA%/W% 2900 J%=WA%/W%
2910 GOSUB 110 2910 GOSUB 110
2920 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2860 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 2940 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2860
2950 GOTO 1820 2950 GOTO 1820
2960 REM->SPDBUY 2960 REM->SPDBUY
@ -309,7 +309,7 @@
3010 J%=WA%/S% 3010 J%=WA%/S%
3020 GOSUB 110 3020 GOSUB 110
3030 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2970 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 3050 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2970
3060 GOTO 1820 3060 GOTO 1820
3070 REM->LUDBUY 3070 REM->LUDBUY
@ -320,7 +320,7 @@
3120 J%=WA%/L% 3120 J%=WA%/L%
3130 GOSUB 110 3130 GOSUB 110
3140 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3080 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 3160 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3080
3170 GOTO 1820 3170 GOTO 1820
3180 REM->SELL 3180 REM->SELL
@ -354,8 +354,8 @@
3460 PRINT CHR$(10) 3460 PRINT CHR$(10)
3470 J%=CI% 3470 J%=CI%
3480 GOSUB 180 3480 GOSUB 180
3490 CI%=CI%-J% 3490 CI%=CI%-K%
3500 WA%=WA%+(C%*J%) 3500 WA%=WA%+(C%*K%)
3510 GOTO 1820 3510 GOTO 1820
3520 REM->HERSELL 3520 REM->HERSELL
3530 HOME 3530 HOME
@ -364,8 +364,8 @@
3560 PRINT CHR$(10) 3560 PRINT CHR$(10)
3570 J%=HI% 3570 J%=HI%
3580 GOSUB 180 3580 GOSUB 180
3590 HI%=HI%-J% 3590 HI%=HI%-K%
3600 WA%=WA%+(H%*J%) 3600 WA%=WA%+(H%*K%)
3610 GOTO 1820 3610 GOTO 1820
3620 REM->ACIDSELL 3620 REM->ACIDSELL
3630 HOME 3630 HOME
@ -374,8 +374,8 @@
3660 PRINT CHR$(10) 3660 PRINT CHR$(10)
3670 J%=AI% 3670 J%=AI%
3680 GOSUB 180 3680 GOSUB 180
3690 AI%=AI%-J% 3690 AI%=AI%-K%
3700 WA%=WA%+(A%*J%) 3700 WA%=WA%+(A%*K%)
3710 GOTO 1820 3710 GOTO 1820
3720 REM->WEEDSELL 3720 REM->WEEDSELL
3730 HOME 3730 HOME
@ -384,8 +384,8 @@
3760 PRINT CHR$(10) 3760 PRINT CHR$(10)
3770 J%=WI% 3770 J%=WI%
3780 GOSUB 180 3780 GOSUB 180
3790 WI%=WI%-J% 3790 WI%=WI%-K%
3800 WA%=WA%+(W%*J%) 3800 WA%=WA%+(W%*K%)
3810 GOTO 1820 3810 GOTO 1820
3820 REM->SPDSELL 3820 REM->SPDSELL
3830 HOME 3830 HOME
@ -394,8 +394,8 @@
3860 PRINT CHR$(10) 3860 PRINT CHR$(10)
3870 J%=SI% 3870 J%=SI%
3880 GOSUB 180 3880 GOSUB 180
3890 SI%=SI%-J% 3890 SI%=SI%-K%
3900 WA%=WA%+(S%*J%) 3900 WA%=WA%+(S%*K%)
3910 GOTO 1820 3910 GOTO 1820
3920 REM->LUDSELL 3920 REM->LUDSELL
3930 HOME 3930 HOME
@ -404,8 +404,8 @@
3960 PRINT CHR$(10) 3960 PRINT CHR$(10)
3970 J%=LI% 3970 J%=LI%
3980 GOSUB 180 3980 GOSUB 180
3990 LI%=LI%-J% 3990 LI%=LI%-K%
4000 WA%=WA%+(L%*J%) 4000 WA%=WA%+(L%*K%)
4010 GOTO 1820 4010 GOTO 1820
4020 REM->JET 4020 REM->JET
4030 HOME 4030 HOME

2
drugwar2e.baz
Unescape Escape View File

@ -1,5 +1,5 @@
[ [
Drugwar //e beta-1 Drugwar //e beta-2
(c) 2018 Jay Moore (c) 2018 Jay Moore
Licensed under GPLv3 Licensed under GPLv3
] ]

Write Preview
Loading…
Cancel
Save