DECLARE SUB DESPERATEMEASURES ()
DECLARE SUB POPULARSUPPORT (PS%)
DECLARE SUB MILITARYMORAL (MM%)
DECLARE SUB TOPSCORES ()
DECLARE SUB COVERTOPS ()
DECLARE SUB ADVISORS ()
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 INDUSTRIES (P&, TR%, HU%, TK%, JT%, BM%, AG%, MB%)
DECLARE SUB STATUS ()
DECLARE SUB BANK (G&, BG&, IR%)
DECLARE SUB TAXES (EN2, EN1, TX%, EN, P&, PS%, MM%, TR&)
DECLARE SUB PURCHASE (G&, TR&, HU&, TK&, JT&, BM&, AG&, MB&, SP&, FF&, FA&)
DECLARE SUB PURCHASES
DECLARE SUB EDITOR (A$, D4)
DECLARE SUB CREATECOMP (D4)
DECLARE SUB FOODMARKET (D4!, G&, FM&, F&)
DECLARE SUB INSTRUCTIONS ()
' PRESS F5 TO START!
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 "(I)nstructions and Tips"
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": GOSUB AUTOLOAD: GOTO NEWTURN
CASE "Q": END
CASE "I": CALL INSTRUCTIONS: GOTO TITLE
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): IF A$ = "E" THEN GOTO TITLE
KILL "MARKET"
FOR C = 1 TO 20: C$ = STR$(C): KILL "WAR4-" + C$: NEXT C
CALL CREATECOMP(D4)
GOSUB AUTOLOAD
'VARIABLE DEFINITIONS in war data file
'D0 = difficulty
'D1 = turns per day
'D2 = turns of protection
'D3
'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
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$ <> "": GOSUB AUTOSAVE: GOTO NEWTURN
EDITNAMEEND: PRINT : COLOR 7
PRINT "Press a key": DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> "": GOTO EDITNAME
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
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&: PUT 1, 2, OM&: PUT 1, 3, SM&
CLOSE : RETURN
AUTOLOAD: PRINT
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, 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
NEWTURN: PRINT
IF E1 = 0 THEN GOTO NEWTURN1
IF D4 = 0 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 EN2 = 5 THEN AA% = 1
PS% = PS% - EN1 - AA%
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
A& = (P& / (10 * D4)) + (TR& / (150 * D4))
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 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
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&)
GOTO 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
MAINMENU: GOSUB AUTOSAVE: 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 "(D)esperate Measures"
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": CALL COVERTOPS: GOSUB AUTOLOAD: GOTO MAINMENU
CASE "D": CALL DESPERATEMEASURES: GOSUB AUTOLOAD: GOTO MAINMENU
CASE "T": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "F": CALL FOODMARKET(D4, G&, FM&, F&): GOTO MAINMENU
CASE "G": CALL BANK(G&, BG&, IR%): GOTO MAINMENU
CASE "H": CALL INSTRUCTIONS: GOTO MAINMENU
CASE "I": CALL INDUSTRIES(P&, TR%, HU%, TK%, JT%, BM%, AG%, MB%): GOTO MAINMENU
CASE "L": CALL STATUS: GOSUB AUTOLOAD: GOTO MAINMENU
CASE "N": CALL COMPMAINT: GOSUB AUTOLOAD: GOTO NEWTURN
CASE "Q": CALL COMPMAINT: GOSUB AUTOLOAD: GOTO TITLE
CASE "P": CALL PURCHASE(G&, TR&, HU&, TK&, JT&, BM&, AG&, MB&, SP&, FF&, FA&): GOTO MAINMENU
CASE "S": COLOR 12: PRINT : PRINT "THIS OPTION IS NOT COMPLETED YET!": SLEEP: GOTO MAINMENU
CASE "E": CALL TAXES(EN2, EN1, TX%, EN, P&, PS%, MM%, TR&): GOTO MAINMENU
CASE "V": CALL ADVISORS: GOTO MAINMENU
END SELECT
GOTO MAINMENU
'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
'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 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
SUB ADVISORS
ADVISORS: CLS : GOSUB ADVISORLOAD: 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": EXIT SUB
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 "Increase military production in our industries!"
MILITADVISOR2: PRINT : 'this is more military info
IF MM% < 100 THEN COLOR 12: PRINT "Sir!! We must raise the Military Moral! Right now our military is not at"
IF MM% < 100 THEN PRINT : PRINT "full strength!"
IF EN1 = 0 THEN COLOR 10: PRINT : PRINT "Martial Law would be a good way to boost our Moral even more!"
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
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."
IF A% < 100 THEN COLOR 12: PRINT : PRINT "Why arent we making more units with our Industries?!?"
IF EN = 0 THEN COLOR 12: PRINT : PRINT "I would recommend using the Draft to increase our defences!"
RETURN
GETMHELP2: 'this means you need more military
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 "I would increase the production of military units in our industries!"
IF EN = 0 THEN COLOR 12: PRINT : PRINT "Sir! Implimenting the Draft would raise our military levels!"
RETURN
GETMHELP3: 'this means you need military
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 "Increase military production to enlarge our military!"
IF EN = 0 THEN COLOR 12: 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."
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&
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!"
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!"
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!"
IF B& < -20 THEN PRINT : PRINT "I would recommend using Cannibalism to combat our Food problem!"
COLOR 10: PRINT : PRINT : PRINT "Press a key"
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": GOTO ADVISORS
ADVISORLOAD: 'This loads data for advisors
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
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&: GET 1, 2, OM&: GET 1, 3, SM&
CLOSE : RETURN
END SUB
SUB BANK (G&, BG&, IR%)
BANK: 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": EXIT SUB
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$ <> ""
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$ <> ""
GOTO BANK
END SUB
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 THEN GOTO MAINTTAX1
GOTO MAINTUNEMPLOYMENT
MAINTTAX1: 'GIVES COMP MORE GOLD
IF TX% = 0 THEN TX% = 1
MAINTUNEMPLOYMENT: 'THIS CREATES NEW UNEMPLOYMENT
UL% = UL% - (FA&) + (P& / 1000) + (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 COVERTOPS
COVERTOPS: 'this is the covert ops area
CLS : RESTORE: C = 0: GOSUB COVERTOPSLOAD
COLOR 11
PRINT "Welcome to the Covert Operations Center. What are your orders, Commander?"
FOR C = 1 TO 20
READ Z, Z$, ZZ$, Z1, Z2, Z3, Z4, Z5, Z6
NEXT C
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": EXIT SUB
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. Even though military information"
PRINT
PRINT "can be quite valuable, knowing the status of the enemy realm is even more"
PRINT
PRINT "valuable in the overall mission of winning the game."
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% + 20
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 COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 4 THEN GOSUB GOODOP4: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
C = 0: GOSUB COVERTOPSSAVE
C = CT% + 1: GOSUB COVERTOPSLOAD
IF A% = 1 THEN GOSUB GOODOP1: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
'IF A% = 2 THEN GOSUB GOODOP2: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 5 THEN GOSUB GOODOP5: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 6 THEN GOSUB GOODOP6: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 7 THEN GOSUB GOODOP7: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 8 THEN GOSUB GOODOP8: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 9 THEN GOSUB GOODOP9: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 10 THEN GOSUB GOODOP10: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 11 THEN GOSUB GOODOP11: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 12 THEN GOSUB GOODOP12: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 13 THEN GOSUB GOODOP13: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 14 THEN GOSUB GOODOP14: GOSUB COVERTOPSSAVE: GOTO COVERTOPEND
IF A% = 15 THEN GOSUB GOODOP15: GOSUB COVERTOPSSAVE: 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 COVERTOPSSAVE: GOTO COVERTOPEND
COVERTOPSLOAD: C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
GET 1, 14, F&: GET 1, 15, G&
GET 1, 16, BG&: 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, 31, PS%: GET 1, 32, TX%
GET 1, 41, UL%: GET 1, 42, MM%: GET 1, 43, CT%
GET 1, 44, N$: GET 1, 48, EN2: GET 1, 49, CO
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
GET 1, 1, FM&
CLOSE : RETURN
COVERTOPSSAVE: C$ = STR$(C)
OPEN "WAR4-" + C$ FOR RANDOM AS 1
PUT 1, 16, BG&: 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, 31, PS%: PUT 1, 42, MM%
PUT 1, 43, CT%: PUT 1, 44, N$: PUT 1, 48, EN2
PUT 1, 49, CO
CLOSE
OPEN "MARKET" FOR RANDOM AS 1
PUT 1, 1, FM&
CLOSE : RETURN
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$ <> "": EXIT SUB
END SUB
SUB CREATECOMP (D4)
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 DESPERATEMEASURES
DESPERATE: COLOR 10
GOSUB AUTOLOADDM: CLS
PRINT "There comes a time in every nation's history when it has to resort to really"
PRINT
PRINT "desperate measure to ensure its very survival! History may not look kindly at"
PRINT
PRINT "those moments, but when a nation is faced with annihilation, they will use any"
PRINT
PRINT "method nessessary."
PRINT
PRINT
PRINT "These options are not to be used at a whim. Every one of them comes with a"
PRINT
PRINT "price. Some require Gold, while others require things much more valuable!"
PRINT : PRINT : COLOR 11
PRINT "(E)xit to Main Menu"
PRINT : PRINT "(B)rainwash Soldiers"
PRINT : PRINT "(P)ublic Relations Campaign"
PRINT : PRINT "(C)annibalism"
PRINT : PRINT : COLOR 10
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "E": GOSUB AUTOSAVEDM: EXIT SUB
CASE "C": GOTO CANNIBALISM
CASE "B": GOTO BRAINWASH
CASE "P": GOTO PRCAMP
END SELECT
GOTO DESPERATE
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 DESPERATE
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 DESPERATE
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 DESPERATE
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$ <> ""
GOSUB AUTOSAVEDM
GOTO DESPERATE
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
AUTOLOADDM: PRINT
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, X%: 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
AUTOSAVEDM: 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, FM&: 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
END SUB
SUB EDITOR (A$, D4)
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 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 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: GOTO EDITOR4
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 "(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": EXIT SUB
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&
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&
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 Policies/Taxes options"
PRINT "* Finished Industrial Output options"
PRINT "* Finished Current Status"
PRINT : PRINT : COLOR 11
PRINT "Recent Improvements: Version 4.01"
PRINT "================================="
COLOR 10
PRINT "* Finished Desperate Measures 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 INDUSTRIES (P&, TR%, HU%, TK%, JT%, BM%, AG%, MB%)
INDUSTRIES: 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": EXIT SUB
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
GOTO INDUSTRIES
END SUB
SUB INSTRUCTIONS
INSTRUCT: CLS : COLOR 11
PRINT "WELCOME TO WARGAME4 INSTRUCTIONS/HELPFUL HINTS!!"
PRINT "================================================"
COLOR 10
PRINT " WELCOME TO WARGAME4, THE TEXT BASED GAME OF WAR AND STRATEGY. IF THIS IS YOUR"
PRINT
PRINT "FIRST TIME PLAYING, DONT BE ALARMED. THIS HELPFUL GUIDE WILL GIVE YOU ALL THE"
PRINT
PRINT "INFO YOU WILL NEED TO WIN THE GAME."
PRINT : PRINT
PRINT " FIRST OFF I WILL GIVE YOU A HISTORY ON THE WARGAME SERIES. I FIRST CREATED"
PRINT
PRINT "THE ORIGINAL WARGAME ON AN OLD APPLE IIE COMPUTER. THE GAME WAS VERY BASIC"
PRINT
PRINT "AND ONE DIMENTIONAL. ESSENTIALLY YOU WERE THE RULER OF A NATION AT WAR WITH"
PRINT
PRINT "ANOTHER NATION WHOS LEADER IS SIMPLY NAMED 'JOHN'. JOHN WAS A MADMAN BENT ON"
PRINT
PRINT "DESTROYING YOUR NATION AT ALL COSTS. YOU HAD TO BUILD UP YOUR NATION AND"
PRINT
PRINT "TAKE OUT JOHN BEFORE HE TAKES YOU OUT. YOU HAD A FEW OPTIONS AVAILABLE TO YOU,"
PRINT
PRINT "BUT FOR THE MOST PART THE GAME WAS VERY LIMITED IN ITS SCOPE. PARTIALLY DUE "
PRINT
PRINT "TO THE LIMITED POWER OF AN APPLE IIE COMPUTER AND MOSTLY BECAUSE OF MY BAD"
PRINT
PRINT "PROGRAMMING SKILLS."
PRINT : PRINT
PRINT " WARGAME 2 WAS ALSO BUILT ON AN OLD APPLE IIE COMPUTER AND WAS PRETTY MUCH"
PRINT
PRINT "THE SAME THING AS WG1, WITH SLIGHTLY TIGHTER PROGRAMMING AND A FEW MORE"
PRINT
PRINT "OPTIONS. I WAS STILL RESTRICTED BY MY BAD PROGRAMMING AS WELL AS USING AN "
PRINT
PRINT "ANCIENT COMPUTER."
PRINT : PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT2
GOTO INSTRUCT
INSTRUCT2: CLS : COLOR 10
PRINT " WARGAME 3 WAS CREATED ON AN APPLE EMULATOR FOR USE ON A REGULAR PC. WG3 IS"
PRINT
PRINT "ALOT MORE ADVANCED THAN EITHER WARGAME 1 OR WARGAME 2. THIS GAME HAD ALOT MORE"
PRINT
PRINT "OPTIONS AS WELL AS A SAVE/ RETRIEVE GAME OPTION. BUT NONETHELESS, IT IS STILL"
PRINT
PRINT "AT LEAST IN MY MIND, VERY ONE DIMENTIONAL. THE COMP NATION JUST RANDOMLY"
PRINT
PRINT "ATTACKS AND BOMBS AND HAS NO REAL STRATEGY. I WAS ALSO RESTRICTED BECAUSE I"
PRINT
PRINT "WAS STILL USING AN APPLE IIE COMPUTERS (IN EMULATOR FORM). IT WAS BECAUSE OF"
PRINT
PRINT "THIS THAT I DECIEDED TO START CONSTRUCTION ON WARGAME 4, WHICH I CREATED ON"
PRINT
PRINT "THIS QBASIC EMULATOR. ALL THE THINGS LIKE MEMORY RESTRICTIONS ARE NO LONGER A"
PRINT
PRINT "FACTOR AND I AM ONLY RESTRICTED IN THE TIME I PUT INTO THE GAME."
PRINT : PRINT
PRINT " WARGAME 4 IS MUCH MORE STRATEGY ORIENTATED THAN THE PREVIOUSLY 3 WARGAMES."
PRINT
PRINT "IT CONTAINS ALL THE MAIN ASPECTS OF THE WARGAME SERIES LIKE POPULAR SUPPORT,"
PRINT
PRINT "GROWING FOOD, CREATING A MILITARY, AND FIGHTING OFF AN ENEMY NATION. BUT WG4"
PRINT
PRINT "HAS MUCH MORE TO OFFER THAN THE LAST 3 COMBINED."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT3
GOTO INSTRUCT2
INSTRUCT3: CLS : COLOR 11
PRINT "WARGAME 4 OVERVIEW:": PRINT "==================="
COLOR 10
PRINT " FOR STARTERS, IN THIS GAME, YOU WILL BE FIGHTING NOT JUST ONE ROGUE NATION,"
PRINT
PRINT "BUT RATHER 20 DIFFERENT NATIONS. THEY WONT BE GANGED UP AGAINST YOU, BUT IT"
PRINT
PRINT "WILL BE MORE OF A FREE FOR ALL. ANOTHER FUNDAMENTAL DIFFERENCE IS THE FACT"
PRINT
PRINT "THAT THESE COMP NATIONS HAVE BUILT IN AI, DESIGNED TO ENSURE THEY DO WHAT IS"
PRINT
PRINT "NESSESSARY TO SURVIVE. WG4 ALSO IMPLIMENTS THE PATENTED AUTO-SAVE SYSTEM."
PRINT
PRINT "THIS WILL AUTOMATICALLY SAVE AND RETRIEVE YOUR GAME WITHOUT YOU HAVING TO DO"
PRINT
PRINT "ANYTHING. IT ALSO EXPANDS THE OPTIONS AVAILABLE IN WG3 WHILE ADDING NEW ONES"
PRINT
PRINT "AS WELL, SUCH AS ENACTING POLICIES, FOOD FARMS, FACTORIES, AND NEW UNITS."
PRINT : PRINT
PRINT " ANOTHER THING YOU MUST REALISE WHEN PLAYING WG4 IS THAT EVERY ACTION YOU"
PRINT
PRINT "TAKE WILL EFFECT YOUR NATION IN SOME WAY OR FORM. DONT RUSH THROUGH TURNS AND"
PRINT
PRINT "THINK BEFORE TAKING ANY ACTIONS. EVERYTHING IS CONNECTED IN SOME MANNER. IF"
PRINT
PRINT "YOU WANT TO RAISE TAXES, THATS FINE. YOU WILL CREATE MORE REVENUE, BUT YOU"
PRINT
PRINT "WILL ALSO PISS OFF YOUR PEOPLE, WHICH IN TURN WILL EVENTUALLY LEAD TO YOUR"
PRINT
PRINT "CITIZENS LEAVING FOR GREENER PASTURES. YOUR JOB IS TO FIND A GOOD BALANCE TO"
PRINT
PRINT "ALL THE ASPECTS IN THE GAME AND BY DOING THAT, KEEP YOUR NATION TOGETHER."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT4
GOTO INSTRUCT3
INSTRUCT4: CLS : COLOR 11
PRINT "PLAYING THE GAME:": PRINT "================="
COLOR 10
PRINT "BEFORE YOU CAN START TO PLAY THE GAME, YOU MUST FIRST RUN THE EDITOR OPTION."
PRINT
PRINT "THIS WILL CREATE ALL THE NESSESSARY DATA FILES TO RUN THE GAME. THE EDITOR IS"
PRINT
PRINT "ALSO USED WHEN YOU WANT TO START A NEW GAME. THE EDITOR HAS MANY OPTIONS THAT"
PRINT
PRINT "YOU CAN CHANGE THAT WILL GREATLY ALTER THE WAY THE GAME IS PLAYED. EVEN"
PRINT
PRINT "CHANGING JUST ONE OR TWO OPTIONS CAN REALLY MAKE THE GAME MUCH MORE DIFFICULT"
PRINT
PRINT "OR EASIER. SOME OF THE OPTION YOU CAN CHANGE:"
PRINT : PRINT : COLOR 11
PRINT "TURNS PER DAY"
PRINT : PRINT "STARTING POPULATION"
PRINT : PRINT "PRICE OF FOOD"
PRINT : PRINT "COVERT OPS PER DAY"
PRINT : PRINT "STARTING AMOUNT OF FOOD IN THE FOOD MARKET"
PRINT : PRINT "TURNS OF PROTECTION"
PRINT : PRINT "INTEREST RATE"
PRINT : PRINT : COLOR 10
PRINT "THESE OPTIONS AND MORE ARE AVAILABLE FOR YOU TO CHANGE. ANYONE OF THESE CAN"
PRINT
PRINT "GREATLY ALTER YOUR GAME. ONCE YOU HAVE CHOOSEN YOUR OPTIONS, YOU WILL BE"
PRINT
PRINT "GIVEN AN OVERALL DIFFICULTY PERCENTAGE. THIS VALUE WILL THEN BE USED AT THE"
PRINT
PRINT "END OF GAME WHEN FINAL POINTS ARE COMPUTED."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT5
GOTO INSTRUCT4
INSTRUCT5: CLS : COLOR 10
PRINT "ONCE YOU HAVE RUN THE EDITOR, YOU WILL START THE GAME. HERE IS A RUNDOWN ON"
PRINT
PRINT "SOME OF THE VERY IMPORTANT THINGS YOU WILL FIRST VIEW:"
PRINT : PRINT : 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, AND YOU ARE DEPENDANT ON THEM FOR SO MUCH MORE."
PRINT : PRINT
PRINT "YOUR CIVILIANS RUN YOUR FACTORIES AND YOUR INDUSTRIES. WITHOUT THEM, YOUR"
PRINT
PRINT "WARMACHINE 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 "
PRINT
PRINT "TRY TO ASSASSINATE YOU!!. "
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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT5.5
GOTO INSTRUCT5
INSTRUCT5.5: CLS : COLOR 11
PRINT "TURNS LEFT TODAY:": PRINT "================="
COLOR 10
PRINT "THIS IS HOW MANY TURNS YOU HAVE LEFT IN THE DAY. IF YOU RUN OUT, DONT WORRY!"
PRINT
PRINT "YOU WILL BE GIVEN AN ENTIRELY NEW SET OF TURNS THE NEXT DAY. YOU CAN SET THIS"
PRINT
PRINT "OPTION IN THE EDITOR AREA. MORE TURNS PER DAY LEADS TO A FASTER AND QUICKER"
PRINT
PRINT "PACED GAME. CHOOSING LESS TURNS PER DAY WILL CAUSE A SLOWER PACED GAME WHICH"
PRINT
PRINT "WILL TAKE ALOT LONGER TO COMPLETE."
PRINT : PRINT : 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. THIS OPTION CAN BE CHANGED IN THE EDITOR AREA. LESS PROTECTION AT"
PRINT
PRINT "THE BEGINNING OF THE GAME WHEN YOU ARE MOST VULNERABLE MAKES THE GAME MORE"
PRINT
PRINT "DIFFICULT. A HIGHER VALUE GIVES YOU MORE TIME TO BUILD UP YOUR NATION AND "
PRINT
PRINT "DEFENCES. IF YOU DO NOT SEE THIS ON YOUR SCREEN, IT MEANS YOU HAVE USED UP"
PRINT
PRINT "ALL YOUR TURNS OF PROTECTION ALREADY."
PRINT : PRINT
PRINT "YOU WILL LOSE YOUR TURNS OF PROTECTION SHOULD YOU ATTACK OR BOMB AN ENEMY"
PRINT
PRINT "WHILE YOU STILL HAVE THEM. ONCE PROTECTION IS GONE, YOU CAN BE ATTACKED AT"
PRINT
PRINT "ANY TIME!"
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT6
GOTO INSTRUCT5.5
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 WHOS 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 GOOD WAYS"
PRINT
PRINT "TO LOWER YOUR POPULAR SUPPORT REAL FAST:"
PRINT : PRINT : COLOR 11
PRINT "RAISING 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"
PRINT : PRINT : COLOR 10
PRINT "YOU CAN ALSO TRY TO RAISE YOUR SUPPORT BY DOING THE OPPOSITE OF ABOVE OR YOU"
PRINT
PRINT "CAN ALSO TRY THE COVERT OP 'PROPAGANDA', BUT THAT COULD BACKFIRE ON YOU!"
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT7
GOTO INSTRUCT6
INSTRUCT7: CLS : COLOR 11
PRINT "TAX RATE:": PRINT "========="
COLOR 10
PRINT "YOUR TAX RATE IS ANOTHER IMPORTANT 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 REVENUE. THERE ARE BOTH GOOD AND BAD ASPECTS OF HIGH"
PRINT
PRINT "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, OVER-STIMULATE ECONOMY"
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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT8
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 0% 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"
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT9
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 TROOPS FED. EVEN"
PRINT
PRINT "THE COMPUTER NATIONS NEED FOOD AS MUCH AS YOU DO. THERE ARE SEVERAL WAY 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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT10
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 CIVILANS WILL RIOT. CIVILIANS WILL LEAVE, POPULAR SUPPORT WILL DROP, AND"
PRINT
PRINT "YOU WILL ALSO LOSE TROOPS. 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 "QUITE A BIT. BE PREPARED TO SPEND ALOT SHOULD THIS HAPPEN."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT11
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 SOURCE OF MILITARY UNITS. FACTORIES CAN"
PRINT
PRINT "SUPPLIMENT THIS, AS WELL AS PURCHAING UNITS, BUT THE MOST COST EFFECTIVE WAY"
PRINT
PRINT "TO CREATE A BALANCED MILITARY IS THROUGH YOUR INDUSTRIES."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT12
GOTO INSTRUCT11
INSTRUCT12: CLS : COLOR 11
PRINT "FACTORIES:": PRINT "==========": COLOR 10
PRINT "FACTORIES ARE ANOTHER ESSENTIAL PART OF THE WARGAME4 EXPERIENCE. THESE ARE"
PRINT
PRINT "USED TO SUPPLIMENT YOUR MILITARY OUTPUT FROM YOUR INDUSTRIES AS WELL AS TO"
PRINT
PRINT "HELP LOWER UNEMPLOYMENT BY CREATING MORE JOB OPPORTUNITIES. "
PRINT : PRINT
PRINT "EVERY FACTORY WILL PRODUCE 2 TROOPS, 1 HUMVEE, 1 TANK, 1 JET, 1 BOMBER, 1"
PRINT
PRINT "ANTI AIRCRAFT GUN, AND 1 MISSILE BASE EVERY TURN. HOWEVER, THERE IS A LIMIT "
PRINT
PRINT "TO THE AMOUNT OF FACTORIES THAT WILL PRODUCE EVERY TURN. TO DETERMINE THIS "
PRINT
PRINT "LIMIT, JUST DIVIDE YOUR POPULATION BY 100. FOR EXAMPLE, IF YOU HAVE A TOTAL"
PRINT
PRINT "POPULATION OF 500 MILLION, YOU CAN SUSTAIN A MAX OF 5 FACTORIES. ANY EXTRA"
PRINT
PRINT "FACTORIES YOU MAY HAVE WILL NOT PRODUCE ANYTHING UNTIL YOUR POPULATION CAN"
PRINT
PRINT "SUSTAIN IT."
PRINT : PRINT
PRINT "FACTORIES ARE ALSO THE MAIN WAY TO COMBAT UNEMPLOYMENT. AT THE MINIMUM, YOU"
PRINT
PRINT "WILL REQUIRE AT LEAST 1 FACTORY FOR EVERY 500 MILLION CITIZENS. IF YOU DO NOT"
PRINT
PRINT "HAVE ENOUGH FACTORIES, YOUR UNEMPLOYMENT WILL START TO RISE. ALTHOUGH THIS IS"
PRINT
PRINT "THE BARE REQUIREMENT TO KEEP UNEMPLOYMENT IN CHECK, IT IS BETTER TO HAVE A"
PRINT
PRINT "RATIO OF 1 FACTORY TO EVERY 200 MILLION CITIZENS JUST TO BE SAFE."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT13
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 HAD 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 OPTION 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 GENERAL FUND, NOT BACK"
PRINT
PRINT "INTO THE BANK."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT14
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. BE SURE TO"
PRINT
PRINT "BUY MANY SPYS, AS THEY ARE OFTEN CAPTURED OR BLOWN UP BEFORE DOING THE ACT."
PRINT : 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
COLOR 11: PRINT Z$; : PRINT ": "; : COLOR 10: PRINT ZZ$
PRINT : NEXT A
RESTORE
COLOR 7: PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT15
GOTO INSTRUCT14
INSTRUCT15: CLS : COLOR 11
PRINT "BOMBING:": PRINT "========": COLOR 10
PRINT "AFTER SENDING IN THE SPYS, ITS OFTEN GOOD TO BOMB THE OPPONENT 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 OR MORE THE 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
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT16
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 "BECAUSE OF THIS, AN ATTACK IS ESSENTIALLY A ONE SHOT DEAL. EITHER U DESTROY"
PRINT
PRINT "THEM OR YOUR FORCE WILL BE DESTROYED. MAKE SURE YOU SEND ENOUGH UNITS."
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 BE 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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT17
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 YOU WILL NOT BE ABLE"
PRINT
PRINT "TO INITIATE AN ATTACK. HERE IS THE TOTAL COSTS TO SEND THESE UNITS:"
PRINT : PRINT : COLOR 11
PRINT "UNIT NAME COST TO SEND"
PRINT "======================================================================="
COLOR 10
PRINT "TROOPS 1 GOLD PER 100 TROOPS (10 GOLD PER 1000 TROOPS)"
PRINT
PRINT "HUMVEES 1 GOLD PER 50 HUMVEES (20 GOLD PER 1000 HUVEES)"
PRINT
PRINT "TANKS 1 GOLD PER 5 TANKS (200 GOLD PER 1000 TANKS)"
PRINT
PRINT "JETS 1 GOLD PER 10 JETS (100 GOLD PER 1000 JETS)"
PRINT
PRINT "BOMBERS 1 GOLD PER 5 BOMBERS (200 GOLD PER 1000 BOMBERS)"
PRINT : PRINT
PRINT "THIS ESSENTIALLY MEANS IF YOU SENT AN ARMY OF 1000 TROOPS, IT WOULD COST YOU"
PRINT
PRINT "10 GOLD TO ATTACK. DONT MAKE THE MISTAKE OF MAKING AN ARMY TOO LARGE WHERE"
PRINT
PRINT "YOU CANT AFFORD TO SEND IT. IF YOU FIND THAT HAPPENING, INCREASE YOUR GOLD"
PRINT
PRINT "PRODUCTION IN YOUR INDUSTRIES AND STOP MAKING ALOT OF MILITARY UNITS."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT18
GOTO INSTRUCT17
INSTRUCT18: CLS : COLOR 11
PRINT "TROOPS:": 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. THEY HAVE MANY DIFFERENT"
PRINT
PRINT "REASONS AS TO WHY THEY JOINED; ADVENTURE, TRAVELING, FIGHTING TO SAVE THEIR"
PRINT
PRINT "NATION, OR EVEN THE LOVE OF DEATH. TROOPERS ARE THE CHEAPEST UNIT YOU CAN BUY"
PRINT
PRINT "AND THEREFORE, CAN BE BOUGHT IN GREAT NUMBERS."
PRINT : PRINT
PRINT "A DISADVANTAGE TO TROOPS IS THE FACT THEY MUST BE FED. AS YOU GET MORE TROOPS,"
PRINT
PRINT "YOU WILL HAVE TO INCREASE YOUR PRODUCTION OF FOOD TO COMPENSATE."
PRINT : PRINT : COLOR 11
PRINT "TROOPER PRO: VERY CHEAP TO BUY AND SEND, RELATIVELY DECENT DEFENCE"
PRINT
PRINT "TROOPER CON: VERY LOW ATTACK VALUE, MUST BE FED, CANNOT TARGET AIRCRAFT"
PRINT : PRINT "TROOPER COST: 10 GOLD"
PRINT : PRINT "TROOPER ATTACK VALUE: 1"
PRINT : PRINT "TROOPER DEFEND VALUE: 2"
PRINT : PRINT "TROOPER ATTACK COST: 10 GOLD PER 1000 TROOPS"
PRINT : PRINT : COLOR 10
PRINT "TROOPS CANNOT TARGET ANY AIRCRAFT, MAKING THEM WEAK FOR USE AGAINST ENEMIES"
PRINT
PRINT "WITH ALOT OF AIRPOWER."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT19
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 ARMED 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 DEFENSE RATING."
PRINT : PRINT : COLOR 11
PRINT "HUMVEE PRO: CHEAP TO BUY AND SEND, DECENT ATTACK VALUE"
PRINT
PRINT "HUMVEE CON: VERY LOW DEFEND VALUE, CANNOT 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: 20 GOLD PER 1000 HUMVEES"
PRINT : PRINT : COLOR 10
PRINT "HUMVEES, LIKE TROOPERS, 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 TROOPS."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT20
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 PROTECT IT FROM MOST MEDIUM OR SMALL ARMS"
PRINT
PRINT "FIRE. THIS GIVES THEM A HIGH DEFEND VALUE. THEY ALSO ALSO EQUIPTED WITH MANY"
PRINT
PRINT "DIFFERENT WEAPONS, BUT THEIR PRIMARY ONE IS THEIR CANNON. THESE CANNONS 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 TO 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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT21
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 TOUGH WHEN ATTACKED. 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 ANTI 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: 100 GOLD PER 1000 JETS"
PRINT : PRINT : COLOR 10
PRINT "JETS ARE USEFUL AGAINST ENEMIES WITH ALOT OF TROOPS OR HUMVEES, AS THEY WILL"
PRINT
PRINT "NOT BE ABLE TO FIRE BACK."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT22
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 CONTAIN THOUSANDS OF LBS OF BOMBS 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 ATTACK."
PRINT : PRINT : COLOR 11
PRINT "BOMBER PRO: VERY HIGH ATTACK VALUE, CAN HIT 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 ANTI AIRCRAFT FIRE, THEIR ABILITY TO HIT ANY"
PRINT
PRINT "UNIT MAKES THEM VALUABLE IN AN ATTACK."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT23
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 "TROOPS, HUMVEES, AND TANKS, 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 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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT24
GOTO INSTRUCT23
INSTRUCT24: CLS : COLOR 11
PRINT "MISSILE BASES:": PRINT "==============": COLOR 10
PRINT "MISSILE BASES ARE ANOTHER DEFENSIVE 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 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."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT25
GOTO INSTRUCT24
INSTRUCT25: CLS : COLOR 11
PRINT "COMPUTER PLAYERS:": PRINT "=================": COLOR 10
PRINT "COMPUTER CONTROLLED NATIONS IN THIS GAME ARE SURPRISINGLY INTELLIGENT. I "
PRINT
PRINT "TRIED TO PROGRAM THEM LIKE THAT TO PRODUCE THE MOST CHALLENGING GAME I COULD."
PRINT
PRINT "THE COMP NATIONS BEHAVE JUST LIKE HUMANS WHEN IT COMES TO THEIR DAILY UPKEEP"
PRINT
PRINT "OF THEIR REALM. THEY WILL BUY FOOD FARMS WHEN THEY HAVE FOOD DEFICITS. THEY"
PRINT
PRINT "PURCHASE FACTORIES WHEN UNEMPLOYMENT GOES UP. THEY WILL BUY AND SELL FOOD AT"
PRINT
PRINT "THE FOOD MARKET. THEY WILL SEND COVERT SPYS TO OTHER NATIONS, LAUNCH BOMB"
PRINT
PRINT "ATTACKS, AND SEND MILITARY UNITS. THEY RAISE AND LOWER THEIR TAX RATE JUST AS"
PRINT
PRINT "YOU DO. THEY INVEST GOLD IN THE BANK, EARNING INTEREST IN THE PROCESS. "
PRINT : PRINT
PRINT "AS YOU CAN SEE FROM ABOVE, THESE COMPUTER CONTROLLED NATIONS ARE GOING TO BE"
PRINT
PRINT "VERY TOUGH OPPONENTS. ONE THING THAT IS TO YOUR ADVANTAGE IS THE FACT THAT"
PRINT
PRINT "THEY MUST ADHERE TO THE SAME RULES AS YOU DO. EVERY OPTION YOU PICK IN THE"
PRINT
PRINT "EDITOR AREA ALSO EFFECTS THE COMPUTER NATIONS. IF YOU SET THE FOOD PRICE AT"
PRINT
PRINT "1, THATS WHAT THE COMP PAYS. IF YOU WANT MORE INTEREST FROM THE BANK, THE COMP"
PRINT
PRINT "WILL ALSO HAVE THAT SAME ADVANTAGE. THE HARDER YOU SET THE DIFFICULTY, THE"
PRINT
PRINT "HARDER TIME THE COMPUTER REALMS WILL HAVE. IF YOU SET THE DIFFICULTY VERY"
PRINT
PRINT "HIGH, MOST (NOT ALL) OF THE COMP NATIONS WILL BE SELF DESTRUCTING."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
IF A$ = "E" THEN EXIT SUB
IF A$ = "C" THEN GOTO INSTRUCT26
GOTO INSTRUCT25
INSTRUCT26: CLS : COLOR 11
PRINT "MILITARY MORAL:": PRINT "===============": COLOR 10
PRINT "THIS IS ANOTHER STAT YOU WANT TO KEEP A GOOD EYE ON. THIS IS A BAROMETER ON"
PRINT
PRINT "HOW WELL YOUR MILITARY WILL FIGHT. A DEMORALIZED MILITARY WILL NOT FIGHT AS"
PRINT
PRINT "WELL AS ONE THAT IS VERY UPBEAT AND CONTENT. IF YOUR MILITARY MORAL GETS TOO"
PRINT
PRINT "LOW, TROOPS AND OTHER UNITS WILL DEFECT. IT IS BEST TO TRY TO KEEP MILITARY"
PRINT
PRINT "MORAL HIGH. YOUR MILITARY MORAL WILL AUTOMATICALLY RISE SLIGHTLY EVERY"
PRINT
PRINT "TURN. BUT IF YOU WANT IMMEDIATE RESULTS, THEN YOU MUST WIN SOME BATTLES."
PRINT : PRINT
PRINT "IF YOUR MILITARY MORAL SHOULD EVER DROP BELOW 100%, THERE IS A GREATER CHANCE"
PRINT
PRINT "YOUR MILITARY WILL DESERT YOU. THEREFORE, ALWAYS KEEP YOUR MILITARY MORAL AS"
PRINT
PRINT "HIGH AS POSSIBLE. IF YOUR MORAL GETS TOO LOW, YOUR MILITARY MAY EVEN ATTEMPT"
PRINT
PRINT "TO OVERTHROW YOUR RULE WITH A MILITARY COUP."
PRINT : PRINT : COLOR 7
PRINT "(C)ONTINUE (E)XIT"; : INPUT A$
'IF A$ = "E" THEN EXIT SUB
'IF A$ = "C" THEN GOTO INSTRUCT27
'GOTO INSTRUCT26
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
PURCHASE: 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": EXIT SUB
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
PRINT
PRINT "You can afford to buy"; : COLOR 11: PRINT B&; : COLOR 10: PRINT Z$
PRINT
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&
PRINT "You have"; : COLOR 11: PRINT C&; : COLOR 10: PRINT Z$; : PRINT " at the present time."
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$ <> ""
GOTO PURCHASE
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 TAXES (EN2, EN1, TX%, EN, P&, PS%, MM%, TR&)
TAXES: 'this is taxes/policies menu area
CLS : COLOR 10
PRINT "As president, you have the ability to enact certain laws and restrictons"
PRINT
PRINT "during times of war. However, each law or proclamation (except for taxes),"
PRINT
PRINT "must be approved by your congress. You can only use an option once and its"
PRINT
PRINT "effects are permnament (except for taxes, which can be changed at any time)."
PRINT : PRINT : COLOR 11
PRINT : PRINT "(D)raft"
PRINT : PRINT "(E)xit to Main Menu"
PRINT : PRINT "(M)artial Law"
PRINT : PRINT "(P)atriot Act"
PRINT : PRINT "(T)axes"
PRINT : PRINT : PRINT : COLOR 10
PRINT "What is your choice?"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
SELECT CASE A$
CASE "T": GOTO TAX1
CASE "E": EXIT SUB
CASE "D": GOTO DRAFT
CASE "M": GOTO MARTIALLAW
CASE "P": GOTO PATRIOTACT
END SELECT
GOTO TAXES
PATRIOTACT: 'this is the patriot act area
IF EN2 = 5 THEN GOTO NOPATRIOTACT
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$ <> ""
GOTO TAXES
NOPATRIOTACT: PRINT
COLOR 12: PRINT "The Patriot Act is already in effect!"
COLOR 10: PRINT
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
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": 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 GOTO NODRAFT
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
NODRAFT: 'this is when draft is already in effect
PRINT : COLOR 12
PRINT "You have already used the Draft!! You cant use it more than once!!"
COLOR 10: PRINT
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO TAXES
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$ <> ""
GOTO TAXES
NOMARTIALLAW: COLOR 12: PRINT
PRINT "You have already enacted Martial Law!! The people are already prisoners!"
COLOR 7: PRINT
PRINT "Press a key"
DO: A$ = UCASE$(INKEY$)
LOOP UNTIL A$ <> ""
GOTO TAXES
MARTIALLAW: 'this is martial law description
IF EN1 = 1 THEN GOTO NOMARTIALLAW
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$ <> ""
GOTO TAXES
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
havent had much time to update the game since the last time i posted an update. i have seperated the program into smaller modules capable of being compiled and finished redoing all the text to the proper case. game is coming along, but slower than i expected. still shooting for a late spring final release.
As programs get bigger, the time it takes to make progress goes up exponentially. Try to comment enough of your code and use well documented sub-routines. That helps cut down on debugging time as the program grows.
I think QBasic provides some memory space just for comments. If I remember correctly, you can comment up to about 1/4 of the total code but I wouldn't quote me on that. It has been quite a few years since I looked up if comments would unduely chew up memory in my programs.
well, work has picked up the last month, so i havent had as much time to doodle with the game as i would have liked. my self imposed deadline of end of spring (june 19th) is fast approaching and i dont think i will have it completed at that time. ive had so many complications working on this thing from not enough space, bad commands, redoing the entire text twice, and restructuring the entire game into seperate mods, numerous bugs and flaws with my equations within the program, and hours of testing the crap out of it.
despite all these drawbacks and detours, i am actually starting to become proud of all the work i have put into it. i have kept my original version of this game in a seperate dir and its amazing to see how much the game has grown, changed, and evolved from that time. this game is coming closer to the vision i had of it when i first started this voyage. i dont even care if anyone else likes the game (well, thats sort of a lie), but i got alot of satisfaction knowing that my game is progressing, and my knowledge of QB is also growing (much because of the help of Don, Pete, Clippy, and others)
i havent really added much since the last update. i did add 2 new options (support terrorism and food rationing) and finally finished redoing all the text (apparently i forgot to do the instructions into proper text). i also have 2 mods 100% completed and compiled already. i did leave some extra room in each mod in case of future expans.
any comments would be great. even greater would be some of you guys testing it out for me (i know, its a text based game). thanks again everyone