From 2ef9136b9217ab696e4cd1b9fed647004b5c2f30 Mon Sep 17 00:00:00 2001
From: dewdude <dewdude@gmail.com>
Date: Mon, 29 Oct 2018 21:08:42 -0400
Subject: [PATCH] BETA 2

---
 drugwar2e.bas | 46 +++++++++++++++++++++++-----------------------
 drugwar2e.baz |  2 +-
 2 files changed, 24 insertions(+), 24 deletions(-)

diff --git a/drugwar2e.bas b/drugwar2e.bas
index 87747c7..bcb5b9e 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -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
diff --git a/drugwar2e.baz b/drugwar2e.baz
index c97ed2d..050a3a7 100644
--- a/drugwar2e.baz
+++ b/drugwar2e.baz
@@ -1,5 +1,5 @@
 [
-Drugwar //e beta-1
+Drugwar //e beta-2
 (c) 2018 Jay Moore
 Licensed under GPLv3
 ]