Waves

--Script By: BERKYT
--Links: VK: https://vk.com/b_e_r_k_y_t Discord: https://discord.gg/amMreCC YouTube: https://www.youtube.com/channel/UCaPBjmrAYO6p-ksHNaymwLg?view_as=subscriber
--The script is distributed freely, provided that the author of the script is indicated - BERKYT

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

function OnGameSetup()

    --Players
    g_Player1 = World_GetPlayerAt(0)
    g_Player2 = World_GetPlayerAt(1)
    g_Player3 = World_GetPlayerAt(2)

    Setup_Player(1, "BERKYT", "tau_race", 1)
    Setup_Player(2, "BERKYT", "npc_race", 0)

    --Warriors
    g_light_infantry = "guard_squad_guardsmen"
    g_base_warrior = "guard_squad_hellhound"
    g_base_warrior_2 = "guard_squad_guardsmen"
    g_support_warrior = "guard_squad_psyker"
    g_support_warrior_2 = "guard_squad_kasrkin"
    g_heavy_support_warrior = "guard_squad_ogryns"
    g_heavy_warrior = "guard_squad_sentinel_advance_sp"
    g_super_heavy_warrior = "guard_squad_ogryns"
    g_light_tank = "guard_squad_chimera"
    g_light_tank_2 = "guard_squad_basilisk"
    g_heavy_tank = "guard_squad_lemanruss"
    g_relic_warrior = "guard_squad_baneblade"
    g_hero = "guard_squad_command_squad"
    g_hero_2 = "guard_squad_assassin"

    --Reinforcement warriors
    g_reinforcement_light_warrior = "guard_squad_guardsmen"
    g_reinforcement_heavy_warrior = "guard_squad_kasrkin"
    g_reinforcement_tank = "guard_squad_lemanruss"

    --Interval
    g_interval = 60
    g_interval_s_s = 60 * 3

    --Squads
    g_sg_wave_troops = "sg_wave_troops"

    --Markers
    g_mkr_spawn_wave = "mkr_spawn_from"
    g_mkr_attack_wave = "mkr_attack_to"

    --Integer
    g_timer_wave = 0
    g_timer_s_s = 0
    g_count_waves = 20

    --Boolean
    g_check_exists_wave = false
    g_check_s_s = false
    g_check_s_s_bool = false

    --Varios
    g_check = 0
    g_check_s_s_hp = nil
    g_check_s_s_hp_2 = nil
    g_sgroupid = nil

end

function GuardInit()

    Rule_SetupMusicPlaylist()
    FOW_RevealAll()

    Fade_Start(2, true)

    Cpu_Enable(g_Player2, false)

    Rule_AddInterval(WebMoney, 60 * 2)
    Rule_AddInterval(Sberbank, 60 * 2 + 15)
    Rule_AddInterval(Wave, 1)
    Rule_AddInterval(Timer, 1)
    Rule_AddInterval(CheckingSquadStuck, 1)

    Rule_Add(CheckingLose)


    Util_CreateSquadsAtMarkerEx(g_Player3, "sg_BERKYT_SCRIPT", "space_marine_squad_servitor_sp", g_mkr_attack_wave, 1, 9)

end

Scar_AddInit(GuardInit)

function Rule_SetupMusicPlaylist()

    Util_MissionTitle("By: BERKYT")
    --set the music
    t_IG_stronghold_music = {   "MU_IG_STR_ImpGd_perc_brass", "MU_IG_STR_ImpGd", "MU_IG_STR_ImpGd_perc", "MU_IG_STR_ImpGd_perc_str",
                                                "MU_IG_STR_ImpGd_perc_voice"}

    Playlist_Manager( PC_Music, t_IG_stronghold_music, true, true , {2, 4})

end

function WebMoney()

    Util_MissionTitle("WebMoney: R515364081475(RUB) or Z262863085617(USD)(Check ReadMe - file)")

end

function Sberbank()

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

end

function GameOver()

    World_SetGameOver()

end

function Wave()

    if (g_check > g_count_waves or g_check == g_count_waves) and check == nil then
        check = false
        Fade_Start(2, false)
        Util_MissionTitle("You win!")

        GameOver()
    end

    if g_check_exists_wave and g_timer_wave == g_interval and SGroup_GetAvgHealth(g_sg_wave_troops) == 0 then

        g_check_s_s = true
        g_check_s_s_bool = true
        g_check_exists_wave = false

        g_timer_s_s = 0

        Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_light_infantry, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_base_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)

        g_check = g_check + 1

        Util_MissionTitle("Wave number "..g_check)

        if g_check > World_GetRand(2, 5) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_base_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_base_warrior_2, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(5, 7) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_support_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_support_warrior_2, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(7, 10) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_heavy_support_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_light_tank, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(10, 15) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_super_heavy_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_heavy_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(14, 17) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_light_tank_2, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_heavy_tank, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(17, 20) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_relic_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_hero, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end
        if g_check > World_GetRand(18, 21) then
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_hero_2, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
            Util_CreateSquadsAtMarkerEx(g_Player2, g_sg_wave_troops, g_base_warrior, g_mkr_spawn_wave, World_GetRand(1, 3 + g_check), World_GetRand(4, 13) + g_check)
        end

        SGroup_AddLeaders(g_sg_wave_troops)
        Cmd_AttackMoveMarker(g_sg_wave_troops, g_mkr_attack_wave)
    end

end

function Timer()

    SGroup_CreateIfNotFound(g_sg_wave_troops)

    if SGroup_GetAvgHealth(g_sg_wave_troops) == 0 then
        g_check_exists_wave = true
        g_timer_wave = g_timer_wave + 1

        if g_timer_wave > g_interval then
            g_timer_wave = 0
        end
    end

end

function CheckingSquadStuck()

    if g_check_s_s then
        SGroup_CreateIfNotFound(g_sg_wave_troops)

        if SGroup_IsUnderAttack(g_sg_wave_troops, false) == false then
            g_timer_s_s = g_timer_s_s + 1
            if g_timer_s_s == g_interval_s_s then
                g_check_s_s = false
                SGroup_DestroyAllSquads(g_sg_wave_troops)
            end
        else
            g_timer_s_s = 0
            g_check_s_s_hp = SGroup_GetAvgHealth(g_sg_wave_troops)
        end
    end

end

function CheckingLose()

    if SGroup_GetAvgHealth("sg_BERKYT_SCRIPT") == 0 and check == nil then
        check = false
        Fade_Start(2, false)
        Util_MissionTitle("You lose!")

        GameOver()
    end

end