'*   *******     *******     ****  ****  *****  *****  ***** ****   ****
'*   *     *     *     *    *      *     *        *    *   * *  *  *
'*   *     *     *     *    *      *     *        *    *   * ****  *
'*   *     *     *     *     ****  ****  *        *    *   * **     ****
'*   *     *     *     *         * *     *        *    *   * * *        *
'*   *     *     *     *         * *     *        *    *   * *  *       *
'*   *******     *******     ****  ****  *****    *    ***** *   *  ****


'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