well its been a while since i posted anything about wargame4. been very busy at work and in my spare time been doing alot of fishing, leaving me little time to work on this. this is the most up to date version. still alot of work to be done and alot of options are not available. but there are still plenty of things to create, destroy, or enact.
ive split the program up into 5 smaller ones, in order to eventually compile them. the instruction, advisor, and covertop programs are all ready to be compiled right now. the main module that you must open to run the game is the wargame4 mod.
DECLARE SUB POPULARSUPPORT (PS%)
DECLARE SUB MILITARYMORAL (MM%)
DECLARE SUB TOPSCORES ()
DECLARE SUB COMPMAINT ()
DECLARE SUB IMPROVEMENTS ()
DECLARE SUB RANDOMEVENTS (FF&, FA&, PS%, P&, G&, TR&, HU&, TK&, JT&, BM&, AG&, MB&, F&, FM&)
DECLARE SUB CREATEINDUSTRY (FA&, P&, G&, TR%, TR&, HU%, HU&, TK%, TK&, JT%, JT&, BM%, BM&, AG%, AG&, MB%, MB&)
DECLARE SUB STATUS ()
DECLARE SUB EDITOR (A$, D4, D3)
DECLARE SUB CREATECOMP (D4, D3)
DECLARE SUB FOODMARKET (D4!, G&, FM&, F&)
COMMON SHARED A$
COMMON SHARED A
IF A$ = "N" THEN CALL COMPMAINT: GOTO NEWTURN
IF A$ = "Q" THEN CALL COMPMAINT
TITLE: CLS : WIDTH 80, 50
COLOR 11: LOCATE 12, 33: PRINT "!!! WARGAME 4 !!!"
COLOR 10: LOCATE 24, 1: PRINT "(Q)uit Game"
PRINT : PRINT "(P)lay Saved Game"
PRINT : PRINT "(C)urrent Status"
PRINT : PRINT "(R)ecent Additions and Upgrades"
PRINT : PRINT "(T)op Current Scores"
PRINT : PRINT
PRINT "(*) Reset Game / New Game / Editor / Run Before Playing First Time"
COLOR 11: PRINT : PRINT
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "*": GOTO GAMERESET
CASE "P": C = 0: GOSUB AUTOLOAD: GOTO NEWTURN
CASE "Q": END
CASE "R": CALL IMPROVEMENTS: GOTO TITLE
CASE "C": CALL STATUS: GOSUB AUTOLOAD: GOTO TITLE
CASE "T": CALL TOPSCORES: GOTO TITLE
END SELECT
GOTO TITLE
GAMERESET: PRINT
CALL EDITOR(A$, D4, D3): IF A$ = "E" THEN GOTO TITLE
KILL "MARKET"
FOR C = 1 TO 20: C$ = STR$(C): KILL "WAR4-" + C$: NEXT C
CALL CREATECOMP(D4, D3)
C = 0: GOSUB AUTOLOAD
'VARIABLE DEFINITIONS in war data file
'D0 = difficulty
'D1 = turns per day
'D2 = turns of protection
'D3 = amount of factories required
'D4 = price of food
'D5
'D6 = starting population
'D7 = covert ops per day
'D8
'D9 = starting food in food market
'D10 = interest rate
'D11 = cheats enabled
'VR = WG4 version
F& = 20: 'F& = food
G& = 0: 'G& = gold
BG& = 0: 'BG& = bank gold
'
P& = D6: 'P& = population
TR& = 0: 'TR& = soldiers
HU& = 0: 'HU& = humvees
TK& = 0: 'TK& = tanks
JT& = 0: 'JT& = jets
BM& = 0: 'BM& = bombers
MB& = 0: 'MB& = missile bases
AG& = 0: 'AG& = aaguns
SP& = 0: 'SP& = spys
FF& = 0: 'FF& = food farms
FA& = 0: 'FA& = factories
'
'
PS% = 100: 'PS% = popular support
TX% = 5: 'TX% = tax rate
IR% = RND(D10) * (D10): 'IR% = interest rate
HU% = 0: 'HU% = humvee production %
TR% = 0: 'TR% = soldier production %
TK% = 0: 'TK% = tank production %
JT% = 0: 'JT% = jet production %
BM% = 0: 'BM% = bomber production %
BM% = 0: 'MB% = missile base production %
AG% = 0: 'AG% = aagun production %
UL% = 0: 'UL% = unemployment level
MM% = 100: 'MM% = military moral
CT% = RND(21) * 21: 'CT%= Current Target
'N$ = YOUR NAME
D$ = DATE$: 'D$ = current date
EN = 0: 'EN = draft
EN1 = 0: 'EN1 = martial law
EN2 = 0: 'EN2 = patriot act
CO = D7: 'CO = covert ops left
E1 = D1: 'E1 = turns left today
E2 = D2: 'E2 = turns of protection left
E3 = 0: 'E3 = total turns taken
EN3 = 0: 'EN3 = terrorism
EN4 = 0: 'EN4 = food rationing
SR1 = 0: 'super soldiers
SR2 = 0: 'stealth bombers
SR3 = 0: 'anti missile system
SR4 = 0: 'sub missile launches
SR5 = 0: 'The One bomb
SR6 = 0: '
EDITNAME: CLS : COLOR 10
PRINT "Everyone knows that a name says alot. A strong name can be an advantage as a"
PRINT
PRINT "deterant against other players. You now have the chance to pick your own"
PRINT
PRINT "nation's name. Choose wisely, for you will keep this for the duration of the"
PRINT
PRINT "game. There is a 25 character limit to a name."
PRINT : PRINT : COLOR 11
PRINT "Your nation's name"; : INPUT B$
B$ = LEFT$(B$, 25)
PRINT : PRINT : COLOR 10
PRINT B$; : PRINT ", is this correct (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO EDITNAME1
CASE "N": GOTO EDITNAME
END SELECT
GOTO EDITNAME
EDITNAME1: PRINT
FOR C = 1 TO 20
C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
GET 1, 44, N$
CLOSE
IF B$ = "" THEN COLOR 12: PRINT "That name cannot be used!": GOTO EDITNAMEEND
IF B$ = N$ THEN COLOR 12: PRINT "That name is already taken!": GOTO EDITNAMEEND
NEXT C: N$ = B$: COLOR 11: PRINT
PRINT "That sounds like a great name!"
PRINT : PRINT
COLOR 7: PRINT : PRINT "Get Ready To Rumble!! Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": C = 0: GOSUB AUTOSAVE: GOTO NEWTURN
EDITNAMEEND: PRINT : COLOR 7
PRINT "Press a key": DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> "": GOTO EDITNAME
AUTOSAVE: 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: PUT 1, 53, EN3: PUT 1, 54, EN4
PUT 1, 55, SR1: PUT 1, 56, SR2: PUT 1, 57, SR3
PUT 1, 58, SR4: PUT 1, 59, SR5: PUT 1, 60, SR6
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&: PUT 1, 2, OM&: PUT 1, 3, SM&
CLOSE : RETURN
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: GET 1, 53, EN3: GET 1, 54, EN4
GET 1, 55, SR1: GET 1, 56, SR2: GET 1, 57, SR3
GET 1, 58, SR4: GET 1, 59, SR5: GET 1, 60, SR6
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&: GET 1, 2, OM&: GET 1, 3, SM&
CLOSE : RETURN
NEWTURN: GOSUB AUTOLOAD: PRINT
IF E1 = 0 THEN GOTO NEWTURN1
IF D4 = 0 THEN GOTO GAMERESET
IF N$ = "" THEN GOTO GAMERESET
IF D$ = DATE$ THEN GOTO NEWTURN2
D$ = DATE$
E1 = D1
GOTO NEWTURN2
NEWTURN1: COLOR 12
IF D$ = DATE$ THEN PRINT "You are out of turns!! Come back tomorrow! Press a key!"
IF D$ = DATE$ THEN DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO TITLE
D$ = DATE$
E1 = D1
GOTO NEWTURN2
NEWTURN2: CLS : COLOR 10
CO = D7: IR% = RND(D10) * (D10)
E1 = E1 - 1: E2 = E2 - 1: E3 = E3 + 1
PRINT "You have"; : COLOR 11: PRINT E1; : COLOR 10: PRINT "turns left today"
IF E2 > 0 THEN PRINT "You have"; : COLOR 11: PRINT E2; : COLOR 10: PRINT "turns of protection left"
PRINT "You have taken"; : COLOR 11: PRINT E3; : COLOR 10: PRINT "turns total"
'this creates new military moral
A% = RND(2) * 2
B% = RND(100 - PS%) * (100 - PS%)
MM% = MM% + EN1 + A% - (B% / 25)
IF MM% > 100 THEN MM% = 100
IF MM% < 0 THEN MM% = 0
'this creates new popular support
PS% = PS% + (B% - TX% - UL%) * .5
IF PS% > 100 THEN PS% = 100
IF EN > 0 THEN PS% = PS% - 2: 'draft penalty
IF EN1 > 0 THEN PS% = PS% - 1: 'martial law penalty
IF EN2 > 0 THEN PS% = PS% - 1: 'patriot act penatly
IF EN4 > 0 THEN PS% = PS% - 3: 'food rationing penalty
IF PS% < 0 THEN PS% = 0
CC% = (A% - C% - TX%)
IF P& + CC% < 0 THEN CC% = 0
P& = P& + CC%
PRINT : PRINT : COLOR 10
IF CC% < 0 THEN PRINT "You lost"; : COLOR 11: PRINT CC% * -1; : COLOR 10: PRINT "million people"
IF CC% >= 1 THEN PRINT "You gained"; : COLOR 11: PRINT CC%; : COLOR 10: PRINT "million people"
IF CC% = 0 THEN PRINT "Your population remained constant"
COLOR 10
PRINT "You now have"; : COLOR 11: PRINT P&; : COLOR 10: PRINT "million people"
COLOR 10
PRINT "Your Unemployment Rate is now"; : COLOR 11: PRINT UL%; : COLOR 10: PRINT "%"
PRINT : COLOR 10
PRINT "Your Popular Support is now"; : COLOR 11: PRINT PS%; : PRINT "%"
CALL POPULARSUPPORT(PS%)
PRINT : COLOR 10
PRINT "Your Military Moral is now"; : COLOR 11: PRINT MM%; : PRINT "%"
CALL MILITARYMORAL(MM%)
PRINT : COLOR 10
PRINT "Your Tax Rate is"; : COLOR 11: PRINT TX%; : PRINT "%"
A& = TX% * (P& / 100)
G& = G& + A&
COLOR 10
IF TX% > 0 THEN PRINT "You gained"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold from Taxes"
IF BG& * (IR% / 100) > 0 THEN PRINT "You earned"; : COLOR 11: PRINT BG& * (IR% / 100); : COLOR 10: PRINT "Gold from Interest": G& = G& + (BG& * (IR% / 100))
PRINT
'this area grows your food
IF D4 = 0 THEN GOTO GAMERESET
A& = (P& / (10 * D4)) + (TR& / (150 * D4))
IF EN4 > 0 THEN A& = A& - (A& / 3)
B& = RND(P& / 10) * (P& / 10)
C& = RND(FF& * 10) * (FF& * 10)
F& = F& + B& + C&
COLOR 10
PRINT "You grew"; : COLOR 11: PRINT B&; : COLOR 10: PRINT "tons of Food today"
COLOR 10
IF FF& > 0 THEN PRINT "You grew"; : COLOR 11: PRINT C&; : COLOR 10: PRINT "extra tons with Food Farms"
COLOR 10
PRINT "Your people and military require"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "tons of Food to survive"
TURNFOOD0: A& = (P& / (10 * D4)) + (TR& / (150 * D4)): IF EN4 > 0 THEN A& = A& - (A& / 3)
IF A& > F& THEN GOSUB TURNFOOD
F& = F& - A&
IF F& >= 0 THEN COLOR 15: PRINT : PRINT "Your people are fed!"
IF F& < 0 THEN F& = 0
COLOR 10
GOSUB TERRORISM
IF EN4 > 0 THEN GOSUB RATIONINGDEATHS
CALL RANDOMEVENTS(FF&, FA&, PS%, P&, G&, TR&, HU&, TK&, JT&, BM&, AG&, MB&, F&, FM&)
PRINT : PRINT : COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
CALL CREATEINDUSTRY(FA&, P&, G&, TR%, TR&, HU%, HU&, TK%, TK&, JT%, JT&, BM%, BM&, AG%, AG&, MB%, MB&)
C = 0: GOSUB AUTOSAVE: CHAIN "MAINMENU"
TURNFOOD: COLOR 12: PRINT
PRINT "You dont have enough Food to feed them!! You need"; : COLOR 15: PRINT A& - F&; : COLOR 12: PRINT "tons of Food!"
PRINT "Goto Food Market? (Y/N)"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "N": GOTO TURNFOOD1
CASE "Y": CALL FOODMARKET(D4, G&, FM&, F&): GOTO TURNFOOD0
END SELECT
GOTO TURNFOOD
TURNFOOD1: COLOR 12: PRINT
PRINT "You deciede not to feed your people this turn!"
PRINT "Riots have ensued and engulfed your nation!"
PRINT
A% = RND(PS% / 2) * (PS% / 2): PS% = PS% - A%
PRINT " Popularity is down"; : COLOR 15: PRINT A%; : COLOR 12: PRINT "%"
B& = RND(P& / 5) * (P& / 5): P& = P& - B&
COLOR 15: PRINT B&; : COLOR 12: PRINT "million civilians have fled!"
B& = RND(TR& / 10) * (TR& / 10)
COLOR 15: PRINT B&; : COLOR 12: PRINT "Soldiers have deserted!!"
TR& = TR& - B&
IF MM% > 0 THEN MM% = MM% * .9: PRINT " Military Moral is also down!"
RETURN
RATIONINGDEATHS: 'this is food rationing starving deaths
A% = RND(10) * 10: IF A% < 5 THEN RETURN
A& = RND(P& / 100) * (P& / 100)
IF A& = 0 AND P& > 0 THEN A& = 1
COLOR 11: PRINT : PRINT A&; : COLOR 12: PRINT "million citizens died from starvation because of Food Rationing!"
P& = P& - A&: RETURN
TERRORISM: 'this checks if you do a terrorist attack or not
IF EN3 = 0 THEN RETURN
A% = RND(100) * 100: IF A% < 10 THEN EN3 = EN3 + 1: IF EN3 > 100 THEN EN3 = 100
B% = RND(100) * 100: IF B% > EN3 THEN GOTO TERRORISM1
PRINT : COLOR 12: PRINT "You were struck by a terrorist attack!! Popular Support is down "; : COLOR 11: PRINT "1"; : COLOR 12: PRINT " % !!"
PS% = PS% - 1: IF PS% < 0 THEN PS% = 0
A% = RND(5) * 5
IF A% = 0 THEN A& = P&: A$ = "Million Civilians"
IF A% = 1 THEN A& = TR&: A$ = "Soldiers"
IF A% = 2 THEN A& = HU&: A$ = "Humvees"
IF A% = 3 THEN A& = MB&: A$ = "Missile Bases"
IF A% >= 4 THEN A& = AG&: A$ = "Anti-Aircraft Guns"
B& = RND(A&) * (A&): B& = B& / 50
PRINT : PRINT "You lost"; : COLOR 11: PRINT B&; : PRINT A$; : COLOR 12: PRINT " in the unprovoked attack!"
IF A% = 0 THEN P& = P& - B&
IF A% = 1 THEN TR& = TR& - B&
IF A% = 2 THEN HU& = HU& - B&
IF A% = 3 THEN MB& = MB& - B&
IF A% >= 4 THEN AG& = AG& - B&
RETURN
TERRORISM1: 'this does a terrorist strike to other nation
C = 0: GOSUB AUTOSAVE
C = CT%: GOSUB AUTOLOAD
PS% = PS% - 1: IF PS% < 0 THEN PS% = 0
A% = RND(5) * 5
IF A% = 0 THEN A& = P&
IF A% = 1 THEN A& = TR&
IF A% = 2 THEN A& = HU&
IF A% = 3 THEN A& = MB&
IF A% >= 4 THEN A& = AG&
B& = RND(A&) * (A&): B& = B& / 50
IF A% = 0 THEN P& = P& - B&
IF A% = 1 THEN TR& = TR& - B&
IF A% = 2 THEN HU& = HU& - B&
IF A% = 3 THEN MB& = MB& - B&
IF A% >= 4 THEN AG& = AG& - B&
GOSUB AUTOSAVE: C = 0: GOSUB AUTOLOAD: RETURN
'data meanings: #, name, descript,cost,attack,defend,x,x,x
DATA 1,Soldiers,,10,1,2,0,0,0
DATA 2,Humvees,,15,2,1,0,0,0
DATA 3,Tanks,,40,4,4,0,0,0
DATA 4,Jets,,30,3,3,0,0,0
DATA 5,Bombers,,35,4,1,0,0,0
DATA 6,Anti Aircraft Guns,,10,0,2,0,0,0
DATA 7,Missile Bases,,20,0,3,0,0,0
DATA 8,Covert Agent,,50,0,0,0,0,0
DATA 9,Food Farms,,500,0,0,0,0,0
DATA 10,Industrial Factories,,1000,0,0,0,0,0
'data meanings: #,name,descript,cost,populat,troops,ground,air,success rate
DATA 11,BIOLOGICAL ATTACK,TARGETS ENEMY POPULATION,20,10,0,0,0,95
DATA 12,CHEMICAL ATTACK,TARGETS ENEMY TROOPS,30,0,15,0,0,95
DATA 13,EMP ATTACK,TARGETS ENEMY AIRCRAFT,40,0,0,0,15,95
DATA 14,SMALL NUCLEAR STRIKE,HITS ENEMY MILITARY AND POPULATION,60,20,15,10,10,95
DATA 15,LARGE NUCLEAR STRIKE,HITS ENEMY MILITARY AND POPULATION,80,40,25,20,15,90
DATA 16,HYDROGEN BOMB,STRONGER THAN NUCLEAR STRIKE,100,50,40,30,30,85
DATA 17,ION BOMB,TARGETS ENEMY AIRCRAFT,130,0,0,0,45,90
DATA 18,PLANET BUSTER,TARGETS ALL MILITARY AND POPULATION,160,70,50,40,40,70
DATA 19,RADION BOMB,INCINERATES THE PLANET,250,85,60,60,60,60
DATA 20,THE ONE,DESTROYS ENEMY AND POSSIBLY YOU ALSO,320,100,80,80,80,50
SUB COMPMAINT
COMPMAINT: CLS
COLOR 10
PRINT "PLEASE WAIT WHILE WE RUN COMPUTER MAINTANCE. THIS MAY TAKE SEVERAL MINUTES!"
'THIS RETRIEVES COMP DATA
FOR C = 1 TO 20
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
COMPMAINT1: 'THIS CREATES NEW POPULATION
IF C = 1 THEN A = 120
IF C = 2 THEN A = 150
IF C = 3 THEN A = 140
IF C = 4 THEN A = 90
IF C = 5 THEN A = 130
IF C = 6 THEN A = 80
IF C = 7 THEN A = 65
IF C = 8 THEN A = 75
IF C = 9 THEN A = 80
IF C = 10 THEN A = 85
IF C = 11 THEN A = 90
IF C = 12 THEN A = 80
IF C = 13 THEN A = 45
IF C = 14 THEN A = 140
IF C = 15 THEN A = 90
IF C = 16 THEN A = 100
IF C = 17 THEN A = 85
IF C = 18 THEN A = 75
IF C = 19 THEN A = 100
IF C = 20 THEN A = 80
A% = RND(A) * A
C% = RND(110 - PS%) * (110 - PS%)
CC% = (A% - C% - TX%)
IF P& + CC% < 0 THEN CC% = 0
P& = P& + CC%
MAINTTAXES: 'THIS CREATES NEW TAX RATE
IF PS% < 60 THEN TX% = TX% - 1
IF PS% < 80 THEN TX% = TX% - 1
IF PS% < 95 THEN TX% = TX
IF PS% >= 95 THEN TX% = TX% + 1
IF PS% = 100 THEN TX% = TX% + 1
IF PS% < 30 THEN TX% = 0
IF TX% < 0 THEN TX% = 0
IF PS% > 80 AND TX% = 0 THEN TX% = 1
GOTO MAINTUNEMPLOYMENT
MAINTUNEMPLOYMENT: 'THIS CREATES NEW UNEMPLOYMENT
UL% = UL% - (FA&) + (P& / D3) + (TX% / 5)
IF UL% < 0 THEN UL% = 0
IF UL% > 100 THEN UL% = 100
MAINTMMORAL: 'THIS CREATES THE NEW MILITARY MORAL
A% = RND(2) * 2
B% = RND(100 - PS%) * (100 - PS%)
MM% = MM% + A% - (B% / 25)
IF MM% > 100 THEN MM% = 100
MAINTPS: 'THIS CREATES NEW POPULAR SUPPORT
B% = RND(15) * 15
PS% = PS% + (B% - TX% - UL%) * .5
IF PS% < 0 THEN PS% = 0
IF PS% > 100 THEN PS% = 100
MAINTFOOD1: 'THIS DETERMINES IF COMP HAS ENOUGH FOOD TO FEED PEOPLE
IF A& > F& THEN GOTO MAINTFOODBUY
F& = F& - A&
IF F& < 0 THEN GOTO MAINTFOODPUNISH
GOTO MAINTFOODSELL
MAINTFOODBUY: 'BUYS FOOD FOR COMP
B& = G& / D4
IF B& > FM& THEN B& = FM&
IF B& = 0 THEN GOTO MAINTFOODPUNISH
G& = G& - (B& * D4)
F& = F& + B&
FM& = FM& - B&
GOTO MAINTFOOD1
MAINTFOODPUNISH: 'PUNISHES COMP FOR NOT FEEDING THE CIVILIANS
A% = RND(PS% / 2) * (PS% / 2)
PS% = PS% - A%
IF PS% < 0 THEN PS% = 0
B& = RND(P& / 10) * (P& / 10)
P& = P& - B&
AA& = RND(TR& / 10) * (TR& / 10)
IF TR& > 0 THEN TR& = TR& - AA&
F& = 0
GOTO MAINTFOODSELL
MAINTFOODSELL: 'THIS DETERMINES IF THE COMP CAN SELL FOOD
IF F& < A& * 5 THEN GOTO MAINTINDUSTRY
AA& = F& / 5
G& = G& + (AA& * (D4 / 2))
FM& = FM& + AA&
F& = F& - AA&
GOTO MAINTINDUSTRY
MAINTPURCHASE: 'this is where comp makes smart purchases
IF FM& < 2000 THEN GOSUB MAINTBUYFOODFARM
IF A& > (FF& * 5) + (P& / 20) THEN GOSUB MAINTBUYFOODFARM
IF FA& < (P& / 500) + 1 THEN GOSUB MAINTBUYFACTORY
IF SP& < CO THEN GOSUB MAINTBUYSPY
GOSUB MAINTBUYTHINGS
IF TR& < 500000 THEN GOSUB MAINTBUYFACTORY
IF HU& < 400000 THEN GOSUB MAINTBUYFACTORY
IF TK& < 300000 THEN GOSUB MAINTBUYFACTORY
IF JT& < 350000 THEN GOSUB MAINTBUYFACTORY
IF BM& < 200000 THEN GOSUB MAINTBUYFACTORY
IF AG& < 300000 THEN GOSUB MAINTBUYFACTORY
IF MB& < 200000 THEN GOSUB MAINTBUYFACTORY
GOTO MAINTCOVERTOP
MAINTBUYFACTORY: 'the comp buys factories
IF G& < 1000 THEN RETURN
B& = G& / 1000
G& = G& - (B& * 1000)
FA& = FA& + B&
RETURN
MAINTBUYTHINGS: 'this determines what the comp will purchase
IF PS% < 80 THEN RETURN
IF UL% > 0 THEN RETURN
IF G& < 200 THEN GOSUB MAINTBANKWITHDRAW
A% = RND(15) * 15
IF A% = 0 THEN GOTO MAINTBANK
IF A% = 1 THEN GOTO MAINTBANK
IF A% = 2 THEN GOTO MAINTBUYTROOPS
IF A% = 3 THEN GOTO MAINTBUYHUMVEES
IF A% = 4 THEN GOTO MAINTBUYTANKS
IF A% = 5 THEN GOTO MAINTBUYJETS
IF A% = 6 THEN GOTO MAINTBUYBOMBERS
IF A% = 7 THEN GOTO MAINTBUYAAGUNS
IF A% = 8 THEN GOTO MAINTBUYMISSILEBASES
IF A% = 9 THEN GOTO MAINTBUYSPY
IF A% >= 10 THEN GOTO MAINTBANK
RETURN
MAINTBANKWITHDRAW: 'this is where comp takes gold from bank
G& = G& + (BG& / 10)
BG& = BG& - (BG& / 10)
RETURN
MAINTBANK: 'this is where comp deposits gold in the bank
IF G& < 1500 THEN RETURN
BG& = BG& + 1000
G& = G& - 1000
RETURN
MAINTBUYSPY: 'this is where comp buys spys
IF SP& > CO * 10 THEN RETURN
B& = G& / 50
SP& = SP& + B&
G& = G& - (B& * 50)
RETURN
MAINTCOVERTOP: 'this lets comp do covert ops
MAINTSAVEDATA: 'This saves the comp data
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
NEXT C
END SUB
SUB CREATECOMP (D4, D3)
CREATECOMP: FOR C = 1 TO 20
PS% = 100: 'Popular Support
TX% = RND(10) * 10: 'Starting Tax Rate
F& = RND(300) * 300: 'Starting Food
SP& = RND(50) * 50: ' Starting Spys
IF C = 1 THEN N$ = "Renegade's Realm": FA& = 7: P& = 180
IF C = 2 THEN N$ = "The One World Order": FA& = 10: P& = 300
IF C = 3 THEN N$ = "Bishop's Realm": FA& = 6: P& = 250
IF C = 4 THEN N$ = "The Banana Republic": FA& = 2: P& = 100
IF C = 5 THEN N$ = "Clintron": FA& = 7: P& = 200
IF C = 6 THEN N$ = "United Socialist States": FA& = 1: P& = 110
IF C = 7 THEN N$ = "The Land Of Zod": FA& = 2: P& = 90
IF C = 8 THEN N$ = "Republiconia": FA& = 1: P& = 85
IF C = 9 THEN N$ = "Reaper's Realm": FA& = 2: P& = 90
IF C = 10 THEN N$ = "Stonia": FA& = 1: P& = 95
IF C = 11 THEN N$ = "Iraqinam": FA& = 2: P& = 100
IF C = 12 THEN N$ = "Endor": FA& = 1: P& = 65
IF C = 13 THEN N$ = "Peacenik": FA& = 1: P& = 40
IF C = 14 THEN N$ = "United Terrorist League": FA& = 2: P& = 200
IF C = 15 THEN N$ = "Destroyer's Realm": FA& = 1: P& = 80
IF C = 16 THEN N$ = "Gorf Island Chain": FA& = 3: P& = 120
IF C = 17 THEN N$ = "The Kingdom Of Gohan": FA& = 4: P& = 60
IF C = 18 THEN N$ = "Blundor": FA& = 1: P& = 55
IF C = 19 THEN N$ = "Democratia": FA& = 1: P& = 90
IF C = 20 THEN N$ = "Warmonger Realm": FA& = 2: P& = 80
FF& = RND(5) * 5
P& = RND(300) * 300
G& = ((TX% / 100) * P&)
BG& = 0
UL% = 0
MM% = 100
CREATECT: 'This creates current target for the comp nations
A% = RND(21) * (21)
IF A% = C THEN GOTO CREATECT
IF A% = 21 THEN GOTO CREATECT
CT% = A%
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 : NEXT C
TR& = TR& + A1&
HU& = HU& + A2&
TK& = TK& + A3&
JT& = JT& + A4&
BM& = BM& + A5&
AG& = AG& + A6&
MB& = MB& + A7&
PRINT : COLOR 11
PRINT "Factories produced:"
COLOR 10: PRINT : PRINT
PRINT "Soldiers:"; : COLOR 11: PRINT A1&
PRINT
COLOR 10: PRINT "Humvees:"; : COLOR 11: PRINT A2&
PRINT
COLOR 10: PRINT "Tanks:"; : COLOR 11: PRINT A3&
PRINT
COLOR 10: PRINT "Jets:"; : COLOR 11: PRINT A4&
PRINT
COLOR 10: PRINT "Bombers:"; : COLOR 11: PRINT A5&
PRINT
COLOR 10: PRINT "Anti Aircraft:"; : COLOR 11: PRINT A6&
PRINT
COLOR 10: PRINT "Missile Bases:"; : COLOR 11: PRINT A7&
RETURN
END SUB
SUB EDITOR (A$, D4, D3)
EDITOR: CLS
COLOR 10
PRINT "Welcome to the WarGame4 Editor! With this you can change most of the major"
PRINT : PRINT "variables in the game."
PRINT : PRINT
PRINT "Current Settings:"
PRINT "================="
GOSUB CURRENTSETTINGS
COLOR 10
PRINT
PRINT "(R)andom Options Generator"
PRINT
PRINT "(Y)our Own Settings"
PRINT
PRINT "(C)ontinue with Reset using above settings (Game will be Reset)"
PRINT
PRINT "(E)xit Editor (No save changes/no game Reset)"
GOSUB EDITORREPLY
SELECT CASE A$
CASE "R": GOSUB RANDOMED: GOTO EDITOR
CASE "Y": GOTO EDITOR1
CASE "C": GOTO EDITOREND
CASE "E": EXIT SUB
END SELECT
GOTO EDITOR
EDITORREPLY: PRINT : PRINT : PRINT : COLOR 11
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
RETURN
RANDOMED: 'this creates random editor options
D0 = 0
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D1 = 500: D0 = D0 + 0
IF A% = 1 THEN D1 = 250: D0 = D0 + 2.5
IF A% = 2 THEN D1 = 100: D0 = D0 + 5
IF A% = 3 THEN D1 = 50: D0 = D0 + 7.5
IF A% = 4 THEN D1 = 25: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D2 = 100: D0 = D0 + 0
IF A% = 1 THEN D2 = 75: D0 = D0 + 2.5
IF A% = 2 THEN D2 = 50: D0 = D0 + 5
IF A% = 3 THEN D2 = 25: D0 = D0 + 7.5
IF A% = 4 THEN D2 = 5: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D3 = 1000: D0 = D0 + 0
IF A% = 1 THEN D3 = 800: D0 = D0 + 2.5
IF A% = 2 THEN D3 = 600: D0 = D0 + 5
IF A% = 3 THEN D3 = 400: D0 = D0 + 7.5
IF A% = 4 THEN D3 = 200: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D4 = 2.5: D0 = D0 + 0
IF A% = 1 THEN D4 = 2: D0 = D0 + 2.5
IF A% = 2 THEN D4 = 1.5: D0 = D0 + 5
IF A% = 3 THEN D4 = 1: D0 = D0 + 7.5
IF A% = 4 THEN D4 = .75: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D6 = 400: D0 = D0 + 0
IF A% = 1 THEN D6 = 300: D0 = D0 + 2.5
IF A% = 2 THEN D6 = 200: D0 = D0 + 5
IF A% = 3 THEN D6 = 100: D0 = D0 + 7.5
IF A% = 4 THEN D6 = 10: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D7 = 20: D0 = D0 + 0
IF A% = 1 THEN D7 = 15: D0 = D0 + 2.5
IF A% = 2 THEN D7 = 10: D0 = D0 + 5
IF A% = 3 THEN D7 = 5: D0 = D0 + 7.5
IF A% = 4 THEN D7 = 1: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D9 = 25000: D0 = D0 + 0
IF A% = 1 THEN D9 = 20000: D0 = D0 + 2.5
IF A% = 2 THEN D9 = 15000: D0 = D0 + 5
IF A% = 3 THEN D9 = 10000: D0 = D0 + 7.5
IF A% = 4 THEN D9 = 5000: D0 = D0 + 10
A% = RND(5) * 5: IF A% = 5 THEN A% = 2
IF A% = 0 THEN D10 = 5: D0 = D0 + 0
IF A% = 1 THEN D10 = 4: D0 = D0 + 2.5
IF A% = 2 THEN D10 = 3: D0 = D0 + 5
IF A% = 3 THEN D10 = 2: D0 = D0 + 7.5
IF A% = 4 THEN D10 = 1: D0 = D0 + 10
RETURN
CURRENTSETTINGS: COLOR 11
IF D1 = 0 THEN GOSUB DEFAULT
D0 = 0
IF D1 = 500 THEN B$ = "Very Easy": D0 = D0 + 0
IF D1 = 250 THEN B$ = "Easy": D0 = D0 + 2.5
IF D1 = 100 THEN B$ = "Normal": D0 = D0 + 5
IF D1 = 50 THEN B$ = "Hard": D0 = D0 + 7.5
IF D1 = 25 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Turns per day:"; : COLOR 15: PRINT D1; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D2 = 100 THEN B$ = "Very Easy": D0 = D0 + 0
IF D2 = 75 THEN B$ = "Easy": D0 = D0 + 2.5
IF D2 = 50 THEN B$ = "Normal": D0 = D0 + 5
IF D2 = 25 THEN B$ = "Hard": D0 = D0 + 7.5
IF D2 = 5 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Turns of Protection:"; : COLOR 15: PRINT D2; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D3 = 1000 THEN B$ = "Very Easy": D0 = D0 + 0
IF D3 = 800 THEN B$ = "Easy": D0 = D0 + 2.5
IF D3 = 600 THEN B$ = "Normal": D0 = D0 + 5
IF D3 = 400 THEN B$ = "Hard": D0 = D0 + 7.5
IF D3 = 200 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Factory requirement:"; : COLOR 15: PRINT D3; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D4 = 2.5 THEN B$ = "Very Easy": D0 = D0 + 0
IF D4 = 2 THEN B$ = "Easy": D0 = D0 + 2.5
IF D4 = 1.5 THEN B$ = "Normal": D0 = D0 + 5
IF D4 = 1 THEN B$ = "Hard": D0 = D0 + 7.5
IF D4 = .75 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Price of Food:"; : COLOR 15: PRINT D4; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D6 = 400 THEN B$ = "Very Easy": D0 = D0 + 0
IF D6 = 300 THEN B$ = "Easy": D0 = D0 + 2.5
IF D6 = 200 THEN B$ = "Normal": D0 = D0 + 5
IF D6 = 100 THEN B$ = "Hard": D0 = D0 + 7.5
IF D6 = 10 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Starting Population:"; : COLOR 15: PRINT D6; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D7 = 20 THEN B$ = "Very Easy": D0 = D0 + 0
IF D7 = 15 THEN B$ = "Easy": D0 = D0 + 2.5
IF D7 = 10 THEN B$ = "Normal": D0 = D0 + 5
IF D7 = 5 THEN B$ = "Hard": D0 = D0 + 7.5
IF D7 = 1 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Covert Ops per turn:"; : COLOR 15: PRINT D7; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D9 = 25000 THEN B$ = "Very Easy": D0 = D0 + 0
IF D9 = 20000 THEN B$ = "Easy": D0 = D0 + 2.5
IF D9 = 15000 THEN B$ = "Normal": D0 = D0 + 5
IF D9 = 10000 THEN B$ = "Hard": D0 = D0 + 7.5
IF D9 = 5000 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Food in Food Market:"; : COLOR 15: PRINT D9; : PRINT "... "; : PRINT B$
PRINT : COLOR 11
IF D10 = 5 THEN B$ = "Very Easy": D0 = D0 + 0
IF D10 = 4 THEN B$ = "Easy": D0 = D0 + 2.5
IF D10 = 3 THEN B$ = "Normal": D0 = D0 + 5
IF D10 = 2 THEN B$ = "Hard": D0 = D0 + 7.5
IF D10 = 1 THEN B$ = "Very Hard": D0 = D0 + 10
PRINT "Interest Rate: "; : COLOR 15: PRINT "0 -"; : PRINT D10; : PRINT "% ... "; : PRINT B$
PRINT : COLOR 11
PRINT "Overall Difficulty:"; : COLOR 15: PRINT D0; : PRINT "%"
PRINT : RETURN
EDITOR1: CLS : COLOR 11
PRINT "Turns per Day:"
PRINT "=============="
COLOR 10
PRINT "This is how many turns per day you have. The less you have, the slower and"
PRINT
PRINT "longer it will take to complete. A higher amount tends to speed up the game"
PRINT
PRINT "and allow for faster building. A higher amount is definitely easier but will"
PRINT
PRINT "also give you less points."
PRINT : PRINT
PRINT "A very easy setting (1) gives you 500 turns per day"
PRINT
PRINT "An easy setting (2) gives you 250 turns per day"
PRINT
PRINT "A normal setting (3) gives you 100 turns per day"
PRINT
PRINT "A hard setting (4) gives you 50 turns per day"
PRINT
PRINT "A very hard setting (5) gives you 25 turns per day"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D1 = 500: B = 0: GOTO EDITOR2
CASE "2": D1 = 250: B = 2.5: GOTO EDITOR2
CASE "3": D1 = 100: B = 5: GOTO EDITOR2
CASE "4": D1 = 50: B = 7.5: GOTO EDITOR2
CASE "5": D1 = 25: B = 10: GOTO EDITOR2
END SELECT: GOTO EDITOR1
EDITOR2: CLS : COLOR 11
PRINT "Turns of Protection:"
PRINT "===================="
COLOR 10
PRINT "This is how many turns you get at the beginning of your nations existance"
PRINT
PRINT "where you are free from attacks. A lower setting is harder and will get you"
PRINT
PRINT "killed more often. A higher setting will allow you to build to where you can"
PRINT
PRINT "properly defend yourself."
PRINT : PRINT
PRINT "A very easy setting (1) gives you 100 turns of Protection"
PRINT
PRINT "An easy setting (2) gives you 75 turns of Protection"
PRINT
PRINT "A normal setting (3) gives you 50 turns of Protection"
PRINT
PRINT "A hard setting (4) gives you 25 turns of Protection"
PRINT
PRINT "A very hard setting (5) gives you 5 turns of protection"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D2 = 100: B = B + 0: GOTO EDITOR3
CASE "2": D2 = 75: B = B + 2.5: GOTO EDITOR3
CASE "3": D2 = 50: B = B + 5: GOTO EDITOR3
CASE "4": D2 = 25: B = B + 7.5: GOTO EDITOR3
CASE "5": D2 = 5: B = B + 10: GOTO EDITOR3
END SELECT: GOTO EDITOR2
EDITOR3: CLS : COLOR 11
PRINT "Factory Requirements:"
PRINT "====================="
COLOR 10
PRINT "This option determines how many Industrial Factories you will need for every"
PRINT
PRINT "x amount of citizens. More people per Factory means you will not have to buy"
PRINT
PRINT "as many Factories to keep Unemployment stable. Less people per Factory means"
PRINT
PRINT "you must purchase more Factories to combat Unemployment. Example, if one had"
PRINT
PRINT "a national Population of 2400 million people, on very easy mode they would"
PRINT
PRINT "only require 2 Factories to keep Unemployment down. But on very hard setting,"
PRINT
PRINT "you would need 6 Factories to accomplish the same thing. "
PRINT : PRINT
PRINT "A very easy setting (1) needs 1 Factory for every 1000 million citizens"
PRINT
PRINT "An easy setting (2) needs 1 Factory for every 800 million citizens"
PRINT
PRINT "A normal setting (3) needs 1 Factory for every 600 million citizens"
PRINT
PRINT "A hard setting (4) needs 1 Factory for every 400 million citizens"
PRINT
PRINT "A very hard setting (5) needs 1 Factory for every 200 million citizens"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D3 = 1000: B = B + 0: GOTO EDITOR4
CASE "2": D3 = 800: B = B + 2.5: GOTO EDITOR4
CASE "3": D3 = 600: B = B + 5: GOTO EDITOR4
CASE "4": D3 = 400: B = B + 7.5: GOTO EDITOR4
CASE "5": D3 = 200: B = B + 10: GOTO EDITOR4
END SELECT: GOTO EDITOR3
EDITOR4: CLS : COLOR 11
PRINT "Price of Food:"
PRINT "=============="
COLOR 10
PRINT "This is how much Food will cost per ton. At first glance it would appear that"
PRINT
PRINT "a cheaper price would be easier, but its not. This is because the lower the"
PRINT
PRINT "Food cost, the more Food they consume. Civilians and Soldiers on very hard"
PRINT
PRINT "eat over 3 times the amount of Food as those on very easy. Hard and very hard"
PRINT
PRINT "modes are difficult and you will be spending alot of Gold on Food Farms."
PRINT : PRINT
PRINT "A very easy setting (1) makes the price 2.5 Gold per ton"
PRINT
PRINT "An easy setting (2) makes the price 2 Gold per ton"
PRINT
PRINT "A normal setting (3) makes the price 1.5 Gold per ton"
PRINT
PRINT "A hard setting (4) makes the price 1 Gold per ton"
PRINT
PRINT "A very hard setting (5) makes the price .75 Gold per ton"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D4 = 2.5: B = B + 0: GOTO EDITOR5
CASE "2": D4 = 2: B = B + 2.5: GOTO EDITOR5
CASE "3": D4 = 1.5: B = B + 5: GOTO EDITOR5
CASE "4": D4 = 1: B = B + 7.5: GOTO EDITOR5
CASE "5": D4 = .75: B = B + 10: GOTO EDITOR5
END SELECT: GOTO EDITOR4
EDITOR5: GOTO EDITOR6
EDITOR6: CLS : COLOR 11
PRINT "Starting Population:"
PRINT "===================="
COLOR 10
PRINT "This is the number of civilians you start with. Although they may not look"
PRINT
PRINT "like much of a difference, in the early game having a larger Population to"
PRINT
PRINT "start out can help greatly. With the larger Population, you could be 5-6"
PRINT
PRINT "turns ahead of what you would be with a lower setting."
PRINT : PRINT
PRINT "A very easy setting (1) has you start with 400 million"
PRINT
PRINT "An easy setting (2) has you start with 300 million"
PRINT
PRINT "A normal setting (3) has you start with 200 million"
PRINT
PRINT "A hard setting (4) has you start with 100 million"
PRINT
PRINT "A very hard setting (5) has you start with 10 million"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D6 = 400: B = B + 0: GOTO EDITOR7
CASE "2": D6 = 300: B = B + 2.5: GOTO EDITOR7
CASE "3": D6 = 200: B = B + 5: GOTO EDITOR7
CASE "4": D6 = 100: B = B + 7.5: GOTO EDITOR7
CASE "5": D6 = 10: B = B + 10: GOTO EDITOR7
END SELECT: GOTO EDITOR6
EDITOR7: CLS : COLOR 11
PRINT "Amount of Covert Ops per turn:"
PRINT "=============================="
COLOR 10
PRINT "This is how many Covert Ops you can perform each turn. More Covert Ops allow"
PRINT
PRINT "you to do more destruction to your enemies, and is easier. A harder setting"
PRINT
PRINT "will make Covert Ops less a factor in the overall game. This will severely"
PRINT
PRINT "restrict your ability to wage war on the other nations."
PRINT : PRINT
PRINT "A very easy setting (1) gives you 20 Covert operations per turn"
PRINT
PRINT "AN easy setting (2) gives you 15 Covert Operations per turn"
PRINT
PRINT "A normal setting (3) gives you 10 Covert Operations per turn"
PRINT
PRINT "A hard setting (4) gives you 5 Covert Operations per turn"
PRINT
PRINT "A very hard setting (5) gives you 1 Covert Operation per turn"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D7 = 20: B = B + 0: GOTO EDITOR8
CASE "2": D7 = 15: B = B + 2.5: GOTO EDITOR8
CASE "3": D7 = 10: B = B + 5: GOTO EDITOR8
CASE "4": D7 = 5: B = B + 7.5: GOTO EDITOR8
CASE "5": D7 = 1: B = B + 10: GOTO EDITOR8
END SELECT: GOTO EDITOR7
EDITOR8: CLS : GOTO EDITOR9
EDITOR9: CLS : COLOR 11
PRINT "Starting amount of Food in Food Market:"
PRINT "======================================="
COLOR 10
PRINT "This setting determines the amount of Foof that starts out in the Food Market."
PRINT
PRINT "A higher amount is recommended for those who dont want to see Food shortages."
PRINT
PRINT "As comps also buy and sell Food, they can deplete the amount of Food in the"
PRINT
PRINT "Food Market."
PRINT : PRINT
PRINT "A very easy setting (1) sets the amount at 25,000 tons"
PRINT
PRINT "AN easy setting (2) sets the amount at 20,000 tons"
PRINT
PRINT "A normal setting (3) sets the amount at 15,000 tons"
PRINT
PRINT "A hard setting (4) sets the amount at 10,000 tons"
PRINT
PRINT "A very hard setting (5) sets the amount at 5000 tons"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D9 = 25000: B = B + 0: GOTO EDITOR10
CASE "2": D9 = 20000: B = B + 2.5: GOTO EDITOR10
CASE "3": D9 = 15000: B = B + 5: GOTO EDITOR10
CASE "4": D9 = 10000: B = B + 7.5: GOTO EDITOR10
CASE "5": D9 = 5000: B = B + 10: GOTO EDITOR10
END SELECT: GOTO EDITOR9
EDITOR10: CLS : COLOR 11
PRINT "Interest Rate:"
PRINT "======================================"
COLOR 10
PRINT "This is how much Interest you recieve when you invest Gold in the Bank. Higher"
PRINT
PRINT "interest Rates will get you more Gold but lower your overall point total at"
PRINT
PRINT "the end of the game."
PRINT : PRINT
PRINT "A very easy setting (1) sets the Interest Rate at 0%-5%"
PRINT
PRINT "An easy setting (2) sets the Interest Rate at 0%-4%"
PRINT
PRINT "A normal setting (3) sets the Interset Rate at 0%-3%"
PRINT
PRINT "A hard setting (4) sets the Interest Rate at 0%-2%"
PRINT
PRINT "A very hard setting (5) sets the Interest Rate at 0%-1%"
GOSUB EDITORREPLY: SELECT CASE A$
CASE "1": D10 = 5: B = B + 0: GOTO EDITOR11
CASE "2": D10 = 4: B = B + 2.5: GOTO EDITOR11
CASE "3": D10 = 3: B = B + 5: GOTO EDITOR11
CASE "4": D10 = 2: B = B + 7.5: GOTO EDITOR11
CASE "5": D10 = 1: B = B + 10: GOTO EDITOR11
END SELECT: GOTO EDITOR10
EDITSAVE: PRINT
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, X%: 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
END SUB
SUB FOODMARKET (D4, G&, FM&, F&)
FOODMARKET: CLS : COLOR 10: A = 0
PRINT "Planetary Food Market:": PRINT "======================"
IF FM& <= 5000 THEN GOSUB LOWFOOD
IF FM& < 0 THEN FM& = 0
PRINT : COLOR 10
PRINT "We have"; : COLOR 11: PRINT FM&; : COLOR 10: PRINT "tons of Food."
PRINT
PRINT "We are selling Food for"; : COLOR 11: PRINT D4 + A; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "We are buying Food for"; : COLOR 11: PRINT D4 / 2; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "You have"; : COLOR 11: PRINT F&; : COLOR 10: PRINT "tons of Food."
PRINT
PRINT "You also have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT : PRINT : PRINT : COLOR 11
PRINT "(B)uy Food"
PRINT : PRINT "(E)xit Food Market"
PRINT : PRINT : COLOR 10
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "E": EXIT SUB
CASE "B": GOTO BUYFOOD
END SELECT
GOTO FOODMARKET
LOWFOOD: COLOR 12
IF FM& = 0 THEN PRINT "We have no Food to sell!! Perhaps you could sell us some!": RETURN
IF FM& <= 1000 THEN PRINT "We have little Food to sell! We are forced to yet again raise prices!": A = 3: RETURN
IF FM& <= 3000 THEN PRINT "We are very short on Food! This does not bode well for the future!": A = 2: RETURN
IF FM& <= 5000 THEN PRINT "We have a Food shortage! We have no choice but to raise our prices!": A = 1: RETURN
BUYFOOD: CLS : COLOR 10
PRINT "We are selling our Food Market brand Food for"; : COLOR 11: PRINT D4 + A; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "We have"; : COLOR 11: PRINT FM&; : COLOR 10: PRINT "tons of Food for sale."
PRINT
PRINT "You have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT
A& = G& / (D4 + A)
IF A& > FM& THEN A& = FM&
PRINT "You can buy"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "tons of Food."
PRINT : PRINT
PRINT "How much would you like to buy (0 -"; : PRINT A&; : PRINT ")"; : INPUT B&
IF B& = 9778 THEN F& = F& + 100: GOTO FOODMARKET
IF B& < 0 THEN GOTO BUYFOOD
IF B& > A& THEN GOTO BUYFOOD
IF B& = 0 THEN GOTO FOODMARKET
G& = G& - (B& * (D4 + A))
F& = F& + B&: FM& = FM& - B&
GOTO FOODMARKET
END SUB
SUB IMPROVEMENTS
IMPROVEMENTS: CLS : COLOR 11
PRINT "Recent Improvements: Version 4.00"
PRINT "================================"
COLOR 10
PRINT "* Finished Food Market options"
PRINT "* Finished Global Bank options"
PRINT "* Finished Purchase Units options"
PRINT "* Finished Top Ten list"
PRINT "* Finished Industrial Output options"
PRINT "* Finished Current Status"
PRINT : PRINT : COLOR 11
PRINT "Recent Improvements: Version 4.01"
PRINT "================================="
COLOR 10
PRINT "* Finished Policies/Taxes options"
PRINT "* Finished Covert Operations options"
PRINT "* Finished Advisors options"
PRINT : PRINT
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
END SUB
SUB MILITARYMORAL (MM%)
COLOR 15
IF MM% = 100 THEN PRINT "Your military sees you as the perfect commander!": EXIT SUB
IF MM% > 95 THEN PRINT "Your military has confidence in your ability to lead!": EXIT SUB
IF MM% > 90 THEN PRINT "The military trusts you when you issue commands!": EXIT SUB
IF MM% > 85 THEN PRINT "Your military, for the most part, agree with your orders!": EXIT SUB
IF MM% > 80 THEN PRINT "Some military personel are puzzled by your tactics!": EXIT SUB
IF MM% > 75 THEN PRINT "Your military officers are questioning your orders!": EXIT SUB
IF MM% > 60 THEN PRINT "The military has little trust in your leadership qualities!": EXIT SUB
IF MM% > 45 THEN PRINT "The military is divided on your ability to lead them!": EXIT SUB
IF MM% > 30 THEN PRINT "Many in the military speak hostily of you!": EXIT SUB
IF MM% > 15 THEN PRINT "Your military has no confidence in your ability to lead them!": EXIT SUB
IF MM% > 0 THEN PRINT "Most of your generals are calling for your overthrow!": EXIT SUB
IF MM% = 0 THEN PRINT "You just survived a military coup!": EXIT SUB
END SUB
SUB POPULARSUPPORT (PS%)
POPULARSUPPORT: COLOR 15
IF PS% = 100 THEN PRINT "The people love you! You are loved by everyone!!": EXIT SUB
IF PS% > 95 THEN PRINT "Your citizens admire you for your decision making skills!": EXIT SUB
IF PS% > 90 THEN PRINT "The people of the nation think highly of your policies!": EXIT SUB
IF PS% > 85 THEN PRINT "You are well liked by the citizens of the nation!": EXIT SUB
IF PS% > 75 THEN PRINT "Some people are questioning your policies!": EXIT SUB
IF PS% > 60 THEN PRINT "A slim majority of your citizens appove of your actions!": EXIT SUB
IF PS% > 45 THEN PRINT "The nation is divided by your policies!": EXIT SUB
IF PS% > 30 THEN PRINT "Most citizens are disgusted by your administration!": EXIT SUB
IF PS% > 15 THEN PRINT "The citizens want you out of office!": EXIT SUB
IF PS% > 0 THEN PRINT "You have just survived an assassination attempt! WATCH OUT!!": EXIT SUB
IF PS = 0 THEN PRINT "You just survived a presidental car bombing! This isnt good!": EXIT SUB
RANDOMEVENTS: COLOR 10
B% = RND(100) * 100
IF B% >= 11 THEN EXIT SUB
A% = RND(34) * 34
IF A% = 1 THEN GOTO RANDOMEVENTS1
IF A% = 2 THEN GOTO RANDOMEVENTS2
IF A% = 3 THEN GOTO RANDOMEVENTS3
IF A% = 4 THEN GOTO RANDOMEVENTS4
IF A% = 5 THEN GOTO RANDOMEVENTS5
IF A% = 6 THEN GOTO RANDOMEVENTS6
IF A% = 7 THEN GOTO RANDOMEVENTS7
IF A% = 8 THEN GOTO RANDOMEVENTS8
IF A% = 9 THEN GOTO RANDOMEVENTS9
IF A% = 10 THEN GOTO RANDOMEVENTS10
IF A% = 11 THEN GOTO RANDOMEVENTS11
IF A% = 12 THEN GOTO RANDOMEVENTS12
IF A% = 13 THEN GOTO RANDOMEVENTS13
IF A% = 14 THEN GOTO RANDOMEVENTS14
IF A% = 15 THEN GOTO RANDOMEVENTS15
IF A% = 16 THEN GOTO RANDOMEVENTS16
IF A% = 17 THEN GOTO RANDOMEVENTS17
IF A% = 18 THEN GOTO RANDOMEVENTS18
IF A% = 19 THEN GOTO RANDOMEVENTS19
IF A% = 20 THEN GOTO RANDOMEVENTS20
IF A% = 21 THEN GOTO RANDOMEVENTS21
IF A% = 22 THEN GOTO RANDOMEVENTS22
IF A% = 23 THEN GOTO RANDOMEVENTS23
IF A% = 24 THEN GOTO RANDOMEVENTS24
IF A% = 25 THEN GOTO RANDOMEVENTS25
IF A% = 26 THEN GOTO RANDOMEVENTS26
IF A% = 27 THEN GOTO RANDOMEVENTS27
IF A% = 28 THEN GOTO RANDOMEVENTS28
IF A% = 29 THEN GOTO RANDOMEVENTS29
IF A% = 30 THEN GOTO RANDOMEVENTS30
IF A% = 31 THEN GOTO RANDOMEVENTS31
IF A% = 32 THEN GOTO RANDOMEVENTS32
IF A% = 33 THEN GOTO RANDOMEVENTS33
'IF A% = 34 THEN GOTO RANDOMEVENTS34
EXIT SUB
RANDOMEVENTS1: COLOR 15
A& = RND(P& / 2) * (P& / 2): P& = P& + A&: PRINT
PRINT A&; : PRINT "million people have immigrated to your nation!!"
EXIT SUB
RANDOMEVENTS2: COLOR 15
A& = RND(P& / 2) * (P& / 2): P& = P& - A&: PRINT
PRINT A&; : PRINT "million people were killed from a government released virus!"
PRINT "Popular Support is also lowered as a result!"
A% = RND(20) * 20: PS% = PS% - A%: IF PS% < 0 THEN PS% = 0
EXIT SUB
RANDOMEVENTS3: COLOR 15
A& = RND(P& / 4) * (P& / 4): P& = P& + A&: PRINT
PRINT "Because of a cloning experiment gone wrong, your population has dramatically"
PRINT "increased by"; : PRINT A&; : PRINT "million!"
EXIT SUB
RANDOMEVENTS4: COLOR 15
A& = RND(TR& / 5) * (TR& / 5): TR& = TR& + A&: PRINT
PRINT A&; : PRINT "extra Soldiers enlist in your military!"
EXIT SUB
RANDOMEVENTS5: COLOR 15
A& = RND(TR& / 5) * (TR& / 5): TR& = TR& - A&: PRINT
PRINT A&; : PRINT "Soldiers are killed from an ammo explosion!"
EXIT SUB
RANDOMEVENTS6: COLOR 15
A& = RND(TR& / 10) * (TR& / 10): TR& = TR& + A&: PRINT
PRINT A&; : PRINT "Soldiers are re-activated from inactive duty!"
EXIT SUB
RANDOMEVENTS7: COLOR 15
A& = RND(TR& / 10) * (TR& / 10): TR& = TR& - A&: PRINT
PRINT "Because of friendly fire,"; : PRINT A&; : PRINT "Soldiers are killed!"
EXIT SUB
RANDOMEVENTS8: COLOR 15
A& = RND(HU& / 10) * (HU& / 10): HU& = HU& + A&: PRINT
PRINT "Because of strong output,"; : PRINT A&; : PRINT "extra Humvees were produced!"
EXIT SUB
RANDOMEVENTS21: COLOR 15
A& = RND(F& / 5) * (F& / 5): F& = F& - A&: PRINT
PRINT "Because of poor storage,"; : PRINT A&; : PRINT "tons of Food spoil!"
EXIT SUB
RANDOMEVENTS22: COLOR 15
A& = RND(TR& / 10) * (TR& / 10): TR& = TR& - A&: PRINT
PRINT A&; : PRINT "Soldiers die from complications from Agent Orange!"
EXIT SUB
RANDOMEVENTS23: COLOR 15
A& = RND(HU& / 10) * (HU& / 10): HU& = HU& - A&: PRINT
PRINT A&; : PRINT "Humvees were given Jet fuel and explode!"
EXIT SUB
RANDOMEVENTS24: COLOR 15
A& = RND(TK& / 10) * (TK& / 10): TK& = TK& - A&: PRINT
PRINT A&; : PRINT "Tanks were melted for scrap metal!"
EXIT SUB
RANDOMEVENTS25: COLOR 15
A& = RND(JT& / 10) * (JT& / 10): JT& = JT& - A&: PRINT
PRINT A&; : PRINT "Jets were lost in the Bermuda Triangle!"
EXIT SUB
RANDOMEVENTS26: COLOR 15
A& = RND(BM& / 10) * (BM& / 10): BM& = BM& - A&: PRINT
PRINT A&; : PRINT "Bombers were destroyed in mid-air collisions!"
EXIT SUB
RANDOMEVENTS27: COLOR 15
A& = RND(FF& / 10) * (FF& / 10): FF& = FF& - A&: PRINT
PRINT A&; : PRINT "Food Farms were destroyed by floods!"
EXIT SUB
RANDOMEVENTS28: COLOR 15
A& = RND(FA& / 10) * (FA& / 10): FA& = FA& - A&: PRINT
PRINT A&; : PRINT "Factories explode from bad chemical reactions!"
EXIT SUB
RANDOMEVENTS29: COLOR 15
A& = RND(F& / 10) * (F& / 10): F& = F& - A&: PRINT
PRINT A&; : PRINT "tons of food are devoured by rats and other vermin!"
EXIT SUB
RANDOMEVENTS30: COLOR 15
A& = RND(G& / 10) * (G& / 10): G& = G& - A&: PRINT
PRINT A&; : PRINT "Gold disappears from your treasury!"
EXIT SUB
RANDOMEVENTS31: COLOR 15
A& = RND(P& / 10) * (P& / 10): P& = P& - A&: PRINT
PRINT A&; : PRINT "million citizens die from a nationwide hunger strike!"
EXIT SUB
RANDOMEVENTS32: COLOR 15
A& = RND(FM& / 10) * (FM& / 10): FM& = FM& - A&: PRINT
PRINT A&; : PRINT "tons of Food Market food is destroyed by mold!"
EXIT SUB
RANDOMEVENTS33: COLOR 15
A& = RND(PS% / 10) * (PS% / 10): PS% = PS% - A&: PRINT
PRINT "Your Popular Support dropped"; : PRINT A&; : PRINT "% from a scandal!"
EXIT SUB
END SUB
SUB STATUS
STATUS: C = 0
GOSUB AUTOLOAD1
'IF N$ = "" THEN EXIT SUB
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 AUTOLOAD1
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": EXIT SUB
END SELECT
GOTO STATUS
AUTOLOAD1: 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, FM&: 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
RETURN
CURRENTTARGET: 'this changes your current target
CLS : COLOR 11: PRINT "Nation # Nation Name"
PRINT "====================================="
FOR C = 1 TO 20
GOSUB AUTOLOAD1
IF N$ = "" THEN GOTO CURRENTTARGET1
COLOR 10
LOCATE , 3: PRINT C; : LOCATE , 20: PRINT N$
CURRENTTARGET1: NEXT C
COLOR 11: PRINT
PRINT "Which nation do you want as your Current Target (0 exits)"; : INPUT A%
IF A% < 0 THEN GOTO CURRENTTARGET
IF A% = 0 THEN EXIT SUB
IF A% > 20 THEN GOTO CURRENTTARGET
C = A%: GOSUB AUTOLOAD1
IF N$ = "" THEN GOTO NOTARGET
C = 0: GOSUB AUTOLOAD1
CT% = A% - 1: GOSUB AUTOSAVE1
GOTO STATUS
AUTOSAVE1: PRINT
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 : RETURN
NOTARGET: COLOR 12
PRINT : PRINT "This nation no longer exists!! Please choose a different one!"
COLOR 7: PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO CURRENTTARGET
END SUB
SUB TOPSCORES
TOPSCORES: 'this creates top ten list
CLS : COLOR 10
PRINT "WarGame4 - Top Ten nations with highest net value:"
COLOR 11
LOCATE 4, 1: PRINT "Rank"; : LOCATE 4, 15: PRINT "Nation"; : LOCATE 4, 50: PRINT "Net Worth"
PRINT "==========================================================================="
S& = 0: S$ = "": C = 0
GOSUB LOADTOPSCORES
IF S& > S6& THEN S9$ = S8$: S8$ = S7$: S7$ = S6$: S6$ = N$
IF S& > S6& THEN S9& = S8&: S8& = S7&: S7& = S6&: S6& = S&: GOTO TC
IF S& > S7& THEN S9$ = S8$: S8$ = S7$: S7$ = N$
IF S& > S7& THEN S9& = S8&: S8& = S7&: S7& = S&: GOTO TC
IF S& > S8& THEN S9$ = S8$: S8$ = N$: S9& = S8&: S8& = S&: GOTO TC
IF S& > S9& THEN S9$ = N$: S9& = S&: GOTO TC
TC: NEXT C
COLOR 10
IF S0$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "1"; : LOCATE , 11: PRINT S0$; : LOCATE , 50: PRINT S0&
COLOR 10
IF S1$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "2"; : LOCATE , 11: PRINT S1$; : LOCATE , 50: PRINT S1&
COLOR 10
IF S2$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "3"; : LOCATE , 11: PRINT S2$; : LOCATE , 50: PRINT S2&
COLOR 10
IF S3$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "4"; : LOCATE , 11: PRINT S3$; : LOCATE , 50: PRINT S3&
COLOR 10
IF S4$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "5"; : LOCATE , 11: PRINT S4$; : LOCATE , 50: PRINT S4&
COLOR 10
IF S5$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "6"; : LOCATE , 11: PRINT S5$; : LOCATE , 50: PRINT S5&
COLOR 10
IF S6$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "7"; : LOCATE , 11: PRINT S6$; : LOCATE , 50: PRINT S6&
COLOR 10
IF S7$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "8"; : LOCATE , 11: PRINT S7$; : LOCATE , 50: PRINT S7&
COLOR 10
IF S8$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "9"; : LOCATE , 11: PRINT S8$; : LOCATE , 50: PRINT S8&
COLOR 10
IF S9$ = B$ THEN COLOR 12
LOCATE , 2: PRINT "10"; : LOCATE , 11: PRINT S9$; : LOCATE , 50: PRINT S9&
IF B% > 10 THEN COLOR 12: LOCATE , 1: PRINT B%; : LOCATE , 11: PRINT B$; : LOCATE , 50: PRINT B&
PRINT : PRINT : PRINT
COLOR 10
PRINT "Your nation's net worth is the total worth in gold of your military units,"
PRINT
PRINT "spys, food farms, factories, gold, and amount of food. A higher net value"
PRINT
PRINT "does not always mean a stronger military and vice versa. It is representative"
PRINT
PRINT "of a nation's overall strength."
PRINT : COLOR 7
PRINT : PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO TOPEND
LOADTOPSCORES: C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
GET 1, 14, F&: GET 1, 15, G&: GET 1, 16, BG&
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, 44, N$
CLOSE : RETURN
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
IF A$ = "C" THEN GOTO COVERTOPS
IF A$ = "E" THEN GOTO TAXES
TAXES: 'this is taxes/policies menu area
CLS : C = 0: GOSUB AUTOLOAD: COLOR 10
PRINT "As leader of your nation, you also have the option of enacting special laws"
PRINT
PRINT "or policies depending on your current needs. All of these options can help"
PRINT
PRINT "you in your quest, but they all carry a price of either Gold, Popular Support,"
PRINT
PRINT "or in some cases, the lives of your countrymen. Some of these policies are"
PRINT
PRINT "irreverseable and cannot be undone once enacted. Others require Congressional"
PRINT
PRINT "approval before they can be passed."
PRINT : COLOR 11
PRINT : PRINT "(A)lter Tax Rate"
PRINT : PRINT "(B)rainwash Soldiers"
PRINT : PRINT "(C)annibalism"
PRINT : PRINT "(D)raft"
PRINT : PRINT "(E)xit to Main Menu"
PRINT : PRINT "(F)ood Rationing"
PRINT : PRINT "(M)artial Law"
PRINT : PRINT "(P)atriot Act"
PRINT : PRINT "(S)tart Public Relations Campaign"
PRINT : PRINT "(T)errorism"
PRINT : PRINT : COLOR 10
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "A": GOTO TAX1
CASE "B": GOTO BRAINWASH
CASE "C": GOTO CANNIBALISM
CASE "D": GOTO DRAFT
CASE "E": CHAIN "MAINMENU"
CASE "F": GOTO FOODRATION
CASE "M": GOTO MARTIALLAW
CASE "P": GOTO PATRIOTACT
CASE "S": GOTO PRCAMP
CASE "T": GOTO TERRORISM
END SELECT
GOTO TAXES
FOODRATION: 'this is food rationing area
IF EN4 > 0 THEN COLOR 12: PRINT : PRINT "You are already starving your people!": GOTO NOPOLICY
CLS : COLOR 10
PRINT "When normal growing means cant produce enough Food, or if the Food Market is"
PRINT
PRINT "a bit expensive for your taste, you can always try Food Rationing! This order"
PRINT
PRINT "will cut your national Food intake by 1/3! Although this may not seem like a"
PRINT
PRINT "big difference, as your nation gets larger and more Food is required, every"
PRINT
PRINT "little bit helps. By cutting Food intake, you can turn Food deficits into"
PRINT
PRINT "Food surpluses!"
PRINT : PRINT
PRINT "Of course there is a down side to this option. First off, this option will"
PRINT
PRINT "require the approval of Congress to pass, and they will not lightly let you"
PRINT
PRINT "starve the citizens. Second, this law is permanment and cannot be undone once"
PRINT
PRINT "passed. Third, your Popular Support is going to take a big hit. And last but"
PRINT
PRINT "not least, you will lose several million citizens each turn because of death"
PRINT
PRINT "from starvation."
PRINT : PRINT
PRINT "While this option isnt the best suited for everyone, for those with very"
PRINT
PRINT "high Food costs, this option would do wonders for your nation."
PRINT : PRINT : COLOR 11
PRINT "Start Food Rationing? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO FOODRATION1
CASE "N": GOTO TAXES
END SELECT
GOTO FOODRATION
FOODRATION1: 'this sets food rationing
IF PS% < 95 THEN GOTO CONGRESSBLOCKED
PRINT : PRINT : COLOR 10
PRINT "You go onto national television and put forth your national Food policy but"
PRINT
PRINT "expect bad results from this. "
PRINT : PRINT : COLOR 12: A% = PS% / 2
PRINT "Dammit! Your Popular Support just dropped"; : COLOR 11: PRINT A%; : COLOR 12: PRINT "% !!"
PS% = PS% / 2: EN4 = 1
COLOR 7: PRINT : PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
C = 0: GOSUB AUTOSAVE: GOTO TAXES
TERRORISM: 'this is sponsor terrorism area
IF EN3 > 0 THEN COLOR 12: PRINT : PRINT "You already sponsor world-wide terrorism and unnessessary death!": GOTO NOPOLICY
CLS : COLOR 10
PRINT "When the going gets tough, just hire yourself a terrorist organization to do"
PRINT
PRINT "your dirty deeds for you! This option will allow you to buy the services of"
PRINT
PRINT "a terrorist group who will target your current target nation. These terrorists"
PRINT
PRINT "will use explosives, rocket propelled grenades, and heavy arms fire to kill"
PRINT
PRINT "enemy civilians, lower enemy popular support, and even possibly lower enemy"
PRINT
PRINT "military moral. This option also does not require the approval of Congress to"
PRINT
PRINT "pass. This deal would be very top secret and highly classified. Because it is"
PRINT
PRINT "so secrative, your Popular Support will not change from enacting this."
PRINT
PRINT
PRINT "Despite all the great things this option has, there are a few big downsides"
PRINT
PRINT "as well. First off, once you enact this option, you cannot undo it. Second,"
PRINT
PRINT "since they are terrorists, they are not to be fully trusted. Although they"
PRINT
PRINT "may be your ally now, in the future they will most likely be your enemy. As"
PRINT
PRINT "you take more turns, there is a greater chance that your own terrorist will"
PRINT
PRINT "attack you. Choosing to side with Terrorists is a very serious matter."
PRINT : PRINT : COLOR 11
PRINT "Invest in Terrorism? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO TERROR1
CASE "N": GOTO TAXES
END SELECT
GOTO TERRORISM
TERROR1: COLOR 10: PRINT : PRINT
PRINT "You decieded to sponsor a radical religious group who are bent on destroying"
PRINT
PRINT "their enemies at all costs. You know at the present time this choice will"
PRINT
PRINT "help your nation, but deep down you wonder if you made the right decision."
COLOR 7: PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
EN3 = 1: C = 0: GOSUB AUTOSAVE: GOTO TAXES
NOPOLICY: COLOR 7: PRINT : PRINT
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO TAXES
PATRIOTACT: 'this is the patriot act area
IF EN2 = 5 THEN COLOR 12: PRINT : PRINT "You are already spying on your citizens without warrents!": GOTO NOPOLICY
CLS : COLOR 10
PRINT "During times of national emergencies, its important to do everything possible"
PRINT
PRINT "to save your nation from collapse. The Patriot Act is one such measure, but"
PRINT
PRINT "it comes with a cost- the loss of certain civil liberties for your citizens."
PRINT
PRINT "Although not as drastic a measure as martial law or the draft, the Patriot "
PRINT
PRINT "Act nonetheless will leave its mark on your nation should you enact it."
PRINT : PRINT
PRINT "Essentially, the Patriot Act allows your intelligence agency to spy on your"
PRINT
PRINT "civilians under the guise of national security. Because of the increased"
PRINT
PRINT "funding and power given to your agency, your covert op success rate will be"
PRINT
PRINT "increased 5% and enemy covert op success against you will be lowered 5%. "
PRINT : PRINT
PRINT "Because of the spying on the civilians without warrents, your popular support"
PRINT
PRINT "will drop quite a bit. Although you will be able to bring it back up, you"
PRINT
PRINT "may never reach 100% again. Perhaps intruding into peoples personal lives"
PRINT
PRINT "isnt the best idea."
PRINT : PRINT : COLOR 11
PRINT "Initiate the Patriot Act? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO PATRIOTACT1
CASE "N": GOTO TAXES
END SELECT
GOTO PATRIOTACT
PATRIOTACT1: 'this sets the patriot act
IF PS% < 70 THEN GOTO CONGRESSBLOCKED
CLS : COLOR 10
PRINT "Congress approves of your measure and the law passes. unlike other laws,"
PRINT
PRINT "there will be no public announcement of its passage. Because this act is to"
PRINT
PRINT "ensure national security, your enemies must not be tipped off. You know"
PRINT
PRINT "eventually one will tell the media and the secret spilled."
COLOR 12: PRINT
A% = PS% * .6
PS% = PS% - A%
PRINT
PRINT "OhOh!! Someone leaked the story to the media!! Your Popular Support has"
PRINT
PRINT "just dropped"; : COLOR 7: PRINT A%; : COLOR 12: PRINT "%!!"
COLOR 10: PRINT : PRINT
PRINT "Your covert op success rate has increased 5%!!!"
PRINT
PRINT "Enemy covert op success against you has dropped 5%!!!"
EN2 = 5
PRINT : PRINT : COLOR 7
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
C = 0: GOSUB AUTOSAVE: GOTO TAXES
TAX1: 'you change tax rate in this area
CLS : COLOR 11
PRINT "Taxes are an important part of gathering revenue for your nation. You can set"
PRINT
PRINT "the Tax Rate anywhere from 0% to 100%. Keep in mind that higher taxes will"
PRINT
PRINT "generate more revenue, but will also raise your unemployment rate and really"
PRINT
PRINT "piss off your civilians."
PRINT : PRINT : COLOR 10
PRINT "Your current Tax Rate is"; : COLOR 11: PRINT TX%; : COLOR 10: PRINT "%"
PRINT : PRINT : COLOR 10
PRINT "Would you like to change it? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO TAX2
CASE "N": C = 0: GOSUB AUTOSAVE: GOTO TAXES
END SELECT
GOTO TAX1
TAX2: COLOR 10: PRINT : PRINT
PRINT "Pick your new Tax Rate (0-100)"; : INPUT A%
IF A% < 0 THEN GOTO TAX1
IF A% > 100 THEN GOTO TAX1
TX% = A%
GOTO TAX1
DRAFT: 'this area is the draft description
IF EN = 1 THEN COLOR 12: PRINT : PRINT "You have already used the Draft!! You cant use it more than once!!": GOTO NOPOLICY
CLS : COLOR 10
PRINT "Although your military has always been an all-volunteer militia, desperate"
PRINT
PRINT "times call for desperate measures. By issuing the Draft, you will greatly"
PRINT
PRINT "increase the amount of Soldiers in your military. This is about the only good"
PRINT
PRINT "thing to come of the Draft. Your Popular Support will fall and Military"
PRINT
PRINT "Moral may also suffer. On top of that, you must feed all those new troops."
PRINT
PRINT "Issuing the draft is a very serious matter."
PRINT : PRINT
A& = P& * 5
PRINT "Based on our current population, we will enlist"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "new Soldiers."
PRINT
PRINT "We currently have a total of"; : COLOR 11: PRINT TR&; : COLOR 10: PRINT "Soldiers."
COLOR 11: PRINT : PRINT
PRINT "Do you wish to proceed with issuing the Draft? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO DRAFT1
CASE "N": GOTO TAXES
END SELECT
GOTO DRAFT
CONGRESSBLOCKED: 'congress blocks your measure
COLOR 12: PRINT : PRINT
PRINT "It looks like Congress blocked your measure!! You will have to gather more"
PRINT
PRINT "Popular Support in order to have Congress pass your plan."
PRINT : PRINT : PRINT : COLOR 10
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO TAXES
DRAFT1: 'draft takes effect here
IF PS% < 66 THEN GOTO CONGRESSBLOCKED
CLS : COLOR 10
PRINT "You go onto national television to tell the nation of your decision to"
PRINT
PRINT "issue a Draft. Despite the well written speech you gave, you know there"
PRINT
PRINT "will be backlash from this action."
TR& = TR& + A&
EN = 1
PRINT : PRINT
PRINT "You gained"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Troops as a result of the Draft!"
PRINT : PRINT
PRINT "OhOh!! Because of the unpopularity of the Draft, your Popular Support takes"
PRINT
PRINT "a tumble!! If these actions are not controlled quickly, it could very well"
PRINT
PRINT "be the beginning of the end of your empire!!"
A% = PS% * .7
PRINT : PRINT : COLOR 12
PRINT "Your Popular Support dropped"; : COLOR 7: PRINT A%; : COLOR 12: PRINT "%!!!"
PS% = PS% - A%
COLOR 10: PRINT : PRINT
PRINT "Because your armed forces are not full of unwilling soldiers, your Military"
PRINT
PRINT "Moral has also dropped!!"
PRINT : PRINT : COLOR 12
A% = MM% / 3
PRINT "Your Military Moral dropped"; : COLOR 7: PRINT A%; : COLOR 12: PRINT "%!!!!"
MM% = MM% - A%
PRINT : PRINT : COLOR 10
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
C = 0: GOSUB AUTOSAVE: GOTO TAXES
MARTIALLAW: 'this is martial law description
IF EN1 = 1 THEN COLOR 12: PRINT : PRINT "You have already enacted Martial Law!! The people are already prisoners!": GOTO NOPOLICY
CLS : COLOR 10
PRINT "During times when civil officers like state police cannot handle nationwide"
PRINT
PRINT "emergencies like riots and protests, the military can be brought in to help"
PRINT
PRINT "restore order. When you initiate Martial Law, the general populace is"
PRINT
PRINT "subjected to cerfews and limited transportation. This helps stabilize your"
PRINT
PRINT "nation, but it also creates anger with your citizens, who are pretty much"
PRINT
PRINT "now prisoners in their own nation. Because of this, your Popular Support"
PRINT
PRINT "will drop. However, your Military Moral will actually increase because of"
PRINT
PRINT "the increased military presence."
PRINT : PRINT
PRINT "Be aware that the drop in Popular Support is permnament. You will be able to"
PRINT
PRINT "bring it up slowly again, but you may never be able to bring it up to 100%"
PRINT
PRINT "ever again. This is because the law will last in effect for the duration of"
PRINT
PRINT "the game. Some civilians wont like the fact they are virtual prisoners."
PRINT : PRINT
PRINT "One added bonus of Martial Law is the fact it can boost your Military Moral"
PRINT
PRINT "past 100%! This will only last one turn and then go back to 100%. This makes"
PRINT
PRINT "the option a great pre-invasion military boost."
COLOR 11: PRINT : PRINT
PRINT "Do you want to initiate Martial Law? (Y/N)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "N": GOTO TAXES
CASE "Y": GOTO MARTIAL1
END SELECT
GOTO MARTIALLAW
MARTIAL1: 'this is where martial law takes effect
IF PS% <= 66 THEN GOTO CONGRESSBLOCKED
COLOR 10: CLS
PRINT "You sign the proclamation and then go on national television to tell the"
PRINT
PRINT "citizens that Martial Law has been enacted and a national emergency declared."
PRINT
PRINT "You announce that from this point on, there will be a curfew from 6PM until"
PRINT
PRINT "8AM. This law will be in effect every day. The military has started patroling"
PRINT
PRINT "the major cities in the realm. Any looters or violators of the curfew will be."
PRINT
PRINT "shot!! No violations of this law will be permitted for any reason."
PRINT : PRINT
A% = PS% * .7
PS% = PS% - A%
PRINT "You explain to your citizens that its in the nations best interests for this"
PRINT
PRINT "law to go into effect, especially in times of war like these. Even so, you"
PRINT
PRINT "cannot help but cringe as your popularity plummets!"
PRINT : PRINT : COLOR 12
PRINT "Your Popular Support drops"; : COLOR 7: PRINT A%; : COLOR 12: PRINT "% right away!"
PRINT : PRINT : COLOR 10
A% = MM% / 5
MM% = MM% + A%
PRINT "The military, on the other hand, is emboldened with the new law, as it allows"
PRINT
PRINT "them to flex their muscles and prove their might. Military Moral rises as"
PRINT
PRINT "soon as they recieve their new orders."
PRINT : COLOR 11
PRINT "Military Moral is up"; : COLOR 7: PRINT A%; : COLOR 11: PRINT "% with the news!!"
PRINT : PRINT
EN1 = 1
COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
C = 0: GOSUB AUTOSAVE: GOTO TAXES
BRAINWASH: CLS : COLOR 10
PRINT "There are times in almost every nations's history when its Soldiers have been"
PRINT
PRINT "rather less than loyal. Because of this, government scientists have devised"
PRINT
PRINT "a way to make sure your troops will obey your orders and give you the proper"
PRINT
PRINT "respect that the leader of the military deserves."
PRINT : PRINT
PRINT "Brainwashing is essentially taking disobedient Soldiers out of circulation and"
PRINT
PRINT "placing then into a government sponsored program. This program 'reteaches'"
PRINT
PRINT "the Soldiers on how to conduct themselves as property of the government. They"
PRINT
PRINT "will go through various shock treatments and drug induced hazes until their"
PRINT
PRINT "mental barrier breaks. At this point, they can be told to do almost anything."
PRINT
PRINT "This option is fairly expensive and only works on about 8 of every 10 Soldiers."
PRINT : PRINT : COLOR 10
PRINT "Your Military Moral is currently"; : COLOR 11: PRINT MM%; : COLOR 10: PRINT "%"
PRINT
B& = (TR& * 10) + (HU& * 15) + (TK& * 40) + (JT& * 30) + (BM& * 35) + (AG& * 10) + (MB& * 20)
A& = (B& / 750) * (100 - MM%)
IF MM% = 100 THEN COLOR 12: PRINT "You have 100% Moral already!! You dont need help!!": GOTO DESPERATEEND
PRINT "It will cost you"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold to raise your Military Moral!"
PRINT
IF G& < A& THEN COLOR 12: PRINT "You cannot afford this option at this time!": GOTO DESPERATEEND
PRINT : COLOR 7
PRINT "Start Brainwashing the Soldiers (Y/N)?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "N": GOTO TAXES
CASE "Y": GOTO BRAINWASH1
END SELECT
GOTO BRAINWASH
BRAINWASH1: PRINT : PRINT : COLOR 10
G& = G& - A&
A% = RND(10) * 10
IF A% = 5 THEN GOTO BRAINWASHBAD1
IF A% = 6 THEN GOTO BRAINWASHBAD2
MM% = 100
PRINT "Your Brainwashing program was a success! The disobedient Soldiers came back"
PRINT
PRINT "ready to take orders!! Raising the Moral is a good move for the defence of"
PRINT
PRINT "this nation! Military Moral is back to 100%!!"
GOTO DESPERATEEND
BRAINWASHBAD1: COLOR 12
PRINT "Ohoh!! The program didnt work on a few of the Soldiers and they escaped and"
PRINT
PRINT "informed others of what is going on here!! Your Military Moral dives even"
PRINT
PRINT "lower when other Soldiers realise the truth of the matter."
MM% = MM% / 2
GOTO DESPERATEEND
BRAINWASHBAD2: COLOR 12
PRINT "Damn! Apparently this batch of disobedient Soldiers are immune to relentless"
PRINT
PRINT "mind probing!! You wasted all that Gold and your Soldiers are the same as they"
PRINT
PRINT "were before! At least they didnt tell others of what transpired or your Moral"
PRINT
PRINT "might have dropped even more!"
GOTO DESPERATEEND
PRCAMP: CLS : COLOR 10
PRINT "There are times in every leader's reign where the citizens of the nation are"
PRINT
PRINT "less than impressed by their performance. Low popularity can destroy your"
PRINT
PRINT "chances to properly govern the nation. When conventional means have failed to"
PRINT
PRINT "raise your Popular Support, you can also try a Public Relations Campaign."
PRINT
PRINT
PRINT "With a Public Relations Campaign you essentially spend giant amounts of Gold"
PRINT
PRINT "for government issued commercials, leaflets, and radio plugs. This is done in"
PRINT
PRINT "an attempt to boost your image with the people of the nation. Even with the"
PRINT
PRINT "influx of Gold, that is still no guarantee that this option will work. There"
PRINT
PRINT "is a small change that the campaign will have no effect at all or the people"
PRINT
PRINT "will deem it negative and you will lose even more support!"
PRINT : PRINT : COLOR 10
PRINT "Your Popular Support is currently"; : COLOR 11: PRINT PS%; : COLOR 10: PRINT "%"
PRINT
A& = (P& / 5) * (100 - PS%)
IF PS% = 100 THEN COLOR 12: PRINT "You have 100% Support already!! You dont need help!!": GOTO DESPERATEEND
PRINT "It will cost you"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold to raise your Popular Support"
PRINT
IF G& < A& THEN COLOR 12: PRINT "You cannot afford this option at the time!": GOTO DESPERATEEND
PRINT : COLOR 7
PRINT "Start Public Relations Campaign (Y/N)?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "N": GOTO TAXES
CASE "Y": GOTO PRCAMP1
END SELECT
GOTO PRCAMP
PRCAMP1: PRINT : PRINT : COLOR 10
G& = G& - A&
A% = RND(8) * 8
IF A% = 4 THEN GOTO PRCAMPBAD1
IF A% = 5 THEN GOTO PRCAMPBAD2
PRINT "Your Public Relations Campaign was a huge success!! The public thought the"
PRINT
PRINT "whole thing was very positive. Your Popular Support is now back up to 100%"
PRINT
PRINT "for the moment! This move may have averted disaster in your nation!"
PS% = 100
GOTO DESPERATEEND
PRCAMPBAD1: COLOR 12
A% = RND(PS% / 5) * (PS% / 5)
PS% = PS% - A%
PRINT "Your Public Relations Campaign was a huge disaster!!! Your people viewed the"
PRINT
PRINT "whole thing as very negative!! Not only did youwaste your Gold, but your"
PRINT
PRINT "Popular Support also dropped"; : COLOR 11: PRINT A%; : COLOR 12: PRINT "%!!!"
GOTO DESPERATEEND
PRCAMPBAD2: COLOR 12
PRINT "Your Public Relations Campaign was a disaster!! The people of the nation"
PRINT
PRINT "were rather indifferent to the whole thing! You spent all that Gold and you"
PRINT
PRINT "did not gain any Popular Support! Buy hey, at least you did not lose any!"
GOTO DESPERATEEND
CANNIBALISM: 'THIS IS THE CANNIBALISM OPTION
IF P& = 0 THEN COLOR 12: PRINT : PRINT "You have no more people to slaughter!": GOTO DESPERATEEND
CLS : COLOR 10
PRINT "When you dont have enough Food to sustain your people and you dont have the"
PRINT
PRINT "Gold to purchase it from the unreliable Food Market, you can always resort"
PRINT
PRINT "to good old fashioned cannibalism!! Now granted, this should be used only as"
PRINT
PRINT "a last resort, but it does have its benefits also!"
PRINT : PRINT
PRINT "Cannibalism kills two birds with one stone. Not only will you gain Food, but"
PRINT
PRINT "you can also decrease your Population should it be too high for your Food"
PRINT
PRINT "production. These great benefits are not without its cost though..."
PRINT : PRINT : COLOR 11
PRINT "It will cost you 1 million people for every ton of Food you want. So if you"
PRINT
PRINT "wanted 25 tons of Food, you would need to sacrifice 25 million citizens."
PRINT : PRINT : COLOR 7
PRINT "How many tons of Food do you want (0 -"; : PRINT P&; : PRINT ")"; : INPUT A&
IF A& = 0 THEN GOTO TAXES
IF A& < 0 THEN GOTO CANNIBALISM
IF A& > P& THEN GOTO CANNIBALISM
PRINT : PRINT : COLOR 10
PRINT "You order your forces to round up"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "million of your citizens and take"
PRINT
PRINT "them to the presidental butchery! You make sure your Soldiers are quiet as"
PRINT
PRINT "to not raise any alarms. Even though you know this might have diverted a"
PRINT
PRINT "disaster, you have to live with the blood of your countrymen on your hands."
A% = RND(5) * 5
IF A% = 2 THEN GOTO CANNIBALBAD1
IF A% = 1 THEN GOTO CANNIBALBAD2
IF A% = 0 THEN GOTO CANNIBALGOOD
PRINT : PRINT : COLOR 10
PRINT "Because you kept everything as secret as possible and killed off the ones"
PRINT
PRINT "who would sound the alarm, the media and the nation is none the wiser!"
P& = P& - A&
F& = F& + A&
DESPERATEEND: PRINT
COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
C = 0: GOSUB AUTOSAVE
GOTO TAXES
CANNIBALBAD1: PRINT : PRINT : COLOR 12
PRINT "Due to a recipe error, you cooked only half the meat properly. The other"
PRINT
PRINT "meat will have to be discarded. Thats too bad."
P& = P& - A&
F& = F& + (A& / 2)
GOTO DESPERATEEND
CANNIBALBAD2: PRINT : PRINT : COLOR 12
PRINT "Crap!! This scandal got leaked to the media and your Popular Support takes"
PRINT
PRINT "a dive!! You just lost"; : COLOR 11: PRINT PS% - (PS% * .7); : COLOR 12: PRINT "percentage points!!"
PS% = PS% * .7
P& = P& - A&
F& = F& + A&
GOTO DESPERATEEND
CANNIBALGOOD: PRINT : PRINT : COLOR 10
PRINT "It appears as if a large majority of those killed were those who opposed your"
PRINT
PRINT "policies!! Because of this, your Popular Support actually rises"; : COLOR 11: PRINT (100 - PS%) * .2; : COLOR 10: PRINT "%!"
P& = P& - A&
F& = F& + A&
PS% = PS% + ((100 - PS%) * .2)
GOTO DESPERATEEND
COVERTOPS: 'this is the covert ops area
CLS : RESTORE: C = 0: GOSUB AUTOLOAD
COLOR 11
PRINT "Welcome to the Covert Operations Center. What are your orders, Commander?"
PRINT
COLOR 10
PRINT " Covert Op Name Description Success% Death% "
PRINT "=============================================================================="
FOR C = 1 TO 15
COLOR 11
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
LOCATE , 6: PRINT Z$; : LOCATE , 28: PRINT ZZ$; : LOCATE , 62: PRINT Z6 + EN2; : LOCATE , 72: PRINT Z5
COLOR 10
'PRINT "------------------------------------------------------------------------------"
PRINT
NEXT C
LOCATE 5, 1: PRINT "(A)"
LOCATE 7, 1: PRINT "(B)"
LOCATE 9, 1: PRINT "(C)"
LOCATE 11, 1: PRINT "(D)"
LOCATE 13, 1: PRINT "(E)"
LOCATE 15, 1: PRINT "(F)"
LOCATE 17, 1: PRINT "(G)"
LOCATE 19, 1: PRINT "(H)"
LOCATE 21, 1: PRINT "(I)"
LOCATE 23, 1: PRINT "(J)"
LOCATE 25, 1: PRINT "(K)"
LOCATE 27, 1: PRINT "(L)"
LOCATE 29, 1: PRINT "(M)"
LOCATE 31, 1: PRINT "(N)"
LOCATE 33, 1: PRINT "(O)"
PRINT
IF SP& = 0 THEN COLOR 12: PRINT "You need Spys to do Covert Ops!!": GOTO COVERTOPDONE
IF SP& > 0 THEN COLOR 11: PRINT "You have"; : COLOR 15: PRINT SP&; : COLOR 11: PRINT "Spys."
PRINT
IF CO > 0 THEN COLOR 11: PRINT "You have"; : COLOR 15: PRINT CO; : COLOR 11: PRINT "Covert Ops left this turn."
IF CO = 0 THEN COLOR 12: PRINT "Im sorry, but you are out of Covert Ops this turn.": GOTO COVERTOPDONE
COLOR 11: PRINT
PRINT "What is your choice? (X exits to Main Menu)"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
CLS : COLOR 10
SELECT CASE A$
CASE "A": A% = 1: GOTO OPFULL
CASE "B": A% = 2: COLOR 12: PRINT "THIS OPTION NOT AVAILABLE YET!": GOTO COVERTOPEND
CASE "C": A% = 3: GOTO OPPROPAGANDA
CASE "D": A% = 4: GOTO OPBOMBFOOD
CASE "E": A% = 5: GOTO OPDEMORALIZE
CASE "F": A% = 6: GOTO OPRUMOR
CASE "G": A% = 7: GOTO OPDIRTY
CASE "H": A% = 8: GOTO OPSUICIDE
CASE "I": A% = 9: GOTO OPRUINFOOD
CASE "J": A% = 10: GOTO OPBOMBFACTORY
CASE "K": A% = 11: GOTO OPINVESTMENT
CASE "L": A% = 12: GOTO OPMACHINERY
CASE "M": A% = 13: GOTO OPAIRCRAFT
CASE "N": A% = 14: GOTO OPDEFENCES
CASE "O": A% = 15: GOTO OPASSASSINATE
CASE "X": CHAIN "MAINMENU"
END SELECT
GOTO COVERTOPS
OPOIL: 'destroy oil well description
PRINT "This Covert Op targets the enemy's Oil Wells. Because Oil Wells are a limited"
PRINT
PRINT "resource, they are a valuable commodity for those who own them. To take their"
PRINT
PRINT "Wells away would be a big blow to their economy. And by destroying the Wells"
PRINT
PRINT "of the enemy, you also make any Oil Wells you own more valuable. This Covert"
PRINT
PRINT "Op is great as part of a pre-emptive strike against your opponents."
GOTO COVERTOPCENTER
OPFULL: 'full spy description
PRINT "This Covert Operation gives you not only the military info of the opponent,"
PRINT
PRINT "but also gives you its vital stats like Population, Popular Support, Tax"
PRINT
PRINT "Rate, Bank Gold, amount of Food, Food Farms, Factories, and Unemployment"
PRINT
PRINT "Rate. This is a very good option to keep track on how an enemy is faring or"
PRINT
PRINT "on how effective your attacks have been."
PRINT
GOTO COVERTOPCENTER
GOODOP1: 'this is a successful full spy op
COLOR 10: PRINT "Nation Name:"; : COLOR 11: PRINT N$: COLOR 10
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
PRINT "Tax Rate:"; : COLOR 11: PRINT TX%; : COLOR 10: PRINT "%"
PRINT "Unemployment Rate:"; : COLOR 11: PRINT UL%; : 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&
COLOR 10: PRINT "Spys:"; : COLOR 11: PRINT SP&
RETURN
OPBOMBFOOD: 'food market bomb description
PRINT "This can be a particularly dangerous mission. This is not because of the low"
PRINT
PRINT "Success Rate, but rather because bombing the Global Food Market can have a"
PRINT
PRINT "bad effect on your own nation later on. The operation consists of your Spy"
PRINT
PRINT "gaining enterance to the Global Food Market storage facilities. These are"
PRINT
PRINT "heavily guarded areas and that makes the mission dangerous for your agent."
PRINT
PRINT "once inside the storage facility, he will set off explosives and destroy"
PRINT
PRINT "storage vats filled with Food."
PRINT : PRINT
PRINT "This operation is one you should use lightly, as it can have dire effects on"
PRINT
PRINT "your nation later on. If you bomb the Market and lower the Food level, you"
PRINT
PRINT "might need that very Food in the future, should your own Food supplies be too"
PRINT
PRINT "low. Despite that risk, it can be an easy way to create global riots and"
PRINT
PRINT "civil unrest in enemy nations."
GOTO COVERTOPCENTER
GOODOP4: COLOR 11: 'this is successful food market bombing
A& = RND(FM& / 10) * (FM& / 10): FM& = FM& - A&
PRINT "Your Spy was able to successfully infiltrate the Food Market storage bins. He"
PRINT
PRINT "detonated several bombs and was able to destroy"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "tons of Food."
C = 0: RETURN
OPDEMORALIZE: 'demoralize description
PRINT "This is a rather effective Covert Operation, when the mission is actually a"
PRINT
PRINT "success. This mission sends an agent into enemy territory and has him join"
PRINT
PRINT "the enemy army. Once enlisted, he will start rumors of overwhelming enemy"
PRINT
PRINT "forces and of how hopeless the situation is. Through his rumors, enemy"
PRINT
PRINT "Military Moral will drop and some troops may even leave the army because they"
PRINT
PRINT "have been given the impression that they will needlessly die if they stay."
PRINT
PRINT "This is a dangerous mission for your agent, as they are usually found"
PRINT
PRINT "and executed before they have a chance to infiltrate the military."
GOTO COVERTOPCENTER
GOODOP5: COLOR 11: 'this is successful demoralize op
MM% = MM% - 1: IF MM% < 0 THEN MM% = 0
PRINT "Your Spy was able to infilitrate the enemy army. Once there, he quickly"
PRINT
PRINT "began to spread rumors of an unstoppable enemy army. Moral in the enemy's"
PRINT
PRINT "military dropped!"
A% = RND(100) * 100: IF A% > 5 THEN RETURN
A& = RND(TR& / 20) * (TR& / 20): TR& = TR& - A&
PRINT : PRINT "As a result of the demoralizing,"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "Soldiers left!"
RETURN
OPRUMOR: 'start rumor description
PRINT "This is a rather benign operation, as nothing gets killed or blown up. But"
PRINT
PRINT "Its effect can be even more devastating than a bombing mission. This Covert"
PRINT
PRINT "Op sends an agent into enemy territory under the guise of an ordinary citizen."
PRINT
PRINT "Once established there, he will start to spread nasty rumors about the enemy"
PRINT
PRINT "government. Although taking a while, the rumors finally start to spread and"
PRINT
PRINT "the popular support of the enemy government will begin to drop. Enemy"
PRINT
PRINT "Civilians may also start to leave as a result of the rumors you started."
GOTO COVERTOPCENTER
GOODOP6: COLOR 11: 'this is successful rumor op
A% = RND(2) * 2: IF A% = 0 THEN A% = 1
PS% = PS% - A%: IF PS% < 0 THEN PS% = 0
PRINT "Your Spy was able to blend in with the enemy civilians. He started and then"
PRINT
PRINT "spread nasty rumors of their government! Enemy Popular Support dropped"; : COLOR 10: PRINT A%; : COLOR 11: PRINT "%!"
A% = RND(100) * 100: IF A% > 5 THEN RETURN
A& = RND(P& / 20) * (P& / 20)
PRINT : PRINT "As a result of the rumors spread,"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "enemy citizens fled!"
RETURN
OPDIRTY: 'dirty bomb description
PRINT "This is another very dangerous operation to undertake. The risk of death or"
PRINT
PRINT "failure is very great with this mission. This operation sends an agent out"
PRINT
PRINT "into enemy territory and seeks out areas with large populations and military"
PRINT
PRINT "recruitment centers. He then deploys and detonates a dirty bomb, which is a"
PRINT
PRINT "hybrid bomb with conventional explosives and a radioactive or biological"
PRINT
PRINT "agent which causes the Population to become ill and die. Your Spy places"
PRINT
PRINT "himself in a very high death situation with this operation."
GOTO COVERTOPCENTER
GOODOP7: COLOR 11: 'this is successful dirty bomb
A& = RND(P& / 20) * (P& / 20): P& = P& - A&
PRINT "Your Spy was able to enter a large enemy city undetected and detonate his"
PRINT
PRINT "Dirty Bomb!"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "million enemy citizens were killed in the aftermath!"
A& = RND(TR& / 30) * (TR& / 30): TR& = TR& - A&
RETURN
OPSUICIDE: 'suicide bomber description
PRINT "This is a really serious and dangerous Covert Operation. With this Covert"
PRINT
PRINT "Op, you send an agent who will wear a vest of explosives, go out into some"
PRINT
PRINT "crowded public square, and detonates himself up. No military units usually"
PRINT
PRINT "are killed with this attack, but it can kill alot of enemy civilians."
PRINT : PRINT
PRINT "Be aware that although the success rate of this operation is low, the chance"
PRINT
PRINT "of death for your Spy is almost 100%. He will most likely be charged and"
PRINT
PRINT "executed as a terrorist if he is caught."
GOTO COVERTOPCENTER
GOODOP8: COLOR 11: 'this is successful suicide bomber
A% = RND(3) * 3: IF A% = 0 THEN A% = 1
P& = P& - A%: IF P& < 0 THEN P& = 0
PRINT "Your suicide Spy was able to walk right into the center of a crowded market"
PRINT
PRINT "in the enemy's nation. He sacrificed himself for the good of your nation and"
PRINT
PRINT "in the process, was able to kill off"; : COLOR 10: PRINT A%; : COLOR 11: PRINT "million people!"
RETURN
OPRUINFOOD: 'ruin food farm description
PRINT "This Covert Operation sends out one of your agents to enemy territory. Your"
PRINT
PRINT "Spy will then seek out enemy Food Farms and find ways to disrupt growing"
PRINT
PRINT "Food on them. They will accomplish this using many methods- burning the Farm,"
PRINT
PRINT "pouring chemicals or salt into the soil, and even releasing natural enemies"
PRINT
PRINT "like locusts and beetles. This operation is relatively dangerous for your"
PRINT
PRINT "Spy and carries a large risk of failure and death."
PRINT : PRINT
PRINT "This option is one of the best to weaken an enemy nation before you send an"
PRINT
PRINT "attack. By taking away their ability to make Food, you will cause riots and"
PRINT
PRINT "civil unrest to erupt within their realm."
GOTO COVERTOPCENTER
GOODOP9: COLOR 11: 'this is successful food farm destruction op
FF& = FF& - 1: IF FF& < 0 THEN FF& = 0
PRINT "Your Spy was able to destroy an enemy Food Farm! Eventually, enough of these"
PRINT
PRINT "and you will be able to starve out the other nation."
RETURN
OPBOMBFACTORY: 'bomb factory description
PRINT "This dangerous Covert Operation targets enemy Industrial Factories. The Spy"
PRINT
PRINT "uses a large explosive to destroy the Factory. Although a very dangerous"
PRINT
PRINT "mission, this Covert Op is well worth the risk. By destroying the Factories,"
PRINT
PRINT "you not only lower the enemy's military output, but you also have a great"
PRINT
PRINT "chance of raising their Unemployment Rate. This Covert Op will usually have"
PRINT
PRINT "deadly results for your agents, as chances of cuccess are not high."
GOTO COVERTOPCENTER
GOODOP10: COLOR 11: 'this is successful factory bomb op
FA& = FA& - 1: IF FA& < 0 THEN FA& = 0
PRINT "Your Spy was able to infiltrate an enemy Industrial Factory and set off his"
PRINT
PRINT "explosives!! The Factory was demolished is worthless to the enemy."
RETURN
OPINVESTMENT: 'destroy investment description
PRINT "This Covert Operation uses the latest technology to track and locate enemy"
PRINT
PRINT "investments in the Bank. Once located, the agent will then enter the Bank's"
PRINT
PRINT "computer system and erases Gold from the enemy's national account. This Op"
PRINT
PRINT "of undermining enemy investments is a great way to weaken an enemy before you"
PRINT
PRINT "send a military attack."
GOTO COVERTOPCENTER
GOODOP11: COLOR 11: 'this is successful destroy investment op
A& = RND(BG& / 10) * (BG& / 10): BG& = BG& - A&
PRINT "Your Spy was able to hack into the Global Bank and erease some of the funds"
PRINT
PRINT "of your enemy! The enemy lost a total of"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "Gold!"
RETURN
OPMACHINERY: 'bomb machinery op description
PRINT "This Covert Operation sends an agent out into enemy territory to look for"
PRINT
PRINT "Tanks and Humvees. Because of the heavy armor involved with destroying Tanks,"
PRINT
PRINT "the agent must carry larger explosives than usual. These larger explosives"
PRINT
PRINT "are more prone to premature explosions. This puts your Spy at a larger than"
PRINT
PRINT "normal risk of death from explosives. There is also the great possibility"
PRINT
PRINT "that your agent will be found, captured, and killed carrying all those big"
PRINT
PRINT "explosives around."
GOTO COVERTOPCENTER
GOODOP12: COLOR 11: 'this is successful bomb machinery option
A& = RND(TK& / 100) * (TK& / 100): TK& = TK& - A&
B& = RND(HU& / 100) * (HU& / 100): HU& = HU& - B&
PRINT "Your Spy was able to penetrate an enemy base and place explosives onto some"
PRINT
PRINT "Humvees and Tanks!"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "Tanks and"; : COLOR 10: PRINT B&; : COLOR 11: PRINT "Humvees were destroyed!"
RETURN
OPAIRCRAFT: 'bomb aircraft op description
PRINT "This Covert Operation sends out a Spy into enemy territory. This agent will"
PRINT
PRINT "then search out for enemy aircraft parked on runways or in hangers. Once he"
PRINT
PRINT "locates a nice cluster of planes, he sets up an explosive device on several"
PRINT
PRINT "of the planes and blows them up. The agent is at great risk for capture or"
PRINT
PRINT "death from premature explosions."
PRINT : PRINT
PRINT "Either way, it is a good method for weakening an oppenent's airforce. When"
PRINT "successful, this can help in the overall pre-invasion strategy."
GOTO COVERTOPCENTER
GOODOP13: COLOR 11: 'this is successful bomb aircraft op
A& = RND(JT& / 100) * (JT& / 100): JT& = JT& - A&
B& = RND(BM& / 100) * (BM& / 100): BM& = BM& - B&
PRINT "Your Spy was successful in his mission!! He was able to place explosives on"
PRINT
PRINT "a nice grouping of aircraft!"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "Jets and"; : COLOR 10: PRINT B&; : COLOR 11: PRINT "Bombers were destroyed and will"
PRINT
PRINT "no longer present a problem for you."
RETURN
OPDEFENCES: 'bomb defence op description
PRINT "This Covert Op sends out an agent who specifically targets only AAguns and"
PRINT
PRINT "Missile Bases. The agent then places an explosive device on or near the"
PRINT
PRINT "target and blows them up. The agent is at great rish for capture or even"
PRINT
PRINT "death from a faulty or premature explosion."
PRINT : PRINT
PRINT "Although this may not seem like a very good Covert Op, it can work very well"
PRINT
PRINT "when successful. This helps lower the enemies defences, making an invasion"
PRINT
PRINT "easier."
GOTO COVERTOPCENTER
GOODOP14: COLOR 11: 'this is successful bomb defence op
A& = RND(AG& / 100) * (AG& / 100): AG& = AG& - A&
B& = RND(MB& / 100) * (MB& / 100): MB& = MB& - B&
PRINT "Your Spy was able to target several AAguns and Missile Bases!! He placed his"
PRINT
PRINT "explosives and successfully destroyed"; : COLOR 10: PRINT A&; : COLOR 11: PRINT "AAguns and"; : COLOR 10: PRINT B&; : COLOR 11: PRINT "Missile Bases!"
RETURN
OPASSASSINATE: 'assassination description
PRINT "Assassination is the most difficult and dangerous of all the Covert Ops. This"
PRINT
PRINT "option puts your agent at a very high risk for death. You can easily send"
PRINT
PRINT "out 20 Spys before you get a successful Assassination. However, the reward"
PRINT
PRINT "for a successful mission can be great!"
PRINT : PRINT
PRINT "Assassination essentially sends in a Spy to infiltrate the enemies inner"
PRINT
PRINT "circle. Once on the inside, the agent will attempt to murder the ruler in"
PRINT
PRINT "some way. Sometimes its a dagger in the back, other times its a poison put"
PRINT
PRINT "into the leader's drink. Either way, the leader of the enemy nation dies and"
PRINT
PRINT "his realm is thrown into chaos. Their Popular Support will then be dropped"
PRINT
PRINT "all the way down to 0%. This is because their nation is now leaderless and"
PRINT
PRINT "without a proper chain of command."
GOTO COVERTOPCENTER
GOODOP15: COLOR 11: 'this is successful assassination attempt
PS% = 0
PRINT "Your Spy was able to successfully assassinate the enemy's leader and send"
PRINT
PRINT "your opponent's Popular Support down to 0%!! Chaos will surely be the ruler"
PRINT
PRINT "in this nation for a while!"
RETURN
OPPROPAGANDA: 'propaganda description
PRINT "Propaganda is used by most governments around the globe as a form of self-"
PRINT
PRINT "promoting itself. This can range from subliminal messages in radio to staged"
PRINT
PRINT "government events. In any matter, your government uses deception in order to"
PRINT
PRINT "boost its image domestically. When it is successful, it can be a very good way"
PRINT
PRINT "of keeping your Popular Support high. However, when it fails, your public"
PRINT
PRINT "finds out about the deception and your Popular Support plummets. Its a risky"
PRINT
PRINT "chance but the rewards could well be worth it. On a sad note, if your agent"
PRINT
PRINT "is not successfull and his cover blown, an angry mob will surely kill him."
PRINT : PRINT
PRINT "This Covert Op cannot be used against an opponent. This Covert Op only effects"
PRINT
PRINT "your nation. it is the only Covert Op that effects only your nation."
GOTO COVERTOPCENTER
GOODOP3: 'this is successful propaganda op
A% = RND(3) * 3: IF A% = 0 THEN A% = 1
COLOR 10: PS% = PS% + A%: IF PS% > 100 THEN PS% = 100
PRINT "Your Spy was successful with his deception! Your Popular Support was raised"
PRINT
PRINT "by"; : COLOR 11: PRINT A%; : COLOR 10: PRINT "%!! Good Job!"
C = 0: RETURN
COVERTOPCENTER: PRINT : PRINT : RESTORE
FOR C = 1 TO A%
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT C
COLOR 10
PRINT "Send the Covert Operation "; : COLOR 11: PRINT Z$; : COLOR 10: PRINT " (Y/N)?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "N": GOTO COVERTOPS
CASE "Y": GOTO COVERTOPSRESULTS
END SELECT
GOTO COVERTOPS
COVERTOPSRESULTS: 'this determines if covert op is a success and agent dies
CO = CO - 1
B% = RND(100) * 100
IF B% > Z6 THEN GOTO COVERTOPSNOGOOD
IF B% >= 100 - Z5 THEN GOSUB COVERTOPSSPYDIE
PRINT : PRINT
IF A% = 3 THEN GOSUB GOODOP3: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 4 THEN GOSUB GOODOP4: GOSUB AUTOSAVE: GOTO COVERTOPEND
C = 0: GOSUB AUTOSAVE
C = CT% + 1: GOSUB AUTOLOAD
IF A% = 1 THEN GOSUB GOODOP1: GOSUB AUTOSAVE: GOTO COVERTOPEND
'IF A% = 2 THEN GOSUB GOODOP2: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 5 THEN GOSUB GOODOP5: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 6 THEN GOSUB GOODOP6: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 7 THEN GOSUB GOODOP7: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 8 THEN GOSUB GOODOP8: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 9 THEN GOSUB GOODOP9: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 10 THEN GOSUB GOODOP10: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 11 THEN GOSUB GOODOP11: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 12 THEN GOSUB GOODOP12: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 13 THEN GOSUB GOODOP13: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 14 THEN GOSUB GOODOP14: GOSUB AUTOSAVE: GOTO COVERTOPEND
IF A% = 15 THEN GOSUB GOODOP15: GOSUB AUTOSAVE: GOTO COVERTOPEND
COVERTOPSSPYDIE: 'this is successful mission but spy dies also
COLOR 12: PRINT : PRINT "Your mission was a success, but your Spy died in the process!"
RETURN
COVERTOPSNOGOOD: 'this is an unsuccessful mission
COLOR 12: PRINT : PRINT "Your mission was unsuccessful!!"
IF B% >= 100 - Z5 THEN PRINT : PRINT "Your Spy was also killed during the attempt!": SP& = SP& - 1
C = 0: GOSUB AUTOSAVE: GOTO COVERTOPEND
COVERTOPEND: COLOR 7
PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO COVERTOPS
COVERTOPDONE: COLOR 7
PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": CHAIN "MAINMENU"
AUTOSAVE: 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: PUT 1, 53, EN3: PUT 1, 54, EN4
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&: PUT 1, 2, OM&: PUT 1, 3, SM&
CLOSE : RETURN
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: GET 1, 53, EN3: GET 1, 54, EN4
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&: GET 1, 2, OM&: GET 1, 3, SM&
CLOSE : RETURN
IF A$ = "H" THEN GOTO INSTRUCT1
IF A$ = "I" THEN GOTO INDUSTRIES
IF A$ = "F" THEN GOTO FOODMARKET
FOODMARKET: C = 0: GOSUB AUTOLOAD: CLS : COLOR 10: A = 0
PRINT "Planetary Food Market:": PRINT "======================"
IF FM& <= 5000 THEN GOSUB LOWFOOD
IF FM& < 0 THEN FM& = 0
PRINT : COLOR 10
PRINT "We have"; : COLOR 11: PRINT FM&; : COLOR 10: PRINT "tons of Food."
PRINT
PRINT "We are selling Food for"; : COLOR 11: PRINT D4 + A; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "We are buying Food for"; : COLOR 11: PRINT D4 / 2; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "You have"; : COLOR 11: PRINT F&; : COLOR 10: PRINT "tons of Food."
PRINT
PRINT "You also have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT : PRINT : PRINT : COLOR 11
PRINT "(B)uy Food"
PRINT : PRINT "(S)ell Food"
PRINT : PRINT "(E)xit Food Market"
PRINT : PRINT : COLOR 10
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO BUYFOOD
CASE "S": GOTO SELLFOOD
END SELECT
GOTO FOODMARKET
LOWFOOD: COLOR 12
IF FM& = 0 THEN PRINT "We have no Food to sell!! Perhaps you could sell us some!": RETURN
IF FM& <= 1000 THEN PRINT "We have little Food to sell! We are forced to yet again raise prices!": A = 3: RETURN
IF FM& <= 3000 THEN PRINT "We are very short on Food! This does not bode well for the future!": A = 2: RETURN
IF FM& <= 5000 THEN PRINT "We have a Food shortage! We have no choice but to raise our prices!": A = 1: RETURN
BUYFOOD: CLS : COLOR 10
PRINT "We are selling our Food Market brand Food for"; : COLOR 11: PRINT D4 + A; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "We have"; : COLOR 11: PRINT FM&; : COLOR 10: PRINT "tons of Food for sale."
PRINT
PRINT "You have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT
A& = G& / (D4 + A)
IF A& > FM& THEN A& = FM&
PRINT "You can buy"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "tons of Food."
PRINT : PRINT
PRINT "How much would you like to buy (0 -"; : PRINT A&; : PRINT ")"; : INPUT B&
IF B& = 9778 THEN F& = F& + 100: GOTO FOODMARKET
IF B& < 0 THEN GOTO BUYFOOD
IF B& > A& THEN GOTO BUYFOOD
IF B& = 0 THEN GOTO FOODMARKET
G& = G& - (B& * (D4 + A))
F& = F& + B&: FM& = FM& - B&
GOSUB AUTOSAVE: GOTO FOODMARKET
SELLFOOD: CLS : COLOR 10
PRINT "We are buying Food for"; : COLOR 11: PRINT D4 / 2; : COLOR 10: PRINT "Gold per ton."
PRINT
PRINT "You have"; : COLOR 11: PRINT F&; : COLOR 10: PRINT "tons of Food."
PRINT : PRINT
PRINT "How much would you like to sell (0 -"; : PRINT F&; : PRINT ")"; : INPUT A&
IF A& < 0 THEN GOTO SELLFOOD
IF A& > F& THEN GOTO SELLFOOD
IF A& = 0 THEN GOTO FOODMARKET
G& = G& + (A& * (D4 / 2))
FM& = FM& + A&: F& = F& - A&
GOSUB AUTOSAVE: GOTO FOODMARKET
INDUSTRIES: C = 0: GOSUB AUTOLOAD: CLS : RESTORE: COLOR 10
PRINT "Current Industrial Output:"
PRINT "=========================="
PRINT : PRINT
PRINT "Unit Name Current % Current Output"
PRINT "====================================================="
COLOR 11
FOR C = 1 TO 7
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
IF C = 1 THEN A = TR%
IF C = 2 THEN A = HU%
IF C = 3 THEN A = TK%
IF C = 4 THEN A = JT%
IF C = 5 THEN A = BM%
IF C = 6 THEN A = AG%
IF C = 7 THEN A = MB%
B& = (P& / Z1) * (A / 100)
LOCATE , 1: PRINT Z$; : LOCATE , 23: PRINT A; : LOCATE , 45: PRINT B&
NEXT C
A& = P& * ((100 - TR% - HU% - TK% - JT% - BM% - AG% - MB%) / 100)
IF A& > 0 THEN PRINT : PRINT "You will also produce"; : PRINT A&; : PRINT "Gold."
PRINT : PRINT : COLOR 10
PRINT "Do you want to change your Output (Y/N)?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO INDUSTRIES1
CASE "N": CHAIN "MAINMENU"
END SELECT
GOTO INDUSTRIES
INDUSTRIES1: CLS : RESTORE
B% = 0: COLOR 11
PRINT "Enter new Output percentages (Total must be 100% or less):"
PRINT "===================================================="
PRINT : PRINT
PRINT "Unit Name Old % % Used so far New % "
PRINT "=================================================================="
COLOR 10
FOR C = 1 TO 7
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
IF C = 1 THEN A = TR%
IF C = 2 THEN A = HU%
IF C = 3 THEN A = TK%
IF C = 4 THEN A = JT%
IF C = 5 THEN A = BM%
IF C = 6 THEN A = AG%
IF C = 7 THEN A = MB%
LOCATE , 1: PRINT Z$; : LOCATE , 22: PRINT A; : LOCATE , 42: PRINT B%; : LOCATE , 60: INPUT A%
IF A% > 100 THEN GOTO INDUSTRIES1
IF A% < 0 THEN GOTO INDUSTRIES1
IF C = 1 THEN TR% = A%
IF C = 2 THEN HU% = A%
IF C = 3 THEN TK% = A%
IF C = 4 THEN JT% = A%
IF C = 5 THEN BM% = A%
IF C = 6 THEN AG% = A%
IF C = 7 THEN MB% = A%
B% = B% + A%
NEXT C
IF TR% + HU% + TK% + JT% + BM% + AG% + MB% > 100 THEN GOTO INDUSTRIES1
C = 0: GOSUB AUTOSAVE: GOTO INDUSTRIES
INSTRUCT: PRINT : PRINT : COLOR 7
PRINT "(B)ack a Page (C)ontinue (E)xit"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
RETURN
INSTRUCT1: CLS : COLOR 11
PRINT "WELCOME TO WARGAME4 INSTRUCTIONS/HELPFUL HINTS!!"
PRINT "================================================": COLOR 10
PRINT "This helpful guide to WarGame4 should come in very handy in your journey to"
PRINT
PRINT "global conquest! WarGame4 is a turn based text strategy game. You are in"
PRINT
PRINT "the middle of a giant world war, with a total of 21 nations wrestling for"
PRINT
PRINT "control. The object of the game is to defend your nation from attack while"
PRINT
PRINT "eliminating enemy nations. The last nation standing will be the victors!"
PRINT
PRINT
PRINT "You will have all kinds of options available to complete your quest, from"
PRINT
PRINT "Covert Ops and Bombing Missions, to advisors and Secret Research. Build up"
PRINT
PRINT "your military, enact Taxes, set up your Industries, and take control of your"
PRINT
PRINT "nation as their leader. The fate of your nation is entirely up to you!"
PRINT
PRINT
PRINT "In this guide will be complete instructions as well as tips on managing your"
PRINT
PRINT "nation, which can get tricky at times. There are many things to juggle at"
PRINT
PRINT "once like Unemployment, Food Riots, Popular Support, and Military Moral. But"
PRINT
PRINT "this can give you the pointers you need to avoid the regular pitfalls."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT1
CASE "C": GOTO INSTRUCT2
END SELECT
GOTO INSTRUCT1
INSTRUCT2: CLS : COLOR 10
PRINT "Before playing WarGame4 for the first time, you must run the Editor option."
PRINT
PRINT "The Editor creates the nessessary data files required for play, resets the"
PRINT
PRINT "computer nations, and allows you to change or alter many of the important"
PRINT
PRINT "variables in the game. Altering just a few options can totally change the"
PRINT
PRINT "tactics needed to win. Some of the options you can change are:"
PRINT
PRINT : COLOR 11
PRINT "Turns per Day"
PRINT
PRINT "Turns of Protection"
PRINT
PRINT "Price of Food"
PRINT
PRINT "Covert Ops available per Day"
PRINT
PRINT "Interest Rate"
PRINT
PRINT "Food in Food Market"
PRINT
PRINT "Starting Population"
PRINT
PRINT : COLOR 10
PRINT "All these options and more are available to be changed in the Editor. If you"
PRINT
PRINT "do not run the Editor before playing a new game, it will not allow you to"
PRINT
PRINT "continue."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT1
CASE "C": GOTO INSTRUCT3
END SELECT
GOTO INSTRUCT2
INSTRUCT3: CLS : COLOR 11
PRINT "Playing the Game:": PRINT "=================": COLOR 10
PRINT "Once you exit the Editor area, you will begin your first turn. Here are a"
PRINT
PRINT "few of the most important things you will see on the first page:"
PRINT
PRINT : COLOR 11
PRINT "Turns Left Today:": PRINT "=================": COLOR 10
PRINT "This is how many turns you have left in the day. Once this reaches 0, you"
PRINT
PRINT "will be out of turns for the day and the game will exit to the title screen."
PRINT
PRINT "If you run out of turns, dont worry! Just wait until the next day to arrive"
PRINT
PRINT "and you will recieve a new set of turns. The amount of turns per day can be"
PRINT
PRINT "changed in the Editor area."
PRINT
PRINT : COLOR 11
PRINT "Turns Taken so Far:": PRINT "===================": COLOR 10
PRINT "This is exactly what it means, the total amount of turns you have taken in"
PRINT
PRINT "the game. This number has no effect on the game at all. Its only purpose is"
PRINT
PRINT "to give the player more information about their nation."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT2
CASE "C": GOTO INSTRUCT4
END SELECT
GOTO INSTRUCT3
INSTRUCT4: CLS : COLOR 11
PRINT "Turns of Protection Left:": PRINT "========================="
COLOR 10
PRINT "This is how many turns you are safe from attack from any of the computer"
PRINT
PRINT "nations. Once this counter reaches 0, you will then be open for attack at"
PRINT
PRINT "any momemt. Protection offers you a chance to build up your defences and be"
PRINT
PRINT "prepared for an attack. If you do not see this stat on your screen, it means"
PRINT
PRINT "you have used up all your turns of protection already. This option can be"
PRINT
PRINT "changed in the Editor area."
PRINT : PRINT
PRINT "NOTE! You will lose your remaining turns of protection should you bomb or"
PRINT
PRINT "attack any opponent. Performing Covert Ops will have no effect on your"
PRINT
PRINT "protection."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT3
CASE "C": GOTO INSTRUCT5
END SELECT
GOTO INSTRUCT4
INSTRUCT5: CLS : COLOR 11
PRINT "POPULATION:": PRINT "==========="
COLOR 10
PRINT "This is probably the one most important aspect of the game. These are the"
PRINT
PRINT "civilians who live in your nation. They are dependant on you for Food and"
PRINT
PRINT "protection, but you need them so much more!"
PRINT : PRINT
PRINT "Your civilians run your Factories and your Industries. Without them, your"
PRINT
PRINT "production would shut down. You are also dependant on them for revenue, as"
PRINT
PRINT "you can tax them. But the most important thing you are dependant on from your"
PRINT
PRINT "citizens is their Support. Without their Popular Support, you cannot hope to"
PRINT
PRINT "accomplish much. If you piss them off too much, they will revolt and even try"
PRINT
PRINT "to assassinate you, thus ending your current game."
PRINT : PRINT
PRINT "The higher the Population your nation has, the more Factories it can sustain,"
PRINT
PRINT "the more things it can produce in your Industries, and the more revenue you"
PRINT
PRINT "can collect. A higher Population also means more Food required every turn."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT4
CASE "C": GOTO INSTRUCT6
END SELECT
GOTO INSTRUCT5
INSTRUCT6: CLS : COLOR 11
PRINT "Popular Support:": PRINT "================"
COLOR 10
PRINT "This is another VERY important aspect of the game as it effects everything."
PRINT
PRINT "Your Popular Support is a scale used to gauge how well liked you are by your"
PRINT
PRINT "civilians. A high Popular Support (90%+) is essential to making your nation"
PRINT
PRINT "run. A pissed off populace who is not very fond of your policies or actions"
PRINT
PRINT "will revolt or attempt to assassinate you! Low Popular Support also means"
PRINT
PRINT "that Congress will not pass your laws or policies. Here are some things that"
PRINT
PRINT "will lower your Popular Support real fast:"
PRINT : PRINT : COLOR 11
PRINT "Raising the Tax Rate too high"
PRINT : PRINT "Not feeding your people"
PRINT : PRINT "Enacting certain policies"
PRINT : PRINT "Having High Unemployment"
PRINT : PRINT "Losing military battles"
COLOR 10: PRINT : PRINT
PRINT "A lower Popular Support can also have a bad effect on your Population. The"
PRINT
PRINT "lower your Popular Support, the more likely change you will have of people"
PRINT
PRINT "leaving your nation! This in turn will cut into your industrial production."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT5
CASE "C": GOTO INSTRUCT7
END SELECT
GOTO INSTRUCT6
INSTRUCT7: CLS : COLOR 11
PRINT "Tax Rate:": PRINT "========="
COLOR 10
PRINT "Your Tax Rate is another inportant aspect which will greatly effect the way"
PRINT
PRINT "your nation heads. Your Tax Rate, which can be anywhere from 0% to 100%, will"
PRINT
PRINT "give your nation much needed revenue. There are both good and bad aspects of"
PRINT
PRINT "high and low Taxes:"
PRINT : PRINT : COLOR 11
PRINT "High Taxes pro: increased revenue, Population control"
PRINT
PRINT "High Taxes con: decreased Popular Support, increased Unemployment"
PRINT
PRINT
PRINT "Low Taxes pro: stimulates growth, increased Popular Support"
PRINT
PRINT "Low Taxes con: decreased revenue"
PRINT : PRINT : COLOR 10
PRINT "A good Tax Rate is anywhere from 0%-10%. Anything higher than 10% you might"
PRINT
PRINT "risk decreased Popular Support. However, the extra revenue generated from a"
PRINT
PRINT "higher Tax Rate can sometimes help tip the battle in your favor. If you find"
PRINT
PRINT "your Popular Support dropping too fast because of your Tax Rate, lower your"
PRINT
PRINT "Tax Rate a few percentages and see how that effects it."
PRINT : PRINT
PRINT "The Tax Rate can always be changed at the Enact Policies/Taxes option in the"
PRINT
PRINT "Main Menu."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT6
CASE "C": GOTO INSTRUCT8
END SELECT
GOTO INSTRUCT7
INSTRUCT8: CLS : COLOR 11
PRINT "Unemployment Rate:": PRINT "=================="
COLOR 10
PRINT "This is a very good indicator on how your economy is doing. An Unemployment"
PRINT
PRINT "Rate of over 5% is not good. You want to keep it down as much as possible."
PRINT
PRINT "The Unemployment Rate is determined by several factors. First, your Tax Rate."
PRINT
PRINT "Higher Taxes will raise the Unemployment Rate. The 2nd factor is Factories."
PRINT
PRINT "Having more Factories will offer more jobs and lower your Unemployment Rate."
PRINT
PRINT
PRINT "Why is the Unemployment Rate so important? Because a higher Rate will lower"
PRINT
PRINT "your Popular Support. Citizens out of work are not happy citizens. Higher"
PRINT
PRINT "Unemployment Rates will also decrease your Industrial Output. If you have an"
PRINT
PRINT "Unemployment Rate of 5%, then your Industries will only produce at 95% max"
PRINT
PRINT "capacity. Here are some good tips on the Unemployment Rate:"
PRINT : PRINT : COLOR 11
PRINT "To lower Unemployment: lower Taxes, lower Population, purchase Factories"
PRINT
PRINT "To raise Unemployment: increase Taxes, destroy Factories"
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT7
CASE "C": GOTO INSTRUCT9
END SELECT
GOTO INSTRUCT8
INSTRUCT9: CLS : COLOR 11
PRINT "Food:": PRINT "=====": COLOR 10
PRINT "Food is one of the most important aspects of the game. In order for your"
PRINT
PRINT "nation to survive, Food must be grown and your people and Soldiers fed. Even"
PRINT
PRINT "the computer nations need Food as much as you do. There are several ways you"
PRINT
PRINT "can gather more Food:"
PRINT : PRINT
PRINT "The first way is having your citizens grow and harvest the Food. They will do"
PRINT
PRINT "this automatically every turn, although the amount harvested will fluctuate"
PRINT
PRINT "greatly due to things like weather and growing conditions."
PRINT : PRINT
PRINT "If that is not enough to feed your people, you can also purchase additional"
PRINT
PRINT "plots of land to grow more Food. These are called Food Farms. Every Food Farm"
PRINT
PRINT "will grow up to 10 tons of Food a turn."
PRINT : PRINT
PRINT "The last way to get Food is by purchasing it at the Food Market. This method"
PRINT
PRINT "should be your last choice if you can help it. Buying from the Food Market"
PRINT
PRINT "can be very expensive and unreliable."
PRINT : PRINT
PRINT "A great way to check on your current Food status is to visit the Agriculture"
PRINT
PRINT "expert in the Advisors area."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT8
CASE "C": GOTO INSTRUCT10
END SELECT
GOTO INSTRUCT9
INSTRUCT10: CLS : COLOR 11
PRINT "More Food tips:": PRINT "===============": COLOR 10
PRINT "Always feed your civilians and Troops! If you do not have enough, purchase it"
PRINT
PRINT "from the Food Market. Should Food not be available or you ignore that option,"
PRINT
PRINT "your civilians will riot. Civilians will leave, Popular Support will drop, and"
PRINT
PRINT "you will also lose Soldiers. In other words, always have enough Food."
PRINT : PRINT : COLOR 11
PRINT "Food Market:": PRINT "============": COLOR 10
PRINT "The Food Market is a place where Food can be bought or sold. If you have any"
PRINT
PRINT "extra Food, you can sell it to the Food Market for a small profit. If you are"
PRINT
PRINT "in need of Food, you can often purchase it here."
PRINT : PRINT
PRINT "Be aware that the computer nations draw Food from the same Food Market as you."
PRINT
PRINT "depending on the difficulty of the game, they will often buy up most of the"
PRINT
PRINT "Food, leaving the Market empty. Because of this reason, you should not be"
PRINT
PRINT "dependant on the market for your overall Food needs. "
PRINT : PRINT
PRINT "Although the price of Food at the Food Market is usually stable (1-3 Gold per"
PRINT
PRINT "ton), during times of crisis, they have been known to jack up their prices"
PRINT
PRINT "quiet a bit. Be prepared to spend alot should this happen."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT9
CASE "C": GOTO INSTRUCT11
END SELECT
GOTO INSTRUCT10
INSTRUCT11: CLS : COLOR 11
PRINT "Industries:": PRINT "===========": COLOR 10
PRINT "These are government run factories which your citizens work at. Industries"
PRINT
PRINT "produce everything from military units to Gold. Essentially, the greater"
PRINT
PRINT "amount of Population you have, the more your Industries can produce. You must"
PRINT
PRINT "be watchfull of your Unemployment Rate though, as anything higher than 0%"
PRINT
PRINT "will decrease your overall production."
PRINT : PRINT
PRINT "You can configure your Industrial output through the Industries Option in the"
PRINT
PRINT "Main Menu. There you can determine what percentage of the Industries will"
PRINT
PRINT "produce each unit. Any amount not used to create units will be used to make"
PRINT
PRINT "Gold."
PRINT : PRINT : COLOR 11
PRINT "To increase production: decrease Unemployment, increase Population"
PRINT
PRINT "to decrease production: increase Unemployment, decrease Population"
PRINT : PRINT : COLOR 10
PRINT "Your Industries should be your main sourse of military units. Factories can"
PRINT
PRINT "suppliment this, as well as purchasing units. But the most cost effective way"
PRINT
PRINT "to create a balanced military is through your Industries."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT10
CASE "C": GOTO INSTRUCT12
END SELECT
GOTO INSTRUCT11
INSTRUCT12: CLS : COLOR 11
PRINT "Factories:": PRINT "==========": COLOR 10
PRINT "Factories are an essential part to keeping a balanced and growing nation. The"
PRINT
PRINT "main purpose of Factories is to lower Unemployment. Purchasing Factories will"
PRINT
PRINT "lower Unemployment by offering your citizens more job opportunities. Factories"
PRINT
PRINT "will also produce a set amount of military units every turn. Each Factory will"
PRINT
PRINT "create an additional 2 Soldiers, 1 Humvee, 1 Tank, 1 Jet, 1 Bomber, 1 Missile"
PRINT
PRINT "Base, and 1 Anti-Aircraft Gun."
PRINT : PRINT
PRINT "The amount of factories that you will require can be changed in the Editor"
PRINT
PRINT "area. Depending on the Editor selection, you could very well be spending alot"
PRINT
PRINT "of Gold on Factories. At the most, your nation can sustain 1 Factory for"
PRINT
PRINT "every 100 million citizens. That means if you have 500 million citizens and"
PRINT
PRINT "7 Factories, only 5 of those Factories will produce any units."
PRINT : PRINT
PRINT "Factories can be destroyed through Covert Ops and Bombing Enemies. Destroying"
PRINT
PRINT "an enemy's Factories can cause Unemployment to rise, as well as lowering his"
PRINT
PRINT "military unit output."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT11
CASE "C": GOTO INSTRUCT13
END SELECT
GOTO INSTRUCT12
INSTRUCT13: CLS : COLOR 11
PRINT "Gold:": PRINT "=====": COLOR 10
PRINT "Gold is the universal currency in WarGame4. Everything is valued based on it."
PRINT
PRINT "Most of the time, you will wish you has more of it. Gold pays for new units,"
PRINT
PRINT "pays for military attacks, bombing missions, and other different things. there"
PRINT
PRINT "are several ways to get Gold:"
PRINT : PRINT : COLOR 11
PRINT "Raise funds through Taxes"
PRINT : PRINT "By earning Bank Interest"
PRINT : PRINT "Producing it with your Industries"
PRINT : PRINT "Selling excess Food to the Food Market"
PRINT : PRINT : COLOR 10
PRINT "A Good way to check on your Gold status is to visit the Economic Expert in"
PRINT : PRINT "the Advisor Options area."
PRINT : PRINT : COLOR 11
PRINT "Bank:": PRINT "=====": COLOR 10
PRINT "This is a good place to invest your Gold. Here you can earn Interest from"
PRINT
PRINT "any Gold deposited. The Interest Rate fluctuates every turn so the amount you"
PRINT
PRINT "earn will vary. Any Gold earned is deposited into your gereral fund, not back"
PRINT
PRINT "into the Bank. Gold in the Bank can be destroyed through Covert Ops."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT12
CASE "C": GOTO INSTRUCT14
END SELECT
GOTO INSTRUCT13
INSTRUCT14: CLS : COLOR 11
PRINT "Covert Ops:": PRINT "===========": COLOR 10
PRINT "These are acts of sabotage, usually against other nations, by undercover"
PRINT
PRINT "Agents. These are great as a tool to weaken an enemy before sending an"
PRINT
PRINT "attack. Each act effects a different target with varying results."
PRINT : RESTORE
FOR A = 1 TO 20
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT A
FOR A = 1 TO 15
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
PRINT : COLOR 11: PRINT Z$; : PRINT ": "; : COLOR 10: PRINT ZZ$
NEXT A: RESTORE
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT13
CASE "C": GOTO INSTRUCT15
END SELECT
GOTO INSTRUCT14
INSTRUCT15: CLS : COLOR 11
PRINT "Bombing:": PRINT "========": COLOR 10
PRINT "After sending in the Spys, its often good to bomb the opponemt into submission."
PRINT
PRINT "This saves the cost of units which would have died with a military assault"
PRINT
PRINT "and the actual cost of the assault itself. Yes, bombings are rather expensive"
PRINT
PRINT "but they do give the enemy a pounding. Each bomb has a different effect and"
PRINT
PRINT "target. Beware of the rare missile missfire of the more common bomb fallout."
PRINT : PRINT
RESTORE
FOR A = 1 TO 10
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT A
FOR A = 1 TO 8
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
COLOR 11: PRINT Z$; : PRINT ": "; : COLOR 10: PRINT ZZ$
PRINT : NEXT A
RESTORE
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT14
CASE "C": GOTO INSTRUCT16
END SELECT
GOTO INSTRUCT15
INSTRUCT16: CLS : COLOR 11
PRINT "Military Attacks:": PRINT "=================": COLOR 10
PRINT "When you have exhausted all other methods of trying to destroy an opponent,"
PRINT
PRINT "one must resort to the old method of a classic military invasion. This should"
PRINT
PRINT "be your last option though, as the costs in both Gold and units can be large."
PRINT : PRINT
PRINT "When sending an attack, both forces will continue to fight until one of"
PRINT
PRINT "several things happen: attacker is destroyed, defender is destroyed, or"
PRINT
PRINT "a draw (in which case defender wins). Remember this when sending an attack."
PRINT
PRINT "Once sent, an attack force cannot be withdrawn until the battle concludes."
PRINT : PRINT
PRINT "When you win a battle, and therefore defeating the opponent, you gain all of"
PRINT
PRINT "their Factories, Food Farms, and remaining Population. A downside to this is"
PRINT
PRINT "not everyone is going to be happy being annexed into your nation and will try"
PRINT
PRINT "to rebel against your rule. Your Popular Support will take a dive. In time"
PRINT
PRINT "you can gain their support, but the fast influx of refugees to feed and lower"
PRINT
PRINT "Popular Support can lead to disaster for your realm."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT15
CASE "C": GOTO INSTRUCT17
END SELECT
GOTO INSTRUCT16
INSTRUCT17: CLS : COLOR 11
PRINT "Cost of sending an attack:": PRINT "=========================="
COLOR 10
PRINT "As most people know, going to war is not free, nor is it cheap. It costs Gold"
PRINT
PRINT "to sustain a war machine. Everything costs Gold, from arming the units to"
PRINT
PRINT "transporting them to the field of battle. Because of this, it will cost you"
PRINT
PRINT "to send an attack. If you cannot afford the cost, then the attack will be"
PRINT
PRINT "aborted. Here is the total costs to send these units:"
PRINT : PRINT : COLOR 11
PRINT "Unit name Cost to send"
PRINT "========================================================================="
COLOR 10
PRINT "Soldiers 1 Gold per 100 Soldiers (10 Gold per 1000 Soldiers)"
PRINT
PRINT "Humvees 1 Gold per 100 Humvees (10 Gold per 1000 Humvees)"
PRINT
PRINT "Tanks 1 Gold per 5 Tanks (200 Gold per 1000 Tanks)"
PRINT
PRINT "Jets 1 Gold per 50 Jets (20 Gold per 1000 Jets)"
PRINT
PRINT "Bombers 1 Gold per 5 Bombers (200 Gold per 1000 Bombers)"
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT16
CASE "C": GOTO INSTRUCT18
END SELECT
GOTO INSTRUCT17
INSTRUCT18: CLS : COLOR 11
PRINT "Soldiers:": PRINT "=========": COLOR 10
PRINT "These are the bread and butter of your military. Cheap and expendable, THEY"
PRINT
PRINT "are mostly young men who joined your armed forces. Soldiers are the cheapest"
PRINT
PRINT "unit to buy and therefore, can be bought in great numbers."
PRINT : PRINT
PRINT "A disadvantage to Soldiers is that they must be fed. As you get more Soldiers,"
PRINT
PRINT "you will have to increase your production of Food to compensate."
PRINT : PRINT : COLOR 11
PRINT "Soldier pro: very cheap to buy and send, relatively decent defence"
PRINT
PRINT "Soldier con: very low attack value, must be fed, cant target aircraft"
PRINT : PRINT "Soldier cost: 10 Gold"
PRINT : PRINT "Soldier attack value: 1"
PRINT : PRINT "Soldier defend value: 2"
PRINT : PRINT "Soldier attack cost: 10 Gold per 1000 Soldiers"
PRINT : PRINT : COLOR 10
PRINT "Soldiers cant target any aircraft, making them weak for use against enemies"
PRINT
PRINT "with alot of Jets or Bombers."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT17
CASE "C": GOTO INSTRUCT19
END SELECT
GOTO INSTRUCT18
INSTRUCT19: CLS : COLOR 11
PRINT "Humvees:": PRINT "========": COLOR 10
PRINT "Humvees are exactly what you would find at the Humvee dealership, only these"
PRINT
PRINT "ones are modified to wage war. They have weak armoured plating protecting most"
PRINT
PRINT "of the vehicle. They are also equipted with a mounted machine gun. Combined"
PRINT
PRINT "with their speed and ability to cross tough terrain, they make decent units."
PRINT
PRINT "They are somewhat prone to roadside bombs and have a very low defence value."
PRINT : PRINT : COLOR 11
PRINT "Humvee pro: cheap to buy and send, decent attack value"
PRINT
PRINT "Humvee con: very low defend value, cant target aircraft"
PRINT : PRINT "Humvee cost: 15 Gold"
PRINT : PRINT "Humvee attack value: 2"
PRINT : PRINT "Humvee defend value: 1"
PRINT : PRINT "Humvee attack cost: 10 Gold per 1000 Humvees"
PRINT : PRINT : COLOR 10
PRINT "Humvees, like Soldiers, cannot target enemy aircraft, making them somewhat"
PRINT
PRINT "useless in battles involving alot of enemy aircraft. They do make a great"
PRINT
PRINT "attack force against enemies with alot of Soldiers."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT18
CASE "C": GOTO INSTRUCT20
END SELECT
GOTO INSTRUCT19
INSTRUCT20: CLS : COLOR 11: PRINT "Tanks:": PRINT "======": COLOR 10
PRINT "These are heavily armored and armed vehicles. Tanks have thick steel armor"
PRINT
PRINT "around the entire vehicle which protects it from most small or medium arms"
PRINT
PRINT "fire. This gives them a high defend value. They are also equipted with many"
PRINT
PRINT "different weapons, but their primary one is their cannon. These cannon can"
PRINT
PRINT "launch their shells across far regions with devastating results. They also"
PRINT
PRINT "have several large mounted machine guns which are great for fighting any type"
PRINT
PRINT "of aircraft. The obvious drawback to a Tank is its very high costs."
PRINT : PRINT : COLOR 11
PRINT "Tank pro: very high attack and defend value, can target any unit"
PRINT : PRINT "Tank con: very expensive to buy and send in attacks"
PRINT : PRINT "Tank cost: 40 Gold"
PRINT : PRINT "Tank attack value: 4"
PRINT : PRINT "Tank defend value: 4"
PRINT : PRINT "Tank attack cost: 200 Gold per 1000 Tanks"
PRINT : PRINT : COLOR 10
PRINT "despite their high costs, Tanks are valuable as they can target any unit."
PRINT
PRINT "They also make a great defensive force as they can target enemy aircraft."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT19
CASE "C": GOTO INSTRUCT21
END SELECT
GOTO INSTRUCT20
INSTRUCT21: CLS : COLOR 11: PRINT "Jets:": PRINT "=====": COLOR 10
PRINT "Jets are an overall great unit. They are relatively expensive but have good"
PRINT
PRINT "attack and defend values. These aircraft are sleek, agile, and quick, making"
PRINT
PRINT "them very good units to own. They are also equipted with an assortment of"
PRINT
PRINT "air to air missiles and air to surface missiles. They also have a powerful"
PRINT
PRINT "autocannon located in the nose of the plane, which is able to shred most of"
PRINT
PRINT "their enemies. They are prone to anti-aircraft guns though."
PRINT : PRINT : COLOR 11
PRINT "Jet pro: average cost to send, good attack and defend value"
PRINT : PRINT "Jet con: somewhat expensive, prone to anit-aircraft fire"
PRINT : PRINT "Jet cost: 30 GOLD"
PRINT : PRINT "Jet attack value: 3"
PRINT : PRINT "Jet defend value: 3"
PRINT : PRINT "Jet attack cost: 20 Gold per 1000 Jets"
PRINT : PRINT : COLOR 10
PRINT "Jets are useful against enemies with alot of Soldiers and Humvees, as they"
PRINT
PRINT "wont be able to fire back."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT20
CASE "C": GOTO INSTRUCT22
END SELECT
GOTO INSTRUCT21
INSTRUCT22: CLS : COLOR 11
PRINT "Bombers:": PRINT "========": COLOR 10
PRINT "Bombers are the workhorses of the airforce. Although not flashy or agile,"
PRINT
PRINT "they can drop hundreds of bombs at once when they attack. These bombs contain"
PRINT
PRINT "very high yield explosives which will devastate an enemy. However, they do"
PRINT
PRINT "have a very big weakness. Their slowness and relatively light armor make them"
PRINT
PRINT "prone to enemy attack. They are also relatively expensive to both purchase"
PRINT
PRINT "and send in an invasion."
PRINT : PRINT : COLOR 11
PRINT "Bomber pro: very high attack value, can target any unit"
PRINT
PRINT "Bomber con: high costs, very low defend value, prone to anti-aircraft fire"
PRINT : PRINT "Bomber cost: 35 Gold"
PRINT : PRINT "Bomber attack value: 4"
PRINT : PRINT "Bomber defend value: 1"
PRINT : PRINT "Bomber attack cost: 200 Gold per 1000 Bombers"
PRINT : PRINT : COLOR 10
PRINT "Even though they are prone to anit-aircraft fire, their ability to hit any"
PRINT
PRINT "unit makes them valuable in an attack."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT21
CASE "C": GOTO INSTRUCT23
END SELECT
GOTO INSTRUCT22
INSTRUCT23: CLS : COLOR 11
PRINT "Anti-Aircraft Guns:": PRINT "===================": COLOR 10
PRINT "Anti-Aircraft Guns (or AA Guns for short), are a defence only weapon. They"
PRINT
PRINT "cannot be sent out to attack and they can only target attacking enemy planes."
PRINT
PRINT "despite these limitations, they are very cheap and make a good anti-air"
PRINT
PRINT "defence. In large numbers, they should be able to repel most air attacks."
PRINT
PRINT "another big drawback is the fact they cannot defend against attacking enemy"
PRINT
PRINT "ground units, making them useless in an all ground battle."
PRINT : PRINT : COLOR 11
PRINT "AA Gun pro: very cheap"
PRINT
PRINT "AA Gun con: cannot attack, cant target ground units, low defend value"
PRINT : PRINT "AA Gun cost: 10 GOLD"
PRINT : PRINT "AA Gun attack value: 0 (cannot attack)"
PRINT : PRINT "AA Gun defend value: 1"
PRINT : PRINT "AA Gun attack cost: 0 (cannot send in an attack)"
PRINT : PRINT : COLOR 10
PRINT "Despite its poor stats and limitations, in large numbers it can make a very"
PRINT
PRINT "strong anti-air defence."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT22
CASE "C": GOTO INSTRUCT24
END SELECT
GOTO INSTRUCT23
INSTRUCT24: CLS : COLOR 11
PRINT "Missile Bases:": PRINT "==============": COLOR 10
PRINT "Missile Bases are another defeisive only weapon. However, they are not as"
PRINT
PRINT "limited as Anti-Aircraft Guns are. Missile Bases have the ability to target"
PRINT
PRINT "any type of enemy unit, ground and air. They also have a higher defend value"
PRINT
PRINT "than the AA Guns do, but make up for it by being more expensive."
PRINT : PRINT : COLOR 11
PRINT "Missile Base pro: average cost, can target any unit, decent defend value"
PRINT : PRINT "Missile Base con: cannot attack"
PRINT : PRINT "Missile Base cost: 20 GOLD"
PRINT : PRINT "Missile Base attack value: 0 (cannot attack)"
PRINT : PRINT "Missile Base defend value: 2"
PRINT : PRINT "Missile Base attack cost: 0 (cannot send in an attack)"
PRINT : PRINT : COLOR 10
PRINT "Overall, Missile Bases are a decent Defending force. The fact that they can"
PRINT
PRINT "target any unit is also an advantage."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT23
CASE "C": GOTO INSTRUCT25
END SELECT
GOTO INSTRUCT24
INSTRUCT25: CLS : COLOR 11
PRINT "Advisors:": PRINT "=========": COLOR 10
PRINT "These are men who are expert in their field. It should be good habit to visit"
PRINT
PRINT "them on a regular basis, if not every turn. They can give you information"
PRINT
PRINT "that could save your nation from doom, if you choose to heed the advice. Even"
PRINT
PRINT "crazy Father O'Fondlin speaks words of wisdom beneath his often crazy and"
PRINT
PRINT "outragous stories. Even though their advice is the best for that particular"
PRINT
PRINT "field, their advice will often conflict with one another. The Ecomonic guru"
PRINT
PRINT "might tell you to create more Gold in the Industries, while the Military one"
PRINT
PRINT "will ask you to increase military unit production. Its up to you to deciede"
PRINT
PRINT "what takes priority in your nation."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT24
CASE "C": GOTO INSTRUCT26
END SELECT
GOTO INSTRUCT25
INSTRUCT26: CLS : COLOR 11
PRINT "Strategies:": PRINT "===========": COLOR 10
PRINT "When coming up with good WG4 strategies, there really is no set one to fit"
PRINT
PRINT "all occasions. Depending on your Editor options and your current target, the"
PRINT
PRINT "strategies needed for victory widely vary. Here are a few that might be of"
PRINT
PRINT "good use though."
PRINT
PRINT : COLOR 11
PRINT "Starve them strategy:": PRINT "=====================": COLOR 10
PRINT "This strategy involves using a combination of Covert Ops and Food related"
PRINT
PRINT "tactics to bring down your enemies popular support real fast, make him lose"
PRINT
PRINT "tons of civilians, and even have him lose some Soldiers. This strategy only"
PRINT
PRINT "works if overall Food consumption is high."
PRINT
PRINT
PRINT "You start out by solidifing your own Food stocks. If you have Food deficits,"
PRINT
PRINT "make buying Food Farms your #1 priority. Once you have a steady surplus of"
PRINT
PRINT "Food coming in, start to do two things every turn: use Covert Ops to ruin"
PRINT
PRINT "enemy Food Farms and buy as much Food as you can from the Food Market."
PRINT
PRINT
PRINT "This will accomplish a few things. It will increase your surplus of Food even"
PRINT
PRINT "more while at the same time, destroying your opponents means of creating it."
PRINT
PRINT "Eventually, he will run out of Food and his civilians will start to riot,"
PRINT
PRINT "lowering his Popular Support even more."
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT25
'CASE "C": GOTO INSTRUCT27
END SELECT
GOTO INSTRUCT26
INSTRUCT27: CLS : COLOR 11
PRINT "The "
GOSUB INSTRUCT: SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "B": GOTO INSTRUCT26
'CASE "C": GOTO INSTRUCT28
END SELECT
GOTO INSTRUCT27
INSTRUCT28: CLS : COLOR 11
GOSUB INSTRUCT: SELECT CASE A$
'CASE "E": CHAIN "MAINMENU"
'CASE "B": GOTO INSTRUCT27
'CASE "C": GOTO INSTRUCT29
END SELECT
GOTO INSTRUCT28
AUTOSAVE: 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
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
'data meanings: #, name, descript,cost,attack,defend,x,x,x
DATA 1,Soldiers,,10,1,2,0,0,0
DATA 2,Humvees,,15,2,1,0,0,0
DATA 3,Tanks,,40,4,4,0,0,0
DATA 4,Jets,,30,3,3,0,0,0
DATA 5,Bombers,,35,4,1,0,0,0
DATA 6,Anti Aircraft Guns,,10,0,2,0,0,0
DATA 7,Missile Bases,,20,0,3,0,0,0
DATA 8,Covert Agent,,50,0,0,0,0,0
DATA 9,Food Farms,,500,0,0,0,0,0
DATA 10,Industrial Factories,,1000,0,0,0,0,0
'data meanings: #,name,descript,cost,civs + troops,x,ground,air,success rate
DATA 11,Biological Strike,targets enemy civs and Soldiers,20,15,0,0,0,95
DATA 12,Chemical Strike,targets enemy civs and Soldiers,30,25,0,0,0,90
DATA 13,EMP Attack,targets enemy aircraft,40,0,0,0,15,95
DATA 14,5 Megaton Nuclear Strike,hits enemy military and civs,60,20,15,10,10,95
DATA 15,10 Megaton Nuclear Strike,hits enemy military and civs,80,40,25,20,15,90
DATA 16,20 Megaton Hydrogen Bomb,hits enemy miltary and civs,100,50,40,30,30,85
DATA 17,Ion Bomb,targets enemy aircraft,130,0,0,0,45,90
DATA 18,Planet Buster,targets military and population,160,70,50,40,40,70
DATA 19,Radion Bomb,incinerates the planet,250,85,60,60,60,60
DATA 20,The One,destroys enemy and possibly you also,320,100,80,80,80,50
'data meanings: #,name,descript, , , , ,spy death rate, success rate
DATA 21,Full Spy,gets all enemy info,0,0,0,0,10,40
DATA 22,Burn Oil Wells,targets enemy oil wells,0,0,0,0,55,25
DATA 23,Propaganda,targets your people to raise support,0,0,0,0,30,70
DATA 24,Bomb Food Market,destroys food market food,0,0,0,0,45,55
DATA 25,Demoralise Soldiers,causes enemy soldiers to leave,0,0,0,0,70,30
DATA 26,Start Rumors,causes enemy civilians to leave,0,0,0,0,10,30
DATA 27,Dirty Bomb,kills civilians and soldiers,0,0,0,0,50,20
DATA 28,Suicide Bomber,kills enemy civilians,0,0,0,0,95,35
DATA 29,Ruin Food Farms,destroys enemy food farms,0,0,0,0,40,35
DATA 30,Bomb Factory,destroys enemy factories,0,0,0,0,50,35
DATA 31,Destroy Investments,targets enemy gold in bank,0,0,0,0,25,30
DATA 32,Bomb Machinery,targets humvees and tanks,0,0,0,0,50,30
DATA 33,Bomb Aircraft,targets enemy aircraft,0,0,0,0,45,30
DATA 34,Bomb Defences,targets aaguns and missile bases,0,0,0,0,40,30
DATA 35,Assassination,targets enemy leaders,0,0,0,0,90,5
IF A$ = "V" THEN GOTO ADVISORS
IF A$ = "P" THEN GOTO PURCHASE
IF A$ = "G" THEN GOTO BANK
BANK: GOSUB AUTOLOAD: CLS : COLOR 10
PRINT "Welcome to the Global Bank! What can I do for you?"
PRINT
PRINT "You are currently holding"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT
PRINT "You currently have"; : COLOR 11: PRINT BG&; : COLOR 10: PRINT "Gold in the Bank."
PRINT
PRINT "The current Interest Rate is"; : COLOR 11: PRINT IR%; : COLOR 10: PRINT "%"
PRINT
PRINT "There is a limit of 1 billion Gold allowed in the Bank."
PRINT : PRINT : PRINT : COLOR 11
PRINT "(D)eposit Gold into Bank"
PRINT : PRINT "(W)ithdraw Gold from Bank"
PRINT : PRINT "(E)xit Bank"
PRINT : PRINT : COLOR 7
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "E": CHAIN "MAINMENU"
CASE "D": GOTO DEPOSIT
CASE "W": GOTO WITHDRAW
END SELECT
GOTO BANK
NOGOLDDEPOSIT: COLOR 12
PRINT : PRINT "You cant deposit imaginary Gold! This isnt Sesame Street!"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO BANK
DEPOSIT: COLOR 10
IF G& < 0 THEN GOTO NOGOLDDEPOSIT
CLS
PRINT "You have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT : PRINT
PRINT "You have"; : COLOR 11: PRINT BG&; : COLOR 10: PRINT "Gold in the Bank."
PRINT : PRINT
PRINT "You can only have 1 billion Gold max in the Bank!"
PRINT : PRINT
AA& = G&: IF BG& + G& > 1000000000 THEN AA& = 1000000000 - BG&
PRINT "Deposit how much Gold ( 0 -"; : PRINT AA&; : PRINT ")"; : INPUT A&
IF A& = 0 THEN GOTO BANK
IF A& < 0 THEN GOTO BANK
IF A& > AA& THEN A& = AA&
G& = G& - A&
BG& = BG& + A&
PRINT : PRINT : COLOR 10
PRINT "You deposited"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold!"
PRINT : PRINT : COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOSUB AUTOSAVE: GOTO BANK
WITHDRAW: CLS : COLOR 10
PRINT "You have"; : COLOR 11: PRINT BG&; : COLOR 10: PRINT "Gold in the Bank."
PRINT : PRINT
PRINT "You have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold."
PRINT : PRINT
PRINT "Withdraw how much Gold ( 0 -"; : PRINT BG&; : PRINT ")"; : INPUT A&
IF A& = 0 THEN GOTO BANK
IF A& < 0 THEN GOTO BANK
IF A& > BG& THEN A& = BG&
G& = G& + A&
BG& = BG& - A&
PRINT : PRINT
PRINT "You withdrew"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold!"
PRINT : PRINT : COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOSUB AUTOSAVE: GOTO BANK
PURCHASE: GOSUB AUTOLOAD: CLS : COLOR 11
PRINT "Purchasing Menu:"
PRINT "================"
COLOR 10: PRINT "(S)oldiers"
PRINT : PRINT "(H)umvees"
PRINT : PRINT "(T)anks"
PRINT : PRINT "(J)ets"
PRINT : PRINT "(B)ombers"
PRINT : PRINT "(A)nti-Aircraft Guns"
PRINT : PRINT "(M)issile Bases"
PRINT : PRINT "(C)overt Agents"
PRINT : PRINT "(F)ood Farms"
PRINT : PRINT "(I)ndustrial Factories"
PRINT : PRINT "(E)xit to Main Menu"
PRINT : PRINT : COLOR 11
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "S": A% = 1: GOTO PURTROOPS
CASE "H": A% = 2: GOTO PURHUMVEES
CASE "T": A% = 3: GOTO PURTANKS
CASE "J": A% = 4: GOTO PURJETS
CASE "B": A% = 5: GOTO PURBOMBERS
CASE "A": A% = 6: GOTO PURAAGUNS
CASE "M": A% = 7: GOTO PURMISSILES
CASE "C": A% = 8: GOTO PURSPYS
CASE "F": A% = 9: GOTO PURFARMS
CASE "I": A% = 10: GOTO PURFACTORIES
CASE "E": CHAIN "MAINMENU"
END SELECT
GOTO PURCHASE
PURCHASEINFO: RESTORE
IF A% >= 8 THEN RETURN
PRINT : PRINT
FOR C = 1 TO A%
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT C:
PRINT Z$; : PRINT " attack strength:"; : COLOR 11: PRINT Z2
PRINT : COLOR 10
PRINT Z$; : PRINT " defend strength:"; : COLOR 11: PRINT Z3
RETURN
PURTROOPS: CLS : COLOR 11
PRINT "Soldiers:": PRINT "========"
COLOR 10
PRINT "These are your front line enlisted infintry. They come from many backgrounds"
PRINT
PRINT "but come together with the purpose of serving the nation. They are the best"
PRINT
PRINT "trained men out there, but even they are not immune to damage. Troops are prone"
PRINT
PRINT "when attacking, giving them a low attack rating. But a defensive troop"
PRINT
PRINT "defending his homeland is different. They are harder to hit, thus have a"
PRINT
PRINT "higher rating."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURHUMVEES: CLS : COLOR 11
PRINT "Humvees:": PRINT "========"
COLOR 10
PRINT "These armored 4 wheel drive vehicles are your main soldier transportation. They"
PRINT
PRINT "are mounted with a turret machine gun equipted to fire hundreds of rounds a"
PRINT
PRINT "second. Their speed and ability to handle all terrain gives them a decent"
PRINT
PRINT "attack rating. Being prone to roadside bombs gives them a very low defensive"
PRINT
PRINT "rating. With a low cost, they make a great invasion force."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURTANKS: CLS : COLOR 11
PRINT "Tanks:": PRINT "======"
COLOR 10
PRINT "These are the bread and the butter of your army. This is the strongest unit in"
PRINT
PRINT "the game. They have very high attack and defend rating and can target any unit."
PRINT
PRINT "Their main drawback is their very high initial cost, as well as the cost for"
PRINT
PRINT "sending them into attacks."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURJETS: CLS : COLOR 11
PRINT "Jets:": PRINT "====="
COLOR 10
PRINT "Jets will compose the majority of your airforce. They are quick, agile, fast,"
PRINT
PRINT "and relatively cheap for what they offer. They have a high attack and defend"
PRINT
PRINT "rating and make great additions to any military. Jets can easily tip the war"
PRINT
PRINT "into your favor as they are immune to damage from Soldiers and Humvees."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURBOMBERS: CLS : COLOR 11
PRINT "Bombers:": PRINT "========"
COLOR 10
PRINT "Bombers are specialized aircraft capable of delivering large amounts of bombs"
PRINT
PRINT "at once. This gives them their high attack rating. But because they are so"
PRINT
PRINT "weighed down with bombs, it causes them to be very slow and sluggish, giving"
PRINT
PRINT "them a very low defensive rating."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURAAGUNS: CLS : COLOR 11
PRINT "Anti Aircraft Guns:": PRINT "==================="
COLOR 10
PRINT "This is a defensive weapon only!! It cannot be used as part of an offensive"
PRINT
PRINT "force. While they cannot target any invading enemy ground forces, they make"
PRINT
PRINT "a cheap deterant to enemies with massive airforces."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURMISSILES: CLS : COLOR 11
PRINT "Missile Bases:": PRINT "=============="
COLOR 10
PRINT "This is a defensive weapon only!! It cannot be used as part of an offensive"
PRINT
PRINT "force. Unlike AAGuns, Missile Bases have the ability to target any invading"
PRINT
PRINT "enemy unit. Although rather expensive, they are a pretty decent unit overall."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURSPYS: CLS : COLOR 11
PRINT "Spys:": PRINT "====="
COLOR 10
PRINT "Spys allow you to access and perform covert operations. Without Spys, you"
PRINT
PRINT "you wouldnt have a clue as to the size or strength of the enemy military."
PRINT
PRINT "They also can perform a wide variety of covert acts meant to sabotage your"
PRINT
PRINT "enemies and weaken them up before any military invasion."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURFARMS: CLS : COLOR 11
PRINT "Food Farms:": PRINT "==========="
COLOR 10
PRINT "These are plots of land which serve only to grow. You can use this food grown"
PRINT
PRINT "to sell to the Food Market or feed your people. If your food production is not"
PRINT
PRINT "making enough each turn, it is a good idea to purchase more food farms."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURFACTORIES: CLS : COLOR 11
PRINT "Industrial Factories:": PRINT "====================="
COLOR 10
PRINT "These suppliment the amount of output of your factories. They will create new"
PRINT
PRINT "military units every turn. Although initially expensive, Factories make very"
PRINT
PRINT "good long term investments. They also help serve to decrease unemployment."
GOSUB PURCHASEINFO: GOTO PURCHASE2
PURCHASE2: PRINT : PRINT : COLOR 10
PRINT "You have"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold on hand."
RESTORE
FOR C = 1 TO A%
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT C
PRINT : COLOR 11
PRINT Z$; : COLOR 10: PRINT " Cost"; : COLOR 11: PRINT Z1; : COLOR 10: PRINT "Gold each."
B& = G& / Z1
IF Z1 * B& > G& THEN B& = B& - 1
IF A% = 1 THEN C& = TR&
IF A% = 2 THEN C& = HU&
IF A% = 3 THEN C& = TK&
IF A% = 4 THEN C& = JT&
IF A% = 5 THEN C& = BM&
IF A% = 6 THEN C& = AG&
IF A% = 7 THEN C& = MB&
IF A% = 8 THEN C& = SP&
IF A% = 9 THEN C& = FF&
IF A% = 10 THEN C& = FA&
IF B& > (100000000 - C&) THEN B& = 100000000 - C&
PRINT
PRINT "You can afford to buy"; : COLOR 11: PRINT B&; : COLOR 10: PRINT Z$
PRINT
PRINT "You have"; : COLOR 11: PRINT C&; : COLOR 10: PRINT Z$; : PRINT " at the present time."
COLOR 11: PRINT
PRINT : PRINT "There is a 100,000,000 limit to every unit. If you cant beat a computer nation"
PRINT
PRINT "with 100,000,000 "; : PRINT Z$; : PRINT ", you should rethink your tactics!"
PRINT : PRINT : COLOR 10
PRINT "How many would you like to purchase (0 -"; : PRINT B&; : PRINT ")"; : INPUT A&
IF A& = 0 THEN GOTO PURCHASE
IF A& < 0 THEN GOTO PURCHASE
IF A& > B& THEN GOTO PURCHASE
G& = G& - (A& * Z1)
IF A% = 1 THEN TR& = TR& + A&
IF A% = 2 THEN HU& = HU& + A&
IF A% = 3 THEN TK& = TK& + A&
IF A% = 4 THEN JT& = JT& + A&
IF A% = 5 THEN BM& = BM& + A&
IF A% = 6 THEN AG& = AG& + A&
IF A% = 7 THEN MB& = MB& + A&
IF A% = 8 THEN SP& = SP& + A&
IF A% = 9 THEN FF& = FF& + A&
IF A% = 10 THEN FA& = FA& + A&
COLOR 15: PRINT : PRINT
PRINT "Thank you for your purchase!! Please come again!!"
PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOSUB AUTOSAVE: GOTO PURCHASE
ADVISORS: CLS : GOSUB AUTOLOAD: COLOR 10
PRINT "You enter the presidental chambers and call for your advisors to be"
PRINT
PRINT "assembled. A few moments later, you are surrounded by a group of people,"
PRINT
PRINT "all waiting on your questions. These people are the top in their fields and"
PRINT
PRINT "will only give you the best advice. In times of turmoil, they are the voice"
PRINT
PRINT "of sanity that can save your nation."
PRINT : PRINT
PRINT "Although their advice will often conflict with one another, they are giving"
PRINT
PRINT "the best advice for their particular field. It is up to you, as the leader"
PRINT
PRINT "of the nation, to deciede what is the greatest priority."
PRINT : PRINT : COLOR 11
PRINT "(A)griculture Expert"
PRINT : PRINT "(E)conomic Advisor"
PRINT : PRINT "(M)ilitary General"
PRINT : PRINT "(P)olitical Advisor"
PRINT : PRINT "(R)eligious Cleric"
PRINT : PRINT "e(X)it to Main Menu"
PRINT : PRINT : COLOR 10
PRINT "What do you need info on sir?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "X": CHAIN "MAINMENU"
CASE "A": GOTO AGRADVISOR
CASE "E": GOTO ECONADVISOR
CASE "M": GOTO MILITADVISOR
CASE "P": GOTO POLITADVISOR
CASE "R": GOTO RELIGADVISOR
END SELECT
GOTO ADVISORS
MILITADVISOR: CLS : COLOR 10: ' this is the military advisor
PRINT "Good morning sir! I am General David and I am here to advise you on all"
PRINT
PRINT "things involved with the military. You will be given a complete report as to"
PRINT
PRINT "the condition, size, and strength of our military, as well as our capabilities"
PRINT
PRINT "to ward off invading armies."
PRINT : PRINT : COLOR 11: AA& = 0
PRINT "Our Current Military Strength:"
IF MM% < 100 THEN COLOR 10: LOCATE 10, 40: PRINT "Military Moral:"; : COLOR 12: PRINT MM%; : COLOR 10: PRINT "%"
IF MM% = 100 THEN COLOR 10: LOCATE 10, 40: PRINT "Military Moral:"; : COLOR 11: PRINT MM%; : COLOR 10: PRINT "%"
COLOR 11: PRINT "==========================================================================="
COLOR 10: PRINT "Soldiers:"; : COLOR 11: PRINT TR&: AA& = TR& * 10
COLOR 10: PRINT "Humvees:"; : COLOR 11: PRINT HU&: AA& = AA& + (HU& * 15)
COLOR 10: PRINT "Tanks:"; : COLOR 11: PRINT TK&: AA& = AA& + (TK& * 40)
COLOR 10: PRINT "Jets:"; : COLOR 11: PRINT JT&: AA& = AA& + (JT& * 30)
COLOR 10: PRINT "Bombers:"; : COLOR 11: PRINT BM&: AA& = AA& + (BM& * 35)
COLOR 10: PRINT "AAguns:"; : COLOR 11: PRINT AG&: AA& = AA& + (AG& * 10)
COLOR 10: PRINT "Missile Bases:"; : COLOR 11: PRINT MB&: AA& = AA& + (MB& * 20)
PRINT : COLOR 10: PRINT "Your total military net worth:"; : COLOR 11: PRINT AA&; : COLOR 10: PRINT "Gold"
PRINT : PRINT
A% = TR% + HU% + TK% + JT% + BM% + AG% + MB%
IF AA& < E3 * 500 THEN GOSUB GETMHELP1: GOTO MILITADVISOR2
IF AA& < E3 * 1500 THEN GOSUB GETMHELP2: GOTO MILITADVISOR2
IF AA& < E3 * 3000 THEN GOSUB GETMHELP3: GOTO MILITADVISOR2
PRINT "Our defense and total military level seems adequite at the moment! Since we"
PRINT
PRINT "have the defence of our nation in control, i suggest we continue to enlarge"
PRINT
PRINT "our military in preparations of an invasion of our enemies!"
IF A% < 70 THEN COLOR 12: PRINT : PRINT : PRINT "Increase military production in our industries!"
MILITADVISOR2: PRINT : 'this is more military info
IF MM% < 100 THEN COLOR 12: PRINT : PRINT "Sir!! We must raise the Military Moral! Right now our military is not at"
IF MM% < 100 THEN PRINT : PRINT "full strength!"
MADVISOREND: PRINT : PRINT : COLOR 7'this ends the military advisor
PRINT "Press a key": DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
GOTO ADVISORS
GETMHELP1: 'this means you need much more military
COLOR 12
PRINT "Sir!! We need to grow our military immediately!! We are very weak at the time"
PRINT
PRINT "and would be killed by an enemy invasion! We need to create more defence and"
PRINT
PRINT "hope the enemy wont attack us while we are at a weakened stage."
COLOR 10
IF A% < 100 THEN COLOR 12: PRINT : PRINT : PRINT "Why arent we making more units with our Industries?!?"
IF EN = 0 THEN COLOR 12: PRINT : PRINT : PRINT "I would recommend using the Draft to increase our defences!"
RETURN
GETMHELP2: 'this means you need more military
COLOR 12
PRINT "Sir!! We are in a dire position! Our current military levels is less than"
PRINT
PRINT "ideal for repulsing an enemy invasion! We must enlarge the military in order"
PRINT
PRINT "to safely ensure our defences will hold!"
IF A% < 90 THEN COLOR 12: PRINT : PRINT : PRINT "I would increase the production of military units in our industries!"
IF EN = 0 THEN COLOR 12: PRINT : PRINT : PRINT "Sir! Implimenting the Draft would raise our military levels!"
RETURN
GETMHELP3: 'this means you need military
COLOR 12
PRINT "Sir, at the present time, our military is inadequite to repel a strong enemy"
PRINT
PRINT "invasion! Should a more powerful military attack, we would surely be overrun"
PRINT
PRINT "by enemy units."
IF A% < 80 THEN COLOR 12: PRINT : PRINT : PRINT "Increase military production to enlarge our military!"
IF EN = 0 THEN COLOR 12: PRINT : PRINT : PRINT "The Draft would be a good option to consider at this time!"
RETURN
RELIGADVISOR: 'this is the religious advisor
CLS : COLOR 10
PRINT "You call for your religious expert, Father O' Fondlin. Of all your experts"
PRINT
PRINT "on your panel, you trust this one the least. You wonder why the Department"
PRINT
PRINT "of Religious Affairs was even created, but thats politics for you! Even so,"
PRINT
PRINT "Father O' Foldlin is a bit on the strange side and was even accused of being"
PRINT
PRINT "a Spy for The One World Order when he started his term."
PRINT : PRINT : PRINT
PRINT "Ok Father O' Fondlin, what advice do you have for me now?"
PRINT : COLOR 11: PRINT : PRINT
A% = RND(6) * 6
IF A% = 1 THEN GOTO RELIG1
IF A% = 2 THEN GOTO RELIG2
IF A% = 3 THEN GOTO RELIG3
IF A% = 4 THEN GOTO RELIG4
IF A% = 5 THEN GOTO RELIG5
GOTO RELIGADVISOR
RELIGEND: PRINT : COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO ADVISORS
RELIG1: 'he comments on popular support
IF PS% = 100 THEN PRINT "The One is the reason for your high support. For if you should ever lose his"
IF PS% = 100 THEN PRINT : PRINT "backing, you are sure to be doomed!!": GOTO RELIGEND
IF PS% > 95 THEN PRINT "Unlike the support The One commands, your popularity appears to be less than"
IF PS% > 95 THEN PRINT : PRINT "complete!! Praise Tne One who has absolute control!": GOTO RELIGEND
IF PS% > 90 THEN PRINT "Your Popularity can never match that of The One!!": GOTO RELIGEND
IF PS% > 80 THEN PRINT "Your Popularity is waning because you have forsaken The One!": GOTO RELIGEND
IF PS% > 60 THEN PRINT "The One has given me a vision of your fall! Repent now!!": GOTO RELIGEND
IF PS% > 40 THEN PRINT "Trust in The One and you may yet see the light!": GOTO RELIGEND
IF PS% > 20 THEN PRINT "Death is approaching because of your blindness of the power of The One!": GOTO RELIGEND
IF PS% > 0 THEN PRINT "By not trusting th The One, you have set your own path of destruction!": GOTO RELIGEND
IF PS% = 0 THEN PRINT "The end times have come!!! Death is waiting for us all! Nothing can save us"
IF PS% = 0 THEN PRINT "now, for The One is punishing those he has deemed wicked!": GOTO RELIGEND
RELIG2: 'he comments on unemployment
IF UL% = 0 THEN PRINT "Praise The One that he has created such job opportunity in this nation! Only"
IF UL% = 0 THEN PRINT : PRINT "by continuing to devote ourselves to him can we sustain!": GOTO RELIGEND
IF UL% < 2 THEN PRINT "Give thanks to The One who has bestowed his greatness onto us!!": GOTO RELIGEND
IF UL% < 4 THEN PRINT "I forsee failure in our future if The One is not praised! We must build more"
IF UL% < 4 THEN PRINT : PRINT "temples to create job opportunity! Only then will our nation survive!": GOTO RELIGEND
IF UL% < 8 THEN PRINT "A great economic disaster is looming!!! The One has shown us the signs! It is"
IF UL% < 8 THEN PRINT : PRINT "our duty as servents of The One to listen to his words!": GOTO RELIGEND
IF UL% < 12 THEN PRINT "The end of times creeps ever closer as The One gets ready to reclaim his"
IF UL% < 12 THEN PRINT : PRINT "rightful throne!! Confess and we shall still be saved!!!": GOTO RELIGEND
IF UL% < 20 THEN PRINT "The disaster which I have been proclaiming is now approaching fast!! The"
IF UL% < 20 THEN PRINT : PRINT "Only solution is to trust in The One and hope he is merciful!!": GOTO RELIGEND
IF UL% < 30 THEN PRINT "Failure to honor The One has resulted in our current economic crisis!! But"
IF UL% < 30 THEN PRINT : PRINT "it is not too late, as The One is merciful and forgiving!": GOTO RELIGEND
IF UL% < 50 THEN PRINT "The end times are here!!! I have forseen its arrival and The One is showing"
IF UL% < 50 THEN PRINT : PRINT "his warith!! Bow on your knees that he will spare us this doom!!": GOTO RELIGEND
IF UL% < 75 THEN PRINT "The nation is at the mercy of The One!! He hsd deemed us to be wicked with"
IF UL% < 75 THEN PRINT : PRINT "our greed of Gold and has punished our nation to economic failure!!": GOTO RELIGEND
IF UL% < 100 THEN PRINT "This ecomonic depression we are in is a true sign of the power of The One!"
IF UL% < 100 THEN PRINT : PRINT "He has condemned us because of our lust for Gold and power! Repent!!": GOTO RELIGEND
IF UL% = 100 THEN PRINT "He who is The One has sentenced our nation to eternal damnation because we"
IF UL% = 100 THEN PRINT "have choosen Gold over him. The Great Book has fortold of this end for us!!": GOTO RELIGEND
RELIG3: 'HE COMMENTS ON WACKY TOPICS
A% = RND(10) * 10
IF A% = 0 THEN PRINT "The Great Book has forseen a great battle between 2 nations. The nation who"
IF A% = 0 THEN PRINT : PRINT "has choosen The One as its protector will be victorious!!": GOTO RELIGEND
IF A% = 1 THEN PRINT "The Choosen One will bless our nation if only we uphold his traditions!! We"
IF A% = 1 THEN PRINT : PRINT "must consult the Great Book if we are to be guided!": GOTO RELIGEND
IF A% = 2 THEN PRINT "The One has given me visions of an impending disaster!! Only by serving The"
IF A% = 2 THEN PRINT : PRINT "One can we hope for any salvation from this doom!!!": GOTO RELIGEND
IF A% = 3 THEN PRINT "We must give sacrifices of Gold unto The One! The collection basket is"
IF A% = 3 THEN PRINT : PRINT "located in my office. Any contribution will please The One!": GOTO RELIGEND
IF A% = 4 THEN PRINT "The One has decreed for everyone to give up their possessions!! Drop them"
IF A% = 4 THEN PRINT : PRINT "into my office where I can dispose of it. Praise be The One!!": GOTO RELIGEND
IF A% = 5 THEN PRINT "Dont trust in the advice of men!! Rather look towards The One for the right"
IF A% = 5 THEN PRINT : PRINT "guidance!! Only he can give you the answers you seek!": GOTO RELIGEND
IF A% = 6 THEN PRINT "How can one be one when they dont honor The One who can make them one? Only"
IF A% = 6 THEN PRINT : PRINT "one can solve life's many enigmas!! Look to The One for the answers!": GOTO RELIGEND
IF A% = 7 THEN PRINT "Not even Gold can match the reward for being one of The One's choosen few!"
IF A% = 7 THEN PRINT : PRINT "for the kingdom of The One is filled with riches beyond imagination!!": GOTO RELIGEND
IF A% = 8 THEN PRINT "The One is with us in the great battles to come!! The Great Book has told"
IF A% = 8 THEN PRINT : PRINT "the story of our eventual victory!! With The One, anything is possible!": GOTO RELIGEND
IF A% = 9 THEN PRINT "All praise The One!!! For it is The One who will deciede who will be the"
IF A% = 9 THEN PRINT : PRINT "victor and who will be the loser!!": GOTO RELIGEND
IF A% = 10 THEN PRINT "The One is set tp destroy the entire planet and wipe the scum of humanity"
IF A% = 10 THEN PRINT : PRINT "off the face of the earth!! Only believers in The One will survive!!": GOTO RELIGEND
RELIG4: 'makes more wacky comments
A% = RND(10) * 10
IF A% = 0 THEN PRINT "The Great Book sees the future!!! It sees death for yours!! But this can be"
IF A% = 0 THEN PRINT : PRINT "avoided only by accepting The One as your god!!": GOTO RELIGEND
IF A% = 1 THEN PRINT "The One has grown restless! Even now, he paces his palace and thinks of"
IF A% = 1 THEN PRINT : PRINT "ways to destroy mankind for its misdeeds!!!": GOTO RELIGEND
IF A% = 2 THEN PRINT "I swear I did not molest that boy!!! The One will prove me innocent in his"
IF A% = 2 THEN PRINT : PRINT "holy court!!": GOTO RELIGEND
IF A% = 3 THEN PRINT "The heavens will rain down a destruction which has never been seen by the"
IF A% = 3 THEN PRINT : PRINT "likes of man!! Every being on this planet will be burned by a ball of fire!": GOTO RELIGEND
IF A% = 4 THEN PRINT "It is written within the folds of the Great Book that mans lust for blood"
IF A% = 4 THEN PRINT : PRINT "will result in the destruction of the world itself!": GOTO RELIGEND
IF A% = 5 THEN PRINT "And The One said unto his followers, 'Behold my might, as I turn the sky red"
IF A% = 5 THEN PRINT : PRINT "as the sun, and bake the skin off your own flesh. For ye have sinned, and"
IF A% = 5 THEN PRINT : PRINT "the only punishment for disobediance is death!'": GOTO RELIGEND
IF A% = 6 THEN PRINT "Do not doubt the powers of The One!!! For The One is everywhere and can do"
IF A% = 6 THEN PRINT : PRINT "anything!! Do not talk lightly of The One!": GOTO RELIGEND
IF A% = 7 THEN PRINT "And The One decreed, 'I am just, but I am also strict. I hold everyone to"
IF A% = 7 THEN PRINT : PRINT "the letters of my laws. Those who disobey shall bring death for all!'": GOTO RELIGEND
IF A% = 8 THEN PRINT "Bombs and gnns are no match for the power of The One!! For he can destroy"
IF A% = 8 THEN PRINT : PRINT "entire armies with just a thought!! No one can face The One and live!!": GOTO RELIGEND
IF A% = 9 THEN PRINT "It is spoken in the Great Book that the water shall run red from blood and"
IF A% = 9 THEN PRINT : PRINT "the ground will be littered with the bodies of the dead, so much that one"
IF A% = 9 THEN PRINT : PRINT "can cross entire nations without setting foot on the earth!!": GOTO RELIGEND
IF A% = 10 THEN PRINT "And The One said onto his people, 'Behold my wraith!! For ye have forsaken"
IF A% = 10 THEN PRINT : PRINT "my will, and now the final judgement has come!'": GOTO RELIGEND
RELIG5: 'reads from the great book
PRINT "In these dark times, I would like to read you a passage from the Great Book!"
PRINT : COLOR 7
PRINT "Agree to listen (Y/N)?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "Y": GOTO RELIG6
CASE "N": GOTO ADVISORS
END SELECT: GOTO ADVISORS
RELIG6: 'this picks the passage
COLOR 10: PRINT : PRINT
A% = RND(10) * 10
IF A% = 1 THEN GOTO RELIG61
IF A% = 2 THEN GOTO RELIG62
IF A% = 3 THEN GOTO RELIG63
IF A% = 4 THEN GOTO RELIG64
IF A% = 5 THEN GOTO RELIG65
IF A% = 6 THEN GOTO RELIG66
IF A% = 7 THEN GOTO RELIG67
IF A% = 8 THEN GOTO RELIG68
IF A% = 9 THEN GOTO RELIG69
'IF A% = 10 THEN GOTO RELIG610
GOTO RELIG6
RELIG61: PRINT
PRINT "Because of the follies of men, The One proclaimed a new world will have to"
PRINT
PRINT "be created, one untainted with the mistakes of men. The One will send down"
PRINT
PRINT "his messengers of death to bring news of the inpending doom, for man must"
PRINT
PRINT "know why his extinction is at hand. "; : COLOR 11: PRINT "Book of Death, Chapter 1, Verse 5": GOTO RELIGEND
RELIG62: PRINT
PRINT "When The One created this earth and all his creations, he was pleased. But"
PRINT
PRINT "man, in its desire to know more than The One who created us, has turned a"
PRINT
PRINT "blind eye to the words of The One. Now he must turn his wraith onto those he"
PRINT
PRINT "once called his children. "; : COLOR 11: PRINT "Book of Death, Chapter 1, Verse 3": GOTO RELIGEND
RELIG63: PRINT
PRINT "After men had become lustful for Gold and other objects, The One sent down"
PRINT
PRINT "his messengers to command that men change their ways. But the hearts of men"
PRINT
PRINT "were hard and the riches Gold provided was a strong motivator. The One then"
PRINT
PRINT "know he had no choice but to condemn all of mankind to death. "; : COLOR 11: PRINT "Book of the"
PRINT : PRINT "Aftermath, Chapter 1, Verse 10": GOTO RELIGEND
RELIG64: PRINT
PRINT "And The One proclaimed to the world, 'Behold my wraith! For you have been"
PRINT
PRINT "greedy with power. Yet your power is but a speck of dust compared with the"
PRINT
PRINT "strengths I command! Do not cry out for mercy, for none will be shown now."
PRINT
PRINT "The time of reckoning is at hand!' "; : COLOR 11: PRINT "Book of Death, Chapter 2, Verse 5": GOTO RELIGEND
RELIG65: PRINT
PRINT "The earth trembled as The One spoke out, 'Infidels!! Sinners!! Destroyers of"
PRINT
PRINT "the words of the Great Book!! The time is come, for now death is approaching"
PRINT
PRINT "quickly! Do not bother to fight my will, for it shall not be stopped! These"
PRINT
PRINT "are my words!' And with that, The One started his extermination of man. "; : COLOR 11: PRINT "Book"
PRINT : PRINT "of the Aftermath, Chapter 2, Verse 11": GOTO RELIGEND
RELIG66: PRINT
PRINT "The people cried out for forgiveness but from the sky came the reply of The"
PRINT
PRINT "One. 'The end times have arrived! Too long have you departed from the path"
PRINT
PRINT "I have set for you! All must suffer the great death! For none shall survive"
PRINT
PRINT "the destruction which lies ahead!' "; : COLOR 11: PRINT "Chronicals of Man, Chapter 1, Verse 8": GOTO RELIGEND
RELIG67: PRINT
PRINT "The earth trembled and a brilliant flash of light lit the entire sky. All who"
PRINT
PRINT "sought to gaze at the power of The One were quickly blinded by his greatness!"
PRINT
PRINT "After the light subsided, The One sent a great fireball to complete the"
PRINT
PRINT "annihilation of man. "; : COLOR 11: PRINT "Book of Death, Chapter 3, Verse 4": GOTO RELIGEND
RELIG68: PRINT
PRINT "A large boom was heard in the sky, one that sounded around the world. And"
PRINT
PRINT "from that point came a blinding light, followed by a searing wind. Surely The"
PRINT
PRINT "One will show mercy to his believers. But no, they too shall perish. For The"
PRINT
PRINT "One also sent down a firestorm to devour the entire earth! "; : COLOR 11: PRINT "Chronicals of"
PRINT : PRINT "Man, Chapter 2, Verse 6": GOTO RELIGEND
RELIG69: PRINT
PRINT "The One sent a great explosion to destroy the earth. The blast of fire burnt"
PRINT
PRINT "skin and bone, knocked down the structures of man, amd killed the peoples of"
PRINT
PRINT "the world. The earth shook and it appeared as if even the sky itself has been"
PRINT
PRINT "caught on fire! "; : COLOR 11: PRINT "Book of the Aftermath, Chapter 3, Verse 11": GOTO RELIGEND
POLITADVISOR: ' this is the political advisor
CLS : COLOR 10
PRINT "Greetings Mr President! I am Bill, your political consultant. I am here to"
PRINT
PRINT "assist you in all your political needs!"
PRINT : PRINT : COLOR 11
PRINT "Popular Support:"
PRINT "================"
COLOR 10
PRINT "This is the most effective way to determine how well recieved you are by the"
PRINT
PRINT "civilians of this nation. Your current Popular Support is"; : COLOR 11: PRINT PS%; : COLOR 10: PRINT "%"
PRINT
IF PS% = 100 THEN GOTO POLITICAL1
IF PS% > 95 THEN GOTO POLITICAL2
IF PS% > 90 THEN GOTO POLITICAL3
IF PS% > 80 THEN GOTO POLITICAL4
IF PS% > 60 THEN GOTO POLITICAL5
IF PS% > 40 THEN GOTO POLITICAL6
IF PS% > 20 THEN GOTO POLITICAL7
IF PS% >= 0 THEN GOTO POLITICAL8
POLITICAL1: PRINT : 'ps of 100%
PRINT "As of right now, the people love you as their leader!! You are highly"
PRINT
PRINT "respected and your policies are in tune with the needs of the populace."
PRINT
PRINT "I would not change anything at all and your people will continue to love you!"
IF UL% > 0 THEN PRINT : PRINT "However, I would also combat Unemployment before it cuts into your ratings!"
GOTO POLITADVISOR1
POLITICAL2: PRINT : 'ps of 96-99%
PRINT "At this very moment, you are well respected by your citizens. There are some"
PRINT
PRINT "who disagree with your policies, but that is to be expected. Here are my views"
PRINT
PRINT "on how to raise your support:"
PRINT : COLOR 11: PRINT
IF TX% > 5 THEN PRINT "* I would lower the Tax Rate! Less Taxes mean happy citizens!": PRINT
IF UL% > 0 THEN PRINT "* I recommend combatting unemployment!": PRINT
PRINT "* If you have the Gold, a Public Relations Campaign might work!": PRINT
IF CO > 0 THEN PRINT "* Propaganda can be used to bring your support back to 100%!": PRINT
GOTO POLITADVISOR1
POLITICAL3: PRINT 'ps of 91-95%
PRINT "Your citizens are happy with your rule, although there are those who feel"
PRINT
PRINT "you could do better. The vast majority are content but in order to pacify the"
PRINT
PRINT "rest I would recommend that you:"
PRINT : COLOR 11: PRINT
IF CO > 0 THEN PRINT "* Perhaps you should try using Propaganda to sway the unhappy ones!": PRINT
PRINT "* A Public Relations Campaign can bring up your support!": PRINT
IF TX% > 4 THEN PRINT "* Lower the Tax Rate and your Popular Support should rise!": PRINT
IF UL% > 0 THEN PRINT "* Fight Unemployment by purchasing Factories!": PRINT
GOTO POLITADVISOR1
POLITICAL4: PRINT : 'ps of 81-90%
PRINT "The majority of the citizens approve of your actions and choices! Although"
PRINT
PRINT "you are well liked and respected, we should still try to raise your Popular"
PRINT
PRINT "Support before it falls even more so! Here are my recommendations sir:"
PRINT : COLOR 11: PRINT
PRINT "* Public Relations Campaigns are very effective but also very costly!": PRINT
IF CO > 0 THEN PRINT "* Use Propaganda to influence your civilians!": PRINT
IF TX% > 3 THEN PRINT "* The Tax Rate should be lowered to best serve the citizens!": PRINT
IF UL% > 0 THEN PRINT "* You need to purchase Factories to combat the Unemployment!": PRINT
GOTO POLITADVISOR1
POLITICAL5: PRINT : 'ps of 61-80%
PRINT "A slim majority of the citizens approve of your actions! This downturn in"
PRINT
PRINT "your Popular Support must be combatted right away! If we dont take action"
PRINT
PRINT "now, this can lead to disaster down the road! Here are my recommendations:"
PRINT : COLOR 11: PRINT
IF CO > 0 THEN PRINT "* Propaganda would be very helpful right about now!": PRINT
PRINT "* Public Relations Campaigns will boost your numbers but drain your Gold!": PRINT
IF TX% > 2 THEN PRINT "* Lower Taxes to give the citizens some relief!!": PRINT
IF UL% > 0 THEN PRINT "* Lower Unemployment and provide the citizens with jobs!": PRINT
GOTO POLITADVISOR1
POLITICAL6: PRINT : 'ps of 41-60%
PRINT "The nation is clearly divided by your policies sir! We should act fast to"
PRINT
PRINT "stop this downfall! If you follow my recommendations, we should be able to"
PRINT
PRINT "raise your Popular Support!"
COLOR 11: PRINT : PRINT
IF UL% > 0 THEN PRINT "* You need to provide jobs for the citizens!! Buy Factories!": PRINT
PRINT "* I know it is expensive, but a Public Relations Campaign might work!": PRINT
IF CO > 0 THEN PRINT "* Propaganda is an effective tool for the government to use!": PRINT
IF TX% > 1 THEN PRINT "* I would advise lowering the Tax Rate to please the citizens!": PRINT
GOTO POLITADVISOR1
POLITICAL7: PRINT : COLOR 12: 'ps of 21-40%
PRINT "Sir!! The nation is starting to revolt! Your Popular Support is nearing rock"
PRINT
PRINT "bottom! We must correct this immediately or you might even be assassinated!"
PRINT
PRINT "Please listen to all my advice or your very life could be in jepardy!"
PRINT : COLOR 11: PRINT
IF TX% > 0 THEN PRINT "* Lower the Tax Rate right away!!": PRINT
IF CO > 0 THEN PRINT "* Use Propaganda to boost your approval rating!": PRINT
IF UL% > 0 THEN PRINT "* Sir! The people are out of work! Buy Factories immediately!": PRINT
PRINT "* Although expensive, a Public Relations Campaign might be the right choice!"
GOTO POLITADVISOR1
POLITICAL8: PRINT : COLOR 12: 'ps of 0-20%
PRINT "Sir!!!! You are fucked!! The citizens are revolting and denouncing the"
PRINT
PRINT "government!! I suggest we do everything possible to please them! Im surprised"
PRINT
PRINT "you have not been assassinated yet! if we do not stabilize the situation, we"
PRINT
PRINT "are also more vulnerable from enemy attacks. Here are my suggestions:"
PRINT : COLOR 11: PRINT
IF TX% > 0 THEN PRINT "* Lower the Tax Rate to 0%!!!! This might help a bit!": PRINT
IF UL% > 0 THEN PRINT "* Get some damn Factories so the people can work!!": PRINT
IF F& <= 100 THEN PRINT "* Get some Food so we can feed our people!": PRINT
PRINT "* If you can afford it, try a Public Relations campaign to fix your image!": PRINT
IF CO > 0 THEN PRINT "* Use the Covert Op Propaganda to secretly influence the civilians!": PRINT
GOTO POLITADVISOR1
POLITADVISOR1: PRINT : COLOR 7
PRINT "Press a key": DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> ""
GOTO ADVISORS
ECONADVISOR: 'this is the economic advisor
CLS : COLOR 10
PRINT "Hello Mr President, I am Dan, your economic advisor. I am here to give you"
PRINT
PRINT "a full report on the economic status of the nation. "
PRINT : PRINT : PRINT : COLOR 11
PRINT "Taxes:": PRINT "======": COLOR 10
A& = TX% * (P& / 100)
PRINT "We currently have a Population of"; : COLOR 11: PRINT P&; : COLOR 10: PRINT "million."
PRINT
PRINT "At the current Tax Rate,"; : COLOR 11: PRINT TX%; : COLOR 10: PRINT "%, we will get"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "Gold."
PRINT : PRINT : COLOR 11
PRINT "Bank:": PRINT "=====": COLOR 10
B& = IR% * (BG& / 100)
PRINT "You currently have"; : COLOR 11: PRINT BG&; : COLOR 10: PRINT "Gold in the Bank."
PRINT
PRINT "At the current Interest Rate,"; : COLOR 11: PRINT IR%; : COLOR 10: PRINT "%, you will earn"; : COLOR 11: PRINT B&; : COLOR 10: PRINT "Gold."
PRINT : PRINT : COLOR 11
PRINT "Industries:"
CA& = 100 - (TR% + HU% + TK% + JT% + BM% + AG% + MB%)
PRINT "===========": COLOR 10
PRINT "We currently use"; : COLOR 11: PRINT CA&; : COLOR 10: PRINT "% of our Industries to make Gold."
PRINT
CC& = CA& * (P& / 100)
PRINT "That means we produce"; : COLOR 11: PRINT CC&; : COLOR 10: PRINT "Gold with our Industries."
PRINT : PRINT : COLOR 11
PRINT "Total Revenue:": PRINT "==============": COLOR 10
C& = A& + B& + CC&
PRINT "We currently gather"; : COLOR 11: PRINT C&; : COLOR 10: PRINT "Gold a turn."
PRINT
PRINT "We currently hold"; : COLOR 11: PRINT G&; : COLOR 10: PRINT "Gold in our general fund."
PRINT : PRINT : PRINT : PRINT
PRINT "Press a key to see more economic information"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO ECONADVISOR1
ECONADVISOR1: 'this is more economic info
CLS : COLOR 10: C& = A& + CC& + (BG& / 100)
PRINT "At the current time, our Unemployment Rate is"; : COLOR 11: PRINT UL%; : COLOR 10: PRINT "%"
IF UL% > 0 THEN COLOR 12: PRINT : PRINT "You need to lower the Unemployment Rate!!"
PRINT : COLOR 10: PRINT
PRINT "Below is the nation's overall Economic Rating. We create this rating based"
PRINT
PRINT "on things like Tax Rate, which can create more revenue but also increase the"
PRINT
PRINT "Unemployment Rate. It also uses data like amount of Interest from Bank earned,"
PRINT
PRINT "Industrial Gold preduction, and the unemployment Rate. The higher the rating,"
PRINT
PRINT "the stronger your economy is. This rating can fluctuate a bit from turn to"
PRINT
PRINT "turn because of the changing variables used. Overall, this is a good"
PRINT
PRINT "indictation of the health of the economy."
IF P& = 0 THEN C& = 70: PRINT : PRINT : GOTO ECON3
A& = (C& / P&) * 100
B& = 10 - (TX% + UL%)
C& = A& + (B& + B&)
IF C& < 0 THEN C& = 0
IF C& > 150 THEN C& = 150
PRINT : PRINT : COLOR 10
IF C& <= 30 THEN GOTO ECON1
IF C& <= 60 THEN GOTO ECON2
IF C& <= 90 THEN GOTO ECON3
IF C& <= 120 THEN GOTO ECON4
IF C& > 120 THEN GOTO ECON5
ECONEND: PRINT : PRINT : COLOR 7: PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO ADVISORS
ECON1: 'this is a depression economy
IF PS% > 70 THEN C& = C& + 30: GOTO ECON2
PRINT "Our current overall Economic Rating is"; : COLOR 11: PRINT C&
PRINT : PRINT : COLOR 12
PRINT "We are in the middle of a Great Depression!!! If we dont corrent these issues"
PRINT
PRINT "right away, the nation will collapse!! To get us out of the Depression, I"
PRINT
PRINT "recommend the following:"
IF UL% > 0 THEN PRINT : PRINT "* We must purchase more Factories to lower Unemployment!"
IF TX% >= 3 THEN PRINT : PRINT "* Lower Taxes to help stimulate the economy!"
IF BG& < P& / 2 THEN PRINT : PRINT "* Invest more Gold in the Bank!"
IF CA& < 100 THEN PRINT : PRINT "* Increase Gold production in our Industries!"
IF PS% < 60 THEN PRINT : PRINT "* Raise your Popular Support to boost consumer confidence!"
GOTO ECONEND
ECON2: 'this is a recession economy
IF PS% < 40 THEN C& = C& - 30: GOTO ECON1
IF PS% > 85 THEN C& = C& + 30: GOTO ECON3
PRINT "Our current overall Economic Rating is"; : COLOR 11: PRINT C&
PRINT : PRINT : COLOR 12
PRINT "The nation is in the middle of a Recession!! We need to steer out of this"
PRINT
PRINT "before it can cause further harm!! These are my recommendations:"
IF UL% > 0 THEN PRINT : PRINT "* Purchase more Factories to lower Unemployment!!"
IF TX% > 5 THEN PRINT : PRINT "* Lower Taxes to stimulate consumer spending!"
IF BG& < P& THEN PRINT : PRINT "* Invest more Gold in the Bank to earn Interest!"
IF CA& < 90 THEN PRINT : PRINT "* Increase Gold production in your Industries to create more revenue!"
IF TX% = 0 THEN PRINT : PRINT "* Raise Taxes to 1% to gain more revenue!"
IF PS% <= 70 THEN PRINT : PRINT "* Raise your Popular Support to boost consumer confidence!"
GOTO ECONEND
ECON3: 'normal economy
COLOR 10
PRINT "Our current Economic Rating is"; : COLOR 11: PRINT C&
PRINT : PRINT : COLOR 10
PRINT "Our nation is within the global average in terms of the economy. There are"
PRINT
PRINT "some recommendations I could give to boost the economy to above average:"
IF UL% > 0 THEN PRINT : PRINT "* Lower your Unemployment by purchasing more Factories!"
IF TX% > 7 THEN PRINT : PRINT "* Lower your Tax Rate a bit to stimulate the economy!"
IF BG& < P& * 2 THEN PRINT : PRINT "* Invest more Gold in the Bank to increase revenue!"
IF CA& < 80 THEN PRINT : PRINT "* Increase Gold Production in your Industries!"
IF TX% < 2 THEN PRINT : PRINT "* Increase Taxes a couple of points to increase revenue!"
IF PS% < 80 THEN PRINT : PRINT "* Raise your Popular Support to boost consumer spending!"
GOTO ECONEND
ECON4: 'this is an above average economy
IF PS% < 80 THEN C& = C& - 30: GOTO ECON3
COLOR 10
PRINT "Our current overall Economic Rating is"; : COLOR 11: PRINT C&
PRINT : PRINT : COLOR 10
PRINT "Our nation's economy is doing better than the global average sir!! As well"
PRINT
PRINT "as it is doing, there is always room for improvement. Here is what I advise:"
IF UL% > 0 THEN PRINT : PRINT "* Purchase more Factories to create more job opportunities!"
IF TX% > 9 THEN PRINT : PRINT "* Lower Taxes a couple of points to stimulate spending!"
IF TX% < 1 THEN PRINT : PRINT "* Raise Taxes a point or two to create more revenue!"
IF BG& < P& * 5 THEN PRINT : PRINT "* Invest more Gold in the Bank!"
IF CA& < 85 THEN PRINT : PRINT "* Create more Gold using our Industries!"
IF PS% < 95 THEN PRINT : PRINT "* Raise your Popular Support to boost comsumer spending!"
GOTO ECONEND
ECON5: 'this is record level economy
IF PS% < 95 THEN C& = C& - 30: GOTO ECON4
COLOR 10
PRINT "Our current Economic Rating is:"; : COLOR 11: PRINT C&
PRINT : PRINT : COLOR 10
PRINT "Our economy us at record levels sir! We are producing great amounts of Gold,"
PRINT
PRINT "people are happy and employed, and the overall ecomomy is peaking! However, in"
PRINT
PRINT "times like this, we must avoid pitfalls which can lead to our economy tanking."
PRINT
PRINT "When the rating starts to drop, follow this recommendations:"
IF UL% > 0 THEN PRINT : PRINT "* Lower Unemployment by purchacing Factories!"
IF TX% > 7 THEN PRINT : PRINT "* Lower Taxes a couple of points to increase consumer spending!"
IF TX% < 1 THEN PRINT : PRINT "* Raise Taxes a little to increase revenues!"
IF BG& < P& * 10 THEN PRINT : PRINT "* Deposit more Gold into the Bank to boost Interest earned!"
IF CA& < 90 THEN PRINT : PRINT "* Increase Gold production in our industries!"
GOTO ECONEND
AGRADVISOR: 'this is the food expert
CLS : COLOR 10
PRINT "Hello, I am Eric, your agriculture expert. I am here to give you a full"
PRINT
PRINT "report as to the Food status of our nation. This is the current status:"
A& = (P& / (10 * D4)): B& = (TR& / (150 * D4)): C& = A& + B&
IF EN4 > 0 THEN A& = A& - (A& / 3): B& = B& - (B& / 3): C& = C& - (C& / 3)
PRINT : PRINT
PRINT "We currently have"; : COLOR 11: PRINT F&; : COLOR 10: PRINT "tons of Food in storage."
PRINT : PRINT
PRINT "Your people require"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "tons of Food a turn."
PRINT
PRINT "Your Soldiers require"; : COLOR 11: PRINT B&; : COLOR 10: PRINT "tons of Food a turn."
PRINT
PRINT "We require a total of"; : COLOR 11: PRINT C&; : COLOR 10: PRINT "tons of Food a turn."
A& = (P& / 10) / 2: B& = FF& * 5
PRINT : PRINT
PRINT "In a normal or average year:"
PRINT
PRINT "Our nation produces an average of"; : COLOR 11: PRINT A&; : COLOR 10: PRINT "tons of Food a turn."
PRINT
PRINT "Our Food Farms produce an average of"; : COLOR 11: PRINT B&; : COLOR 10: PRINT "tons of Food a turn."
PRINT
PRINT "We produce an average total of"; : COLOR 11: PRINT A& + B&; : COLOR 10: PRINT "tons of Food a turn."
PRINT : PRINT
B& = (A& + B&) - C&
IF B& <= 0 THEN COLOR 12: PRINT "We are experiencing an average deficit of"; : COLOR 11: PRINT B& * -1; : COLOR 12: PRINT "tons per turn!"
IF B& > 0 THEN PRINT "We have an average surplus of"; : COLOR 11: PRINT B&; : COLOR 10: PRINT "tons per turn."
IF B& > 0 THEN C& = F& / B&
IF B& < 0 THEN C& = F& / B&
PRINT : COLOR 10
IF C& < 0 THEN COLOR 12: PRINT "If the Population remains constant, we have enough Food for"; : COLOR 11: PRINT C& * -1; : COLOR 12: PRINT "turns at most!"
IF C& = 0 THEN COLOR 12: PRINT "We are going to run out of Food next turn sir!! Buy a Food Farm!"
C& = (B& * -1 / 5) + 1
IF B& < 0 THEN COLOR 12: PRINT : PRINT "I recommend buying"; : COLOR 11: PRINT C&; : COLOR 12: PRINT "more Food Farms to ease our Food deficit!"
IF B& < -10 AND EN4 = 0 THEN COLOR 12: PRINT : PRINT "Perhaps Food Rationing might solve our Food problems!"
IF B& < -20 THEN COLOR 12: PRINT : PRINT "I would also recommend using Cannibalism to combat our Food deficit!"
PRINT : PRINT : COLOR 10
PRINT "The Food Market now has"; : COLOR 11: PRINT FM&; : COLOR 10: PRINT "tons of Food."
IF FM& < 1000 THEN COLOR 12: PRINT : PRINT "The Food Market is dangerously low!"
COLOR 10: PRINT : PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO ADVISORS
AUTOLOAD: 'This loads data
RESTORE
C = 0
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, FM&: 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: GET 1, 53, EN3: GET 1, 54, EN4
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&: GET 1, 2, OM&: GET 1, 3, SM&
CLOSE : RETURN
AUTOSAVE: PRINT
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: PUT 1, 53, EN3: PUT 1, 54, EN4
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&: PUT 1, 2, OM&: PUT 1, 3, SM&
CLOSE : RETURN
'data meanings: #, name, descript,cost,attack,defend,x,x,x
DATA 1,Soldiers,,10,1,2,0,0,0
DATA 2,Humvees,,15,2,1,0,0,0
DATA 3,Tanks,,40,4,4,0,0,0
DATA 4,Jets,,30,3,3,0,0,0
DATA 5,Bombers,,35,4,1,0,0,0
DATA 6,Anti Aircraft Guns,,10,0,2,0,0,0
DATA 7,Missile Bases,,20,0,3,0,0,0
DATA 8,Covert Agent,,50,0,0,0,0,0
DATA 9,Food Farms,,500,0,0,0,0,0
DATA 10,Industrial Factories,,1000,0,0,0,0,0
all of the common lists Are identical. i only use A$ and A to tell which area of the mod to goto. all of the variables used in the game are pulled and stored with a random access file
All I was noting was that you don't need 2 common shared lines. You can list a dozen or more in one line of code. No biggie.
I don't like COMMON SHARED much as you cannot use CHAIN without compiling the modules with BRUN45.EXE included. If you already have a file in use why not toss those two variables in too?
I gather you already open the file at least once in each module, so it is not much of a stretch to add 2 more values into the record. That's your call!
the only reason i use A$ and A is to direct the program where to go once it hits a CHAIN command.
for example: in the main menu mod, if you pick C (covert ops), it will CHAIN you to the covertop mod. once that mod starts, it it uses A$ (your last entry) to determine what area of the covertop mod it will start at. this is because several main menu options lead to the same mod. the covert op mod contains the covert ops and the enact policies area.
i didnt put them with the saved game variables file because in some cases, like the instructions, retrieving the saved game files isnt nessessary and would only make the program unnessessarily longer (which it is already)
i also didnt know that brun45.exe is required to use CHAIN. i use qb7.1 does this mean i would have to include a copy of brun45 if someone wants to play the compiled version of this game? i have compiled 3 of the mods before and ran the game without any problems.
one more thing.....any game related issues i should know about or any comments on the current gameplay?
I currently don't have the time to check it out, but it should run in Qbasic if you want the program to be compatable. QB4.5 needs BRUN45.exe to be included for compiled common shared values to work with CHAIN. Try the program in each to see how it works. PDS has a lot of options and specs not available in the other versions. How badly do you need PDS?
You could just use another file if you want and open it when needed. Also random is not necessary as WRITE # created data files are easy to use. Place all of your variables in one WRITE # line and then INPUT # the same variables in one swipe. You are currently doing the same consecutive thing using PUT and GET. Since your variables change names, you cannot use a loop. You don't need a placeholder number if you PUT and GET from the first value to the last. String variables should be a defined length.
Just some ideas. Have fun!
Ted
PS: If it does not run in QB 4.5, I don't use PDS.
This message has been edited by burger2227 on Jul 19, 2009 9:13 PM
how else would the program be run until its fully compiled? im not sure if it will run on QB4.5 but it works with QB7.1
as far as PDS, i dont even know what that is, so im fairly confident that i dont need it lol.
like ive said before, im not really good at QB programming and this game is my first attempt at creating anything with QB. i dont know what works with what QB versions or what PDS is lol. i do know my game runs with QB7.1 and even after i compile the instruct, covertop, and advisor mods, the game still runs properly.
Quickbasic 7.1 is referred to as PDS, lol. "Professional Development System"
July 20 2009, 12:57 PM
or is it "Suite". Anyhow.....
Yeah I'm just trying to show you some options, not critcize.
As to module sizes, they can be larger if you manage your memory by using more SUB and FUNCTION procedures. When a SUB procedure is called, the program only needs memory for that procedure. Memory is released when the procedure is done. You can take almost any code in the main procedure and put it into a SUB. SUBs are just mini programs. I have some programs that use so many SUB procedures the main has mostly sub calls!
You may want some of the data returned to the main program. You can pass them in the parameters or DIM SHARED those values in the main.
There are ways to link modules and compile up to 200K modules using the command line. If you want more info, let me know.
Ted
This message has been edited by burger2227 on Jul 20, 2009 2:37 PM This message has been edited by burger2227 on Jul 20, 2009 1:30 PM
when it was nearly a 200 kb program. as soon as i tried to do that, i got an error message stating there wasnt enough memory available. so thats why i broke it down into smaller subs. but even when i was just using ONE program, most of the game was in the subs (look back at some of my earlier posts of the game) and yet the memory requirements were too large for compiling. in fact, all of the 4 mods besides the main mod were all included in subs.
i know you were not critcizing, only helping me out and all the help is appreciated. lol hell, i even learned a new QB term today (PDS). as for using command lines to compile larger programs, i think ill pass on it for a while lol. maybe i can use it when i restart the 2nd game i was working on, the quest game lol.
one question about subs though.....the more variables you pass through CALL statements will increase your memory requirements in the subs, right?
The variables were already in the memory when you created them.
July 20 2009, 7:53 PM
Imagine coming out of a SUB and all of your variable values became 0....
The main program should never have that happen! However a SUB can change the value if passed.
As soon as you add another variable to the main program, QB reserves a position in memory for it. If it did not, how would QB know it's value at any point in the program? So passing variables from the main to a SUB is not a problem unless the SUB is bigger than the main program. When the SUB is exited all of it's internal variables disappear from memory. That is why you don't have to reset the internal values in the sub. You may have to reset SHARED variables.
I am talking about working memory. The QB IDE cannot compile 200K modules
because of compiler memory problems.
BTW, COMMON SHARED variables can be passed without any parameters. Some new coders use it, instead of a DIM SHARED list, to share variables throughout a module.
This message has been edited by burger2227 on Jul 20, 2009 11:19 PM
that my SUBS were actually longer than the main program itself. for example, right now the main program in the wargame4 mod is only about 10-15 kb. but all the SUBS i call (like the editor and comp maint) are actually about the same size or a little larger.
thanks for all your help clippy. QB isnt dead yet and it will continue to live on at least until i finish this game up (even if it takes me another couple years lol)
Compile each module with BC command in the QB directory. Use your real module names. You can make a small QB program allowing you to INPUT the module names and final EXE name:
SHELL "BC MODULE1.BAS /O/S/E/X; 'compile each using your module names
SHELL "BC MODULE2.BAS /O/S/E/X; 'without using the IDE (best)
Then, link all of them together as WARGAME.EXE in your case
Note: I don't know which BCL lib file you need in 7.1. BCOM45.LIB is for QB4.5, so I'd try it in QB4.5 really! Unless you used 7.1 commands.
Just use more + signs to add more modules before the EXE comma.
You could also do use the DOS command line to do the above. Pete gave me this information so he apparently likes OSEX, lol. It is easier to remember...
This message has been edited by burger2227 on Jul 22, 2009 3:35 PM This message has been edited by burger2227 on Jul 22, 2009 5:28 AM
used to program a little with Applesoft. is that anything like OS X? lol i even created a wargame for the apple IIe computer but it wasnt a very good program.
It's a programming language (like QB), using a text-based interface. It's not an operating system (like DOS). The latest programming languages for Macintosh computers use a graphical interface (like Visual Basic for Windows OSs).
This message has been edited by Solitaire1 on Jul 31, 2009 6:37 PM