Step_0.gml

try {
    // Handles most logic for main menus, audio and checks if cheats are enabled
    // TODO refactor will wait untill squads PR (#76) is merged
    if (menu == 0 && zoomed == 0 && !instance_exists(obj_ingame_menu)) {
        scr_zoom_keys();
    }
    if (double_click >= 0) {
        double_click -= 1;
    }
    if (text_bar > 0) {
        text_bar += 1;
        if ((menu == 1) && (managing > 0)) {
            obj_ini.company_title[managing] = keyboard_string;
        }
        if ((menu == 24) && (formating > 0) && (formating > 3)) {
            bat_formation[formating] = keyboard_string;
        }
    }
    if (text_bar > 60) {
        text_bar = 1;
    }
    if (bar_fix > 0) {
        bar_fix = -1;
        scr_ui_formation_bars();
    }
    // TODO change this into a constructor which is in a separated script
    if ((fest_scheduled == 0) && (fest_sid + fest_wid > 0) && (menu != 12.1)) {
        fest_sid = 0;
        fest_wid = 0;
        fest_planet = 0;
        fest_type = "";
        fest_cost = 0;
        fest_lav = 0;
        fest_locals = 0;
        fest_feature1 = 0;
        fest_feature2 = 0;
        fest_feature3 = 0;
        fest_display = 0;
        fest_repeats = 0;
        fest_honor_co = 0;
        fest_honor_id = 0;
        fest_attend = "";
    }

    if ((menu != 24) && (formating > 0)) {
        formating = 0;
    }

    if (instance_exists(obj_formation_bar) && ((menu != 24) || (formating <= 0))) {
        with(obj_formation_bar) {
            instance_destroy();
        }
        with(obj_temp8) {
            instance_destroy();
        }
        formating = 0;
    }
    // Sounds
    if (sound_in >= 0) {
        sound_in -= 1;
    }
    if ((sound_in == 0) && (sound_to != "")) {
        audio_stop_all();
        var nope = false;
        if (sound_to == "blood") {
            global.sound_playing = audio_play_sound(snd_blood, 0, true);
            audio_sound_gain(global.sound_playing, 0, 0);
            nope = false;
            if ((obj_controller.master_volume == 0) || (obj_controller.music_volume == 0)) {
                nope = true;
            }
            if (!nope) {
                audio_sound_gain(global.sound_playing, 0.2 * obj_controller.master_volume * obj_controller.music_volume, 2000);
            }
        }
        if (sound_to == "royal") {
            global.sound_playing = audio_play_sound(snd_royal, 0, true);
            audio_sound_gain(global.sound_playing, 0, 0);
            nope = false;
            if ((obj_controller.master_volume == 0) || (obj_controller.music_volume == 0)) {
                nope = true;
            }
            if (!nope) {
                audio_sound_gain(global.sound_playing, 0.25 * obj_controller.master_volume * obj_controller.music_volume, 2000);
            }
        }
    }
    // Cheat codes
    if (cheatcode != "") {
        cheatyface = 1;
    }
    if (cheatcode == "req" && global.cheat_req == 0) {
        global.cheat_req = 1;
        obj_controller.tempRequisition = obj_controller.requisition;
        obj_controller.requisition = 51234;
    } else if (cheatcode == "req" && global.cheat_req == 1) {
        global.cheat_req = 0;
        obj_controller.requisition = obj_controller.tempRequisition;
    }
    if (cheatcode == "seed" && global.cheat_gene == 0) {
        global.cheat_gene = 1;
        obj_controller.tempGene_seed = obj_controller.gene_seed;
        obj_controller.gene_seed = 9999;
    } else if (cheatcode == "seed" && global.cheat_gene == 1) {
        global.cheat_gene = 0;
        obj_controller.gene_seed = obj_controller.tempGene_seed;
    }
    if (cheatcode == "dep") {
        global.cheat_disp = 1;
        obj_controller.disposition[2] = 100;
        obj_controller.disposition[3] = 100;
        obj_controller.disposition[4] = 100;
        obj_controller.disposition[5] = 100;
        obj_controller.disposition[6] = 100;
        obj_controller.disposition[7] = 100;
        obj_controller.disposition[8] = 100;
        obj_controller.disposition[9] = 100;
        obj_controller.disposition[10] = 100;
    }
    if (cheatcode == "debug" && global.cheat_debug == 0) {
        global.cheat_debug = 1;
    } else if (cheatcode == "debug" && global.cheat_debug == 1) {
        global.cheat_debug = 0;
    }
    if (cheatcode == "test") {
        diplomacy = 10.5;
        scr_dialogue("test");
    }
    if (global.cheat_req == 1 && obj_controller.requisition != 51234) {
        obj_controller.requisition = 51234;
    }
    cheatcode = "";
    if (menu != 17.5 && instance_exists(obj_event_log)) {
        obj_event_log.help = 0;
    }
    if ((!instance_exists(obj_event_log)) && instance_exists(obj_controller)) {
        instance_activate_object(obj_event_log);
    }
    if (!instance_exists(obj_ingame_menu)) {
        play_second += 1;
        if (play_second >= 30) {
            play_second = 0;
            play_time += 1;
            window_old = window_data;
            window_data = ((((((string(window_get_x()) + "|") + string(window_get_y())) + "|") + string(window_get_width())) + "|") + string(window_get_height())) + "|";
            if (window_get_fullscreen() == 1) {
                window_old = "fullscreen";
                window_data = "fullscreen";
            }
            if (window_data != "fullscreen" && window_get_fullscreen() == 0) {
                if (window_data != window_old) {
                    ini_open("saves.ini");
                    ini_write_string("Settings", "window_data", (((((((string(window_get_x()) + "|") + string(window_get_y())) + "|") + string(window_get_width())) + "|") + string(window_get_height())) + "|"));
                    ini_close();
                }
            }
        }
    }
    // Nope // Cleans up menu
    if ((menu != 60) && instance_exists(obj_temp_build)) {
        if (obj_temp_build.isnew == 1) {
            menu = 60;
        }
        with(obj_shop) {
            instance_destroy();
        }
        with(obj_managment_panel) {
            instance_destroy();
        }
        with(obj_drop_select) {
            instance_destroy();
        }
        with(obj_star_select) {
            instance_destroy();
        }
        with(obj_fleet_select) {
            instance_destroy();
        }
    }
    // Return to star selection
    if ((menu == 0) && instance_exists(obj_temp_build)) {
        obj_controller.selecting_planet = obj_temp_build.planet;
        // Pass variables to obj_controller.temp[t]=""; here
        instance_create(obj_temp_build.x, obj_temp_build.y, obj_star_select);
        obj_star_select.loading_name = obj_controller.selected.name;
        popup = 3;
        with(obj_temp_build) {
            instance_destroy();
        }
    }
    // REMOVE
    if ((menu != 60) && instance_exists(obj_temp_build)) {
        with(obj_temp_build) {
            instance_destroy();
        }
    }

    if ((text_selected != "") && (text_selected != "none")) {
        text_bar += 1;
    }
    if (text_bar > 60) {
        text_bar = 1;
    }

    if ((obj_controller.disposition[4] <= 20) || (obj_controller.loyalty <= 33) && (demanding == 0)) {
        demanding = 1;
    }
    if ((obj_controller.disposition[4] > 20) && (obj_controller.loyalty > 33) && (demanding == 1)) {
        demanding = 0;
    }

    main_map_move_keys();

    // For testing purposes
    if (is_test_map == true) {
        with(obj_en_fleet) {
            if (owner == eFACTION.Imperium) {
                capital_number = 0;
                frigate_number = 1;
                escort_number = 2;
            }
        }
    }
    // Menu selection screens
    var freq = 150;
    if (l_options > 0) {
        l_options += 1;
    }
    if (l_options > 105) {
        l_options = 0;
    }
    if ((l_options == 0) && (floor(random(freq)) == 3)) {
        l_options = 1;
    }
    if (l_menu > 0) {
        l_menu += 1;
    }
    if (l_menu > 105) {
        l_menu = 0;
    }
    if ((l_menu == 0) && (floor(random(freq)) == 3)) {
        l_menu = 1;
    }

    if (l_manage > 0) {
        l_manage += 1;
    }
    if (l_manage > 141) {
        l_manage = 0;
    }
    if ((l_manage == 0) && (floor(random(freq)) == 3)) {
        l_manage = 1;
    }
    if (l_settings > 0) {
        l_settings += 1;
    }
    if (l_settings > 141) {
        l_settings = 0;
    }
    if ((l_settings == 0) && (floor(random(freq)) == 3)) {
        l_settings = 1;
    }

    if (l_apothecarium > 0) {
        l_apothecarium += 1;
    }
    if (l_apothecarium > 113) {
        l_apothecarium = 0;
    }
    if ((l_apothecarium == 0) && (floor(random(freq)) == 3)) {
        l_apothecarium = 1;
    }
    if (l_reclusium > 0) {
        l_reclusium += 1;
    }
    if (l_reclusium > 113) {
        l_reclusium = 0;
    }
    if ((l_reclusium == 0) && (floor(random(freq)) == 3)) {
        l_reclusium = 1;
    }
    if (l_librarium > 0) {
        l_librarium += 1;
    }
    if (l_librarium > 113) {
        l_librarium = 0;
    }
    if ((l_librarium == 0) && (floor(random(freq)) == 3)) {
        l_librarium = 1;
    }
    if (l_armoury > 0) {
        l_armoury += 1;
    }
    if (l_armoury > 113) {
        l_armoury = 0;
    }
    if ((l_armoury == 0) && (floor(random(freq)) == 3)) {
        l_armoury = 1;
    }
    if (l_recruitment > 0) {
        l_recruitment += 1;
    }
    if (l_recruitment > 113) {
        l_recruitment = 0;
    }
    if ((l_recruitment == 0) && (floor(random(freq)) == 3)) {
        l_recruitment = 1;
    }
    if (l_fleet > 0) {
        l_fleet += 1;
    }
    if (l_fleet > 113) {
        l_fleet = 0;
    }
    if ((l_fleet == 0) && (floor(random(freq)) == 3)) {
        l_fleet = 1;
    }

    if (l_diplomacy > 0) {
        l_diplomacy += 1;
    }
    if (l_diplomacy > 141) {
        l_diplomacy = 0;
    }
    if ((l_diplomacy == 0) && (floor(random(freq)) == 3)) {
        l_diplomacy = 1;
    }
    if (l_log > 0) {
        l_log += 1;
    }
    if (l_log > 141) {
        l_log = 0;
    }
    if ((l_log == 0) && (floor(random(freq)) == 3)) {
        l_log = 1;
    }
    if (l_turn > 0) {
        l_turn += 1;
    }
    if (l_turn > 141) {
        l_turn = 0;
    }
    if ((l_turn == 0) && (floor(random(freq)) == 3)) {
        l_turn = 1;
    }

    if ((new_buttons_hide == 1) && (y_slide < 43)) {
        if (y_slide < 43) {
            y_slide += 2;
        }
        if (new_buttons_frame < 24) {
            new_buttons_frame += 1;
        }
    }
    if ((new_buttons_hide == 0) && (y_slide > 0)) {
        if (y_slide > 0) {
            y_slide -= 2;
        }
        if (new_buttons_frame > 0) {
            new_buttons_frame -= 1;
        }
    }
    if ((new_buttons_hide == 1) && (y_slide < 43)) {
        if (y_slide < 43) {
            y_slide += 2;
        }
        if (new_buttons_frame < 24) {
            new_buttons_frame += 1;
        }
    }
    if ((new_buttons_hide == 0) && (y_slide > 0)) {
        if (y_slide > 0) {
            y_slide -= 2;
        }
        if (new_buttons_frame > 0) {
            new_buttons_frame -= 1;
        }
    }

    if ((new_buttons_hide + hide_banner > 0) && (new_banner_x < 161)) {
        new_banner_x += 161 / 11;
    }
    if ((new_buttons_hide + hide_banner == 0) && (new_banner_x > 0)) {
        new_banner_x -= 161 / 11;
    }

    if (y_slide < 0) {
        y_slide = 0;
    }
    if (new_banner_x < 0) {
        new_banner_x = 0;
    }
    if (y_slide > 0) {
        new_button_highlight = "";
    }
    // Checks which menu was clicked
    var high = "";
    var stop = 0;
    // Which menu is highlighted

    if ((menu == 14) && (!instance_exists(obj_shop))) {
        instance_create(0, 0, obj_shop);
    }
    if ((menu != 14) && instance_exists(obj_shop)) {
        with(obj_shop) {
            instance_destroy();
        }
    }

    if (instance_exists(obj_ingame_menu) || instance_exists(obj_saveload)) {
        exit;
    }
    // Default view
    if (menu == 1 && (managing > 0 || managing < 0)) {
        if (!view_squad) {
            var c = 0,
                fx = "";
            var xx, yy, bb = "";
            xx = __view_get(e__VW.XView, 0) + 0;
            yy = __view_get(e__VW.YView, 0) + 0;

            if (managing <= 10) {
                c = managing;
            }
            if (managing > 20) {
                c = managing - 10;
            }

            var top, sel, temp1 = "",
                temp2 = "",
                temp3 = "",
                temp4 = "",
                temp5 = "",
                force_tool = 0;
            top = man_current;
            sel = top;
            var unit = "";
            yy += 77;
        }
        if (is_struct(temp[120])) {
            var ach = 0,
                damage_res = 1,
                armour_value = 0;
            // Checks if the marine is not hidden
            var unit = temp[120];
            if (!is_array(last_unit)) {
                last_unit = [0, 0];
            }
            if ((unit.base_group != "none") && (last_unit[1] != unit.marine_number || last_unit[0] != unit.company)) {
                last_unit = [unit.company, unit.marine_number];
                marine_armour[0] = unit.armour();
                fix_right = 0;
                equip_data = unit.unit_equipment_data();
                temp[100] = "1";
                if (unit.race() != 1) {
                    temp[100] = unit.race();
                }

                damage_res = unit.damage_resistance();

                if (is_struct(equip_data.armour_data)) {
                    temp[103] = equip_data.armour_data.item_tooltip_desc_gen();
                } else {
                    temp[103] = "";
                }
                // Sets up the description for the equipement of current marine
                //temp[103]="";
                // Gear
                temp[104] = unit.gear();
                if (is_struct(equip_data.gear_data)) {
                    temp[105] = equip_data.gear_data.item_tooltip_desc_gen();
                } else {
                    temp[105] = "";
                }
                //if (string_count("&",temp[104])>0) then temp[104]=clean_tags(temp[104]);
                // Mobility Item
                temp[106] = unit.mobility_item();
                if (is_struct(equip_data.mobility_data)) {
                    temp[107] = equip_data.mobility_data.item_tooltip_desc_gen();
                } else {
                    temp[107] = "";
                }
                temp[108] = unit.weapon_one();
                if (is_struct(equip_data.weapon_one_data)) {
                    temp[109] = equip_data.weapon_one_data.item_tooltip_desc_gen();
                } else {
                    temp[109] = "";
                }
                temp[110] = unit.weapon_two();
                if (is_struct(equip_data.weapon_two_data)) {
                    temp[111] = equip_data.weapon_two_data.item_tooltip_desc_gen();
                } else {
                    temp[111] = "";
                }
                //if (string_count("&",temp[106])>0) then temp[106]=clean_tags(temp[106]);
                // Experience
                temp[113] = string(floor(unit.experience));
                // Psyker things
                temp[119] = "";
                temp[123] = "";
                var _psy_powers_known = unit.powers_known;
                var _psy_powers_count = array_length(_psy_powers_known);
                if (_psy_powers_count > 0) {
                    var _psy_discipline = unit.psy_discipline();
                    var _psy_discipline_name = get_discipline_data(_psy_discipline, "name");
                    temp[119] = $"{unit.psionic}/{_psy_powers_count}";

                    var _tooltip = "";
                    _tooltip += $"Psychic Rating: {unit.psionic}";

                    var _equipment_psychic_amplification = unit.gear_special_value("psychic_amplification");
                    var _character_psychic_amplification = unit.psychic_amplification() * 100;
                    var _equipment_psychic_focus = unit.gear_special_value("psychic_focus");
                    var _character_psychic_focus = unit.psychic_focus();
                    var _perils_chance = unit.perils_threshold() / 10;
                    _tooltip += $"\nAmplification from Equipment: {_equipment_psychic_amplification}%";
                    _tooltip += $"\nAmplification from Attributes (Psy Rating and EXP): {_character_psychic_amplification}%";

                    _tooltip += $"\n\nFocus Success Chance: {100 - unit.psychic_focus_difficulty()}%";
                    _tooltip += $"\nFocus from Equipment: {_equipment_psychic_focus}%";
                    _tooltip += $"\nFocus from Attributes (WIS and EXP): {_character_psychic_focus}%";

                    _tooltip += $"\n\nPerils of the Warp Chance: {_perils_chance}%";

                    _tooltip += $"\n\nMain Discipline: {_psy_discipline_name}";
                    _tooltip += $"\nKnown Powers: ";
                    for (var i = 0; i < _psy_powers_count; i++) {
                        _tooltip += get_power_data(_psy_powers_known[i], "name");
                        _tooltip += smart_delimeter_sign(_psy_powers_count, i, false);
                    }
                    temp[123] = _tooltip;
                }
                // Corruption
                if ((obj_controller.chaos_rating > 0) && (temp[119] != "")) {
                    temp[119] += "#" + string(max(0, unit.corruption())) + "% Corruption.";
                }
                if ((obj_controller.chaos_rating > 0) && (temp[119] == "")) {
                    temp[119] = string(max(0, unit.corruption())) + "% Corruption.";
                }
                // Melee Attack
                temp[116] = unit.melee_attack();
                // Ranged Attack
                temp[117] = unit.ranged_attack();
                // Damage Resistance
                temp[118] = string(damage_res) + "%";
                temp[130] = "Health damage taken by the marine is reduced by this percentage. This happens after the flat reduction from armor.\n\nContributing factors:\n";
                var equipment_types = ["armour", "weapon_one", "weapon_two", "mobility", "gear"];
                for (var i = 0; i < array_length(equipment_types); i++) {
                    var equipment_type = equipment_types[i];
                    var dr = 0;
                    var name = "";
                    switch (equipment_type) {
                        case "armour":
                            dr = unit.get_armour_data("damage_resistance_mod");
                            name = unit.get_armour_data("name");
                            break;
                        case "weapon_one":
                            dr = unit.get_weapon_one_data("damage_resistance_mod");
                            name = unit.get_weapon_one_data("name");
                            break;
                        case "weapon_two":
                            dr = unit.get_weapon_two_data("damage_resistance_mod");
                            name = unit.get_weapon_two_data("name");
                            break;
                        case "mobility":
                            dr = unit.get_mobility_data("damage_resistance_mod");
                            name = unit.get_mobility_data("name");
                            break;
                        case "gear":
                            dr = unit.get_gear_data("damage_resistance_mod");
                            name = unit.get_gear_data("name");
                            break;
                    }
                    if (dr != 0) {
                        temp[130] += $"{name}: {dr}%\n";
                    }
                }
                temp[130] += string("CON: {0}%\nEXP: {1}%", round(unit.constitution / 2), round(unit.experience / 10));
                if (is_struct(temp[121])) {
                    try {
                        temp[121].destroy_image();
                    }
                    delete temp[121];
                }
                temp[124] = $"{round(unit.hp())}/{round(unit.max_health())}"; // Health Tracker
                temp[125] = $"A measure how much punishment the creature can take. Marines can go into the negatives and still survive, but they'll require a bionic to become fighting fit once more.\n\nContributing factors:\nCON: {round(100 * (1 + ((unit.constitution - 40) * 0.025)))}\n";
                for (var i = 0; i < array_length(equipment_types); i++) {
                    var equipment_type = equipment_types[i];
                    var hp_mod = 0;
                    var name = "";
                    switch (equipment_type) {
                        case "armour":
                            hp_mod = unit.get_armour_data("hp_mod");
                            name = unit.get_armour_data("name");
                            break;
                        case "weapon_one":
                            hp_mod = unit.get_weapon_one_data("hp_mod");
                            name = unit.get_weapon_one_data("name");
                            break;
                        case "weapon_two":
                            hp_mod = unit.get_weapon_two_data("hp_mod");
                            name = unit.get_weapon_two_data("name");
                            break;
                        case "mobility":
                            hp_mod = unit.get_mobility_data("hp_mod");
                            name = unit.get_mobility_data("name");
                            break;
                        case "gear":
                            hp_mod = unit.get_gear_data("hp_mod");
                            name = unit.get_gear_data("name");
                            break;
                    }
                    if (hp_mod != 0) {
                        temp[125] += $"{name}: {format_number_with_sign(hp_mod)}%\n";
                    }
                }
                temp[126] = $"{unit.armour_calc()}"; // Armour Rating
                temp[127] = "Reduces incoming damage at a flat rate. Certain enemies may attack in ways that may bypass your armor entirely, for example power weapons and some warp sorceries.\n\nContributing factors:\n";
                for (var i = 0; i < array_length(equipment_types); i++) {
                    var equipment_type = equipment_types[i];
                    var ac = 0;
                    var name = "";
                    switch (equipment_type) {
                        case "armour":
                            ac = unit.get_armour_data("armour_value");
                            name = unit.get_armour_data("name");
                            break;
                        case "weapon_one":
                            ac = unit.get_weapon_one_data("armour_value");
                            name = unit.get_weapon_one_data("name");
                            break;
                        case "weapon_two":
                            ac = unit.get_weapon_two_data("armour_value");
                            name = unit.get_weapon_two_data("name");
                            break;
                        case "mobility":
                            ac = unit.get_mobility_data("armour_value");
                            name = unit.get_mobility_data("name");
                            break;
                        case "gear":
                            ac = unit.get_gear_data("armour_value");
                            name = unit.get_gear_data("name");
                            break;
                    }
                    if (ac != 0) {
                        temp[127] += $"{name}: {ac}\n";
                    }
                }
                if (obj_controller.stc_bonus[1] == 5 || obj_controller.stc_bonus[2] == 3) {
                    temp[127] += $"STC Bonus: x1.05\n";
                }
                temp[128] = $"{unit.bionics}";
                var _body_parts = ARR_body_parts;
                var _body_parts_display = ARR_body_parts_display;
                temp[129] = "Bionic Augmentation is something a unit can do to both enhance their capabilities, but also replace a missing limb to get back into the fight.";
                temp[129] += "\nThere is a limit of 10 Bionic augmentations. After that the damage is so extensive that a marine requires a dreadnought to keep going.";
                temp[129] += "\nFor everyone else? It's time for the emperor's mercy.";
                temp[129] += "\n\nCurrent Bionic Augmentations:\n";
                for (var part = 0; part < array_length(_body_parts); part++) {
                    if (struct_exists(unit.body[$ _body_parts[part]], "bionic")) {
                        var part_display = _body_parts_display[part];
                        temp[129] += $"Bionic {part_display}";
                        switch (part_display) {
                            case "Left Leg":
                            case "Right Leg":
                                temp[129] += $" (CON: +2 STR: +1 DEX: -2)\n";
                                break;
                            case "Left Eye":
                            case "Right Eye":
                                temp[129] += $" (CON: +1 WIS: +1 DEX: +1)\n";
                                break;
                            case "Left Arm":
                            case "Right Arm":
                                temp[129] += $" (CON: +2 STR: +2 WS: -1)\n";
                                break;
                            case "Torso":
                                temp[129] += $" (CON: +4 STR: +1 DEX: -1)\n";
                                break;
                            case "Throat":
                                temp[129] += $" (CHA: -1)\n";
                                break;
                            case "Jaw":
                            case "Head":
                                temp[129] += $" (CON: +1)\n";
                                break;
                        }
                    }
                }
                temp[121] = unit.draw_unit_image();

                temp[122] = unit.handle_stat_growth();
                /*if (man[sel]="vehicle"){
                // TODO
            }*/
            }
        }
    }

    if (global.load >= 0) {
        exit;
    }
    if (menu == 0) {
        otha = 0;
    }
    // Sound controls
    if ((cooldown >= 0) && (cooldown < 9000)) {
        cooldown -= 1;
    }
    if (click > 0) {
        click = -1;
        audio_play_sound(snd_click, -80, 0);
        audio_sound_gain(snd_click, 0.25 * master_volume * effect_volume, 0);
    }
    if (click2 > 0) {
        click2 = -1;
        audio_play_sound(snd_click_small, -80, 0);
        audio_sound_gain(snd_click_small, 0.25 * master_volume * effect_volume, 0);
    }
    // Return artifact
    if (qsfx == 1) {
        qsfx = 0;
        scr_quest(0, "artifact_return", 4, turn == 1);
    }
    // Diplomacy options
    if (diplomacy == 0) {
        trading_artifact = 0;
    }

    if ((trading_artifact == 0) && (trading == 0) && (trading_artifact == 0) && (faction_justmet == 1) && (questing == 0) && (trading_demand == 0) && (complex_event == false)) {
        for (var h = 1; h <= 4; h++) {
            obj_controller.diplo_option[h] = "";
            obj_controller.diplo_goto[h] = "";
        }
    }

    income = income_base + income_home + income_forge + income_agri + income_training + income_fleet + income_trade + income_tribute;

    if ((menu == 20) && ((diplomacy > 0) || ((diplomacy < -5) && (diplomacy > -6)))) {
        if (string_length(diplo_txt) < string_length(diplo_text)) {
            diplo_char += 2;
            diplo_txt = string_copy(diplo_text, 0, diplo_char);
        }
        if (diplo_alpha < 1) {
            diplo_alpha += 0.05;
        }
    }
    // Check if fleet is minimized or not
    if (instance_exists(obj_popup)) {
        if (obj_popup.type == 99) {
            fleet_minimized = 1;
        }
    }
    // Rrepair ships
    if ((menu == 0) && (repair_ships > 0) && (instance_number(obj_turn_end) == 0) && (instance_number(obj_popup) == 0)) {
        repair_ships = 0;

        var pip = instance_create(0, 0, obj_popup);
        pip.title = "Ships Repaired";
        pip.text = "In accordance with the Imperial Repair License, all " + string(obj_ini.chapter_name) + " ships orbiting friendly planets have been repaired. Note that repaired ships, and their fleets, are unable to act further this turn.";
        pip.image = "shipyard";
        pip.cooldown = 15;

        with(obj_p_fleet) {
            if ((capital_health < 100) && (capital_number > 0)) {
                acted = 2;
            }
            if ((frigate_health < 100) && (frigate_number > 0)) {
                acted = 2;
            }
            if ((escort_health < 100) && (escort_number > 0)) {
                acted = 2;
            }
        }

        var _ship_UUIDs = struct_get_names(INI_USHIPROOT);
        var _ship_count = array_length(_ship_UUIDs);
        for (var i = 0; i < _ship_count; i++) {
            var _ship_struct = fetch_ship(_ship_UUIDs[i]);
            if ((_ship_struct.location != "Warp") && (_ship_struct.location != "Lost")) {
                _ship_struct.health.hp = _ship_struct.health.maxhp;
            }
        }
        // TODO need something here to veryify that the ships are within a friendly star system
    }
    // Unloads units from a ship
    if (unload > 0) {
        cooldown = 8;
        var _ship_struct;
        if (selecting_ship != "") {
            _ship_struct = fetch_ship(selecting_ship);
        }

        var unit, company, unit_id;
        if (_ship_struct == undefined) {
            for (var q = 0; q < array_length(display_unit); q++) {
                if (ma_lid[q] != "") {
                    _ship_struct = fetch_ship(ma_lid[q]);
                    break;
                }
            }
        }

        for (var q = 0; q < array_length(display_unit); q++) {
            if ((man[q] == "man") && (ma_loc[q] == selecting_location) && (ma_wid[q] < 1) && (man_sel[q] != 0)) {
                unit = display_unit[q];
                if (!is_struct(unit)) {
                    continue;
                }
                if (unit.name() == "") {
                    continue;
                }
                unit_id = unit.marine_number;
                company = unit.company;
                obj_ini.loc[company][unit_id] = _ship_struct.location;
                unit.ship_location = "";
                unit.planet_location = unload;

                ma_loc[q] = _ship_struct.location;
                ma_lid[q] = "";
                ma_wid[q] = unload;
            } else if ((man[q] == "vehicle") && (ma_loc[q] == selecting_location) && (ma_wid[q] < 1) && (man_sel[q] != 0)) {
                var unit_id = display_unit[q][1];
                var company = display_unit[q][0];
                obj_ini.veh_loc[company][unit_id] = _ship_struct.location;
                obj_ini.veh_lid[company][unit_id] = "";
                obj_ini.veh_wid[company][unit_id] = unload;

                ma_loc[q] = _ship_struct.location;
                ma_lid[q] = "";
                ma_wid[q] = unload;
            }
        }
        selecting_location = "";
        for (var i = 0; i < array_length(display_unit); i++) {
            man_sel[i] = 0;
        }
        _ship_struct.cargo.carrying -= man_size;
        reset_ship_manage_arrays();
        cooldown = 10;
        sel_loading = -1;
        man_size = 0;
        unload = 0;
        with(obj_star_select) {
            instance_destroy();
        }
    }
    // Resets selections
    if ((managing > 0) && (man_size == 0) && ((selecting_location != "") || (selecting_types != "") || (selecting_planet != 0) || (selecting_ship != ""))) {
        selecting_location = "";
        selecting_types = "";
        selecting_planet = 0;
        selecting_ship = "";
    }

    if ((marines <= 0) && (alarm[7] == -1) && (!instance_exists(obj_fleet_controller)) && (!instance_exists(obj_ncombat))) {
        alarm[7] = 15;
    }
} catch (_exception) {
    handle_exception(_exception);
}