diff --git a/drugwar2e.bas b/drugwar2e.bas index 13b5616..dbafd02 100644 --- a/drugwar2e.bas +++ b/drugwar2e.bas @@ -1,5 +1,5 @@ -10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h44 -11 REM LABELED ALPHA 3 +10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h58 +11 REM LABELED ALPHA 5 20 GOTO 4460 30 REM->TITLEBAR 40 PRINT " DRUGWAR//E " @@ -197,7 +197,7 @@ 1960 IF T$ = "S" GOTO 3170 1970 IF T$ = "J" GOTO 4220 1980 IF T$ = "L" GOTO 1680 -1990 IF T% = "V" GOTO 1750 +1990 IF T$ = "V" GOTO 1750 2000 PRINT "INVALID SELECTION" 2010 GOTO 1820 2020 REM->PRICES @@ -211,7 +211,7 @@ 2100 PRINT"WEED:","$"W% 2110 PRINT"SPEED:","$"S% 2120 PRINT"LUDES:","$"L% -2130 PRINT"WALLET:,"$"WA% +2130 PRINT"WALLET:","$"WA%31 2140 GOSUB 70 2150 GOTO 1820 2160 REM->INVENTORY @@ -257,7 +257,7 @@ 2560 GOSUB 110 2570 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2510 2580 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%) -2590 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510 +2590 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510 2600 GOTO 1820 2610 REM->HERBUY 2620 HOME @@ -268,7 +268,7 @@ 2670 GOSUB 110 2680 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2620 2690 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%) -2700 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620 +2700 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620 2710 GOTO 1820 2720 REM->ACIDBUY 2730 HOME @@ -279,7 +279,7 @@ 2780 GOSUB 110 2790 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2730 2800 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%) -2810 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730 +2810 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730 2820 GOTO 1820 2830 REM->WEEDBUY 2840 HOME @@ -290,7 +290,7 @@ 2890 GOSUB 110 2900 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2840 2910 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%) -2920 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840 +2920 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840 2930 GOTO 1820 2940 REM->SPDBUY 2950 HOME @@ -301,7 +301,7 @@ 3000 GOSUB 110 3010 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2950 3020 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%) -3030 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950 +3030 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950 3040 GOTO 1820 3050 REM->LUDBUY 3060 HOME @@ -312,7 +312,7 @@ 3110 GOSUB 110 3120 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3060 3130 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%) -3140 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060 +3140 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060 3150 GOTO 1820 3160 REM->SELL 3170 HOME @@ -461,7 +461,7 @@ 4600 SA%=0 4610 LS%=5000 4620 D%=0 -4630 P$="THE BRONX" +4630 P$="THE BRONX" 4640 GN%=0 4650 DP%=0 4660 IN%=100 @@ -507,7 +507,7 @@ 5060 PRINT CHR$(10) 5070 IF WD%=1 THEN GOTO 5170 5080 PRINT "THANKS FOR PLAYING." -5090 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE" +5090 PRINT "AT THIS POINT I'M SUPPOSLISTED TO CALCULATE" 5100 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS" 5110 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE." 5120 PRINT CHR$(10)