COMMON SHARED A$
COMMON SHARED A
MAINMENU: C = 0: GOSUB AUTOLOAD: CLS
COLOR 10
PRINT "Wargame 4 Main Menu:"
PRINT "=========================================================="
PRINT
COLOR 11
PRINT "(A)ttack Enemies"
PRINT
PRINT "(B)omb Enemies"
PRINT
PRINT "(C)overt Operations"
PRINT
PRINT "(E)nact Policies/Taxes"
PRINT
PRINT "(F)ood Market"
PRINT
PRINT "(G)lobal Bank"
PRINT
PRINT "(H)elpful Hints/Instructions"
PRINT
PRINT "(I)ndustrial Output"
PRINT
PRINT "(L)ook at Current Status"
PRINT
PRINT "(N)ext Turn"
PRINT
PRINT "(Q)uit"
PRINT
PRINT "(P)urchase Units"
PRINT
PRINT "(S)ecret Research"
PRINT
PRINT "(T)rade"
PRINT
PRINT "(V)isit Advisors"
COLOR 10
PRINT
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "A": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "B": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "C": CHAIN "COVERTOP"
CASE "T": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "F": CHAIN "INSTRUCT"
CASE "G": CHAIN "ADVISORS"
CASE "H": CHAIN "INSTRUCT"
CASE "I": CHAIN "INSTRUCT"
CASE "L": GOTO STATUS
CASE "N": CHAIN "WARGAME4"
CASE "Q": CHAIN "WARGAME4"
CASE "P": CHAIN "ADVISORS"
CASE "S": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "E": CHAIN "COVERTOP"
CASE "V": CHAIN "ADVISORS"
END SELECT
GOTO MAINMENU
AUTOLOAD: C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
GET 1, 1, D0: GET 1, 2, D1: GET 1, 3, D2
GET 1, 4, D3: GET 1, 5, D4: GET 1, 6, D5
GET 1, 7, D6: GET 1, 8, D7: GET 1, 9, D8
GET 1, 10, D9: GET 1, 11, D10: GET 1, 12, D11
GET 1, 13, VR: GET 1, 14, F&: GET 1, 15, G&
GET 1, 16, BG&: GET 1, 17, XX&: GET 1, 18, P&
GET 1, 19, TR&: GET 1, 20, HU&: GET 1, 21, TK&
GET 1, 22, JT&: GET 1, 23, BM&: GET 1, 24, MB&
GET 1, 25, AG&: GET 1, 26, SP&: GET 1, 27, FF&
GET 1, 28, FA&: GET 1, 29, X&: GET 1, 30, X&
GET 1, 31, PS%: GET 1, 32, TX%: GET 1, 33, IR%
GET 1, 34, HU%: GET 1, 35, TR%: GET 1, 36, TK%
GET 1, 37, JT%: GET 1, 38, BM%: GET 1, 39, MB%
GET 1, 40, AG%: GET 1, 41, UL%: GET 1, 42, MM%
GET 1, 43, CT%: GET 1, 44, N$: GET 1, 45, D$
GET 1, 46, EN: GET 1, 47, EN1: GET 1, 48, EN2
GET 1, 49, CO: GET 1, 50, E1: GET 1, 51, E2
GET 1, 52, E3
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&: GET 1, 2, OM&: GET 1, 3, SM&
CLOSE : RETURN
STATUS: C = 0
GOSUB AUTOLOAD
'IF N$ = "" THEN EXIT DEF
CLS : COLOR 11
PRINT N$; : COLOR 10: LOCATE , 55: PRINT "Difficulty:"; : COLOR 11: PRINT D0; : COLOR 10: PRINT "%"
PRINT "============================================================================"
PRINT "Turns left today:"; : COLOR 11: PRINT E1
IF E2 > 0 THEN COLOR 10: PRINT "Turns of protection left:"; : COLOR 11: PRINT E2
COLOR 10: PRINT "Total turns taken thus far:"; : COLOR 11: PRINT E3
PRINT
COLOR 10: PRINT "Current population:"; : COLOR 11: PRINT P&; : COLOR 10: PRINT "million"
PRINT "Popular Support:"; : COLOR 11: PRINT PS%; : COLOR 10: PRINT "%"
PRINT "Tax Rate:"; : COLOR 11: PRINT TX%; : COLOR 10: PRINT "%"
PRINT "Unemployment Rate:"; : COLOR 11: PRINT UL%; : COLOR 10: PRINT "%"
PRINT "Current Interest Rate:"; : COLOR 11: PRINT IR%; : COLOR 10: PRINT "%"
PRINT "Gold:"; : COLOR 11: PRINT G&
COLOR 10: PRINT "Gold in bank:"; : COLOR 11: PRINT BG&
PRINT
COLOR 10: PRINT "Military Moral:"; : COLOR 11: PRINT MM%; : COLOR 10: PRINT "%"
COLOR 10: PRINT "Soldiers:"; : COLOR 11: PRINT TR&
COLOR 10: PRINT "Humvees:"; : COLOR 11: PRINT HU&
COLOR 10: PRINT "Tanks:"; : COLOR 11: PRINT TK&
COLOR 10: PRINT "Jets:"; : COLOR 11: PRINT JT&
COLOR 10: PRINT "Bombers:"; : COLOR 11: PRINT BM&
COLOR 10: PRINT "Anti-Aircraft:"; : COLOR 11: PRINT AG&
COLOR 10: PRINT "Missile Bases:"; : COLOR 11: PRINT MB&
PRINT
COLOR 10: PRINT "Tons of Food:"; : COLOR 11: PRINT F&
COLOR 10: PRINT "Food Farms:"; : COLOR 11: PRINT FF&
COLOR 10: PRINT "Factories:"; : COLOR 11: PRINT FA&
PRINT
COLOR 10: PRINT "Spys:"; : COLOR 11: PRINT SP&
COLOR 10: PRINT "Covert Operations left this turn:"; : COLOR 11: PRINT CO
PRINT
FOR C = 1 TO CT%
NEXT C
GOSUB AUTOLOAD
COLOR 10: PRINT "Current Target: "; : COLOR 11: PRINT N$
PRINT : PRINT : COLOR 7
PRINT "Would you like to change your Current Target? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO CURRENTTARGET
CASE "N": GOTO MAINMENU
END SELECT
GOTO STATUS
CURRENTTARGET: 'this changes your current target
CLS : COLOR 11: PRINT "Nation # Nation Name"
PRINT "====================================="
FOR C = 1 TO 20
GOSUB AUTOLOAD
IF N$ = "" THEN GOTO CURRENTTARGET1
COLOR 10
LOCATE , 3: PRINT C; : LOCATE , 20: PRINT N$: PRINT
CURRENTTARGET1: NEXT C
COLOR 11
PRINT "Which nation do you want as your Current Target (0 exits)"; : INPUT A%
IF A% < 0 THEN GOTO CURRENTTARGET
IF A% = 0 THEN GOTO MAINMENU
IF A% > 20 THEN GOTO CURRENTTARGET
C = A%: GOSUB AUTOLOAD
'IF N$ = "" THEN GOTO NOTARGET
C = 0: GOSUB AUTOLOAD
CT% = A% - 1: GOSUB AUTOSAVE
GOTO STATUS
AUTOSAVE: C = 0
C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
PUT 1, 1, D0: PUT 1, 2, D1: PUT 1, 3, D2
PUT 1, 4, D3: PUT 1, 5, D4: PUT 1, 6, D5
PUT 1, 7, D6: PUT 1, 8, D7: PUT 1, 9, D8
PUT 1, 10, D9: PUT 1, 11, D10: PUT 1, 12, D11
PUT 1, 13, VR: PUT 1, 14, F&: PUT 1, 15, G&
PUT 1, 16, BG&: PUT 1, 17, XX&: PUT 1, 18, P&
PUT 1, 19, TR&: PUT 1, 20, HU&: PUT 1, 21, TK&
PUT 1, 22, JT&: PUT 1, 23, BM&: PUT 1, 24, MB&
PUT 1, 25, AG&: PUT 1, 26, SP&: PUT 1, 27, FF&
PUT 1, 28, FA&: PUT 1, 29, X&: PUT 1, 30, X&
PUT 1, 31, PS%: PUT 1, 32, TX%: PUT 1, 33, IR%
PUT 1, 34, HU%: PUT 1, 35, TR%: PUT 1, 36, TK%
PUT 1, 37, JT%: PUT 1, 38, BM%: PUT 1, 39, MB%
PUT 1, 40, AG%: PUT 1, 41, UL%: PUT 1, 42, MM%
PUT 1, 43, CT%: PUT 1, 44, N$: PUT 1, 45, D$
PUT 1, 46, EN: PUT 1, 47, EN1: PUT 1, 48, EN2
PUT 1, 49, CO: PUT 1, 50, E1: PUT 1, 51, E2
PUT 1, 52, E3
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&: PUT 1, 2, OM&: PUT 1, 3, SM&
CLOSE : RETURN
|