'* ******* ******* **** **** ***** ***** ***** **** ****
'* * * * * * * * * * * * * *
'* * * * * * * * * * * **** *
'* * * * * **** **** * * * * ** ****
'* * * * * * * * * * * * * *
'* * * * * * * * * * * * * *
'* ******* ******* **** **** ***** * ***** * * ****
'declaring values
'note - af stands for Air Force
LET money = 25000
LET sectorsOwned = 1
LET armyMembs = 500
LET navyMembs = 400
LET afMembs = 0
LET armyGuns = 0
LET armyammo = 0
LET navyGuns = 0
LET navyammo = 0
LET afMissiles = 0
LET afGuns = 0
LET afgunammo = 0
LET bombs = 0
LET soundswitch = 1
CLS
PRINT "100 SECTORS"
PRINT
PRINT "Created by Joe Tannenbaum"
PRINT
PRINT "Read manual for rules"
PRINT
PRINT "Loading user interface...Complete"
PRINT "Beginning game...........Complete"
PRINT
'asking for the name of the country
INPUT "Name your country: ", name$
PRINT
'options
mainmenu:
CLS
PRINT
PRINT
PRINT "OPTIONS"
PRINT "Choice Option"
PRINT
PRINT "1 View stats"
PRINT "2 Build weapons"
PRINT "3 Make veicles"
PRINT "4 Estabish communities"
PRINT "5 Recruit military"
PRINT "6 Establish trading posts"
PRINT "7 Attack surrounding countries"
PRINT "8 Instructions"
PRINT "9 Options"
'asking for choice
INPUT "Enter choice number: ", choice
'IF STATEMENTS FOR CHOICES
'if for "View Status"
IF choice = 1 THEN
PRINT
PRINT
PRINT name$; ":"
PRINT
PRINT "Money:"; money; "Megabytes"
PRINT "Sectors:"; sectorsOwned
PRINT "Army:"; armyMembs; "People"
PRINT "Army guns:"; armyGuns; "guns"
PRINT "Navy:"; navyMembs; "People"
PRINT "Navy guns:"; navyGuns; "guns"
PRINT "Air Force:"; afMembs; "People"
PRINT "Bombs:"; bombs
PRINT "Missiles:"; afMissiles
PRINT
PRINT
INPUT "Enter anything to go back to main menu...", returnkey$
GOTO mainmenu
END IF
'if for building weapons
IF choice = 2 THEN
WeaponShop:
CLS
PRINT "WEAPONS"
PRINT
PRINT "Money:"; money; "MB"
PRINT
PRINT "0 --- Go to main menu ---------------- /////// "
PRINT "1 --- 100 Army Guns ------------------ 1000 MB "
PRINT "2 --- 100 Navy Guns ------------------ 900 MB "
PRINT "3 --- 100 Air Force Missiles --------- 5000 MB "
PRINT "4 --- Army ammo for 100 guns --------- 100 MB "
PRINT "5 --- Navy ammo for 100 guns --------- 95 MB "
PRINT "6 --- 200 Army Guns ------------------ 1800 MB "
PRINT "7 --- 200 Navy Guns ------------------ 1500 MB "
PRINT "8 --- 200 Air Force Machine Guns ----- 2000 MB "
PRINT "9 --- Ammo for 200 Air Force Guns ---- 200 MB "
PRINT "10 -- 1 Bomb ------------------------- 100 MB "
PRINT "11 -- 20 Bombs ----------------------- 1500 MB "
PRINT "12 -- 50 Bombs ----------------------- 3500 MB "
PRINT
INPUT "Enter Choice: ", wepchoice
'IF STATEMENTS FOR WEAPON PURCAHSES
'if statment for going back to main menu
IF wepchoice = 0 THEN
GOTO mainmenu
END IF
'if statement for 100 army guns
IF wepchoice = 1 THEN
IF (money - 1000) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 1000) > 0 THEN
LET money = money - 1000
LET armyGuns = armyGuns + 100
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 100 navy guns
IF wepchoice = 2 THEN
IF (money - 900) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 900) > 0 THEN
LET money = money - 900
LET navyGuns = navyGuns + 100
IF soundswitch = 1 THEN
PLAY "L6FL6DL6A"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 100 navy guns
IF wepchoice = 2 THEN
IF (money - 900) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 900) > 0 THEN
LET money = money - 900
LET navyGuns = navyGuns + 100
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 100 Air Force missiles
IF wepchoice = 3 THEN
IF (money - 5000) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 5000) > 0 THEN
LET money = money - 5000
LET afMissiles = afMissiles + 100
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 100 army gun ammo
IF wepchoice = 4 THEN
IF (money - 100) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 100) > 0 THEN
LET money = money - 100
LET armyammo = armyammo + 100
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 100 navy gun ammo
IF wepchoice = 5 THEN
IF (money - 90) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 90) > 0 THEN
LET money = money - 90
LET navyammo = navyammo + 100
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 200 army guns
IF wepchoice = 6 THEN
IF (money - 1800) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 1800) > 0 THEN
LET money = money - 1800
LET armyGuns = armyGuns + 200
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
'if statement for 200 navy guns
IF wepchoice = 6 THEN
IF (money - 1500) < 1 THEN
INPUT "You don't have enough money! Enter anthing to continue...", returnkey2$
GOTO WeaponShop
END IF
IF (money - 1500) > 0 THEN
LET money = money - 1500
LET navyGuns = navyGuns + 200
IF soundswitch = 1 THEN
PLAY "FDA"
END IF
INPUT "Weapons added, enter anything to continue...", returnkey3$
GOTO WeaponShop
END IF
END IF
END IF