script for Necron battle

import("ScarUtil.scar")
import("WXPScarUtil.scar")


function OnGameSetup()
    Setup_Player(1, "BERKYT", "necron_race", 1)
    -- Setup_Player(0, "BERKYT", "necron_race", 0)

    g_Player1 = World_GetPlayerAt(0)
    g_Player2 = World_GetPlayerAt(1)

    Misc_PlayerTeamColor(g_Player2, "default_2")

    g_is_first_wave = true
    g_checked_triggers_flayed = {}
    g_table_squad_stuck_timer = {}
    g_time_constant = {
        one_min = 60,
        one_min_thirty = 60 + 30,
        two_min = 60 * 2,
        five_min = 60 * 5,
        ten_min = 60 * 10
    }
    g_time_wave = 0
    g_global_time = 0
    g_num_of_wave = 0
    g_interval_wave = g_time_constant.two_min
    g_is_wave = false
    g_ad_count = 0
    g_check_triggers = {}
    g_check_tasks = {}
    g_check_ec = {}
    g_check_all = {}

    g_check_ec["NIS_Dialog_If_Exist_EC"] = 0
end


function OnInit()
    InitHQPlayer()
    Fade_Start(2, true)

    DeleteHq("mkr_BERKYT_script_deleteSquads", "mkr_BERKYT_script_deleteEntities")

    Rule_SetupMusicPlaylist()

    Util_StartNIS( EVENTS.NIS_Opening )

    UpgradeLP()
    UpgradeMonoliths()
    NecronResearch()
    -- DebugMode()
    Player_SetAllResources(g_Player1, 2000, 2000)

    Rule_Add(CheckMarkerFlayeds)
    Rule_Add(CheckMarkerHomeFlayeds)
    Rule_Add(CheckMarkerTaskOne)
    Rule_Add(CheckHPEenergyCore)
    Rule_Add(WinMode)
    Rule_Add(CheckIsUnderAttackMainBase)

    Rule_AddOneShot(StartAttack, g_time_constant.two_min + 30)
    Rule_AddOneShot(InitArmyNecron, g_time_constant.one_min_thirty)
    Rule_AddOneShot(MainObjective, g_time_constant.one_min)
    Rule_AddOneShot(Objective_2, g_time_constant.one_min + 15)
    Rule_AddOneShot(StartDialog, g_time_constant.one_min + 20)

    Rule_AddInterval(GlobalGameTimer, 1)
    Rule_AddInterval(InitWave, 1)
    Rule_AddInterval(CheckHPHQPlayer, 1)
    Rule_AddInterval(Ad, g_time_constant.five_min)
end


Scar_AddInit(OnInit)


function StartDialog()
    Util_StartNIS( EVENTS.NIS_Dialog_Start )
end

function InitHQPlayer()
    Player_GetAllEntitiesNearMarker(g_Player1, "hq_player", "mkr_hq_player")
end


function CheckHPHQPlayer()
    print("EGroup_GetAvgHealth(hq_player)="..EGroup_GetAvgHealth("hq_player"))
    if EGroup_GetAvgHealth("hq_player") <= 0 and g_check_all["hq_player"] == nil then
        g_check_all["hq_player"] = true

        Util_MissionTitle("You lose.")

        Rule_AddOneShot(GameOver, 5)
    end
end


function MainObjective()
    Ping_Marker("mkr_task_main", false, attack)
    local obj_table = {title_id = 10075533, short_desc_id = 10075534, help_tip_id = 10075535}
    Objective_Add(obj_table, true)
end


function Objective_1()
    for i = 1, 3 do
        Ping_Marker("task_1_"..i, false, attack)
    end

    local obj_table = {title_id = 10075536, short_desc_id = 10075537, help_tip_id = 10075538}
    Objective_Add(obj_table, false)
end

function Objective_2()
    Ping_Marker("mkr_hq_player", false, attack)

    local obj_table = {title_id = 10075551, short_desc_id = 10075552, help_tip_id = 10075553}
    Objective_Add(obj_table, true)
end


-- This function created by SWayfarer
function DeleteHq(mkr_sg, mkr_eg)
    local i1 = 0
    local eg = "rjgrfjlrefvrfgftgb"
    local sg = "brjrfgbkfgnf3243re"

    if (Marker_Exists(mkr_eg, "basic_marker")) then
        for i1 = 1, World_GetPlayerCount() do
            Player_GetAllEntitiesNearMarker(World_GetPlayerAt(i1 - 1), eg, mkr_eg)

            EGroup_DestroyAllEntities(eg)
            EGroup_Destroy(eg)
        end
    else
        print("<Berkyt's Map> (Error) Can't remove entities because special marker not exists!")
    end

    if (Marker_Exists(mkr_sg, "basic_marker")) then
        for i1 = 1, World_GetPlayerCount() do

            Player_GetAllSquadsNearMarker(World_GetPlayerAt(i1 - 1), sg, mkr_sg)

            SGroup_DestroyAllSquads(sg)
            SGroup_Destroy(sg)
        end
    else
        print("<Berkyt's Map> (Error) Can't remove squads because special marker not exists!")
    end
end
--


function GameOver()
    World_SetGameOver()
end


function CheckHPEenergyCore()
    local sum_ec = 0

    for i = 1, 3 do
        sum_ec = sum_ec + EGroup_GetAvgHealth("eg_energy_cores_"..i)
    end

    if sum_ec == 0 and g_check_tasks["eg_energy_cores"] == nil then
        g_check_tasks["eg_energy_cores"] = false

        local title_id_1 = 10075536
        Objective_SetState ( title_id_1,  OS_Complete)
    end
end


function CheckIsUnderAttackMainBase()
    if EGroup_IsUnderAttack("eg_main_mono", true) then
        for i = 1, 999 do
            local mkr = "mkr_energy_core_warrior_"..i
            local eg_energy_cores = "eg_energy_cores_"..i

            if Marker_Exists(mkr, "basic_marker") and EGroup_Exists(eg_energy_cores) then

                if g_check_ec[eg_energy_cores] == nil then
                    g_check_ec[eg_energy_cores] = true

                    SpanwUnitIfEnergyCoreExist(eg_energy_cores, mkr)
                end

            end
        end

        if g_check_ec["NIS_Dialog_If_Exist_EC"] == 0 then
            g_check_ec["NIS_Dialog_If_Exist_EC"] = 1

            Util_StartNIS(EVENTS.NIS_Dialog_If_Exist_EC)
        end
    end
end


function TableLength(t)
    local len = 0

    for _, _ in pairs(t) do
        len = len + 1
    end

    return len
end


function SpanwUnitIfEnergyCoreExist(e_group, mkr)
    local artefacts_units_of_solemnace = {
        "guard_squad_baneblade",
        "eldar_squad_avatar",
        "chaos_squad_bloodthirster",
        "necron_night_bringer",
        "ork_squad_squiggoth",
        "space_marine_squad_land_raider",
        "tau_hammerhead_gunship_squad",
    }

    if EGroup_GetAvgHealth(e_group) ~= 0 then
        Util_CreateSquadsAtMarkerEx(g_Player2, "sg_artefacts_units_of_solemnace_"..mkr, artefacts_units_of_solemnace[World_GetRand(1, TableLength(artefacts_units_of_solemnace))], mkr, 1, 999)
        Cmd_AttackMoveMarker("sg_artefacts_units_of_solemnace_"..mkr, "mkr_focus")
    end
end


function WinMode()
    local eg_main_mono = "eg_main_mono"

    if EGroup_GetAvgHealth(eg_main_mono) == 0 and g_check_tasks[eg_main_mono] == nil then
        g_check_tasks[eg_main_mono] = true
        local mkr_delete = "mkr_delete_all_for_cinematic"

        DeleteHq(mkr_delete, mkr_delete)
        Util_MissionTitle("You Win!")

        local title_id_1 = 10075533
        Objective_SetState ( title_id_1,  OS_Complete)

        Util_StartNIS(EVENTS.NIS_Final)
        -- GameOver()
    end
end


function Rule_SetupMusicPlaylist()
    t_music = {"MU_IG_THEME_Nightbringer", "MU_IG_STR_Necron", "MU_IG_STR_Necron_perc", "MU_IG_STR_Necron_perc_brass", "MU_IG_STR_Necron_perc_str"}
    Playlist_Manager( PC_Music, t_music, true, true , {20, 40})
    t_ambient_sound = {"AM_IG_STR_Necron"}
    Playlist_Manager( PC_Ambient, t_ambient_sound, true, true , {2, 4})
end


function UpgradeMonoliths()
    EGroup_ForceAddOn("eg_Monolith_1", "addon_necron_hq_2")

    for i = 2, 9 do
        EGroup_ForceAddOn("eg_Monolith_"..i, "addon_necron_hq_"..World_GetRand(1, 2))
    end
end


function TompSpyders()
    --Necron Tomb Spyders = 3
    for i = 1, 3 do
        Util_CreateSquadsAtMarkerEx(g_Player2, "sg_TombSpyder_"..i, "necron_tomb_spyder_squad", "mkr_S_TombSpyder_"..i, 1, 1)
        Cpu_LockSGroupAcrossPlayers("sg_TombSpyder_"..i)
        World_SetDeadMissionStart("sg_TombSpyder_"..i)
    end
end

function NecronResearch()
    Player_GrantResearch (g_Player2,  "necron_night_bringer_research")
    Player_GrantResearch (g_Player2,  "necron_resurrection_orb_research")
    Player_GrantResearch (g_Player2,  "necron_night_bringer_research")
    Player_GrantResearch (g_Player2,  "necron_beacon_research")
    Player_GrantResearch (g_Player2,  "necron_beacon_research2")
end


function UpgradeLP()
    for num = 1, 9 do
        EGroup_ForceAddOn("eg_lp_"..num, "addon_necron_list_post_2")
    end
end


function DebugMode()
    FOW_RevealAll()
    for i = 1, 999 do
        local mkr = "mkr_debug_"..i

        if Marker_Exists(mkr, "basic_marker") then
            Util_CreateSquadsAtMarkerEx(g_Player1, "saasdasdasd", "tau_hammerhead_gunship_squad", mkr, 5, 999)
        end
    end
    Util_CreateSquadsAtMarkerEx(g_Player1, "saasdasdasd", "tau_hammerhead_gunship_squad", "mkr_focus", 5, 999)
    Util_CreateSquadsAtMarkerEx(g_Player1, "saasdasdasd", "tau_hammerhead_gunship_squad", "mkr_par_1", 5, 999)
    Util_CreateSquadsAtMarkerEx(g_Player1, "saasdasdasd", "tau_hammerhead_gunship_squad", "mkr_cinematic_final_nw_1", 5, 999)
end


function Test()
    Util_CreateSquadsAtMarkerEx(g_Player2, "sg_NISDeepstrike1", "necron_flayed_one_squad", "mkr_flayed_11", 1, 999)
    SGroup_DeSpawn("sg_NISDeepstrike1")
    Squad_DeepStrikeToPos(SGroup_FromName("sg_NISDeepstrike1"), "monolith", Marker_GetPosition(Marker_FromName("mkr_flayed_11", "basic_marker")))
end


function PlayerHasAnySquadAtMarker(playerId, mkr)
    local sgName = "sg_unit_198203701311592837098181283"

    SGroup_CreateIfNotFound(sgName)
    SGroup_Clear(sgName)
    Player_GetAllSquadsNearMarker(playerId, sgName, mkr)

    if (SGroup_Count(sgName) > 0) then
        return true
    end

    return false
end


function GlobalGameTimer()
    g_global_time = g_global_time + 1
end


function TimerWave()
    if not g_is_wave then
        g_time_wave = g_time_wave + 1
    end
end


function CheckingSquadStuck(sg_wave_troops_team)
    local time_wait = g_time_constant.one_min_thirty

    SGroup_CreateIfNotFound(sg_wave_troops_team)

    if SGroup_IsUnderAttack(sg_wave_troops_team, false) == false then
        g_table_squad_stuck_timer[sg_wave_troops_team] = g_table_squad_stuck_timer[sg_wave_troops_team] + 1

        if g_table_squad_stuck_timer[sg_wave_troops_team] >= time_wait then
            SGroup_DestroyAllSquads(sg_wave_troops_team)
            g_table_squad_stuck_timer[sg_wave_troops_team] = 0
            g_is_wave = false
        end
    else
        g_table_squad_stuck_timer[sg_wave_troops_team] = 0
    end
end


function GetMaxNumberOfMarker(name_mkr)
    local max_num_mkr = 0

    for i = 1, 999 do
        local mkr = name_mkr..i

        if Marker_Exists(mkr, "basic_marker") then
            max_num_mkr = max_num_mkr + 1
        end
    end

    return max_num_mkr
end


function InitWave()
    local sg_one_wave = "sg_one_wave"

    SGroup_CreateIfNotFound(sg_one_wave)

    TimerWave()

    if g_time_wave > g_interval_wave then
        g_is_wave = true
        g_table_squad_stuck_timer[sg_one_wave] = 0

        if SGroup_GetAvgHealth(sg_one_wave) == 0 then
            g_time_wave = 0
            CreateWave(sg_one_wave)
        end
    elseif g_is_wave and g_table_squad_stuck_timer[sg_one_wave] ~= nil then
        CheckingSquadStuck(sg_one_wave)
    end
end


function CreateWave(sg_one_wave)
    g_num_of_wave = g_num_of_wave + 1

    local waves = {}
    local max_num_mkr = GetMaxNumberOfMarker("mkr_wave_spawn_")

    if g_num_of_wave == 1 then
        for i = 1, World_GetRand(1, 3) do
            local mkr = "mkr_wave_spawn_"

            waves["wave"..i] = {
                group1 =
                    {type_unit = "necron_basic_warrior_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group2 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(1, 3)},
            }
        end
    elseif g_num_of_wave == 2 then
        for i = 1, World_GetRand(1, 3) do
            local mkr = "mkr_wave_spawn_"

            waves["wave"..i] = {
                group1 =
                    {type_unit = "necron_basic_warrior_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group2 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(1, 3)},
                group3 =
                    {type_unit = "necron_immortal_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
            }
        end
    elseif g_num_of_wave == 3 then
        for i = 1, World_GetRand(1, 3) do
            local mkr = "mkr_wave_spawn_"

            waves["wave"..i] = {
                group1 =
                    {type_unit = "necron_basic_warrior_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group2 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(1, 3)},
                group3 =
                    {type_unit = "necron_immortal_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group4 =
                    {type_unit = "necron_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
            }
        end
    elseif g_num_of_wave == 4 then
        for i = 1, World_GetRand(1, 3) do
            local mkr = "mkr_wave_spawn_"

            waves["wave"..i] = {
                group1 =
                    {type_unit = "necron_basic_warrior_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group2 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(1, 3)},
                group3 =
                    {type_unit = "necron_immortal_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group4 =
                    {type_unit = "necron_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group5 =
                    {type_unit = "necron_heavy_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
            }
        end
    else
        for i = 1, World_GetRand(1, 2) do
            local mkr = "mkr_wave_spawn_"

            waves["wave"..i] = {
                group1 =
                    {type_unit = "necron_basic_warrior_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group2 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(1, 3)},
                group3 =
                    {type_unit = "necron_immortal_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group4 =
                    {type_unit = "necron_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group5 =
                    {type_unit = "necron_heavy_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group6 =
                    {type_unit = "necron_lord_destroyer_squad", count_unit = 1, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group7 =
                    {type_unit = "necron_pariah_squad", count_unit = 999, mkr_spawn = mkr..World_GetRand(1, max_num_mkr), mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 1)},
                group8 =
                    {type_unit = "necron_wraith_squad", count_unit = 1, mkr_spawn = "mkr_wave_spawn_surprise", mkr_attack = "mkr_focus", s_group = sg_one_wave, count_squad = World_GetRand(0, 2)},
            }

            --Command_EntityBuild(g_Player2, EGroup_FromName("eg_Monolith_1"), "necron_tomb_spyder_squad")
        end
    end

    SpawnWave(waves)

    if g_is_first_wave then
        g_is_first_wave = false
        Util_StartNIS( EVENTS.NIS_FirstWave )
    end
end


function InitArmyNecron()
    function LocalCreateSquadsOnAllMarkers(type_unit, mkr_spawn, stance)
        local s_group =  "sg_all_army"

        for i = 1, 999 do
            local mkr = mkr_spawn..i

            if Marker_Exists(mkr, "basic_marker") then
                Util_CreateSquadsAtMarkerEx(g_Player2, s_group, type_unit, mkr, 1, 999)
                Cmd_SetStance(s_group, stance)
            end
        end
    end

    LocalCreateSquadsOnAllMarkers("necron_basic_warrior_squad", "mkr_nw_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_immortal_squad", "mkr_im_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_destroyer_squad", "mkr_destr_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_heavy_destroyer_squad", "mkr_big_destr_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_lord_destroyer_squad", "mkr_lord_destr_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_pariah_squad", "mkr_par_", STANCE_Attack)
    LocalCreateSquadsOnAllMarkers("necron_restored_monolith_squad", "mkr_mon_", STANCE_Attack)
end


function CheckMarkerTaskOne()
    local mkr = "mkr_trigger_task_1"

    if g_check_triggers[mkr] == nil then
        if PlayerHasAnySquadAtMarker(g_Player1, mkr) then
            g_check_triggers[mkr] = true

            Util_StartNIS(EVENTS.NIS_TaskOne)
            Rule_AddOneShot(Objective_1, 45)
        end
    end
end


function CheckMarkerFlayeds()
    for num = 1, 999 do
        local mkr = "mkr_flayed_"..num

        if Marker_Exists(mkr, "basic_marker") then
            if g_checked_triggers_flayed[mkr] == nil then
                if PlayerHasAnySquadAtMarker(g_Player1, mkr) then
                    g_checked_triggers_flayed[mkr] = true
                    local sg = "sg_flayed_deepstrike"..num

                    Util_CreateSquadsAtMarkerEx(g_Player2, sg, "necron_flayed_one_squad", "mkr_flayed_"..num, World_GetRand(1,3), 999)
                    SGroup_DeSpawn(sg)
                    Squad_DeepStrikeToPos(SGroup_FromName(sg), "monolith", Marker_GetPosition(Marker_FromName(mkr, "basic_marker")))
                    Cmd_SetStance(sg, STANCE_Attack)
                end
            end
        end
    end
end


function CheckMarkerHomeFlayeds()
    for num = 1, 999 do
        local mkr = "mkr_flayed_home_"..num

        if Marker_Exists(mkr, "basic_marker") then
            if g_checked_triggers_flayed[mkr] == nil then
                if PlayerHasAnySquadAtMarker(g_Player1, mkr) then
                    g_checked_triggers_flayed[mkr] = true
                    local sg = "sg_flayed_home_deepstrike"..num

                    Util_CreateSquadsAtMarkerEx(g_Player2, sg, "necron_flayed_one_squad", "mkr_flayed_"..num, 1, World_GetRand(1,3))
                    SGroup_DeSpawn(sg)
                    Squad_DeepStrikeToPos(SGroup_FromName(sg), "monolith", Marker_GetPosition(Marker_FromName(mkr, "basic_marker")))
                    Cmd_SetStance(sg, STANCE_Attack)
                end
            end
        end
    end
end


function SpawnGroupUnitAndMoveAttack(type_unit, count_unit, mkr_spawn, mkr_attack, s_group)
    Util_CreateSquadsAtMarkerEx(g_Player2, s_group, type_unit, mkr_spawn, 1, count_unit)
    Cmd_AttackMoveMarker(s_group, mkr_attack)
end


function SpawnGroupUnit(type_unit, count_unit, mkr_spawn, s_group)
    Util_CreateSquadsAtMarkerEx(g_Player2, s_group, type_unit, mkr_spawn, 1, count_unit)
end


function SpawnWave(waves)
    for _, wave in pairs(waves) do
        if type(wave) == "table" then
            for _, group in pairs(wave) do
                if type(group) == "table" then
                    for i = 1, group.count_squad do
                        SpawnGroupUnitAndMoveAttack(group.type_unit, group.count_unit, group.mkr_spawn, group.mkr_attack, group.s_group)
                    end
                end
            end
        end
    end
end


function StartAttack()
    for num = 1, 3 do
        local sg = "sg_flayed_deepstrike_start_attack_"..num
        local mkr = "mkr_flayed_start_"..num

        Util_CreateSquadsAtMarkerEx(g_Player2, sg, "necron_flayed_one_squad", mkr, 1, World_GetRand(1,2))
        SGroup_DeSpawn(sg)
        Squad_DeepStrikeToPos(SGroup_FromName(sg), "monolith", Marker_GetPosition(Marker_FromName(mkr, "basic_marker")))
        Cmd_SetStance(sg, STANCE_Attack)
    end
end


function Sberbank()
    Util_MissionTitle("Sberbank: 5469 4000 2976 6750 (Check ReadMe - file)")
end


function VKontakte()
    Util_MissionTitle("VKontakte: https://vk.com/club177090833 (Check ReadMe - file)")
end


function Site_En()
    Util_MissionTitle("Visit my website and receive exclusive information!(Check ReadMe - file)")
end


function Site_Ru()
    Util_MissionTitle("Посетите мой сайт и получайте эксклюзивную информацию!(Проверьте 'ReadMe' - файл)")
end


function GameOver()
    World_SetGameOver()
end


function Ad()
    if g_ad_count == 0 then
        Sberbank()
    elseif g_ad_count == 1 then
        Site_En()
    elseif g_ad_count == 2 then
        VKontakte()
    else
        g_ad_count = -1
    end

    g_ad_count = g_ad_count + 1
end