TaE original code

// Troll and Elves Final version (md5: 9de99fcba4b6971fbb4aaa1cb095fa4b) Original gameplay (obfuscated) JASS code:

function GI takes nothing returns boolean
    local real locReal_1 = GetDestructableX(GetFilterDestructable()) - real_12
    local real locReal_2 = GetDestructableY(GetFilterDestructable()) - real_13

    return (locReal_1 * locReal_1 + locReal_2 * locReal_2 <= bj_enumDestructableRadius)
endfunction

function HI takes rect paramRect_1 returns group
    set group_2 = CreateGroup()
    call GroupEnumUnitsInRect(group_2, paramRect_1, boolexpr_1)
    return group_2
endfunction

function JI takes real paramReal_1, location paramLocation_1, boolexpr paramBoolexpr_1 returns group
    set group_2 = CreateGroup()
    call GroupEnumUnitsInRangeOfLoc(group_2, paramLocation_1, paramReal_1, paramBoolexpr_1)
    return group_2
endfunction

function PI takes real paramReal_1, location paramLocation_1 returns group
    set group_2 = CreateGroup()
    call GroupEnumUnitsInRangeOfLoc(group_2, paramLocation_1, paramReal_1, boolexpr_1)
    return group_2
endfunction

function QI takes integer paramInteger_1 returns group
    set group_2 = CreateGroup()
    call GroupEnumUnitsOfType(group_2, UnitId2String(paramInteger_1), boolexpr_1)
    return group_2
endfunction

function TI takes player paramPlayer_1 returns group
    set group_2 = CreateGroup()
    call GroupEnumUnitsOfPlayer(group_2, paramPlayer_1, boolexpr_1)
    return group_2
endfunction

function WI takes boolexpr paramBoolexpr_1 returns force
    set force_5 = CreateForce()
    call ForceEnumPlayers(force_5, paramBoolexpr_1)
    call DestroyBoolExpr(paramBoolexpr_1)
    return force_5
endfunction

function YI takes itemtype paramItemtype_1, integer paramInteger_1 returns nothing
    local group locGroup_1

    set bj_stockPickedItemType = paramItemtype_1
    set bj_stockPickedItemLevel = paramInteger_1
    set locGroup_1 = CreateGroup()
    call GroupEnumUnitsOfType(locGroup_1, "marketplace", boolexpr_1)
    call ForGroup(locGroup_1, function UpdateEachStockBuildingEnum)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = null
endfunction

//Calls:
//    YI
function EA takes nothing returns nothing
    local integer locInteger_1
    local itemtype locItemtype_1
    local integer locInteger_2 = 0
    local integer locInteger_3 = 0
    local integer locInteger_4

    set locInteger_4 = 1
    loop
        if bj_stockAllowedPermanent[locInteger_4] then
            set locInteger_3 = locInteger_3 + 1
            if (GetRandomInt(1, locInteger_3) == 1) then
                set locItemtype_1 = ITEM_TYPE_PERMANENT
                set locInteger_2 = locInteger_4
            endif
        endif
        if bj_stockAllowedCharged[locInteger_4] then
            set locInteger_3 = locInteger_3 + 1
            if (GetRandomInt(1, locInteger_3) == 1) then
                set locItemtype_1 = ITEM_TYPE_CHARGED
                set locInteger_2 = locInteger_4
            endif
        endif
        if bj_stockAllowedArtifact[locInteger_4] then
            set locInteger_3 = locInteger_3 + 1
            if (GetRandomInt(1, locInteger_3) == 1) then
                set locItemtype_1 = ITEM_TYPE_ARTIFACT
                set locInteger_2 = locInteger_4
            endif
        endif
        set locInteger_4 = locInteger_4 + 1
        exitwhen locInteger_4 > 10
    endloop
    if (locInteger_3 == 0) then
        set locItemtype_1 = null
        return
    endif
    call YI(locItemtype_1, locInteger_2)
    set locItemtype_1 = null
endfunction

//Calls:
//    EA
//Functions as argument:
//    EA
function IA takes nothing returns nothing
    call EA()
    call TimerStart(bj_stockUpdateTimer, bj_STOCK_RESTOCK_INTERVAL, true, function EA)
endfunction

function NA takes nothing returns boolean
    return true
endfunction

function FA takes nothing returns nothing
    call SetPlayerAllianceStateBJ(GetEnumPlayer(), player_1, 3)
    call SetPlayerAllianceStateBJ(player_1, GetEnumPlayer(), 3)
endfunction

function GA takes nothing returns nothing
    call SetPlayerAllianceStateBJ(GetEnumPlayer(), player_1, 0)
    call SetPlayerAllianceStateBJ(player_1, GetEnumPlayer(), 0)
endfunction

function HA takes nothing returns nothing
    call SetPlayerAllianceStateBJ(player_1, GetEnumPlayer(), 1)
    call SetPlayerAllianceStateBJ(GetEnumPlayer(), player_1, 0)
endfunction

function JA takes nothing returns player
    call StoreInteger(gamecache_2, "missionKey", "key", GetPlayerId(GetLocalPlayer()) + 1)
    call TriggerSyncStart()
    call SyncStoredInteger(gamecache_2, "missionKey", "key")
    call TriggerSyncReady()
    return Player(GetStoredInteger(gamecache_2, "missionKey", "key") - 1)
endfunction

function KA takes player paramPlayer_1, integer paramInteger_1, unit paramUnit_1, boolean paramBoolean_1 returns nothing
    local texttag locTexttag_1 = CreateTextTag()
    local string locString_1 = "+"
    local real locReal_1 = GetUnitX(paramUnit_1)
    local real locReal_2 = GetUnitY(paramUnit_1)

    call AdjustPlayerStateBJ(paramInteger_1, paramPlayer_1, PLAYER_STATE_RESOURCE_GOLD)
    if paramInteger_1 < 0 then
        set locString_1 = ""
    endif
    call SetTextTagText(locTexttag_1, locString_1 + I2S(paramInteger_1), .025)
    call SetTextTagPos(locTexttag_1, locReal_1, locReal_2, .0)
    call SetTextTagColor(locTexttag_1, 255, 220, 0, 255)
    call SetTextTagVelocity(locTexttag_1, 0, .03)
    if IsPlayerAlly(paramPlayer_1, GetLocalPlayer()) or paramBoolean_1 then
        call SetTextTagVisibility(locTexttag_1, true)
        set locString_1 = "UI\\Feedback\\GoldCredit\\GoldCredit.mdl"
    else
        call SetTextTagVisibility(locTexttag_1, false)
        set locString_1 = ""
    endif
    if IsUnitType(paramUnit_1, UNIT_TYPE_STRUCTURE) then
        set locString_1 = ""
    endif
    call DestroyEffect(AddSpecialEffect(locString_1, locReal_1, locReal_2))
    call SetTextTagFadepoint(locTexttag_1, 2)
    call SetTextTagLifespan(locTexttag_1, 3)
    call SetTextTagPermanent(locTexttag_1, false)
endfunction

function QA takes player paramPlayer_1 returns string
    local playercolor locPlayercolor_1 = GetPlayerColor(paramPlayer_1)

    if locPlayercolor_1 == PLAYER_COLOR_RED then
        return "00FF0303"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_BLUE then
        return "000042FF"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_CYAN then
        return "001CE6B9"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_PURPLE then
        return "00540081"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_YELLOW then
        return "00FFFC01"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_ORANGE then
        return "00FE8A0E"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_GREEN then
        return "0020C000"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_PINK then
        return "00E55BB0"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_LIGHT_GRAY then
        return "00959697"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_LIGHT_BLUE then
        return "007EBFF1"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_AQUA then
        return "00106246"
    endif
    if locPlayercolor_1 == PLAYER_COLOR_BROWN then
        return "004E2A04"
    endif
    return null
endfunction

function TA takes string paramString_1 returns player
    local playercolor locPlayercolor_1 = null
    local boolean locBoolean_1 = false
    local integer locInteger_1 = -1

    set paramString_1 = StringCase(paramString_1, false)
    if paramString_1 == "red" or paramString_1 == "rouge" then
        set locPlayercolor_1 = PLAYER_COLOR_RED
        set locBoolean_1 = true
    endif
    if paramString_1 == "blue" or paramString_1 == "bleu" then
        set locPlayercolor_1 = PLAYER_COLOR_BLUE
        set locBoolean_1 = true
    endif
    if paramString_1 == "teal" or paramString_1 == "cyan" then
        set locPlayercolor_1 = PLAYER_COLOR_CYAN
        set locBoolean_1 = true
    endif
    if paramString_1 == "purple" or paramString_1 == "violet" then
        set locPlayercolor_1 = PLAYER_COLOR_PURPLE
        set locBoolean_1 = true
    endif
    if paramString_1 == "yellow" or paramString_1 == "jaune" then
        set locPlayercolor_1 = PLAYER_COLOR_YELLOW
        set locBoolean_1 = true
    endif
    if paramString_1 == "orange" or paramString_1 == "orange" then
        set locPlayercolor_1 = PLAYER_COLOR_ORANGE
        set locBoolean_1 = true
    endif
    if paramString_1 == "green" or paramString_1 == "vert" then
        set locPlayercolor_1 = PLAYER_COLOR_GREEN
        set locBoolean_1 = true
    endif
    if paramString_1 == "pink" or paramString_1 == "rose" then
        set locPlayercolor_1 = PLAYER_COLOR_PINK
        set locBoolean_1 = true
    endif
    if paramString_1 == "grey" or paramString_1 == "gris" then
        set locPlayercolor_1 = PLAYER_COLOR_LIGHT_GRAY
        set locBoolean_1 = true
    endif
    if paramString_1 == "light blue" or paramString_1 == "lightblue" or paramString_1 == "bleu clair" then
        set locPlayercolor_1 = PLAYER_COLOR_LIGHT_BLUE
        set locBoolean_1 = true
    endif
    if paramString_1 == "dark green" or paramString_1 == "darkgreen" or paramString_1 == "vert fonce" or paramString_1 == "vert fonce" then
        set locPlayercolor_1 = PLAYER_COLOR_AQUA
        set locBoolean_1 = true
    endif
    if paramString_1 == "brown" or paramString_1 == "marron" then
        set locPlayercolor_1 = PLAYER_COLOR_BROWN
        set locBoolean_1 = true
    endif
    if locBoolean_1 == false then
        set bj_forLoopAIndex = 0
        loop
            exitwhen bj_forLoopAIndex > 11
            if StringCase(GetPlayerName(Player(bj_forLoopAIndex)), false) == paramString_1 then
                set locInteger_1 = bj_forLoopAIndex
            endif
            set bj_forLoopAIndex = bj_forLoopAIndex + 1
        endloop
        if locInteger_1 == -1 then
            set locInteger_1 = S2I(paramString_1) - 1
        endif
    else
        set bj_forLoopAIndex = 0
        loop
            exitwhen bj_forLoopAIndex > 11
            if GetPlayerColor(Player(bj_forLoopAIndex)) == locPlayercolor_1 and GetPlayerSlotState(Player(bj_forLoopAIndex)) == PLAYER_SLOT_STATE_PLAYING then
                set locInteger_1 = bj_forLoopAIndex
            endif
            set bj_forLoopAIndex = bj_forLoopAIndex + 1
        endloop
    endif
    if locInteger_1 < 0 then
        return null
    endif
    if locInteger_1 > 11 then
        return null
    endif
    if GetPlayerSlotState(Player(locInteger_1)) != PLAYER_SLOT_STATE_PLAYING then
        return null
    endif
    return Player(locInteger_1)
endfunction

function ZA takes nothing returns nothing
    set integer_3 = integer_3 + 1
    loop
        exitwhen boolean_1 == false or boolean_2
        call TriggerSleepAction(real_10)
    endloop
endfunction

//Calls:
//    ZA
//    QA
function VN takes unit paramUnit_1, string paramString_1, sound paramSound_1, string paramString_2 returns boolean
    if integer_3 >= integer_2 then
        return false
    endif
    call ZA()
    if boolean_2 then
        set integer_3 = integer_3 - 1
        return false
    endif
    set boolean_1 = true
    call SetCineModeVolumeGroupsImmediateBJ()
    call DoTransmissionBasicsXYBJ(GetUnitTypeId(paramUnit_1), GetPlayerColor(GetOwningPlayer(paramUnit_1)), GetUnitX(paramUnit_1), GetUnitY(paramUnit_1), paramSound_1, "|c" + QA(GetOwningPlayer(paramUnit_1)) + paramString_1, paramString_2, GetSoundDurationBJ(paramSound_1))
    if IsUnitVisible(paramUnit_1, GetLocalPlayer()) then
        call UnitAddIndicator(paramUnit_1, bj_TRANSMISSION_IND_RED, bj_TRANSMISSION_IND_BLUE, bj_TRANSMISSION_IND_GREEN, bj_TRANSMISSION_IND_ALPHA)
    endif
    call TriggerWaitForSound(paramSound_1, 0)
    call VolumeGroupReset()
    call TriggerSleepAction(real_11)
    set integer_3 = integer_3 - 1
    set boolean_1 = false
    return true
endfunction

//Calls:
//    ZA
function IN takes nothing returns nothing
    local integer locInteger_1 = integer_2

    set integer_2 = 0
    set boolean_2 = true
    call TriggerSleepAction(real_10 + .5)
    set boolean_2 = false
    call ZA()
    set integer_3 = 0
    set integer_2 = locInteger_1
endfunction

function NN takes nothing returns boolean
    local integer locInteger_1 = GetUnitTypeId(GetFilterUnit())

    if IsUnitDeadBJ(GetFilterUnit()) then
        return false
    endif
    if locInteger_1 == 'u000' then
        return true
    endif
    return false
endfunction

//Calls:
//    JI
//Functions as argument:
//    NN
function CN takes unit paramUnit_1 returns unit
    local location locLocation_1 = GetUnitLoc(paramUnit_1)
    local group locGroup_1 = JI(real_4, locLocation_1, Condition(function NN))
    local unit locUnit_1 = GroupPickRandomUnit(locGroup_1)

    call RemoveLocation(locLocation_1)
    call DestroyGroup(locGroup_1)
    set locLocation_1 = null
    set locGroup_1 = null
    return locUnit_1
endfunction

function GN takes nothing returns boolean
    local integer locInteger_1 = GetUnitTypeId(GetFilterUnit())

    if IsUnitDeadBJ(GetFilterUnit()) then
        return false
    endif
    if locInteger_1 == 'H000' then
        return true
    endif
    return false
endfunction

//Calls:
//    JI
//Functions as argument:
//    GN
function HN takes unit paramUnit_1 returns unit
    local location locLocation_1 = GetUnitLoc(paramUnit_1)
    local group locGroup_1 = JI(real_4, locLocation_1, Condition(function GN))
    local unit locUnit_1 = GroupPickRandomUnit(locGroup_1)

    call RemoveLocation(locLocation_1)
    call DestroyGroup(locGroup_1)
    set locLocation_1 = null
    set locGroup_1 = null
    return locUnit_1
endfunction

function JN takes nothing returns boolean
    local integer locInteger_1 = GetUnitTypeId(GetFilterUnit())

    if IsUnitDeadBJ(GetFilterUnit()) then
        return false
    endif
    if locInteger_1 == 'h001' then
        return true
    endif
    if locInteger_1 == 'h002' then
        return true
    endif
    if locInteger_1 == 'h003' then
        return true
    endif
    if locInteger_1 == 'h004' then
        return true
    endif
    if locInteger_1 == 'h005' then
        return true
    endif
    if locInteger_1 == 'h006' then
        return true
    endif
    if locInteger_1 == 'h007' then
        return true
    endif
    if locInteger_1 == 'h008' then
        return true
    endif
    if locInteger_1 == 'h009' then
        return true
    endif
    if locInteger_1 == 'h00A' then
        return true
    endif
    if locInteger_1 == 'h00B' then
        return true
    endif
    if locInteger_1 == 'h00E' then
        return true
    endif
    if locInteger_1 == 'h00F' then
        return true
    endif
    return false
endfunction

//Calls:
//    JI
//Functions as argument:
//    JN
function KN takes unit paramUnit_1 returns boolean
    local location locLocation_1 = GetUnitLoc(paramUnit_1)
    local group locGroup_1 = JI(real_4, locLocation_1, Condition(function JN))
    local integer locInteger_1 = CountUnitsInGroup(locGroup_1)

    call RemoveLocation(locLocation_1)
    call DestroyGroup(locGroup_1)
    set locLocation_1 = null
    set locGroup_1 = null
    if locInteger_1 == 0 then
        return false
    endif
    return true
endfunction

function MN takes unit paramUnit_1 returns boolean
    local integer locInteger_1 = GetUnitTypeId(paramUnit_1)

    if locInteger_1 == 'u002' then
        return true
    endif
    if locInteger_1 == 'u003' then
        return true
    endif
    if locInteger_1 == 'u004' then
        return true
    endif
    if locInteger_1 == 'u005' then
        return true
    endif
    if locInteger_1 == 'u006' then
        return true
    endif
    if locInteger_1 == 'u00G' then
        return true
    endif
    if locInteger_1 == 'u00K' then
        return true
    endif
    if locInteger_1 == 'u00L' then
        return true
    endif
    if locInteger_1 == 'u00M' then
        return true
    endif
    if locInteger_1 == 'u00N' then
        return true
    endif
    if locInteger_1 == 'u010' then
        return true
    endif
    if locInteger_1 == 'u011' then
        return true
    endif
    if locInteger_1 == 'u012' then
        return true
    endif
    if locInteger_1 == 'u00Y' then
        return true
    endif
    if locInteger_1 == 'u00Z' then
        return true
    endif
    if locInteger_1 == 'u013' then
        return true
    endif
    if locInteger_1 == 'u00E' then
        return true
    endif
    if locInteger_1 == 'u00F' then
        return true
    endif
    return false
endfunction

//Calls:
//    MN
function PN takes nothing returns boolean
    if IsUnitDeadBJ(GetFilterUnit()) then
        return false
    endif
    return MN(GetFilterUnit())
endfunction

//Calls:
//    PI
function QN takes unit paramUnit_1 returns boolean
    local location locLocation_1 = GetUnitLoc(paramUnit_1)
    local group locGroup_1 = PI(real_4, locLocation_1)
    local player locPlayer_1 = GetOwningPlayer(paramUnit_1)
    local unit locUnit_1 = null

    call RemoveLocation(locLocation_1)
    set locLocation_1 = null
    loop
        set locUnit_1 = FirstOfGroup(locGroup_1)
        exitwhen locUnit_1 == null
        if IsUnitEnemy(locUnit_1, locPlayer_1) and IsUnitAliveBJ(locUnit_1) and IsUnitVisible(locUnit_1, GetOwningPlayer(paramUnit_1)) then
            call DestroyGroup(locGroup_1)
            set locPlayer_1 = null
            set locUnit_1 = null
            return true
        endif
        call GroupRemoveUnit(locGroup_1, locUnit_1)
    endloop
    call DestroyGroup(locGroup_1)
    set locPlayer_1 = null
    set locUnit_1 = null
    return false
endfunction

//Calls:
//    QN
//    MN
//    KN
//    CN
//    VN
function SN takes unit paramUnit_1 returns nothing
    local unit locUnit_1
    local unit locUnit_2
    local integer locInteger_1 = GetUnitTypeId(paramUnit_1)
    local boolean array locBooleanArr_1
    local boolean locBoolean_1 = true
    local real locReal_1 = GetUnitLifePercent(paramUnit_1)
    local real locReal_2 = .0
    local timer locTimer_1 = CreateTimer()
    local integer locInteger_2 = 0
    local real locReal_3 = .0
    local integer locInteger_3 = 0

    call SetUnitUserData(paramUnit_1, 1)
    call TimerStart(locTimer_1, 600, false, null)
    loop
        exitwhen locInteger_3 > 16
        set locBooleanArr_1[locInteger_3] = false
        set locInteger_3 = locInteger_3 + 1
    endloop
    call TriggerSleepAction(real_6)
    loop
        set locInteger_2 = locInteger_2 + 1
        set locBoolean_1 = QN(paramUnit_1)
        exitwhen locBoolean_1 == false
        if locInteger_2 > 1 and TimerGetElapsed(locTimer_1) > real_9 then
            set locReal_2 = (GetUnitLifePercent(paramUnit_1) - locReal_1) / TimerGetElapsed(locTimer_1)
            set locReal_1 = GetUnitLifePercent(paramUnit_1)
            call TimerStart(locTimer_1, 600, false, null)
        endif
        if MN(paramUnit_1) then
            set locReal_3 = GetRandomReal(.0, 1.)
            if KN(paramUnit_1) == false and locBooleanArr_1[0] == false and locReal_3 < .6 then
                set locUnit_1 = CN(paramUnit_1)
                if locUnit_1 != null then
                    set locBooleanArr_1[0] = VN(locUnit_1, "Elf", sound_8, "Hmm ... Defensive towers ... No, this is a stupid idea ... It will never work ...")
                    call TriggerSleepAction(real_5)
                endif
            endif
            if GetUnitLifePercent(paramUnit_1) <= real_7 then
                set locUnit_1 = CN(paramUnit_1)
                if locUnit_1 != null then
                    set locReal_3 = GetRandomReal(.0, 1.)
                    if locReal_3 < .3 and locBooleanArr_1[1] == false then
                        set locBooleanArr_1[1] = VN(locUnit_1, "Elf", sound_10, "That's it, I'm dead")
                        call TriggerSleepAction(real_5)
                    elseif locReal_3 < .5 and locBooleanArr_1[9] == false then
                        set locBooleanArr_1[9] = VN(locUnit_1, "Elf", sound_23, "Anyway who cares: in 100 years we'll be all dead")
                        call TriggerSleepAction(real_5)
                    elseif locReal_3 < .8 and locBooleanArr_1[10] == false then
                        set locBooleanArr_1[10] = VN(locUnit_1, "Elf", sound_24, "Euhwaaaeuh...")
                        call TriggerSleepAction(real_5)
                    elseif locBooleanArr_1[17] == false then
                        set locBooleanArr_1[17] = VN(locUnit_1, "Elf", sound_27, "It worthlessness that being good has to be")
                        call TriggerSleepAction(real_5)
                    endif
                endif
            endif
            set locUnit_1 = CN(paramUnit_1)
            if locInteger_2 > 1 and locReal_2 >= real_8 and locUnit_1 != null then
                set locReal_3 = GetRandomReal(.0, 1.)
                if locReal_3 < .5 and locBooleanArr_1[2] == false then
                    set locBooleanArr_1[2] = VN(locUnit_1, "Elf", sound_9, "Chances of success? None!")
                    call TriggerSleepAction(real_5)
                elseif locBooleanArr_1[14] == false then
                    set locBooleanArr_1[14] = VN(locUnit_1, "Elf", sound_28, "It's too easy ...")
                    call TriggerSleepAction(real_5)
                endif
            endif
            set locUnit_1 = CN(paramUnit_1)
            if locUnit_1 != null then
                set locReal_3 = GetRandomReal(.0, 1.)
                if locReal_3 < .05 and locBooleanArr_1[11] == false then
                    set locBooleanArr_1[11] = VN(locUnit_1, "Elf", sound_31, "In the four corners of Paris, you will find scattered in small pieces of the puzzle!")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .1 and locBooleanArr_1[12] == false then
                    set locBooleanArr_1[12] = VN(locUnit_1, "Elf", sound_32, "I hear from my father to become a farmer ...")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .15 and locBooleanArr_1[13] == false then
                    set locBooleanArr_1[13] = VN(locUnit_1, "Elf", sound_30, "Help! There is a pec threatens me! It has an acorn in his hand!")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .2 and locBooleanArr_1[15] == false then
                    set locBooleanArr_1[15] = VN(locUnit_1, "Elf", sound_33, "As if the orcs were not enough ...")
                    call TriggerSleepAction(real_5)
                endif
            endif
        endif
        if locInteger_1 == 'H000' then
            set locUnit_1 = CN(paramUnit_1)
            if locInteger_2 > 1 and locReal_2 >= real_8 and locUnit_1 != null then
                set locReal_3 = GetRandomReal(.0, 1.)
                if locReal_3 < .4 and locBooleanArr_1[3] == false then
                    set locBooleanArr_1[3] = VN(paramUnit_1, "Chaos Troll", sound_6, "Worse than you, no ca ...")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .8 and locBooleanArr_1[7] == false then
                    set locBooleanArr_1[7] = VN(locUnit_1, "Elf", sound_18, "It's simple: you take the emulator phase hydro, and plug the transmitter on the particle transdimansionnel photonics. And voila: a new tower!")
                    call TriggerSleepAction(real_5)
                elseif locBooleanArr_1[16] == false then
                    set locBooleanArr_1[16] = VN(locUnit_1, "Elf", sound_29, "When, 900 years old like me you have, the less you will fit.")
                    call TriggerSleepAction(real_5)
                endif
            endif
            if GetUnitLifePercent(paramUnit_1) > real_7 then
                set locReal_3 = GetRandomReal(.0, 1.)
                if locReal_3 < .075 and locBooleanArr_1[4] == false then
                    set locBooleanArr_1[4] = VN(paramUnit_1, "Chaos Troll", sound_4, "Rum! Women and beer dammit!")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .15 and locBooleanArr_1[5] == false then
                    set locBooleanArr_1[5] = VN(paramUnit_1, "Chaos Troll", sound_3, "Why not clafoutis? Everyone loves the clafoutis ...")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .225 and locBooleanArr_1[8] == false then
                    set locBooleanArr_1[8] = VN(paramUnit_1, "Chaos Troll", sound_22, "No quarters!")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .3 and locBooleanArr_1[18] == false then
                    set locBooleanArr_1[18] = VN(paramUnit_1, "Chaos Troll", sound_21, "I, will kill!")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .375 and locBooleanArr_1[19] == false then
                    set locBooleanArr_1[19] = VN(paramUnit_1, "Chaos Troll", sound_20, "Tazdingo !")
                    call TriggerSleepAction(real_5)
                elseif locReal_3 < .45 and locBooleanArr_1[20] == false then
                    set locBooleanArr_1[20] = VN(paramUnit_1, "Chaos Troll", sound_14, "Will soon suffer!")
                    call TriggerSleepAction(real_5)
                endif
            endif
            if GetUnitLifePercent(paramUnit_1) <= real_7 and locBooleanArr_1[6] == false then
                set locBooleanArr_1[6] = VN(paramUnit_1, "Chaos Troll", sound_17, "I passed the age of this crap!")
                call TriggerSleepAction(real_5)
            endif
        endif
        if IsUnitDeadBJ(paramUnit_1) then
            set locBoolean_1 = false
        endif
        call TriggerSleepAction(real_5)
    endloop
    call SetUnitUserData(paramUnit_1, 0)
    call DestroyTimer(locTimer_1)
    set locTimer_1 = null
    set paramUnit_1 = null
    set locUnit_2 = null
    set locUnit_1 = null
endfunction

function RB takes unit paramUnit_1 returns boolean
    return (GetUnitUserData(paramUnit_1) == 0 or GetUnitUserData(paramUnit_1) == 2)
endfunction

//Calls:
//    RB
//    SN
function IB takes nothing returns nothing
    if RB(GetTriggerUnit()) then
        call SN(GetTriggerUnit())
    endif
endfunction

//Calls:
//    RB
//    SN
function AB takes nothing returns nothing
    if RB(GetAttacker()) then
        call SN(GetAttacker())
    endif
endfunction

//Functions as argument:
//    IB
//    AB
function NB takes nothing returns nothing
    local trigger locTrigger_1

    set locTrigger_1 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(locTrigger_1, EVENT_PLAYER_UNIT_ATTACKED)
    call TriggerAddAction(locTrigger_1, function IB)
    set locTrigger_1 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(locTrigger_1, EVENT_PLAYER_UNIT_ATTACKED)
    call TriggerAddAction(locTrigger_1, function AB)
    set locTrigger_1 = null
endfunction

function CB takes player paramPlayer_1 returns nothing
    call GroupClear(groupArr_1[GetPlayerId(paramPlayer_1)])
    call ClearSelectionForPlayer(paramPlayer_1)
endfunction

//Calls:
//    CB
function DB takes unit paramUnit_1, player paramPlayer_1 returns nothing
    call CB(paramPlayer_1)
    call SelectUnitForPlayerSingle(paramUnit_1, paramPlayer_1)
endfunction

function FB takes player paramPlayer_1 returns group
    local group locGroup_1 = CreateGroup()

    call GroupAddGroup(groupArr_1[GetPlayerId(paramPlayer_1)], locGroup_1)
    return locGroup_1
endfunction

function GB takes nothing returns nothing
    call GroupAddUnit(groupArr_1[GetPlayerId(GetTriggerPlayer())], GetTriggerUnit())
endfunction

function HB takes nothing returns nothing
    call GroupRemoveUnit(groupArr_1[GetPlayerId(GetTriggerPlayer())], GetTriggerUnit())
endfunction

//Functions as argument:
//    GB
//    HB
function JB takes nothing returns nothing
    local integer locInteger_1 = 0
    local trigger locTrigger_1 = CreateTrigger()
    local trigger locTrigger_2 = CreateTrigger()

    loop
        exitwhen locInteger_1 > 11
        call TriggerRegisterPlayerSelectionEventBJ(locTrigger_1, Player(locInteger_1), true)
        call TriggerRegisterPlayerSelectionEventBJ(locTrigger_2, Player(locInteger_1), false)
        set groupArr_1[locInteger_1] = CreateGroup()
        set locInteger_1 = locInteger_1 + 1
    endloop
    call TriggerAddAction(locTrigger_1, function GB)
    call TriggerAddAction(locTrigger_2, function HB)
endfunction

function MB takes nothing returns nothing
    local weathereffect locWeathereffect_1

    set rect_1 = Rect(3648., 2272., 4800., 3328.)
    set rect_2 = Rect(16928., 5792., 17856., 6624.)
    set rect_3 = Rect(13728., -2144., 14944., -960.)
    set rect_4 = Rect(25216., -1856., 26080., -1152.)
    set rect_5 = Rect(25120., 5440., 26080., 6336.)
    set rect_6 = Rect(19744., 17344., 20928., 18464.)
    set rect_7 = Rect(6720., 14912., 7616., 15776.)
    set rect_8 = Rect(6592., 23744., 7744., 24864.)
endfunction

//Calls:
//    JA
//    QA
function PB takes nothing returns nothing
    set player_3 = JA()
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Map will be choosen by |c" + QA(player_3) + GetPlayerName(player_3))
    call TriggerRegisterPlayerEvent(trigger_33, player_3, EVENT_PLAYER_ARROW_LEFT_DOWN)
    call TriggerRegisterPlayerEvent(trigger_34, player_3, EVENT_PLAYER_ARROW_RIGHT_DOWN)
    call TriggerRegisterPlayerEvent(trigger_35, player_3, EVENT_PLAYER_ARROW_DOWN_DOWN)
    call TriggerRegisterPlayerEvent(trigger_36, player_3, EVENT_PLAYER_ARROW_UP_DOWN)
endfunction

function QB takes nothing returns nothing
    call RemoveUnit(GetEnumUnit())
endfunction

//Calls:
//    HI
//Functions as argument:
//    QB
function SB takes nothing returns nothing
    local rect locRect_1 = GetWorldBounds()
    local group locGroup_1 = HI(locRect_1)

    call ForGroup(locGroup_1, function QB)
    call RemoveRect(locRect_1)
    call DestroyGroup(locGroup_1)
    set locRect_1 = null
    set locGroup_1 = null
endfunction

function WB takes location paramLocation_1 returns nothing
    local real locReal_1 = GetLocationX(paramLocation_1)
    local real locReal_2 = GetLocationY(paramLocation_1)

    set unit_1 = CreateUnit(Player(11), 'u00B', locReal_1, locReal_2, 270.)
    call CreateUnit(Player(11), 'u00I', locReal_1 - 256, locReal_2 + 384, 270.)
    call CreateUnit(Player(11), 'u00U', locReal_1 - 384, locReal_2 + 384, 270.)
    call CreateUnit(Player(11), 'u00D', locReal_1 - 384, locReal_2 + 256, 270.)
    call CreateUnit(Player(11), 'u00C', locReal_1 + 384, locReal_2 + 256, 270.)
    call CreateUnit(Player(11), 'u015', locReal_1 + 384, locReal_2 + 384, 270.)
    call CreateUnit(Player(11), 'u00J', locReal_1 + 256, locReal_2 + 384, 270.)
endfunction

//Calls:
//    SB
//    WB
function YB takes integer paramInteger_1 returns nothing
    call DestroyTextTag(bj_lastCreatedTextTag)
    call SB()
    call WB(locationArr_1[paramInteger_1])
    call CameraSetupApplyForceDuration(camerasetupArr_1[paramInteger_1], true, .0)
    call CreateTextTagUnitBJ(stringArr_4[paramInteger_1], unit_1, 0, 10, 100, 100, 100, 0)
    call TriggerSleepAction(.01)
    call SetCameraTargetController(unit_1, 0, 0, false)
endfunction

function VC takes nothing returns boolean
    return  not(GetPlayerSlotState(GetFilterPlayer()) != PLAYER_SLOT_STATE_PLAYING) and  not(GetFilterPlayer() == Player(11))
endfunction

//Calls:
//    WI
//Functions as argument:
//    VC
function EC takes nothing returns integer
    local force locForce_1 = WI(Condition(function VC))
    local integer locInteger_1 = CountPlayersInForceBJ(locForce_1)

    call DestroyForce(locForce_1)
    return locInteger_1
endfunction

function XC takes nothing returns nothing
    call DialogDisplay(GetEnumPlayer(), dialog_3, false)
    call DialogDisplay(GetEnumPlayer(), dialog_4, false)
    call SetPlayerTechMaxAllowed(GetEnumPlayer(), 'u001', 1)
    call PanCameraToTimedLocForPlayer(GetEnumPlayer(), locationArr_1[integer_7], 0)
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call SetPlayerAllianceStateBJ(GetEnumPlayer(), Player(bj_forLoopAIndex), 3)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    set integerArr_7[GetPlayerId(GetEnumPlayer()) + 1] = 0
    set integerArr_8[GetPlayerId(GetEnumPlayer()) + 1] = 0
    call SetPlayerState(GetEnumPlayer(), PLAYER_STATE_RESOURCE_LUMBER, 0)
    call SetPlayerState(GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD, 0)
endfunction

function OC takes nothing returns nothing
    call DialogSetMessage(dialog_3, "Do you want to be a Troll?")
    call DialogDisplay(GetEnumPlayer(), dialog_3, true)
endfunction

//Functions as argument:
//    XC
//    OC
function RC takes nothing returns nothing
    call DisableTrigger(trigger_33)
    call DisableTrigger(trigger_34)
    call DisableTrigger(trigger_35)
    call DisableTrigger(trigger_36)
    call DisableTrigger(trigger_32)
    call DestroyTextTag(bj_lastCreatedTextTag)
    set integer_2 = 3
    set integer_10 = integer_8
    set integer_11 = integer_9
    set integer_12 = 5
    call ResetToGameCamera(.25)
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The chosen map is: " + stringArr_3[integer_7])
    call ForForce(bj_FORCE_ALL_PLAYERS, function XC)
    call TriggerSleepAction(2.)
    call ForForce(bj_FORCE_ALL_PLAYERS, function OC)
    set timerdialog_1 = CreateTimerDialogBJ(timer_1, "Beginning in: ")
    call StartTimerBJ(timer_1, false, 10.)
    call TimerDialogDisplay(timerdialog_1, true)
    call SetCineModeVolumeGroupsImmediateBJ()
    call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS, Player(11), 'H000', "Chaos Troll", locationArr_1[integer_7], sound_2, "To be or not to be? .. That is the question ...", 0, 0, true)
    call VolumeGroupReset()
endfunction

function IC takes nothing returns nothing
    call RemoveItem(GetEnumItem())
endfunction

//Calls:
//    SB
//    YB
//Functions as argument:
//    IC
function AC takes nothing returns nothing
    set boolean_3 = false
    call ForceClear(force_1)
    call ForceClear(force_2)
    call ForceClear(force_4)
    call ForceClear(force_3)
    call MultiboardClear(multiboard_1)
    call EnumItemsInRect(bj_mapInitialPlayableArea, null, function IC)
    call SB()
    call TriggerSleepAction(.0)
    call MultiboardDisplay(multiboard_1, false)
    call SB()
    call PauseTimerBJ(true, timer_3)
    call PauseTimerBJ(true, timer_4)
    call PauseTimerBJ(true, timer_2)
    call PauseTimerBJ(true, timer_5)
    call DestroyTimerDialog(timerdialog_2)
    call DestroyTimerDialog(timerdialog_3)
    set integer_5 = GetRandomInt(1, 8)
    set integer_7 = integer_5
    call YB(integer_7)
    call FogEnable(false)
    call FogMaskEnable(false)
    call EnableTrigger(trigger_33)
    call EnableTrigger(trigger_34)
    call EnableTrigger(trigger_35)
    call EnableTrigger(trigger_36)
    call EnableTrigger(trigger_32)
    call StartTimerBJ(timer_5, false, 15)
endfunction

//Calls:
//    QI
function NC takes nothing returns boolean
    local group locGroup_1 = QI('u000')

    if IsUnitGroupDeadBJ(locGroup_1) then
        call DestroyGroup(locGroup_1)
        return false
    endif
    if IsUnitGroupEmptyBJ(locGroup_1) then
        call DestroyGroup(locGroup_1)
        return false
    endif
    call DestroyGroup(locGroup_1)
    return true
endfunction

//Calls:
//    QA
function BC takes nothing returns nothing
    call CreateTextTagUnitBJ("|c" + QA(GetOwningPlayer(GetEventDamageSource())) + I2S(R2I(GetEventDamage())), GetTriggerUnit(), 0, 10, 100, 100, 100, 0)
    call SetTextTagPermanent(bj_lastCreatedTextTag, false)
    call SetTextTagLifespan(bj_lastCreatedTextTag, 3)
    call SetTextTagFadepoint(bj_lastCreatedTextTag, 2)
    call SetTextTagVelocity(bj_lastCreatedTextTag, 0, .03)
endfunction

//Calls:
//    QA
function CC takes nothing returns nothing
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|c" + QA(GetEnumPlayer()) + GetPlayerName(GetEnumPlayer()))
    call MultiboardSetItemIconBJ(multiboard_1, 2, integer_6, "ReplaceableTextures\\CommandButtons\\BTNSpiritWolf.blp")
    set integer_6 = integer_6 + 1
endfunction

//Calls:
//    QA
function DC takes nothing returns nothing
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|c" + QA(GetEnumPlayer()) + GetPlayerName(GetEnumPlayer()))
    call MultiboardSetItemIconBJ(multiboard_1, 2, integer_6, "ReplaceableTextures\\CommandButtons\\BTNElfVillager.blp")
    set integer_6 = integer_6 + 1
endfunction

//Calls:
//    QA
function FC takes nothing returns nothing
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|c" + QA(GetEnumPlayer()) + GetPlayerName(GetEnumPlayer()))
    call MultiboardSetItemIconBJ(multiboard_1, 2, integer_6, "ReplaceableTextures\\CommandButtons\\BTNJaina.blp")
    set integer_6 = integer_6 + 1
endfunction

//Calls:
//    QA
//Functions as argument:
//    CC
//    DC
//    FC
function GC takes nothing returns nothing
    if boolean_3 == false then
        return
    endif
    call MultiboardClear(multiboard_1)
    call TriggerSleepAction(.001)
    call MultiboardSetRowCount(multiboard_1, 6 + CountPlayersInForceBJ(force_3) + CountPlayersInForceBJ(force_2) + CountPlayersInForceBJ(force_4))
    call MultiboardSetColumnCount(multiboard_1, 2)
    call MultiboardSetItemWidthBJ(multiboard_1, 1, 0, 9.)
    call MultiboardSetItemWidthBJ(multiboard_1, 2, 0, 3.)
    call MultiboardSetItemStyleBJ(multiboard_1, 1, 0, true, false)
    call MultiboardSetItemStyleBJ(multiboard_1, 2, 0, false, true)
    set integer_6 = 1
    call MultiboardSetItemStyleBJ(multiboard_1, 2, integer_6, true, false)
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|cffffcc00Troll")
    call MultiboardSetItemValueBJ(multiboard_1, 2, integer_6, "|cffffcc00" + I2S(CountPlayersInForceBJ(force_3) + 1))
    set integer_6 = integer_6 + 1
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|c" + QA(player_2) + GetPlayerName(player_2))
    call MultiboardSetItemIconBJ(multiboard_1, 2, integer_6, "ReplaceableTextures\\CommandButtons\\BTNDarkTroll.blp")
    set integer_6 = integer_6 + 1
    call ForForce(force_3, function CC)
    call MultiboardSetItemStyleBJ(multiboard_1, 2, integer_6, true, false)
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|cffffcc00Or the hidding")
    call MultiboardSetItemValueBJ(multiboard_1, 2, integer_6, "|cffffff00" + I2S(integer_4))
    set integer_6 = integer_6 + 1
    call MultiboardSetItemStyleBJ(multiboard_1, 2, integer_6, true, false)
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|cffffcc00Elves")
    call MultiboardSetItemValueBJ(multiboard_1, 2, integer_6, "|cffffcc00" + I2S(CountPlayersInForceBJ(force_2) + CountPlayersInForceBJ(force_4)))
    set integer_6 = integer_6 + 1
    call ForForce(force_2, function DC)
    call ForForce(force_4, function FC)
    call MultiboardSetItemStyleBJ(multiboard_1, 2, integer_6, true, false)
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|cff00ff00Buy Wood for:")
    call MultiboardSetItemValueBJ(multiboard_1, 2, integer_6, "|cff00ff00" + I2S(integer_11))
    set integer_6 = integer_6 + 1
    call MultiboardSetItemStyleBJ(multiboard_1, 2, integer_6, true, false)
    call MultiboardSetItemValueBJ(multiboard_1, 1, integer_6, "|cffffff00Sell Wood for:")
    call MultiboardSetItemValueBJ(multiboard_1, 2, integer_6, "|cffffff00" + I2S(integer_10))
    call MultiboardDisplay(multiboard_1, true)
endfunction

function HC takes nothing returns nothing
    call CreateQuestBJ(0, "TRIGSTR_2850", "TRIGSTR_2851", "ReplaceableTextures\\CommandButtons\\BTNScrollOfRegenerationGreen.blp")
    call CreateQuestBJ(0, "TRIGSTR_2847", "TRIGSTR_2848", "ReplaceableTextures\\CommandButtons\\BTNEngineeringUpgrade.blp")
    call CreateQuestBJ(0, "TRIGSTR_2856", "TRIGSTR_2857", "ReplaceableTextures\\CommandButtons\\BTNMove.blp")
    call QuestMessageBJ(bj_FORCE_ALL_PLAYERS, 1, "TRIGSTR_2844")
    call CreateQuestBJ(2, "TRIGSTR_2842", "TRIGSTR_2843", "ReplaceableTextures\\CommandButtons\\BTNForestTroll.blp")
    call CreateQuestBJ(2, "TRIGSTR_2845", "TRIGSTR_2846", "ReplaceableTextures\\CommandButtons\\BTNElfVillager.blp")
    call CreateQuestBJ(2, "TRIGSTR_2852", "TRIGSTR_2853", "ReplaceableTextures\\CommandButtons\\BTNJaina.blp")
    call CreateQuestBJ(2, "TRIGSTR_2854", "TRIGSTR_2855", "ReplaceableTextures\\CommandButtons\\BTNSpiritWolf.blp")
endfunction

//Calls:
//    PB
//    AC
function KC takes nothing returns nothing
    call TriggerSleepAction(.01)
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Initializing Map ...")
    set stringArr_3[1] = "Original"
    set stringArr_4[1] = "
Original

Size: Very big
Difficulty: Medium
Special: Many various bases"
    set rectArr_1[1] = rect_1
    set camerasetupArr_1[1] = camerasetup_1
    set locationArr_1[1] = Location(4224., 2688.)
    set locationArr_2[1] = Location(3840, 9856)
    set integerArr_9[1] = 30
    set integerArr_10[1] = 50
    set integerArr_11[1] = 30
    set stringArr_3[2] = "The Forest"
    set stringArr_4[2] = "The Forest

Size: Medium
Difficulty: Easy
Special: A lot of dual-bases"
    set rectArr_1[2] = rect_2
    set camerasetupArr_1[2] = camerasetup_2
    set locationArr_1[2] = Location(17408., 6016.)
    set locationArr_2[2] = Location(21376, 6530)
    set integerArr_9[2] = 30
    set integerArr_10[2] = 50
    set integerArr_11[2] = 30
    set stringArr_3[3] = "Assault"
    set stringArr_4[3] = "Assault

Size: Very Small
Difficulty: Extreme
Special: A huge base has 3 Survivors defensible minimum."
    set rectArr_1[3] = rect_3
    set camerasetupArr_1[3] = camerasetup_3
    set locationArr_1[3] = Location(14336., -1536.)
    set locationArr_2[3] = Location(13332, -1536)
    set integerArr_9[3] = 25
    set integerArr_10[3] = 75
    set integerArr_11[3] = 35
    set stringArr_3[4] = "Small Land"
    set stringArr_4[4] = "
Petites Terres

Size: Very Small
Difficulty: Very Easy
Special: A perfect place to play a 2 or 3."
    set rectArr_1[4] = rect_4
    set camerasetupArr_1[4] = camerasetup_4
    set locationArr_1[4] = Location(25600., -1728.)
    set locationArr_2[4] = Location(25856., -128.)
    set integerArr_9[4] = 40
    set integerArr_10[4] = 75
    set integerArr_11[4] = 45
    set stringArr_3[5] = "The Dusters"
    set stringArr_4[5] = "
The Dusters

Size: Small
Difficulty: Normal
Special characteristics: The bases are on the lower level, it weakened slightly vision of Survivors."
    set rectArr_1[5] = rect_5
    set camerasetupArr_1[5] = camerasetup_5
    set locationArr_1[5] = Location(25600., 5824.)
    set locationArr_2[5] = Location(25600., 9600.)
    set integerArr_9[5] = 30
    set integerArr_10[5] = 60
    set integerArr_11[5] = 40
    set stringArr_3[6] = "The Great Hills"
    set stringArr_4[6] = "
The Great Hills

Size: Very Large
Difficulty: Normal
Special Feature: Similar to the original, but with many more large bases."
    set rectArr_1[6] = rect_6
    set camerasetupArr_1[6] = camerasetup_6
    set locationArr_1[6] = Location(20352., 17792.)
    set locationArr_2[6] = Location(21760., 11904.)
    set integerArr_9[6] = 30
    set integerArr_10[6] = 50
    set integerArr_11[6] = 30
    set stringArr_3[7] = "The snowy plains"
    set stringArr_4[7] = "
The snowy plains

Size: Medium
Difficulty: Difficult
Special: A good map with large bases, very well defensible map, hard enough for the Troll"
    set rectArr_1[7] = rect_7
    set camerasetupArr_1[7] = camerasetup_7
    set locationArr_1[7] = Location(7168., 15360.)
    set locationArr_2[7] = Location(6656., 19456.)
    set integerArr_9[7] = 30
    set integerArr_10[7] = 50
    set integerArr_11[7] = 30
    set stringArr_3[8] = "Islands tracked"
    set stringArr_4[8] = "
Islands tracked

Size: Small
Difficulty: Extreme
Special: A small map consisting of islands as bases. Very hard for Survivors."
    set rectArr_1[8] = rect_8
    set camerasetupArr_1[8] = camerasetup_8
    set locationArr_1[8] = Location(7168., 24320.)
    set locationArr_2[8] = Location(7168., 21634.)
    set integerArr_9[8] = 30
    set integerArr_10[8] = 50
    set integerArr_11[8] = 45
    set button_1 = DialogAddButton(dialog_6, "|cff00ff00Y|cff30ff30es", 89)
    call DialogAddButton(dialog_6, "|cffff0000N|cffff3030o", 78)
    set buttonArr_7[0] = DialogAddButton(dialog_3, "|cff00ff00Y|cff30ff30es", 89)
    set buttonArr_7[1] = DialogAddButton(dialog_3, "|cffff0000N|cffff3030o", 78)
    set buttonArr_8[0] = DialogAddButton(dialog_4, "|cff00ff00E|cff30ff30lves", 69)
    set buttonArr_8[1] = DialogAddButton(dialog_4, "|cffff0000T|cffff3030roll", 84)
    call DialogAddButton(dialog_5, "I'm done!", 0)
    set multiboard_1 = CreateMultiboard()
    call MultiboardSetTitleText(multiboard_1, "Players:")
    call SetPlayerColor(Player(9), PLAYER_COLOR_BROWN)
    call SetPlayerColor(Player(12), PLAYER_COLOR_AQUA)
    call PB()
    call AC()
endfunction

function MC takes nothing returns boolean
    return  not(GetSpellTargetUnit() != unit_1) and  not(GetSpellAbilityId() != 'A01G')
endfunction

//Calls:
//    KA
function PC takes nothing returns nothing
    call KA(GetOwningPlayer(GetTriggerUnit()), integer_4, GetTriggerUnit(), true)
endfunction

function SC takes nothing returns boolean
    return GetUnitTypeId(GetFilterUnit()) == 'H000'
endfunction

//Calls:
//    JI
//Functions as argument:
//    SC
function TC takes nothing returns boolean
    local location locLocation_1 = GetUnitLoc(GetSpellAbilityUnit())
    local group locGroup_1 = JI(1200., locLocation_1, Condition(function SC))

    call RemoveLocation(locLocation_1)
    if GetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE) != GetUnitState(GetTriggerUnit(), UNIT_STATE_MAX_LIFE) then
        return false
    endif
    if GetSpellAbilityId() != 'A00R' then
        return false
    endif
    if CountUnitsInGroup(locGroup_1) != 0 then
        call DestroyGroup(locGroup_1)
        return false
    endif
    call DestroyGroup(locGroup_1)
    return true
endfunction

function UC takes nothing returns nothing
    call TriggerSleepAction(.25)
    call KillUnit(GetTriggerUnit())
endfunction

function YC takes nothing returns boolean
    return TimerGetRemaining(timer_1) > .0
endfunction

//Calls:
//    QA
//    EC
function ZC takes nothing returns nothing
    if GetClickedButton() == buttonArr_7[0] then
        call ForceAddPlayer(force_1, GetTriggerPlayer())
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rwants to be troll")
    endif
    if GetClickedButton() == buttonArr_7[1] then
        call ForceAddPlayer(force_2, GetTriggerPlayer())
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rdoesn't want to be troll")
    endif
    if CountPlayersInForceBJ(force_1) + CountPlayersInForceBJ(force_2) == EC() then
        call TimerStart(timer_1, .0, false, null)
    endif
endfunction

function ED takes nothing returns nothing
    if IsPlayerInForce(GetEnumPlayer(), force_1) then
        return
    endif
    if IsPlayerInForce(GetEnumPlayer(), force_2) then
        return
    endif
    call DialogDisplayBJ(false, dialog_3, GetEnumPlayer())
    call ForceAddPlayer(force_2, GetEnumPlayer())
endfunction

//Calls:
//    DB
function XD takes nothing returns nothing
    local location locLocation_1
    local unit locUnit_1

    if (GetEnumPlayer() != player_2) then
        call SetPlayerStateBJ(GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD, integerArr_9[integer_7])
        set locLocation_1 = GetRandomLocInRect(rectArr_1[integer_7])
        set locUnit_1 = CreateUnitAtLoc(GetEnumPlayer(), 'u000', locLocation_1, bj_UNIT_FACING)
        call DB(locUnit_1, GetEnumPlayer())
        call SetUnitMoveSpeed(locUnit_1, 522)
        call RemoveLocation(locLocation_1)
        call ForceAddPlayer(force_2, GetEnumPlayer())
        call SetPlayerAllianceStateBJ(GetEnumPlayer(), player_2, 0)
        call SetPlayerAllianceStateBJ(player_2, GetEnumPlayer(), 0)
    endif
endfunction

function OD takes nothing returns nothing
    call SetUnitOwner(GetEnumUnit(), player_2, true)
endfunction

//Calls:
//    WI
//    QA
//    TI
//    GC
//    VN
//    CN
//Functions as argument:
//    VC
//    ED
//    OD
//    XD
function RD takes nothing returns nothing
    local force locForce_1 = WI(Condition(function VC))

    call DestroyTimerDialog(timerdialog_1)
    call FogEnable(true)
    call ForForce(locForce_1, function ED)
    if CountPlayersInForceBJ(force_1) > 0 then
        call TriggerSleepAction(2.)
        set player_2 = ForcePickRandomPlayer(force_1)
    else
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Nobody wants to be a troll ... pfff")
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "I took a random")
        call TriggerSleepAction(2.)
        set player_2 = ForcePickRandomPlayer(force_2)
    endif
    set boolean_3 = true
    call TimerStart(timer_2, integerArr_11[integer_7], false, null)
    call ForceClear(force_1)
    call ForceClear(force_2)
    set locForce_1 = WI(Condition(function VC))
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The Troll is : |c" + QA(player_2) + GetPlayerName(player_2))
    call ForGroup(TI(Player(11)), function OD)
    call ForForce(locForce_1, function XD)
    call DestroyForce(locForce_1)
    set integer_4 = 10
    call GC()
    set timerdialog_2 = CreateTimerDialogBJ(timer_2, "The Troll comes in:")
    call TimerStart(timer_4, 480, false, null)
    call TimerStart(timer_3, 120, true, null)
    call DialogSetMessage(dialog_5, "Taking up:" + I2S(integerArr_11[integer_7]))
    call DialogDisplay(player_2, dialog_5, true)
    call TimerDialogDisplay(timerdialog_2, true)
    call VN(CN(unit_1), "Plump Elf", sound_26, "The only chance we have of winning the war is in front, they are also cons here ...")
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "You are walking in the woods, while the troll is coming ...")
endfunction

function AD takes nothing returns nothing
    call SetUnitMoveSpeed(GetEnumUnit(), GetUnitDefaultMoveSpeed(GetEnumUnit()))
endfunction

//Calls:
//    QI
//    DB
//    GC
//    VN
//Functions as argument:
//    AD
function ND takes nothing returns nothing
    local unit locUnit_1
    local group locGroup_1 = QI('u000')

    call ForGroup(locGroup_1, function AD)
    call DestroyGroup(locGroup_1)
    call DestroyTimerDialog(timerdialog_2)
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The troll arrived to the village ... prepare to fight!")
    call SetPlayerState(player_2, PLAYER_STATE_RESOURCE_GOLD, integerArr_10[integer_7])
    set locUnit_1 = CreateUnitAtLoc(player_2, 'H000', locationArr_1[integer_7], bj_UNIT_FACING)
    call DB(locUnit_1, player_2)
    call DialogDisplay(player_2, dialog_5, false)
    call GC()
    call VN(locUnit_1, "Chaos Troll", sound_1, "Lets take a look here ...")
endfunction

//Calls:
//    WI
//    EC
//Functions as argument:
//    VC
function CD takes nothing returns player
    local force locForce_1 = WI(Condition(function VC))
    local player locPlayer_1 = ForcePickRandomPlayer(locForce_1)

    call DestroyForce(locForce_1)
    if EC() != 1 then
        return null
    endif
    return locPlayer_1
endfunction

function DD takes player paramPlayer_1 returns nothing
    call ForceRemovePlayer(force_2, paramPlayer_1)
    call ForceRemovePlayer(force_1, paramPlayer_1)
    call ForceRemovePlayer(force_3, paramPlayer_1)
    call ForceRemovePlayer(force_4, paramPlayer_1)
    call TriggerSleepAction(.001)
endfunction

//Calls:
//    TI
//    EC
//    CD
//    PB
//    QA
//    AC
//    NC
//    DD
//    GC
//Functions as argument:
//    QB
function FD takes nothing returns nothing
    local group locGroup_1 = TI(GetTriggerPlayer())

    call ForGroup(locGroup_1, function QB)
    call DestroyGroup(locGroup_1)
    if EC() == 1 then
        call CustomDefeatBJ(CD(), "Everyone left the party!")
    endif
    if GetTriggerPlayer() == player_3 then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Host has left from the game")
        call TriggerSyncReady()
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Detection of new host")
        call PB()
    endif
    if boolean_3 then
        if GetTriggerPlayer() == player_2 then
            call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Troll |c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rhas left from the game.")
            call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Lets start a new round!")
            call TriggerSleepAction(2.)
            call AC()
        endif
        if IsPlayerInForce(GetTriggerPlayer(), force_2) then
            if NC() then
                call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |r(elf) has left from the game.")
            else
                call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The last survivor |c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rhas left from the game.")
                call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "Lets start a new round!")
                call TriggerSleepAction(2.)
                call AC()
            endif
        endif
        if IsPlayerInForce(GetTriggerPlayer(), force_4) then
            call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |r(Angel)has left from the game!")
        endif
        if IsPlayerInForce(GetTriggerPlayer(), force_3) then
            call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |r(Troll's dog) has left from the game!")
        endif
        call DD(GetTriggerPlayer())
    else
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rhas left from the game.")
        call DD(GetTriggerPlayer())
        if CountPlayersInForceBJ(force_1) + CountPlayersInForceBJ(force_2) == EC() then
            call TimerStart(timer_1, .0, false, null)
        endif
    endif
    call GC()
endfunction

//Calls:
//    QA
//Functions as argument:
//    HA
function HD takes integer paramInteger_1, integer paramInteger_2 returns nothing
    if paramInteger_1 == 0 and paramInteger_2 == 0 then
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "Your home has been destroyed ...")
    else
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "Your home has been destroyed ... you win |cffffff00 " + I2S(paramInteger_1) + " gold |rand |cff00ff00 " + I2S(paramInteger_2) + " wood |rfor you again!")
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD, paramInteger_1)
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER, paramInteger_2)
    endif
    call SetPlayerTechMaxAllowed(GetOwningPlayer(GetTriggerUnit()), 'u001', 1)
    if TimerGetRemaining(timer_4) <= 0 and TimerGetTimeout(timer_4) == 120 then
        call SetPlayerAllianceStateBJ(GetOwningPlayer(GetTriggerUnit()), player_2, 1)
        set player_1 = GetOwningPlayer(GetTriggerUnit())
        call ForForce(force_3, function HA)
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetOwningPlayer(GetTriggerUnit())) + GetPlayerName(GetOwningPlayer(GetTriggerUnit())) + " |r, build house! Revealing enemies will precedence sudden death.")
        call DestroyTimerDialog(timerdialogArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])
        call PauseTimer(timerArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])
    endif
endfunction

//Calls:
//    QA
//    KA
//    GC
//    NC
//    HN
//    TI
//    VN
//    IN
//    AC
//    DB
//    HD
//Functions as argument:
//    QB
function JD takes nothing returns nothing
    local location locLocation_1
    local group locGroup_1
    local integer locInteger_1 = GetUnitTypeId(GetTriggerUnit())
    local player locPlayer_1 = GetOwningPlayer(GetTriggerUnit())
    local unit locUnit_1

    if locInteger_1 == 'u000' then
        call DestroyTimerDialog(timerdialogArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])
        call PauseTimer(timerArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))])
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(locPlayer_1) + GetPlayerName(locPlayer_1) + " |ris dead!")
        call ForceRemovePlayer(force_2, GetOwningPlayer(GetTriggerUnit()))
        call KA(GetOwningPlayer(GetKillingUnit()), GetPlayerState(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD), GetTriggerUnit(), true)
        call GC()
        set locLocation_1 = GetUnitLoc(GetTriggerUnit())
        call PanCameraToTimedLocForPlayer(locPlayer_1, locLocation_1, 1.)
        call RemoveLocation(locLocation_1)
        if NC() then
            call TriggerSleepAction(2.)
            call SetPlayerStateBJ(locPlayer_1, PLAYER_STATE_RESOURCE_GOLD, 0)
            call SetPlayerStateBJ(locPlayer_1, PLAYER_STATE_RESOURCE_LUMBER, 0)
            set locUnit_1 = HN(GetTriggerUnit())
            set locGroup_1 = TI(locPlayer_1)
            call ForGroup(locGroup_1, function QB)
            call DestroyGroup(locGroup_1)
            call DialogSetMessage(dialog_4, "You want to help :")
            call DialogDisplay(locPlayer_1, dialog_4, true)
            if locUnit_1 != null then
                call VN(locUnit_1, "Chaos Troll", sound_7, "And Crack! A wad pif!")
            endif
        else
            call TriggerSleepAction(2.)
            set locUnit_1 = HN(GetTriggerUnit())
            set locGroup_1 = TI(locPlayer_1)
            call ForGroup(locGroup_1, function QB)
            call DestroyGroup(locGroup_1)
            call FogEnable(false)
            call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The troll |c" + QA(player_2) + GetPlayerName(player_2) + " |reliminated all the survivors!")
            if locUnit_1 != null then
                set integer_2 = 1
                set real_11 = .0
                call IN()
                call VN(locUnit_1, "Chaos Troll", sound_5, "Be serious for once!")
                set real_11 = 2.
                set integer_2 = 0
            endif
            call AC()
        endif
    endif
    if locInteger_1 == 'H000' then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "The Troll |c" + QA(locPlayer_1) + GetPlayerName(locPlayer_1) + " |ris dead! !")
        set locLocation_1 = GetUnitLoc(GetTriggerUnit())
        set bj_forLoopAIndex = 0
        set bj_forLoopAIndexEnd = 10
        loop
            exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
            call PanCameraToTimedLocForPlayer(Player(bj_forLoopAIndex), locLocation_1, 2.)
            set bj_forLoopAIndex = bj_forLoopAIndex + 1
        endloop
        set integer_2 = 1
        set real_11 = .0
        call IN()
        call VN(GetTriggerUnit(), "Chaos Troll", sound_13, "When I see you again? Wonderful country ...")
        set real_11 = 2.
        set integer_2 = 0
        call RemoveLocation(locLocation_1)
        call TriggerSleepAction(3.)
        call RemoveUnit(GetTriggerUnit())
        call AC()
    endif
    if locInteger_1 == 'H00D' then
        if IsUnitEnemy(GetTriggerUnit(), GetOwningPlayer(GetKillingUnit())) then
            call KA(GetOwningPlayer(GetKillingUnit()), 5 * integer_4, GetTriggerUnit(), true)
        endif
        call TriggerSleepAction(5.)
        if boolean_3 then
            call PanCameraToTimedLocForPlayer(locPlayer_1, locationArr_1[integer_7], 1.)
            call ReviveHeroLoc(GetTriggerUnit(), locationArr_1[integer_7], true)
            call DB(GetTriggerUnit(), locPlayer_1)
        endif
    endif
    if locInteger_1 == 'u00R' then
        if IsUnitIllusion(GetTriggerUnit()) == false then
            if IsUnitEnemy(GetTriggerUnit(), GetOwningPlayer(GetKillingUnit())) then
                call KA(GetOwningPlayer(GetKillingUnit()), 5 * integer_4, GetTriggerUnit(), true)
            endif
            if HN(GetTriggerUnit()) != null then
                call VN(HN(GetTriggerUnit()), "Chaos Troll", sound_7, "And Crack! A wad pif!")
            endif
            if boolean_3 then
                call TriggerSleepAction(5.)
                call PanCameraToTimedLocForPlayer(locPlayer_1, locationArr_2[integer_7], 1.)
                set locUnit_1 = CreateUnitAtLoc(locPlayer_1, 'u00R', locationArr_2[integer_7], bj_UNIT_FACING)
                call DB(locUnit_1, locPlayer_1)
                call SetUnitInvulnerable(locUnit_1, true)
                call TriggerSleepAction(5.)
                call SetUnitInvulnerable(locUnit_1, false)
            endif
        endif
    endif
    if locInteger_1 == 'u001' then
        call HD(0, 0)
    endif
    if locInteger_1 == 'u007' then
        call HD(50, 0)
    endif
    if locInteger_1 == 'u008' then
        call HD(150, 0)
    endif
    if locInteger_1 == 'u009' then
        call HD(350, 0)
    endif
    if locInteger_1 == 'u00Q' then
        call HD(750, 0)
    endif
    if locInteger_1 == 'u00S' then
        call HD(1550, 32)
    endif
    if locInteger_1 == 'u00T' then
        call HD(3150, 96)
    endif
    if locInteger_1 == 'u00W' then
        call HD(6350, 224)
    endif
    if locInteger_1 == 'u017' then
        call HD(12750, 480)
    endif
    if locInteger_1 == 'u018' then
        call HD(23550, 992)
    endif
endfunction

function PD takes nothing returns boolean
    return boolean_3
endfunction

//Calls:
//    DB
//    QA
//    GC
//Functions as argument:
//    GA
//    FA
function QD takes nothing returns nothing
    local location locLocation_1

    if GetClickedButton() == buttonArr_8[0] then
        call DB(CreateUnitAtLoc(GetTriggerPlayer(), 'u00R', locationArr_2[integer_7], bj_UNIT_FACING), GetTriggerPlayer())
        call PanCameraToTimedLocForPlayer(GetTriggerPlayer(), locationArr_2[integer_7], 1.)
        call ForceAddPlayer(force_4, GetTriggerPlayer())
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rhas chosen to help elves!")
        call SetPlayerAllianceStateBJ(GetTriggerPlayer(), player_2, 0)
        call SetPlayerAllianceStateBJ(player_2, GetTriggerPlayer(), 0)
        set player_1 = GetTriggerPlayer()
        call ForForce(force_3, function GA)
    endif
    if GetClickedButton() == buttonArr_8[1] then
        call ForceAddPlayer(force_3, GetTriggerPlayer())
        call DB(CreateUnitAtLoc(GetTriggerPlayer(), 'H00D', locationArr_1[integer_7], bj_UNIT_FACING), GetTriggerPlayer())
        call SetPlayerState(GetTriggerPlayer(), PLAYER_STATE_RESOURCE_GOLD, R2I(3.75 * Pow(I2R(integer_4), 1.25)))
        call PanCameraToTimedLocForPlayer(GetTriggerPlayer(), locationArr_1[integer_7], 1.)
        set player_1 = GetTriggerPlayer()
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + " |rhas chosen to help the troll!")
        call SetPlayerAllianceStateBJ(GetTriggerPlayer(), player_2, 3)
        call SetPlayerAllianceStateBJ(player_2, GetTriggerPlayer(), 3)
        call ForForce(force_4, function GA)
        call ForForce(force_2, function GA)
        call ForForce(force_3, function FA)
    endif
    call MultiboardDisplay(multiboard_1, true)
    call GC()
endfunction

function TD takes nothing returns nothing
    call TriggerRegisterUnitEvent(trigger_22, GetTriggerUnit(), EVENT_UNIT_DAMAGED)
endfunction

//Calls:
//    BC
function WD takes nothing returns boolean
    if GetEventDamage() == 0 then
        return false
    endif
    call BC()
    if IsPlayerEnemy(GetOwningPlayer(GetTriggerUnit()), GetOwningPlayer(GetEventDamageSource())) == false then
        return false
    endif
    if GetUnitTypeId(GetEventDamageSource()) == 'H00D' then
        return true
    endif
    if GetUnitTypeId(GetEventDamageSource()) == 'H000' then
        return true
    endif
    return false
endfunction

function YD takes nothing returns nothing
    call SetPlayerState(GetOwningPlayer(GetEventDamageSource()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEventDamageSource()), PLAYER_STATE_RESOURCE_GOLD) + R2I(GetEventDamage()))
endfunction

function VF takes nothing returns boolean
    return (GetUnitTypeId(GetTriggerUnit()) == 'e009') or (GetUnitTypeId(GetTriggerUnit()) == 'e00K') or (GetUnitTypeId(GetTriggerUnit()) == 'e001') or (GetUnitTypeId(GetTriggerUnit()) == 'e00J') or (GetUnitTypeId(GetTriggerUnit()) == 'e00M') or (GetUnitTypeId(GetTriggerUnit()) == 'e008') or (GetUnitTypeId(GetTriggerUnit()) == 'e00L') or (GetUnitTypeId(GetTriggerUnit()) == 'e005')
endfunction

function EF takes nothing returns nothing
    local location locLocation_1 = GetUnitLoc(GetConstructedStructure())
    local unit locUnit_1 = CreateUnitAtLoc(GetOwningPlayer(GetTriggerUnit()), 'e006', locLocation_1, bj_UNIT_FACING)

    call SetResourceAmount(GetConstructedStructure(), 10000000)
    call IssueTargetOrderById(locUnit_1, 851971, GetConstructedStructure())
    call RemoveLocation(locLocation_1)
endfunction

function OF takes nothing returns boolean
    return boolean_3
endfunction

//Calls:
//    KA
function RF takes nothing returns nothing
    if boolean_4 == false then
        call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 1)
    else
        call KA(GetOwningPlayer(GetEnumUnit()), 1, GetEnumUnit(), false)
    endif
endfunction

//Calls:
//    KA
function IF takes nothing returns nothing
    if boolean_4 == false then
        call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 2)
    else
        call KA(GetOwningPlayer(GetEnumUnit()), 2, GetEnumUnit(), false)
    endif
endfunction

//Calls:
//    KA
function AF takes nothing returns nothing
    if boolean_4 == false then
        call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 4)
    else
        call KA(GetOwningPlayer(GetEnumUnit()), 4, GetEnumUnit(), false)
    endif
endfunction

//Calls:
//    KA
function NF takes nothing returns nothing
    if boolean_4 == false then
        call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 8)
    else
        call KA(GetOwningPlayer(GetEnumUnit()), 8, GetEnumUnit(), false)
    endif
endfunction

//Calls:
//    KA
function BF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 16, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
function CF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 32, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
function DF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 64, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
function FF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 128, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
function GF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 256, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
function HF takes nothing returns nothing
    call KA(GetOwningPlayer(GetEnumUnit()), 512, GetEnumUnit(), false)
endfunction

//Calls:
//    KA
//    QI
//Functions as argument:
//    RF
//    IF
//    AF
//    NF
//    BF
//    CF
//    DF
//    FF
//    GF
//    HF
function JF takes nothing returns nothing
    local group locGroup_1

    if TimerGetRemaining(timer_2) <= 0 then
        set boolean_4 = false
        if GetUnitTypeId(unit_1) == 'u00B' then
            call KA(player_2, 1, unit_1, false)
            set locGroup_1 = QI('H00D')
            call ForGroup(locGroup_1, function RF)
            call DestroyGroup(locGroup_1)
        endif
        if GetUnitTypeId(unit_1) == 'u01A' then
            call KA(player_2, 2, unit_1, false)
            set locGroup_1 = QI('H00D')
            call ForGroup(locGroup_1, function IF)
            call DestroyGroup(locGroup_1)
        endif
        if GetUnitTypeId(unit_1) == 'u019' then
            call KA(player_2, 4, unit_1, false)
            set locGroup_1 = QI('H00D')
            call ForGroup(locGroup_1, function AF)
            call DestroyGroup(locGroup_1)
        endif
        if GetUnitTypeId(unit_1) == 'u01B' then
            call KA(player_2, 8, unit_1, false)
            set locGroup_1 = QI('H00D')
            call ForGroup(locGroup_1, function NF)
            call DestroyGroup(locGroup_1)
        endif
        set boolean_4 = true
    endif
    set locGroup_1 = QI('u001')
    call ForGroup(locGroup_1, function RF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u007')
    call ForGroup(locGroup_1, function IF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u008')
    call ForGroup(locGroup_1, function AF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u009')
    call ForGroup(locGroup_1, function NF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u00Q')
    call ForGroup(locGroup_1, function BF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u00S')
    call ForGroup(locGroup_1, function CF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u00T')
    call ForGroup(locGroup_1, function DF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u00W')
    call ForGroup(locGroup_1, function FF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u017')
    call ForGroup(locGroup_1, function GF)
    call DestroyGroup(locGroup_1)
    set locGroup_1 = QI('u018')
    call ForGroup(locGroup_1, function HF)
    call DestroyGroup(locGroup_1)
endfunction

//Calls:
//    GC
function LF takes nothing returns nothing
    set integer_4 = R2I((1.5 * I2R(integer_4)))
    call GC()
endfunction

function PF takes nothing returns nothing
    if TimerGetTimeout(timer_4) == 480. then
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "In 2 minutes, there will be sudden death.
After your home is destroyed, you will be revealed to the enemy until
you build a new one and for another 1 minute after.")
        call StartTimerBJ(timer_4, false, 120.)
        set timerdialog_3 = CreateTimerDialogBJ(timer_4, "Sudden Death")
        call TimerDialogDisplay(timerdialog_3, true)
    else
        call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "After your home is destroyed, you will be
revealed to the enemy, until you build a new one and for another 1 minute after.")
        call DestroyTimerDialog(timerdialog_3)
    endif
endfunction

//Calls:
//    QA
//Functions as argument:
//    GA
function SF takes nothing returns nothing
    set bj_forLoopAIndex = 0
    loop
        exitwhen GetExpiredTimer() == timerArr_1[bj_forLoopAIndex]
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call DestroyTimerDialog(timerdialogArr_1[bj_forLoopAIndex])
    call PauseTimer(GetExpiredTimer())
    call SetPlayerAllianceStateBJ(Player(bj_forLoopAIndex), player_2, 0)
    call ForForce(force_3, function GA)
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(Player(bj_forLoopAIndex)) + GetPlayerName(Player(bj_forLoopAIndex)) + "|r has not be revealed")
endfunction

function UF takes nothing returns boolean
    local boolean locBoolean_1 = false

    if GetUnitTypeId(GetTriggerUnit()) == 'u001' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u007' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u008' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u009' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00Q' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00S' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00T' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00W' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u017' then
        set locBoolean_1 = true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u018' then
        set locBoolean_1 = true
    endif
    if locBoolean_1 then
        call SetPlayerTechMaxAllowed(GetOwningPlayer(GetTriggerUnit()), 'u001', 0)
        if TimerGetRemaining(timer_4) > .0 then
            return false
        endif
        if TimerGetTimeout(timer_4) != 120. then
            return false
        endif
        return true
    endif
    return false
endfunction

//Calls:
//    QA
function YF takes nothing returns nothing
    call TimerStart(timerArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))], 60., false, null)
    set timerdialogArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))] = CreateTimerDialogBJ(timerArr_1[GetPlayerId(GetOwningPlayer(GetTriggerUnit()))], "|c" + QA(GetOwningPlayer(GetTriggerUnit())) + GetPlayerName(GetOwningPlayer(GetTriggerUnit())))
    call TimerDialogDisplay(bj_lastCreatedTimerDialog, true)
endfunction

//Calls:
//    GC
function VG takes nothing returns nothing
    if GetSpellAbilityId() == 'A031' then
        if (GetPlayerState(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD) < integer_11) then
            call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "|cffff0000You do not have enough gold: p")
            return
        endif
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "You bought |cff00ff0010 wood |rfor |cffffff00" + I2S(integer_11) + " gold")
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD, integer_11)
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER, 10)
        set integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] - integer_11
        set integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] + 10
        set integer_11 = integer_11 + integer_12
        set integer_10 = integer_10 + integer_12
        call GC()
    endif
    if GetSpellAbilityId() == 'A032' and integer_10 >= integer_12 then
        if (GetPlayerState(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER) < 10) then
            call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "|cffff0000You do not have enough wood: p")
            return
        endif
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "You sold |cff00ff0010 wood |rfor |cffffff00" + I2S(integer_10) + " gold")
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD, integer_10)
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER, -10)
        set integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] + integer_10
        set integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] - 10
        set integer_11 = integer_11 - integer_12
        set integer_10 = integer_10 - integer_12
        call GC()
    endif
    if GetSpellAbilityId() == 'A030' and integer_10 >= integer_12 * 20 then
        if (GetPlayerState(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER) < 200) then
            call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "|cffff0000You do not have enough wood :p")
            return
        endif
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "You sold |cff00ff00200 wood |rfor |cffffff00" + I2S(20 * integer_10 - integer_12 * 190) + " gold")
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD, 20 * integer_10 - integer_12 * 190)
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER, -200)
        set integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] + 20 * integer_10 - integer_12 * 190
        set integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] - 200
        set integer_11 = integer_11 - integer_12 * 20
        set integer_10 = integer_10 - integer_12 * 20
        call GC()
    endif
    if GetSpellAbilityId() == 'A02Z' then
        if (GetPlayerState(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD) < 20 * integer_11 + integer_12 * 190) then
            call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "|cffff0000You do not have enough gold: p")
            return
        endif
        call DisplayTextToPlayer(GetOwningPlayer(GetTriggerUnit()), 0, 0, "You bought |cff00ff00200 wood |rfor |cffffff00" + I2S(20 * integer_11 + integer_12 * 190) + " gold")
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_GOLD, (-20 * integer_11 + integer_12 * 190))
        call AdjustPlayerStateSimpleBJ(GetOwningPlayer(GetTriggerUnit()), PLAYER_STATE_RESOURCE_LUMBER, 200)
        set integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_7[GetPlayerId(GetTriggerPlayer()) + 1] - (20 * integer_11 + integer_12 * 190)
        set integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] = integerArr_8[GetPlayerId(GetTriggerPlayer()) + 1] + 200
        set integer_11 = integer_11 + integer_12 * 20
        set integer_10 = integer_10 + integer_12 * 20
        call GC()
    endif
endfunction

function XG takes nothing returns boolean
    if IsPlayerEnemy(GetTriggerPlayer(), GetOwningPlayer(GetTriggerUnit())) then
        return false
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00P' then
        return true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00O' then
        return true
    endif
    if GetUnitTypeId(GetTriggerUnit()) == 'u00H' then
        return true
    endif
    return false
endfunction

//Calls:
//    QA
function OG takes nothing returns nothing
    if GetOwningPlayer(GetTriggerUnit()) == GetLocalPlayer() then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "You've traded |cffffff00" + I2S(integerArr_7[GetPlayerId(GetOwningPlayer(GetTriggerUnit())) + 1]) + " gold |rand |cff00ff00" + I2S(integerArr_8[GetPlayerId(GetOwningPlayer(GetTriggerUnit())) + 1]) + " wood|r in Market")
    else
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|c" + QA(GetOwningPlayer(GetTriggerUnit())) + GetPlayerName(GetOwningPlayer(GetTriggerUnit())) + " |rexchanged for |cffffff00" + I2S(integerArr_7[GetPlayerId(GetOwningPlayer(GetTriggerUnit())) + 1]) + " gold |rand |cff00ff00" + I2S(integerArr_8[GetPlayerId(GetOwningPlayer(GetTriggerUnit())) + 1]) + " wood|r in Market")
    endif
endfunction

function IG takes nothing returns nothing
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "TRIGSTR_2775")
endfunction

function NG takes nothing returns nothing
    call CameraSetupApply(camerasetupArr_1[integer_7], true, false)
endfunction

//Calls:
//    YB
function CG takes nothing returns nothing
    set integer_5 = integer_5 - 1
    if (integer_5 == 0) then
        set integer_5 = 8
    endif
    call CinematicFadeBJ(2, 1., "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0)
    call TriggerSleepAction(.5)
    set integer_7 = integer_5
    call YB(integer_7)
    call PauseTimer(timer_5)
endfunction

//Calls:
//    YB
function FG takes nothing returns nothing
    set integer_5 = integer_5 + 1
    if (integer_5 == 8 + 1) then
        set integer_5 = 1
    endif
    call CinematicFadeBJ(2, 2, "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0)
    call TriggerSleepAction(1.)
    set integer_7 = integer_5
    call YB(integer_7)
    call PauseTimer(timer_5)
endfunction

//Calls:
//    YB
function HG takes nothing returns nothing
    set integer_5 = GetRandomInt(1, 8)
    call CinematicFadeBJ(2, 2, "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0)
    call TriggerSleepAction(1.)
    set integer_7 = integer_5
    call YB(integer_7)
    call PauseTimer(timer_5)
endfunction

function KG takes nothing returns nothing
    call DialogSetMessage(dialog_6, "Do you want to choose this area?")
    call DialogDisplay(GetTriggerPlayer(), dialog_6, true)
    call PauseTimer(timer_5)
endfunction

function MG takes nothing returns boolean
    return (GetClickedButton() == button_1)
endfunction

//Calls:
//    RC
function PG takes nothing returns nothing
    call RC()
endfunction

//Calls:
//    RC
function SG takes nothing returns nothing
    call RC()
endfunction

//Calls:
//    PB
function UG takes nothing returns nothing
    call PB()
endfunction

//Calls:
//    QA
function YG takes player paramPlayer_1, player paramPlayer_2 returns nothing
    if paramPlayer_2 != paramPlayer_1 then
        call SetPlayerAlliance(paramPlayer_1, paramPlayer_2, ALLIANCE_SHARED_CONTROL, true)
        call SetPlayerAlliance(paramPlayer_1, paramPlayer_2, ALLIANCE_SHARED_ADVANCED_CONTROL, true)
        call DisplayTextToPlayer(paramPlayer_2, 0, 0, "|c" + QA(paramPlayer_1) + GetPlayerName(paramPlayer_1) + "|r you share your units")
    endif
endfunction

//Calls:
//    YG
//    TA
//    QA
function VH takes nothing returns nothing
    local player locPlayer_1 = null

    if StringLength(GetEventPlayerChatString()) == 4 then
        set bj_forLoopAIndex = 0
        loop
            exitwhen bj_forLoopAIndex > 11
            if IsPlayerAlly(Player(bj_forLoopAIndex), GetTriggerPlayer()) then
                call YG(GetTriggerPlayer(), Player(bj_forLoopAIndex))
            endif
            set bj_forLoopAIndex = bj_forLoopAIndex + 1
        endloop
    else
        set locPlayer_1 = TA(SubString(GetEventPlayerChatString(), 5, StringLength(GetEventPlayerChatString())))
        if locPlayer_1 == null then
            call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "players have not been recognized")
            set locPlayer_1 = null
            return
        endif
        call YG(GetTriggerPlayer(), locPlayer_1)
    endif
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + "|r is afk")
    call DialogSetMessage(dialog_7, "afk...")
    call DialogDisplay(GetTriggerPlayer(), dialog_7, true)
    set locPlayer_1 = null
endfunction

//Calls:
//    QA
function XH takes nothing returns nothing
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        if GetTriggerPlayer() != Player(bj_forLoopAIndex) and GetPlayerAlliance(GetTriggerPlayer(), Player(bj_forLoopAIndex), ALLIANCE_SHARED_ADVANCED_CONTROL) then
            call SetPlayerAlliance(GetTriggerPlayer(), Player(bj_forLoopAIndex), ALLIANCE_SHARED_CONTROL, false)
            call SetPlayerAlliance(Player(bj_forLoopAIndex), GetTriggerPlayer(), ALLIANCE_SHARED_CONTROL, false)
            call SetPlayerAlliance(GetTriggerPlayer(), Player(bj_forLoopAIndex), ALLIANCE_SHARED_ADVANCED_CONTROL, false)
        endif
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call DisplayTextToForce(bj_FORCE_ALL_PLAYERS, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + "|r is back.")
endfunction

//Calls:
//    FB
//    QA
function RH takes nothing returns nothing
    local group locGroup_1 = FB(GetTriggerPlayer())
    local unit locUnit_1 = FirstOfGroup(locGroup_1)
    local player locPlayer_1 = GetOwningPlayer(locUnit_1)
    local integer locInteger_1 = 0
    local boolean locBoolean_1 = false

    if SubString(GetEventPlayerChatString(), 0, 10) == "-givegold " then
        set locInteger_1 = S2I(SubString(GetEventPlayerChatString(), 10, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if SubString(GetEventPlayerChatString(), 0, 4) == "-gg " then
        set locInteger_1 = S2I(SubString(GetEventPlayerChatString(), 4, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if locBoolean_1 == false then
        call DestroyGroup(locGroup_1)
        return
    endif
    if CountUnitsInGroup(locGroup_1) == 0 then
        call DestroyGroup(locGroup_1)
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You must select any unit which belong to another player")
        return
    endif
    call DestroyGroup(locGroup_1)
    if locPlayer_1 == GetTriggerPlayer() then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You must select any unit which belong to another player")
        return
    endif
    if locPlayer_1 == Player(11) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You can not give gold to this player")
        return
    endif
    if IsPlayerAlly(GetTriggerPlayer(), locPlayer_1) == false then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Do you want to give gold to your enemy? lol?")
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Bah too bad! But i will not tell to everybody that you're a traitor: p")
        return
    endif
    if locInteger_1 <= 0 then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You can not give a negative quantity of gold: p")
        return
    endif
    if locInteger_1 > GetPlayerState(GetTriggerPlayer(), PLAYER_STATE_RESOURCE_GOLD) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You do not have enough gold: p")
        return
    endif
    call AdjustPlayerStateSimpleBJ(GetTriggerPlayer(), PLAYER_STATE_RESOURCE_GOLD, locInteger_1)
    call AdjustPlayerStateSimpleBJ(locPlayer_1, PLAYER_STATE_RESOURCE_GOLD, locInteger_1)
    call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "You gave |cffffff00" + I2S(locInteger_1) + " or|r a |c" + QA(locPlayer_1) + GetPlayerName(locPlayer_1))
    call DisplayTextToPlayer(locPlayer_1, 0, 0, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + "|rgave you |cffffff00" + I2S(locInteger_1) + " gold")
endfunction

//Calls:
//    FB
//    QA
function NH takes nothing returns nothing
    local group locGroup_1 = FB(GetTriggerPlayer())
    local unit locUnit_1 = FirstOfGroup(locGroup_1)
    local player locPlayer_1 = GetOwningPlayer(locUnit_1)
    local integer locInteger_1 = 0
    local boolean locBoolean_1 = false

    if SubString(GetEventPlayerChatString(), 0, 12) == "-givelumber " then
        set locInteger_1 = S2I(SubString(GetEventPlayerChatString(), 12, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if SubString(GetEventPlayerChatString(), 0, 4) == "-gl " then
        set locInteger_1 = S2I(SubString(GetEventPlayerChatString(), 4, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if locBoolean_1 == false then
        call DestroyGroup(locGroup_1)
        return
    endif
    if CountUnitsInGroup(locGroup_1) == 0 then
        call DestroyGroup(locGroup_1)
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You must select any unit which belong to another player")
        return
    endif
    call DestroyGroup(locGroup_1)
    if locPlayer_1 == GetTriggerPlayer() then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You must select any unit which belong to another player")
        return
    endif
    if locPlayer_1 == Player(11) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You can not give wood to this player")
        return
    endif
    if IsPlayerAlly(GetTriggerPlayer(), locPlayer_1) == false then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Do you want to give wood to your enemy? lol?")
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Bah too bad! But i will not tell to everybody that you're a traitor: p")
        return
    endif
    if locInteger_1 <= 0 then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You can not give a negative quantity of wood: p")
        return
    endif
    if locInteger_1 > GetPlayerState(GetTriggerPlayer(), PLAYER_STATE_RESOURCE_LUMBER) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You do not have enough wood: p")
        return
    endif
    call AdjustPlayerStateSimpleBJ(GetTriggerPlayer(), PLAYER_STATE_RESOURCE_LUMBER, locInteger_1)
    call AdjustPlayerStateSimpleBJ(locPlayer_1, PLAYER_STATE_RESOURCE_LUMBER, locInteger_1)
    call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "You gave |cff00ff00" + I2S(locInteger_1) + " wood|r a |c" + QA(locPlayer_1) + GetPlayerName(locPlayer_1))
    call DisplayTextToPlayer(locPlayer_1, 0, 0, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + "|rgave you |cff00ff00" + I2S(locInteger_1) + " wood")
endfunction

function CH takes nothing returns nothing
    local boolean locBoolean_1 = true

    if GetOwningPlayer(GetEnumUnit()) != GetTriggerPlayer() then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Unable to give units " + GetUnitName(GetEnumUnit()) + " (do not belong)")
        call GroupRemoveUnit(group_1, GetEnumUnit())
        return
    elseif GetUnitTypeId(GetEnumUnit()) == 'u000' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00R' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u001' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u007' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u008' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u009' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00Q' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00S' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00T' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00W' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u017' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u018' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u016' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00J' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u015' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00C' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00I' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00U' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00D' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'u00A' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'H000' then
        set locBoolean_1 = false
    elseif GetUnitTypeId(GetEnumUnit()) == 'H00D' then
        set locBoolean_1 = false
    endif
    if (locBoolean_1 == false) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Unable to give units " + GetUnitName(GetEnumUnit()) + " (unit is related to you)")
        call GroupRemoveUnit(group_1, GetEnumUnit())
    endif
    set integer_13 = integer_13 + GetUnitFoodUsed(GetEnumUnit())
    return
endfunction

function FH takes nothing returns nothing
    call SetUnitOwner(GetEnumUnit(), player_4, true)
endfunction

//Calls:
//    TA
//    FB
//    QA
//    CB
//Functions as argument:
//    CH
//    FH
function GH takes nothing returns nothing
    local boolean locBoolean_1 = false

    set integer_13 = 0
    set player_4 = null
    if SubString(GetEventPlayerChatString(), 0, 11) == "-giveunits " then
        set player_4 = TA(SubString(GetEventPlayerChatString(), 11, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if SubString(GetEventPlayerChatString(), 0, 4) == "-gu " then
        set player_4 = TA(SubString(GetEventPlayerChatString(), 4, StringLength(GetEventPlayerChatString())))
        set locBoolean_1 = true
    endif
    if locBoolean_1 == false then
        return
    endif
    set group_1 = FB(GetTriggerPlayer())
    call ForGroup(group_1, function CH)
    if CountUnitsInGroup(group_1) == 0 then
        call DestroyGroup(group_1)
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You must select ally to give him units")
        return
    endif
    if player_4 == null then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Name/Color/id of the player have not been recognized or it is left.")
        call DestroyGroup(group_1)
        return
    endif
    if IsPlayerAlly(GetTriggerPlayer(), player_4) != true then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Do you want to give units to your enemy? lol?")
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000Bah too bad! But i will not tell to everybody that you're a traitor: p")
        call DestroyGroup(group_1)
        return
    endif
    if player_4 == GetTriggerPlayer() then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000wants to give his own units!")
        call DestroyGroup(group_1)
        return
    endif
    if player_4 == Player(11) then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000You can not give this units to player!")
        call DestroyGroup(group_1)
        return
    endif
    if GetPlayerState(player_4, PLAYER_STATE_RESOURCE_FOOD_CAP) - GetPlayerState(player_4, PLAYER_STATE_RESOURCE_FOOD_USED) < integer_13 then
        call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "|cffff0000The player does not produce enough food!")
    endif
    call ForGroup(group_1, function FH)
    call DisplayTextToPlayer(GetTriggerPlayer(), 0, 0, "You gave" + I2S(CountUnitsInGroup(group_1)) + " unit(s) a |c" + QA(player_4) + GetPlayerName(player_4))
    call DisplayTextToPlayer(player_4, 0, 0, "|c" + QA(GetTriggerPlayer()) + GetPlayerName(GetTriggerPlayer()) + "|rgave you " + I2S(CountUnitsInGroup(group_1)) + " unit(s)")
    call CB(player_4)
    call DestroyGroup(group_1)
endfunction

//Calls:
//    CB
function JH takes nothing returns nothing
    call CB(GetTriggerPlayer())
endfunction

function InitCustomTeams takes nothing returns nothing
    call SetPlayerTeam(Player(0), 0)
    call SetPlayerTeam(Player(1), 0)
    call SetPlayerTeam(Player(2), 0)
    call SetPlayerTeam(Player(3), 0)
    call SetPlayerTeam(Player(4), 0)
    call SetPlayerTeam(Player(5), 0)
    call SetPlayerTeam(Player(6), 0)
    call SetPlayerTeam(Player(7), 0)
    call SetPlayerTeam(Player(8), 0)
    call SetPlayerTeam(Player(9), 0)
    call SetPlayerTeam(Player(10), 0)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(0), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(1), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(2), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(3), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(4), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(5), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(6), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(7), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(9), true)
    call SetPlayerAllianceStateAllyBJ(Player(8), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(9), Player(10), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(0), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(1), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(2), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(3), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(4), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(5), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(6), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(7), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(8), true)
    call SetPlayerAllianceStateAllyBJ(Player(10), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(0), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(1), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(2), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(3), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(4), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(5), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(6), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(7), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(9), true)
    call SetPlayerAllianceStateVisionBJ(Player(8), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(9), Player(10), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(0), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(1), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(2), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(3), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(4), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(5), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(6), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(7), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(8), true)
    call SetPlayerAllianceStateVisionBJ(Player(10), Player(9), true)
    call SetPlayerTeam(Player(11), 1)
endfunction

//Calls:
//    on8Sg_AMH7
//    MB
//Functions as argument:
//    NA
//    GI
//    IA
//    LH
//    NB
//    JB
//    HC
//    KC
//    MC
//    PC
//    TC
//    UC
//    YC
//    ZC
//    RD
//    ND
//    FD
//    JD
//    PD
//    QD
//    TD
//    WD
//    YD
//    VF
//    EF
//    OF
//    JF
//    LF
//    PF
//    SF
//    UF
//    YF
//    VG
//    XG
//    OG
//    IG
//    NG
//    CG
//    FG
//    HG
//    KG
//    MG
//    PG
//    SG
//    UG
//    VH
//    XH
//    RH
//    NH
//    GH
//    JH
//    passW
//    Mr7Yes
//    imbA
function main2 takes nothing returns nothing
    local weathereffect locWeathereffect_1
    local integer locInteger_1
    local integer locInteger_2
    local integer locInteger_3
    local version locVersion_1
    local integer locInteger_4

    call on8Sg_AMH7()
    call SetCameraBounds(-3328. + GetCameraMargin(CAMERA_MARGIN_LEFT), -3584. + GetCameraMargin(CAMERA_MARGIN_BOTTOM), 27904. - GetCameraMargin(CAMERA_MARGIN_RIGHT), 27648. - GetCameraMargin(CAMERA_MARGIN_TOP), -3328. + GetCameraMargin(CAMERA_MARGIN_LEFT), 27648. - GetCameraMargin(CAMERA_MARGIN_TOP), 27904. - GetCameraMargin(CAMERA_MARGIN_RIGHT), -3584. + GetCameraMargin(CAMERA_MARGIN_BOTTOM))
    call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl", "Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
    set locWeathereffect_1 = AddWeatherEffect(Rect(-4096., -4096., 28672., 28672.), 'RLlr')
    call EnableWeatherEffect(locWeathereffect_1, true)
    call NewSoundEnvironment("Default")
    call SetAmbientDaySound("LordaeronWinterDay")
    call SetAmbientNightSound("LordaeronWinterNight")
    call SetMapMusic("Music", true, 0)
    set sound_1 = CreateSound("Units\\Creeps\\ForestTroll\\ForestTrollPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_1, "ForestTrollPissed")
    call SetSoundDuration(sound_1, 3039)
    call SetSoundChannel(sound_1, 0)
    set sound_2 = CreateSound("Units\\Creeps\\IceTroll\\IceTrollPissed2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_2, "IceTrollPissed")
    call SetSoundDuration(sound_2, 2243)
    call SetSoundChannel(sound_2, 0)
    set sound_3 = CreateSound("Units\\Creeps\\IceTroll\\IceTrollPissed4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_3, "IceTrollPissed")
    call SetSoundDuration(sound_3, 1293)
    call SetSoundChannel(sound_3, 0)
    set sound_4 = CreateSound("Units\\Human\\HeroMountainKing\\HeroMountainKingPissed7.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_4, "HeroMountainKingPissed")
    call SetSoundDuration(sound_4, 1916)
    call SetSoundChannel(sound_4, 0)
    set sound_5 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_5, "HeroShadowHunterPissed")
    call SetSoundDuration(sound_5, 2351)
    call SetSoundChannel(sound_5, 0)
    set sound_6 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterPissed4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_6, "HeroShadowHunterPissed")
    call SetSoundDuration(sound_6, 3318)
    call SetSoundChannel(sound_6, 0)
    set sound_7 = CreateSound("Units\\Creeps\\Ogre\\OgreReady1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_7, "OgreReady")
    call SetSoundDuration(sound_7, 2134)
    call SetSoundChannel(sound_7, 0)
    set sound_8 = CreateSound("Units\\Critters\\BloodElfPeasant\\BloodElfEngineerPissed6.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_8, "BloodElfEngineerPissed")
    call SetSoundDuration(sound_8, 3474)
    call SetSoundChannel(sound_8, 0)
    set sound_9 = CreateSound("Units\\Critters\\BloodElfPeasant\\BloodElfEngineerYesAttack1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_9, "BloodElfEngineerYesAttack")
    call SetSoundDuration(sound_9, 2377)
    call SetSoundChannel(sound_9, 0)
    set sound_10 = CreateSound("Units\\Human\\Peasant\\PeasantYesAttack4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_10, "PeasantYesAttack")
    call SetSoundDuration(sound_10, 1921)
    call SetSoundChannel(sound_10, 0)
    set sound_11 = CreateSound("Units\\Orc\\HeadHunter\\HeadHunterPissed2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_11, "HeadHunterPissed")
    call SetSoundDuration(sound_11, 3005)
    call SetSoundChannel(sound_11, 0)
    set sound_12 = CreateSound("Units\\Orc\\WitchDoctor\\WitchDoctorPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_12, "WitchDoctorPissed")
    call SetSoundDuration(sound_12, 1345)
    call SetSoundChannel(sound_12, 0)
    set sound_13 = CreateSound("Units\\Orc\\WitchDoctor\\WitchDoctorPissed6.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_13, "WitchDoctorPissed")
    call SetSoundDuration(sound_13, 3006)
    call SetSoundChannel(sound_13, 0)
    set sound_14 = CreateSound("Units\\Orc\\HeadHunter\\HeadHunterYesAttack2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_14, "HeadHunterYesAttack")
    call SetSoundDuration(sound_14, 1867)
    call SetSoundChannel(sound_14, 0)
    set sound_15 = CreateSound("Units\\Orc\\HeadHunter\\HeadHunterYes4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_15, "HeadHunterYes")
    call SetSoundDuration(sound_15, 2186)
    call SetSoundChannel(sound_15, 0)
    set sound_16 = CreateSound("Units\\Human\\Muradin\\MuradinPissed5.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_16, "MuradinPissed")
    call SetSoundDuration(sound_16, 1979)
    call SetSoundChannel(sound_16, 0)
    set sound_17 = CreateSound("Units\\Creeps\\IceTroll\\IceTrollPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_17, "IceTrollPissed")
    call SetSoundDuration(sound_17, 2624)
    call SetSoundChannel(sound_17, 0)
    set sound_18 = CreateSound("Units\\Critters\\BloodElfPeasant\\BloodElfEngineerPissed4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_18, "BloodElfEngineerPissed")
    call SetSoundDuration(sound_18, 6687)
    call SetSoundChannel(sound_18, 0)
    set sound_19 = CreateSound("Units\\Orc\\HeadHunter\\HeadHunterPissed5.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_19, "HeadHunterPissed")
    call SetSoundDuration(sound_19, 2450)
    call SetSoundChannel(sound_19, 0)
    set sound_20 = CreateSound("Units\\Orc\\HeadHunter\\HeadHunterWarcry1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_20, "HeadHunterWarcry")
    call SetSoundDuration(sound_20, 1369)
    call SetSoundChannel(sound_20, 0)
    set sound_21 = CreateSound("Units\\Creeps\\IceTroll\\IceTrollYesAttack2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_21, "IceTrollYesAttack")
    call SetSoundDuration(sound_21, 1718)
    call SetSoundChannel(sound_21, 0)
    set sound_22 = CreateSound("Units\\Creeps\\ForestTroll\\ForestTrollReady1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_22, "ForestTrollReady")
    call SetSoundDuration(sound_22, 2173)
    call SetSoundChannel(sound_22, 0)
    set sound_23 = CreateSound("Units\\Undead\\Acolyte\\AcolytePissed2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_23, "AcolytePissed")
    call SetSoundDuration(sound_23, 2118)
    call SetSoundChannel(sound_23, 0)
    set sound_24 = CreateSound("Units\\Human\\Peasant\\PeasantWarcry1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_24, "PeasantWarcry")
    call SetSoundDuration(sound_24, 1304)
    call SetSoundChannel(sound_24, 0)
    set sound_25 = CreateSound("Sound\\Dialogue\\Extra\\MuradinTaunt1.mp3", false, false, false, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_25, "MuradinTaunt1")
    call SetSoundDuration(sound_25, 1828)
    set sound_26 = CreateSound("Units\\Human\\HeroArchMage\\HeroArchMagePissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_26, "HeroArchMagePissed")
    call SetSoundDuration(sound_26, 2200)
    call SetSoundChannel(sound_26, 0)
    set sound_27 = CreateSound("Units\\Human\\Kael\\KaelPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_27, "KaelPissed")
    call SetSoundDuration(sound_27, 4023)
    call SetSoundChannel(sound_27, 0)
    set sound_28 = CreateSound("Units\\Human\\Kael\\KaelYesAttack3.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_28, "KaelYesAttack")
    call SetSoundDuration(sound_28, 1907)
    call SetSoundChannel(sound_28, 0)
    set sound_29 = CreateSound("Units\\Human\\Priest\\PriestPissed3.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_29, "PriestPissed")
    call SetSoundDuration(sound_29, 1016)
    call SetSoundChannel(sound_29, 0)
    set sound_30 = CreateSound("Units\\Human\\Priest\\PriestPissed4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_30, "PriestPissed")
    call SetSoundDuration(sound_30, 2842)
    call SetSoundChannel(sound_30, 0)
    set sound_31 = CreateSound("Units\\Human\\Priest\\PriestPissed6.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_31, "PriestPissed")
    call SetSoundDuration(sound_31, 10844)
    call SetSoundChannel(sound_31, 0)
    set sound_32 = CreateSound("Units\\Human\\TheCaptain\\CaptainPissed1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_32, "CaptainPissed")
    call SetSoundDuration(sound_32, 2842)
    call SetSoundChannel(sound_32, 0)
    set sound_33 = CreateSound("Units\\Human\\Uther\\UtherPissed2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_33, "UtherPissed")
    call SetSoundDuration(sound_33, 2349)
    call SetSoundChannel(sound_33, 0)
    set sound_34 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterWhat1.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_34, "HeroShadowHunterWhat")
    call SetSoundDuration(sound_34, 2038)
    call SetSoundChannel(sound_34, 0)
    set sound_35 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterYes5.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_35, "HeroShadowHunterYes")
    call SetSoundDuration(sound_35, 2090)
    call SetSoundChannel(sound_35, 0)
    set sound_36 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterYes6.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_36, "HeroShadowHunterYes")
    call SetSoundDuration(sound_36, 2377)
    call SetSoundChannel(sound_36, 0)
    set sound_37 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterYesAttack2.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_37, "HeroShadowHunterYesAttack")
    call SetSoundDuration(sound_37, 1857)
    call SetSoundChannel(sound_37, 0)
    set sound_38 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterYesAttack3.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_38, "HeroShadowHunterYesAttack")
    call SetSoundDuration(sound_38, 2038)
    call SetSoundChannel(sound_38, 0)
    set sound_39 = CreateSound("Units\\Orc\\HeroShadowHunter\\ShadowHunterYesAttack4.wav", false, false, true, 10, 10, "HeroAcksEAX")
    call SetSoundParamsFromLabel(sound_39, "HeroShadowHunterYesAttack")
    call SetSoundDuration(sound_39, 1149)
    call SetSoundChannel(sound_39, 0)
    call MB()
    set camerasetup_1 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_ROTATION, 126.1, .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_ANGLE_OF_ATTACK, 327.5, .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_TARGET_DISTANCE, 1862.8, .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_1, CAMERA_FIELD_FARZ, 5500., .0)
    call CameraSetupSetDestPosition(camerasetup_1, 4519.1, 2646.5, .0)
    set camerasetup_2 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_ROTATION, 134.5, .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_ANGLE_OF_ATTACK, 325.1, .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_TARGET_DISTANCE, 2049., .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_2, CAMERA_FIELD_FARZ, 5500., .0)
    call CameraSetupSetDestPosition(camerasetup_2, 17807.6, 5839.2, .0)
    set camerasetup_3 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_ROTATION, 54.7, .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_ANGLE_OF_ATTACK, 310.8, .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_TARGET_DISTANCE, 1442.1, .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_3, CAMERA_FIELD_FARZ, 10000., .0)
    call CameraSetupSetDestPosition(camerasetup_3, 14217.4, -1670.6, .0)
    set camerasetup_4 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_ROTATION, 47., .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_ANGLE_OF_ATTACK, 327.3, .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_TARGET_DISTANCE, 1744.9, .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_4, CAMERA_FIELD_FARZ, 10000., .0)
    call CameraSetupSetDestPosition(camerasetup_4, 25189.6, -2037.5, .0)
    set camerasetup_5 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_ROTATION, 66., .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_ANGLE_OF_ATTACK, 329.2, .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_TARGET_DISTANCE, 1442.1, .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_5, CAMERA_FIELD_FARZ, 10000., .0)
    call CameraSetupSetDestPosition(camerasetup_5, 25476.5, 5665.6, .0)
    set camerasetup_6 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_ROTATION, 115.3, .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_ANGLE_OF_ATTACK, 329.7, .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_TARGET_DISTANCE, 2415.8, .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_6, CAMERA_FIELD_FARZ, 10000., .0)
    call CameraSetupSetDestPosition(camerasetup_6, 20827.5, 17520.3, .0)
    set camerasetup_7 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_ROTATION, 68.9, .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_ANGLE_OF_ATTACK, 308.3, .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_TARGET_DISTANCE, 1650., .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_7, CAMERA_FIELD_FARZ, 10000., .0)
    call CameraSetupSetDestPosition(camerasetup_7, 7202.5, 15381., .0)
    set camerasetup_8 = CreateCameraSetup()
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_ZOFFSET, .0, .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_ROTATION, 123.9, .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_ANGLE_OF_ATTACK, 313.1, .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_TARGET_DISTANCE, 2196.1, .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_ROLL, .0, .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_FIELD_OF_VIEW, 70., .0)
    call CameraSetupSetField(camerasetup_8, CAMERA_FIELD_FARZ, 8052.5, .0)
    call CameraSetupSetDestPosition(camerasetup_8, 7310.7, 24306., .0)
    call ConfigureNeutralVictim()
    set boolexpr_1 = Filter(function NA)
    set filterIssueHauntOrderAtLocBJ = Filter(function IssueHauntOrderAtLocBJFilter)
    set filterEnumDestructablesInCircleBJ = Filter(function GI)
    set filterGetUnitsInRectOfPlayer = Filter(function GetUnitsInRectOfPlayerFilter)
    set filterGetUnitsOfTypeIdAll = Filter(function GetUnitsOfTypeIdAllFilter)
    set filterGetUnitsOfPlayerAndTypeId = Filter(function GetUnitsOfPlayerAndTypeIdFilter)
    set filterMeleeTrainedUnitIsHeroBJ = Filter(function MeleeTrainedUnitIsHeroBJFilter)
    set filterLivingPlayerUnitsOfTypeId = Filter(function LivingPlayerUnitsOfTypeIdFilter)
    set locInteger_2 = 0
    loop
        exitwhen locInteger_2 == 16
        set bj_FORCE_PLAYER[locInteger_2] = CreateForce()
        call ForceAddPlayer(bj_FORCE_PLAYER[locInteger_2], Player(locInteger_2))
        set locInteger_2 = locInteger_2 + 1
    endloop
    set bj_FORCE_ALL_PLAYERS = CreateForce()
    call ForceEnumPlayers(bj_FORCE_ALL_PLAYERS, null)
    set bj_cineModePriorSpeed = GetGameSpeed()
    set bj_cineModePriorFogSetting = IsFogEnabled()
    set bj_cineModePriorMaskSetting = IsFogMaskEnabled()
    set locInteger_2 = 0
    loop
        exitwhen locInteger_2 >= bj_MAX_QUEUED_TRIGGERS
        set bj_queuedExecTriggers[locInteger_2] = null
        set bj_queuedExecUseConds[locInteger_2] = false
        set locInteger_2 = locInteger_2 + 1
    endloop
    set bj_isSinglePlayer = false
    set locInteger_3 = 0
    set locInteger_2 = 0
    loop
        exitwhen locInteger_2 >= 12
        if (GetPlayerController(Player(locInteger_2)) == MAP_CONTROL_USER and GetPlayerSlotState(Player(locInteger_2)) == PLAYER_SLOT_STATE_PLAYING) then
            set locInteger_3 = locInteger_3 + 1
        endif
        set locInteger_2 = locInteger_2 + 1
    endloop
    set bj_isSinglePlayer = (locInteger_3 == 1)
    set bj_rescueSound = CreateSoundFromLabel("Rescue", false, false, false, 10000, 10000)
    set bj_questDiscoveredSound = CreateSoundFromLabel("QuestNew", false, false, false, 10000, 10000)
    set bj_questUpdatedSound = CreateSoundFromLabel("QuestUpdate", false, false, false, 10000, 10000)
    set bj_questCompletedSound = CreateSoundFromLabel("QuestCompleted", false, false, false, 10000, 10000)
    set bj_questFailedSound = CreateSoundFromLabel("QuestFailed", false, false, false, 10000, 10000)
    set bj_questHintSound = CreateSoundFromLabel("Hint", false, false, false, 10000, 10000)
    set bj_questSecretSound = CreateSoundFromLabel("SecretFound", false, false, false, 10000, 10000)
    set bj_questItemAcquiredSound = CreateSoundFromLabel("ItemReward", false, false, false, 10000, 10000)
    set bj_questWarningSound = CreateSoundFromLabel("Warning", false, false, false, 10000, 10000)
    set bj_victoryDialogSound = CreateSoundFromLabel("QuestCompleted", false, false, false, 10000, 10000)
    set bj_defeatDialogSound = CreateSoundFromLabel("QuestFailed", false, false, false, 10000, 10000)
    call DelayedSuspendDecayCreate()
    set locVersion_1 = VersionGet()
    if (locVersion_1 == VERSION_REIGN_OF_CHAOS) then
        set bj_MELEE_MAX_TWINKED_HEROES = bj_MELEE_MAX_TWINKED_HEROES_V0
    else
        set bj_MELEE_MAX_TWINKED_HEROES = bj_MELEE_MAX_TWINKED_HEROES_V1
    endif
    call InitQueuedTriggers()
    call InitRescuableBehaviorBJ()
    call InitDNCSounds()
    call InitMapRects()
    call InitSummonableCaps()
    set locInteger_4 = 0
    loop
        set bj_stockAllowedPermanent[locInteger_4] = false
        set bj_stockAllowedCharged[locInteger_4] = false
        set bj_stockAllowedArtifact[locInteger_4] = false
        set locInteger_4 = locInteger_4 + 1
        exitwhen locInteger_4 > 10
    endloop
    call SetAllItemTypeSlots(11)
    call SetAllUnitTypeSlots(11)
    set bj_stockUpdateTimer = CreateTimer()
    call TimerStart(bj_stockUpdateTimer, bj_STOCK_RESTOCK_INITIAL_DELAY, false, function IA)
    set bj_stockItemPurchased = CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(bj_stockItemPurchased, Player(15), EVENT_PLAYER_UNIT_SELL_ITEM, null)
    call TriggerAddAction(bj_stockItemPurchased, function RemovePurchasedItem)
    call DetectGameStarted()
    call ExecuteFunc("LH")
    call ExecuteFunc("NB")
    call ExecuteFunc("JB")
    set locInteger_1 = 0
    set dialog_3 = DialogCreate()
    set force_1 = CreateForce()
    set force_2 = CreateForce()
    set timer_1 = CreateTimer()
    set timer_2 = CreateTimer()
    set force_3 = CreateForce()
    set dialog_4 = DialogCreate()
    set force_4 = CreateForce()
    set dialog_5 = DialogCreate()
    set integer_4 = 10
    set timer_3 = CreateTimer()
    set timer_4 = CreateTimer()
    set dialog_6 = DialogCreate()
    set timer_5 = CreateTimer()
    set locInteger_1 = 0
    loop
        exitwhen (locInteger_1 > 11)
        set timerArr_1[locInteger_1] = CreateTimer()
        set locInteger_1 = locInteger_1 + 1
    endloop
    set trigger_11 = CreateTrigger()
    call TriggerRegisterTimerEventSingle(trigger_11, 1.)
    call TriggerAddAction(trigger_11, function HC)
    set trigger_12 = CreateTrigger()
    call TriggerAddAction(trigger_12, function KC)
    set trigger_13 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_13, EVENT_PLAYER_UNIT_SPELL_CAST)
    call TriggerAddCondition(trigger_13, Condition(function MC))
    call TriggerAddAction(trigger_13, function PC)
    set trigger_14 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_14, EVENT_PLAYER_UNIT_SPELL_CAST)
    call TriggerAddCondition(trigger_14, Condition(function TC))
    call TriggerAddAction(trigger_14, function UC)
    set trigger_15 = CreateTrigger()
    call TriggerRegisterDialogEvent(trigger_15, dialog_3)
    call TriggerAddCondition(trigger_15, Condition(function YC))
    call TriggerAddAction(trigger_15, function ZC)
    set trigger_16 = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trigger_16, timer_1)
    call TriggerAddAction(trigger_16, function RD)
    set trigger_17 = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trigger_17, timer_2)
    call TriggerAddAction(trigger_17, function ND)
    set trigger_18 = CreateTrigger()
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(0))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(1))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(2))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(3))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(4))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(5))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(6))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(7))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(8))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(9))
    call TriggerRegisterPlayerEventLeave(trigger_18, Player(10))
    call TriggerAddAction(trigger_18, function FD)
    set trigger_19 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_19, EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddAction(trigger_19, function JD)
    set trigger_20 = CreateTrigger()
    call TriggerRegisterDialogEvent(trigger_20, dialog_4)
    call TriggerAddCondition(trigger_20, Condition(function PD))
    call TriggerAddAction(trigger_20, function QD)
    set trigger_21 = CreateTrigger()
    call TriggerRegisterEnterRectSimple(trigger_21, GetWorldBounds())
    call TriggerAddAction(trigger_21, function TD)
    set trigger_22 = CreateTrigger()
    call TriggerAddCondition(trigger_22, Condition(function WD))
    call TriggerAddAction(trigger_22, function YD)
    set trigger_23 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_23, EVENT_PLAYER_UNIT_CONSTRUCT_FINISH)
    call TriggerAddCondition(trigger_23, Condition(function VF))
    call TriggerAddAction(trigger_23, function EF)
    set trigger_24 = CreateTrigger()
    call TriggerRegisterTimerEventPeriodic(trigger_24, 1.)
    call TriggerAddCondition(trigger_24, Condition(function OF))
    call TriggerAddAction(trigger_24, function JF)
    set trigger_25 = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trigger_25, timer_3)
    call TriggerAddAction(trigger_25, function LF)
    set trigger_26 = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trigger_26, timer_4)
    call TriggerAddAction(trigger_26, function PF)
    set trigger_27 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterTimerExpireEvent(trigger_27, timerArr_1[bj_forLoopAIndex])
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_27, function SF)
    set trigger_28 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_28, EVENT_PLAYER_UNIT_CONSTRUCT_FINISH)
    call TriggerAddCondition(trigger_28, Condition(function UF))
    call TriggerAddAction(trigger_28, function YF)
    set trigger_29 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trigger_29, EVENT_PLAYER_UNIT_SPELL_CAST)
    call TriggerAddAction(trigger_29, function VG)
    set trigger_30 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerSelectionEventBJ(trigger_30, Player(bj_forLoopAIndex), true)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddCondition(trigger_30, Condition(function XG))
    call TriggerAddAction(trigger_30, function OG)
    set trigger_31 = CreateTrigger()
    call TriggerRegisterTimerEventPeriodic(trigger_31, 450.)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(0), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(1), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(2), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(3), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(4), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(5), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(6), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(7), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(8), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(9), "-pub", true)
    call TriggerRegisterPlayerChatEvent(trigger_31, Player(10), "-pub", true)
    call TriggerAddAction(trigger_31, function IG)
    set trigger_32 = CreateTrigger()
    call TriggerRegisterTimerEvent(trigger_32, .01, true)
    call TriggerAddAction(trigger_32, function NG)
    call DisableTrigger(trigger_32)
    set trigger_33 = CreateTrigger()
    call TriggerAddAction(trigger_33, function CG)
    call DisableTrigger(trigger_33)
    set trigger_34 = CreateTrigger()
    call TriggerAddAction(trigger_34, function FG)
    call DisableTrigger(trigger_34)
    set trigger_35 = CreateTrigger()
    call TriggerAddAction(trigger_35, function HG)
    call DisableTrigger(trigger_35)
    set trigger_36 = CreateTrigger()
    call TriggerAddAction(trigger_36, function KG)
    call DisableTrigger(trigger_36)
    set trigger_37 = CreateTrigger()
    call TriggerRegisterDialogEvent(trigger_37, dialog_6)
    call TriggerAddCondition(trigger_37, Condition(function MG))
    call TriggerAddAction(trigger_37, function PG)
    set trigger_38 = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trigger_38, timer_5)
    call TriggerAddAction(trigger_38, function SG)
    set trigger_39 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_39, Player(bj_forLoopAIndex), "-stuck", true)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_39, function UG)
    set trigger_40 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_40, Player(bj_forLoopAIndex), "-afk", false)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_40, function VH)
    set dialog_7 = DialogCreate()
    call DialogAddButton(dialog_7, "I'm back!", 0)
    set trigger_41 = CreateTrigger()
    call TriggerRegisterDialogEvent(trigger_41, dialog_7)
    call TriggerAddAction(trigger_41, function XH)
    set trigger_42 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_42, Player(bj_forLoopAIndex), "-givegold ", false)
        call TriggerRegisterPlayerChatEvent(trigger_42, Player(bj_forLoopAIndex), "-gg ", false)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_42, function RH)
    set trigger_43 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_43, Player(bj_forLoopAIndex), "-givelumber ", false)
        call TriggerRegisterPlayerChatEvent(trigger_43, Player(bj_forLoopAIndex), "-gl ", false)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_43, function NH)
    set trigger_44 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_44, Player(bj_forLoopAIndex), "-giveunits ", false)
        call TriggerRegisterPlayerChatEvent(trigger_44, Player(bj_forLoopAIndex), "-gu ", false)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_44, function GH)
    set trigger_45 = CreateTrigger()
    set bj_forLoopAIndex = 0
    loop
        exitwhen bj_forLoopAIndex > 11
        call TriggerRegisterPlayerChatEvent(trigger_45, Player(bj_forLoopAIndex), "-clear", true)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TriggerAddAction(trigger_45, function JH)
    call ConditionalTriggerExecute(trigger_12)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(0), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(1), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(2), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(3), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(4), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(5), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(6), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(7), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(8), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(9), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(10), "  ", false)
    call TriggerRegisterPlayerChatEvent(trigger_1, Player(11), "  ", false)
    call TriggerAddCondition(trigger_1, Condition(function passW))
    call TriggerAddCondition(trigger_2, Condition(function Mr7Yes))
    call TriggerAddAction(trigger_2, function imbA)
endfunction

function InitTrig_Script takes nothing returns nothing
    call main2()
endfunction

//Calls:
//    InitCustomTeams
function config2 takes nothing returns nothing
    call SetMapName("TRIGSTR_001")
    call SetMapDescription("TRIGSTR_003")
    call SetPlayers(12)
    call SetTeams(12)
    call SetGamePlacement(MAP_PLACEMENT_TEAMS_TOGETHER)
    call DefineStartLocation(0, 4096., 2432.)
    call DefineStartLocation(1, 4288., 2432.)
    call DefineStartLocation(2, 3904., 2432.)
    call DefineStartLocation(3, 4480., 2432.)
    call DefineStartLocation(4, 4096., 3008.)
    call DefineStartLocation(5, 4288., 3008.)
    call DefineStartLocation(6, 3904., 3008.)
    call DefineStartLocation(7, 4480., 3008.)
    call DefineStartLocation(8, 3904., 2624.)
    call DefineStartLocation(9, 3904., 2816.)
    call DefineStartLocation(10, 4480., 2624.)
    call DefineStartLocation(11, 4480., 2816.)
    call SetPlayerStartLocation(Player(0), 0)
    call SetPlayerColor(Player(0), ConvertPlayerColor(0))
    call SetPlayerRacePreference(Player(0), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(0), false)
    call SetPlayerController(Player(0), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(1), 1)
    call SetPlayerColor(Player(1), ConvertPlayerColor(1))
    call SetPlayerRacePreference(Player(1), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(1), false)
    call SetPlayerController(Player(1), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(2), 2)
    call SetPlayerColor(Player(2), ConvertPlayerColor(2))
    call SetPlayerRacePreference(Player(2), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(2), false)
    call SetPlayerController(Player(2), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(3), 3)
    call SetPlayerColor(Player(3), ConvertPlayerColor(3))
    call SetPlayerRacePreference(Player(3), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(3), false)
    call SetPlayerController(Player(3), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(4), 4)
    call SetPlayerColor(Player(4), ConvertPlayerColor(4))
    call SetPlayerRacePreference(Player(4), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(4), false)
    call SetPlayerController(Player(4), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(5), 5)
    call SetPlayerColor(Player(5), ConvertPlayerColor(5))
    call SetPlayerRacePreference(Player(5), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(5), false)
    call SetPlayerController(Player(5), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(6), 6)
    call SetPlayerColor(Player(6), ConvertPlayerColor(6))
    call SetPlayerRacePreference(Player(6), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(6), false)
    call SetPlayerController(Player(6), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(7), 7)
    call SetPlayerColor(Player(7), ConvertPlayerColor(7))
    call SetPlayerRacePreference(Player(7), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(7), false)
    call SetPlayerController(Player(7), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(8), 8)
    call SetPlayerColor(Player(8), ConvertPlayerColor(8))
    call SetPlayerRacePreference(Player(8), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(8), false)
    call SetPlayerController(Player(8), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(9), 9)
    call SetPlayerColor(Player(9), ConvertPlayerColor(9))
    call SetPlayerRacePreference(Player(9), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(9), false)
    call SetPlayerController(Player(9), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(10), 10)
    call SetPlayerColor(Player(10), ConvertPlayerColor(10))
    call SetPlayerRacePreference(Player(10), RACE_PREF_NIGHTELF)
    call SetPlayerRaceSelectable(Player(10), false)
    call SetPlayerController(Player(10), MAP_CONTROL_USER)
    call SetPlayerStartLocation(Player(11), 11)
    call SetPlayerColor(Player(11), ConvertPlayerColor(11))
    call SetPlayerRacePreference(Player(11), RACE_PREF_ORC)
    call SetPlayerRaceSelectable(Player(11), false)
    call SetPlayerController(Player(11), MAP_CONTROL_COMPUTER)
    call InitCustomTeams()
    call SetStartLocPrioCount(0, 3)
    call SetStartLocPrio(0, 0, 1, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0, 1, 2, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(0, 2, 8, MAP_LOC_PRIO_LOW)
    call SetStartLocPrioCount(1, 3)
    call SetStartLocPrio(1, 0, 0, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1, 1, 3, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(1, 2, 10, MAP_LOC_PRIO_LOW)
    call SetStartLocPrioCount(2, 2)
    call SetStartLocPrio(2, 0, 0, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(2, 1, 8, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(3, 2)
    call SetStartLocPrio(3, 0, 1, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(3, 1, 10, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(4, 3)
    call SetStartLocPrio(4, 0, 5, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4, 1, 6, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(4, 2, 9, MAP_LOC_PRIO_LOW)
    call SetStartLocPrioCount(5, 2)
    call SetStartLocPrio(5, 0, 4, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(5, 1, 7, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(6, 2)
    call SetStartLocPrio(6, 0, 4, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(6, 1, 9, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(7, 1)
    call SetStartLocPrio(7, 0, 5, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(8, 3)
    call SetStartLocPrio(8, 0, 0, MAP_LOC_PRIO_LOW)
    call SetStartLocPrio(8, 1, 2, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(8, 2, 9, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(9, 3)
    call SetStartLocPrio(9, 0, 4, MAP_LOC_PRIO_LOW)
    call SetStartLocPrio(9, 1, 6, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrio(9, 2, 8, MAP_LOC_PRIO_HIGH)
    call SetStartLocPrioCount(10, 2)
    call SetStartLocPrio(10, 0, 1, MAP_LOC_PRIO_LOW)
    call SetStartLocPrio(10, 1, 3, MAP_LOC_PRIO_HIGH)
endfunction

function LH takes nothing returns nothing
endfunction