Triggers

function Ceil takes real r returns integer
    return R2I(r+1)
endfunction

function Floor takes real r returns integer
    return R2I(r)
endfunction

function RoundUp takes real r returns integer
    if R2I(r) == r then
        return R2I(r)
    endif
    return Ceil(r)
endfunction

function IsUnitAWard takes unit u returns boolean
    local integer uid = GetUnitTypeId(u)
    return uid == 'oeye' or uid == 'nwad' or uid == 'otot' or uid == 'ohwd' or uid == 'osp1' or uid == 'osp2' or uid == 'osp3' or uid == 'osp4' or uid == 'o004'
endfunction

function IsUnitGround takes unit u returns boolean
    // required because UNIT_TYPE_GROUND not working for amphibious units
    return not IsUnitAWard(u) and not IsUnitType(u, UNIT_TYPE_FLYING) and not IsUnitType(u, UNIT_TYPE_STRUCTURE)
endfunction

// assuming s is of size 1
function S2C takes string s returns integer
    if StringCase(s, false) == s then
        return LoadIntegerBJ(StringHashBJ(s), udg_Dict_ASCII_IndexChar, udg_DictHT )
    endif
    return LoadIntegerBJ(StringHashBJ(s+"_"), udg_Dict_ASCII_IndexChar, udg_DictHT )
endfunction

// assuming s is of size 4
function S2ObjectId takes string s returns integer
    local integer output

    set output = S2C(SubStringBJ(s, 4, 4))
    set output = output + 256*S2C(SubStringBJ(s, 3, 3))
    set output = output + 65536*S2C(SubStringBJ(s, 2, 2))
    set output = output + 16777216*S2C(SubStringBJ(s, 1, 1))

    return output
endfunction

function PlaySoundLocally takes sound s, player p returns nothing
    if GetLocalPlayer() == p then
        call PlaySoundBJ( s )
    endif
endfunction

function PlaySoundIfUnplayed takes sound s returns nothing
    if not GetSoundIsPlaying(s) then
        call PlaySoundBJ( s )
    endif
endfunction

function GetPlayerColoredName takes player p returns string
    local integer player_index = GetConvertedPlayerId(p)
    local string output

    // set output = udg_Player2Color[GetConvertedPlayerId(p)]
    set output = LoadStringBJ(GetHandleIdBJ(GetPlayerColor(p)), udg_Dict_Color_IndexHexcode, udg_DictHT)
    if GetPlayerController(p) == MAP_CONTROL_COMPUTER then
        set output = output + "Player " + I2S(GetConvertedPlayerId(p)) + " (Computer - "
        if GetAIDifficulty(p) == AI_DIFFICULTY_INSANE then
            set output = output + "Insane)"
        elseif GetAIDifficulty(p) == AI_DIFFICULTY_NORMAL then
            set output = output + "Normal)"
        else
            set output = output + "Easy)"
        endif
    else
        set output = output + GetPlayerName(p)
    endif
    set output = output + "|r"

    return output
endfunction

function GetClosestGoldMine takes location l returns unit
    local group g
    local unit gm
    local unit closest_gm
    local real distance
    local real min_distance = -1
    local location l2

    set g = GetUnitsOfTypeIdAll('ngol')
    loop
        set gm = FirstOfGroup(g)
        exitwhen gm == null
            set l2 = GetUnitLoc(gm)
            set distance = DistanceBetweenPoints(l2, l)
            if min_distance == -1 or distance < min_distance then
                set min_distance = distance
                set closest_gm = gm
            endif
            call RemoveLocation(l2)
        call GroupRemoveUnit(g, gm)
    endloop

    call DestroyGroup(g)
    set g = null
    set gm = null
    set l2 = null

    return closest_gm
endfunction

function isUnitInCameraDefaultRange takes unit u returns boolean
    local real width
    local real length
    local real angle
    local real coeff

    set coeff = 0.6
    set angle = 360 - ModuloReal(bj_CAMERA_DEFAULT_AOA, 360.00)
    set length = coeff*bj_CAMERA_DEFAULT_DISTANCE * CosBJ(angle) // 1680 is more accurate
    set width = coeff*bj_CAMERA_DEFAULT_DISTANCE / SinBJ(bj_CAMERA_DEFAULT_FOV) // 1920 is more accurate
    set width = width - 0 // 1440 is the limit
    set length = length - 0 // 1440 is the limit
    set width = 1010
    set length = 1100

    // call BJDebugMsg("X: " + R2S(GetCameraTargetPositionX() - GetUnitX(u)))
    // call BJDebugMsg("Y: " + R2S(GetCameraTargetPositionY() - GetUnitY(u)))

    if (GetCameraTargetPositionX() - GetUnitX(u))*(GetCameraTargetPositionX() - GetUnitX(u)) + (GetCameraTargetPositionY() - GetUnitY(u))*(GetCameraTargetPositionY() - GetUnitY(u)) > 1050 * 1050 then
        return false
    endif

    return true

    if RAbsBJ( GetCameraTargetPositionX() - GetUnitX(u)) > width then
        return false
    endif

    if RAbsBJ( GetCameraTargetPositionY() - GetUnitY(u)) > length then
        return false
    endif

    return true
endfunction

function AttackType2I takes attacktype at returns integer
    if at == ATTACK_TYPE_NORMAL then
        return 0
    endif
    if at == ATTACK_TYPE_MELEE then
        return 1
    endif
    if at == ATTACK_TYPE_PIERCE then
        return 2
    endif
    if at == ATTACK_TYPE_SIEGE then
        return 3
    endif
    if at == ATTACK_TYPE_MAGIC then
        return 4
    endif
    if at == ATTACK_TYPE_CHAOS then
        return 5
    endif
    if at == ATTACK_TYPE_HERO then
        return 6
    endif

    return -1
endfunction

// outdated
function OldCastSpellGeneric takes unit u, integer ability_code, string order_id, integer level, unit target, location spell_loc, unit pos_unit returns boolean
    local unit dummy
    local location l
    local boolean success

    set l = GetUnitLoc(pos_unit)
    set dummy = CreateUnitAtLoc(GetOwningPlayer(u), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
    // set dummy = CreateUnitAtLoc(GetOwningPlayer(u), 'h00D', l, bj_UNIT_FACING)
    call UnitApplyTimedLifeBJ( 1.00, 'BTLF', dummy )
    // call UnitApplyTimedLifeBJ( 100.00, 'BTLF', dummy )
    call UnitAddAbilityBJ( ability_code, dummy )
    call SetUnitAbilityLevelSwapped( ability_code, dummy, level )

    if not (target == null) then
        set success = IssueTargetOrderBJ( dummy, order_id, target )
    else
        if not (spell_loc == null) then
            set success = IssuePointOrderLocBJ( dummy, order_id, spell_loc )
        else
            set success = IssueImmediateOrderBJ( dummy, order_id )
        endif
    endif

    call RemoveLocation(l)
    set dummy = null
    set l = null

    return success
endfunction

function CastSpellGeneric takes unit caster, integer ability_code, string order_id, integer level, unit target, location spell_loc, location dummy_loc returns boolean
    local unit dummy
    local boolean success
    local location l

    if dummy_loc == null then
        set l = GetUnitLoc(caster)
        set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
        // set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), 'h00D', l, bj_UNIT_FACING)
    else
        set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), udg_Skill_DummyCaster, dummy_loc, bj_UNIT_FACING)
        // set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), 'h00D', dummy_loc, bj_UNIT_FACING)
    endif
    call UnitApplyTimedLifeBJ( 1.00, 'BTLF', dummy )
    // call UnitApplyTimedLifeBJ( 100.00, 'BTLF', dummy )
    call UnitAddAbilityBJ( ability_code, dummy )
    call SetUnitAbilityLevelSwapped( ability_code, dummy, level )

    if not (target == null) then
        set success = IssueTargetOrderBJ( dummy, order_id, target )
    else
        if not (spell_loc == null) then
            set success = IssuePointOrderLocBJ( dummy, order_id, spell_loc )
        else
            set success = IssueImmediateOrderBJ( dummy, order_id )
        endif
    endif

    if dummy_loc == null then
        call RemoveLocation(l)
    endif

    set l = null
    set dummy = null

    return success
endfunction

function CastSpellOnUnit takes unit u, integer ability_code, string order_id, integer level, unit target returns boolean
    return CastSpellGeneric(u, ability_code, order_id, level, target, null, null)
endfunction

function CastSpellOnPoint takes unit u, integer ability_code, string order_id, integer level, location l returns boolean
    return CastSpellGeneric(u, ability_code, order_id, level, null, l, null)
endfunction

function CastSpellNoTarget takes unit u, integer ability_code, string order_id, integer level returns boolean
    return CastSpellGeneric(u, ability_code, order_id, level, null, null, null)
endfunction

function CastSpellOnUnitAtUnitPos takes unit u, integer ability_code, string order_id, integer level, unit target returns boolean
    local location target_loc = GetUnitLoc(target)
    local boolean success = CastSpellGeneric(u, ability_code, order_id, level, target, null, target_loc)

    call RemoveLocation(target_loc)
    set target_loc = null

    return success
endfunction

function CastSpellNoTargetAtLoc takes unit u, integer ability_code, string order_id, integer level, location l returns boolean
    return CastSpellGeneric(u, ability_code, order_id, level, null, null, l)
endfunction

function CastSpellFromItemGeneric takes unit caster, integer item_type, unit target, location spell_loc, location dummy_loc returns boolean
    local unit dummy
    local boolean success
    local location l
    local item it

    if dummy_loc == null then
        set l = GetUnitLoc(caster)
        set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
        // set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), 'h00D', l, bj_UNIT_FACING)
    else
        set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), udg_Skill_DummyCaster, dummy_loc, bj_UNIT_FACING)
        // set dummy = CreateUnitAtLoc(GetOwningPlayer(caster), 'h00D', dummy_loc, bj_UNIT_FACING)
    endif
    call UnitApplyTimedLifeBJ( 1.00, 'BTLF', dummy )
    // call UnitApplyTimedLifeBJ( 100.00, 'BTLF', dummy )
    call UnitAddAbilityBJ( 'AInv', dummy )
    set it = UnitAddItemByIdSwapped( item_type, dummy )

    if not (target == null) then
        set success = UnitUseItemTarget( dummy, it, target )
    else
        if not (spell_loc == null) then
            set success = UnitUseItemPointLoc( dummy, it, spell_loc )
        else
            set success = UnitUseItem( dummy, it )
        endif
    endif

    if dummy_loc == null then
        call RemoveLocation(l)
    endif

    set l = null
    set dummy = null
    set it = null

    return success
endfunction

function CreateFloatingTextOnUnit takes unit u, string s, real red, real green, real blue returns texttag
    local real fontsize
    local texttag tt

    if IsUnitVisible(u, GetLocalPlayer()) then
        set fontsize = 10
    else
        set fontsize = 0
    endif

    set tt = CreateTextTagUnitBJ( s, u, 10.00, fontsize, red, green, blue, 0 )
    call SetTextTagVelocityBJ( tt, 100.00, 90 )
    call SetTextTagPermanentBJ( tt, false )
    call SetTextTagLifespanBJ( tt, 5.00 )
    call SetTextTagFadepointBJ( tt, 1.00 )

    return tt
endfunction

function CreateDamageTextOnUnit takes unit u, real damage, real red, real green, real blue returns texttag
    return CreateFloatingTextOnUnit(u, I2S(R2I(damage)) + " !", red, green, blue )
endfunction

function CustomPingAt takes player p, location l, integer red, integer green, integer blue, boolean warning returns nothing
    local minimapicon mm
    local string model_path

    set model_path = ""
    if GetLocalPlayer() == p then
        if warning then
            set model_path = "UI\\MiniMap\\Minimap-Ping-Manual-Warning.mdx"
        else
            set model_path = "UI\\MiniMap\\Minimap-Ping-Manual-Friendly.mdx"
        endif
    endif

    set mm = CreateMinimapIconAtLocBJ( l, red, green, blue, model_path, FOG_OF_WAR_MASKED )
    call TriggerSleepAction( 3.00 )
    call DestroyMinimapIcon( mm )

    set mm = null
endfunction

function CustomPingOnUnit takes player p, unit u, integer red, integer green, integer blue, boolean warning returns nothing
    local location l = GetUnitLoc(u)

    call CustomPingAt(p, l, red, green, blue, warning)

    call RemoveLocation(l)
    set l = null
endfunction

globals
    constant hashtable structHT = InitHashtable()
    constant integer DEFAULT_PERSIST_INDEX = 0
endglobals

module StructModule
    static thistype array database[8192]

    static method getSelf takes thistype d returns thistype
        return d
    endmethod

    static method moduleAllocation takes nothing returns thistype
        local thistype elem = thistype.allocate()
        set database[s__Interface3DElem_getSelf(elem)] = elem

        return elem
    endmethod

    static method Data2Struct takes handle t returns thistype
        local integer ind = LoadIntegerBJ(DEFAULT_PERSIST_INDEX, GetHandleId(t), structHT)
        if ind == 0 then
            return 0
        endif

        return database[ind]
    endmethod

    method CreateAttributeIndex takes handle t returns nothing
        call SaveIntegerBJ(s__Interface3DElem_getSelf(this), DEFAULT_PERSIST_INDEX, GetHandleId(t), structHT)
    endmethod

    method CleanAttributeIndex takes handle t returns nothing
        call RemoveSavedHandle( structHT, GetHandleIdBJ(t), DEFAULT_PERSIST_INDEX)
    endmethod
endmodule

function SOHTargetMatchesConditions takes integer skill_index, unit u, unit target returns boolean
    if skill_index == udg_SOH_IndexCrushingWave then
      return not (IsUnitType(target, UNIT_TYPE_STRUCTURE)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and GetPlayerTechCountSimple(udg_CrushingWave_Research, GetOwningPlayer(u)) > 0
    endif

    if skill_index == udg_SOH_IndexRisingWaters then
      // return (IsUnitType(target, UNIT_TYPE_STRUCTURE) or IsUnitType(target, UNIT_TYPE_GROUND)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and GetPlayerTechCountSimple(udg_RisingWaters_Research, GetOwningPlayer(u)) > 0 and not IsUnitIllusionBJ(u)
      return (IsUnitType(target, UNIT_TYPE_STRUCTURE) or IsUnitGround(target)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and GetPlayerTechCountSimple(udg_RisingWaters_Research, GetOwningPlayer(u)) > 0 and not IsUnitIllusionBJ(u)
      // return (IsUnitType(target, UNIT_TYPE_STRUCTURE) or IsUnitGround(target)) and GetPlayerTechCountSimple(udg_RisingWaters_Research, GetOwningPlayer(u)) > 0 and not IsUnitIllusionBJ(u)
    endif

    if skill_index == udg_SOH_IndexRisingWatersEvisc then
      // return (IsUnitType(target, UNIT_TYPE_STRUCTURE) or IsUnitType(target, UNIT_TYPE_GROUND)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and not IsUnitIllusionBJ(u)
      return (IsUnitType(target, UNIT_TYPE_STRUCTURE) or IsUnitGround(target)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and not IsUnitIllusionBJ(u)
    endif

    if skill_index == udg_SOH_IndexOpenWounds then
      return not(IsUnitType(target, UNIT_TYPE_STRUCTURE)) and not (IsUnitAlly(target, GetOwningPlayer(u))) and not IsUnitIllusionBJ(u)
    endif

    return false
endfunction

function Trig_SkillOnHit_Attack_Actions takes nothing returns nothing
    local integer acode
    local integer i
    local integer alvl
    local real percentage
    local boolean success = false

    set i = 0
    loop
        exitwhen i >= udg_SOH_TotalAbilities
            set acode = udg_SOH_Abilities[i]
            set alvl = GetUnitAbilityLevelSwapped(acode, GetAttacker())
            if alvl > 0 then
                if SOHTargetMatchesConditions(i, GetAttacker(), GetTriggerUnit()) then
                    set percentage = BlzGetAbilityRealLevelField(BlzGetUnitAbility(GetAttacker(), acode), ABILITY_RLF_DURATION_NORMAL, alvl - 1)
                    if GetRandomReal(0, 1) <= percentage then
                        call SaveIntegerBJ( 1, i, GetHandleIdBJ(GetAttacker()), udg_SkillOnHitHT )
                        set success = true
                    else
                        call SaveIntegerBJ( 0, i, GetHandleIdBJ(GetAttacker()), udg_SkillOnHitHT )
                    endif
                else
                    call SaveIntegerBJ( 0, i, GetHandleIdBJ(GetAttacker()), udg_SkillOnHitHT )
                endif
            endif
        set i = i + 1
    endloop

    if success then
        call SetUnitAnimation( GetAttacker(), "attack slam" )
        call QueueUnitAnimationBJ( GetAttacker(), "stand" )
    endif
endfunction

//===========================================================================
function InitTrig_SkillOnHit_Attack takes nothing returns nothing
    set gg_trg_SkillOnHit_Attack = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_SkillOnHit_Attack, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( gg_trg_SkillOnHit_Attack, function Trig_SkillOnHit_Attack_Actions )
endfunction

function Trig_SkillOnHit_Release_Actions takes nothing returns nothing
    if not(BlzGetEventDamageType() == DAMAGE_TYPE_NORMAL) then
        return
    endif

    if LoadIntegerBJ(udg_SOH_IndexCrushingWave, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT ) == 1 then
        call TriggerExecute( gg_trg_Crushing_Wave_Release )
        call SaveIntegerBJ( 0, udg_SOH_IndexCrushingWave, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT )
    endif

    if LoadIntegerBJ(udg_SOH_IndexRisingWaters, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT ) == 1 then
        call TriggerExecute( gg_trg_RisingWaters_Release )
        call SaveIntegerBJ( 0, udg_SOH_IndexRisingWaters, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT )
    endif

    if LoadIntegerBJ(udg_SOH_IndexRisingWatersEvisc, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT ) == 1 then
        call TriggerExecute( gg_trg_RisingWaters_Release )
        call SaveIntegerBJ( 0, udg_SOH_IndexRisingWatersEvisc, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT )
    endif

    if LoadIntegerBJ(udg_SOH_IndexOpenWounds, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT ) == 1 then
        call TriggerExecute( gg_trg_OpenWounds_Release )
        call SaveIntegerBJ( 0, udg_SOH_IndexOpenWounds, GetHandleIdBJ(GetEventDamageSource()), udg_SkillOnHitHT )
    endif
endfunction

//===========================================================================
function InitTrig_SkillOnHit_Release takes nothing returns nothing
    set gg_trg_SkillOnHit_Release = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_SkillOnHit_Release, EVENT_PLAYER_UNIT_DAMAGING )
    call TriggerAddAction( gg_trg_SkillOnHit_Release, function Trig_SkillOnHit_Release_Actions )
endfunction

function DCCheckAuraLevel takes unit u, integer buffid returns integer
    local group g
    local location l
    local integer temp_level
    local unit temp_u
    local integer temp_itemid
    local integer temp_abilityid
    local integer best_level = 0
    local string itemids = LoadStringBJ(buffid, udg_Dict_DC_IndexBuffItems, udg_DictHT )
    local string abilityids = LoadStringBJ(buffid, udg_Dict_DC_IndexBuffAbilities, udg_DictHT )

    local integer i
    local integer loop_max
    local string s

    set l = GetUnitLoc(u)
    set g = GetUnitsInRangeOfLocAll(900.00, l)

    loop
        set temp_u = FirstOfGroup(g)
        exitwhen temp_u == null
            if IsPlayerAlly(GetOwningPlayer(u), GetOwningPlayer(temp_u)) then
                set temp_level = 0

                set loop_max = StringLength(abilityids)
                set i = 1
                loop
                    exitwhen i + 3 > loop_max
                        set s = SubStringBJ(abilityids, i, i+3)
                        set temp_abilityid = S2ObjectId(s)
                        set temp_level = GetUnitAbilityLevelSwapped(temp_abilityid, temp_u)
                        if best_level < temp_level then
                          set best_level = temp_level
                        endif
                    set i = i + 5
                endloop

                if best_level == 0 then
                    set loop_max = StringLength(itemids)
                    set i = 1
                    loop
                        exitwhen i + 3 > loop_max
                            set s = SubStringBJ(itemids, i, i+3)
                            set temp_itemid = S2ObjectId(s)
                            if UnitHasItemOfTypeBJ(temp_u, temp_itemid) then
                                set best_level = 1
                                set i = loop_max
                            endif
                        set i = i + 5
                    endloop
                endif

            endif
        call GroupRemoveUnit(g, temp_u)
    endloop

    call RemoveLocation(l)
    call DestroyGroup(g)
    set temp_u = null

    return best_level
endfunction

function DCGetDiceAttack takes unit u returns real
    local integer main_stat_bonus
    local integer main_stat_index
    local real damage_min
    local real damage_max
    local real damage_average
    local real extra
    local integer aura_level
    local integer i
    local string buffs
    local string aura_buffs
    local string s
    local integer max
    local integer buff_code

    if IsUnitType(u, UNIT_TYPE_HERO) then
        if BlzGetUnitIntegerField(u, UNIT_IF_PRIMARY_ATTRIBUTE) == 3 then
            // call BJDebugMsg("Agility")
            set main_stat_index = bj_HEROSTAT_AGI
        elseif BlzGetUnitIntegerField(u, UNIT_IF_PRIMARY_ATTRIBUTE) == 1 then
            // call BJDebugMsg("Strength")
            set main_stat_index = bj_HEROSTAT_STR
        else
            // call BJDebugMsg("Intelligence")
            set main_stat_index = bj_HEROSTAT_INT
        endif
        set main_stat_bonus = GetHeroStatBJ(main_stat_index, u, true) - GetHeroStatBJ(main_stat_index, u, false)
    else
        set main_stat_bonus = 0
    endif

    set damage_min = BlzGetUnitBaseDamage(u, 0) + BlzGetUnitDiceNumber(u, 0) * 1 - main_stat_bonus
    set damage_max = BlzGetUnitBaseDamage(u, 0) + BlzGetUnitDiceNumber(u, 0) * BlzGetUnitDiceSides(u, 0) - main_stat_bonus
    set damage_average = main_stat_bonus + (damage_min + damage_max) / 2
    set extra = main_stat_bonus

    set i = 1
    loop
      exitwhen i > 6
          set extra = extra + LoadIntegerBJ(GetItemTypeId(UnitItemInSlotBJ(u, i)), udg_Dict_DC_IndexItemBonus, udg_DictHT)
      set i = i + 1
    endloop

    set buffs = "Broa,Binf,Bcri,BNht,B00Y"
    set max = StringLength(buffs)
    set i = 1
    loop
        exitwhen i + 3 > max
            set s = SubStringBJ(buffs, i, i+3)
            set buff_code = S2ObjectId(s)
            if UnitHasBuffBJ(u, buff_code) then
                set extra = extra + LoadRealBJ(buff_code, udg_Dict_DC_IndexBuffBonus, udg_DictHT) * damage_average
            endif
        set i = i + 5
    endloop

    set aura_buffs = "Bakb,BOac,BEar,B00R"
    set max = StringLength(aura_buffs)
    set i = 1
    loop
        exitwhen i + 3 > max
            set s = SubStringBJ(aura_buffs, i, i+3)
            set buff_code = S2ObjectId(s)
            if UnitHasBuffBJ(u, buff_code) then
                set extra = extra + DCCheckAuraLevel(u, buff_code) * LoadRealBJ(buff_code, udg_Dict_DC_IndexBuffBonus, udg_DictHT) * damage_average
            endif
        set i = i + 5
    endloop

    // call BJDebugMsg(I2S(R2I(damage_min)) + " - " + I2S(R2I(damage_max)))
    if extra >= 0 then
      // call BJDebugMsg("+" + I2S(RoundUp(extra )))
    else
      // call BJDebugMsg(I2S(RoundUp(extra )))
    endif

    return GetRandomReal(damage_min, damage_max) + extra
endfunction

function Trig_DC_Init_Actions takes nothing returns nothing
    call SaveIntegerBJ( 8, 'rat9', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Claw + 8
    call SaveIntegerBJ( 12, 'ratc', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Claw + 12
    call SaveIntegerBJ( 4, 'rat6', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Claw + 4
    call SaveIntegerBJ( 15, 'ratf', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Claw + 15
    call SaveIntegerBJ( 3, 'rat3', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Claw + 3
    call SaveIntegerBJ( 6, 'odef', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Shadows
    call SaveIntegerBJ( 6, 'ofro', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Frost orb
    call SaveIntegerBJ( 5, 'ocor', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Corruption
    call SaveIntegerBJ( 5, 'I00U', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Corruption custom
    call SaveIntegerBJ( 5, 'ofr2', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Fire orb 1
    call SaveIntegerBJ( 5, 'ofir', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Fire orb 2
    call SaveIntegerBJ( 5, 'I00F', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Fire orb custom
    call SaveIntegerBJ( 6, 'olig', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Lightning orb 1
    call SaveIntegerBJ( 5, 'oli2', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Lightning orb 2
    call SaveIntegerBJ( 5, 'I00S', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Lightning orb custom
    call SaveIntegerBJ( 5, 'oven', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Venom
    call SaveIntegerBJ( 5, 'I00W', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Venom
    call SaveIntegerBJ( 5, 'I004', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Aquamarine orb
    call SaveIntegerBJ( 6, 'oslo', udg_Dict_DC_IndexItemBonus, udg_DictHT ) // Orb of Slow

    call SaveRealBJ( 0.25, 'Broa', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Roar
    call SaveRealBJ( 0.1, 'Binf', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Inner fire
    call SaveRealBJ( -0.5, 'Bcri', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Cripple
    call SaveRealBJ( -0.3, 'BNht', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Howl
    call SaveRealBJ( -0.15, 'B00Y', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Rising waters
    call SaveRealBJ( -0.15, 'B00Y', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Rising waters

    call SaveRealBJ( 0.10, 'Bakb', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // War drums
    call SaveRealBJ( 0.10, 'BOac', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Command Aura
    call SaveRealBJ( 0.10, 'BEar', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Trueshot Aura
    call SaveRealBJ( 0.05, 'B00R', udg_Dict_DC_IndexBuffBonus, udg_DictHT ) // Fervor Aura

    call SaveStringBJ( "Aakb", 'Bakb', udg_Dict_DC_IndexBuffAbilities, udg_DictHT ) // War drums
    call SaveStringBJ( "war2", 'Bakb', udg_Dict_DC_IndexBuffItems, udg_DictHT ) // War drums
    call SaveStringBJ( "ACac", 'BOac', udg_Dict_DC_IndexBuffAbilities, udg_DictHT ) // Command Aura
    call SaveStringBJ( "ward", 'BOac', udg_Dict_DC_IndexBuffItems, udg_DictHT ) // Command Aura
    call SaveStringBJ( "AEar,ACat", 'BEar', udg_Dict_DC_IndexBuffAbilities, udg_DictHT ) // Trueshot Aura
    call SaveStringBJ( "afac", 'BEar', udg_Dict_DC_IndexBuffItems, udg_DictHT ) // Trueshot Aura
    call SaveStringBJ( "A01P", 'B00R', udg_Dict_DC_IndexBuffAbilities, udg_DictHT ) // Fervor Aura
endfunction

//===========================================================================
function InitTrig_DC_Init takes nothing returns nothing
    set gg_trg_DC_Init = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_DC_Init, 0 )
    call TriggerAddAction( gg_trg_DC_Init, function Trig_DC_Init_Actions )
endfunction

function Trig_DamageType_Calibration_Actions takes nothing returns nothing
    local real coeff
    set coeff = GetEventDamage() / 100
    // call DisplayTextToForce( GetPlayersAll(), "Damage Type: " + I2S(udg_Calibration_DamageType) + ", Armor Type: " + I2S(udg_Calibration_ArmorType) + ", Coeff: " + R2S(coeff))
endfunction

//===========================================================================
function InitTrig_DamageType_Calibration takes nothing returns nothing
    set gg_trg_DamageType_Calibration = CreateTrigger(  )
    call TriggerAddAction( gg_trg_DamageType_Calibration, function Trig_DamageType_Calibration_Actions )
endfunction

function Trig_Spell_Steal_Cast_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'Asps'
endfunction

function Trig_Spell_Steal_Cast_Actions takes nothing returns nothing
    local location l
    local group g
    local unit u
    local unit dummy
    local integer player_index

    set l = GetUnitLoc(GetTriggerUnit())
    call PolledWait( 0.5 )

    set g = GetUnitsInRangeOfLocAll(800.00, l)
    loop
        set u = FirstOfGroup(g)
        exitwhen u == null

            // Parasite
            if UnitHasBuffBJ(u, udg_Parasite_Buff) and not UnitHasBuffBJ(u, udg_Parasite_DummyBuff) then
                // call CreateRegenerationDetectionTrigger(u, GetUnitStateSwap(UNIT_STATE_LIFE, u))
                call ParasiteStart(GetTriggerUnit(), u)
            endif

            // Stone Gaze
            if UnitHasBuffBJ(u, udg_StoneGaze_Buff) and not (IsUnitInGroup(u, udg_StoneGaze_TargetGroup)) then
                call PetrifyUnit(GetTriggerUnit(), u)
            endif

            // Spirit within
            set player_index = SpiritWithin_GetBuffIndex(u) // starts from 0
            if player_index != -1 then
                if player_index > udg_SW_MaxPlayerNumberWithNeutral then
                    set player_index = udg_SW_MaxPlayerNumber // = udg_SW_MaxPlayerNumberWithNeutral - 1
                endif
                set dummy = CreateUnitAtLoc(Player(player_index), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
                call UnitApplyTimedLifeBJ( 1.00, 'BTLF', dummy )
                call SpiritWithin_CastOnEnemies(dummy, u)
            else
                if UnitHasBuffBJ(u, udg_SW_AllyBuff) then
                    call SpiritWithin_CastOnAllies(u)
                endif
            endif
        call GroupRemoveUnit(g, u)
    endloop

    call RemoveLocation(l)
    call DestroyGroup(g)
    set l = null
    set g = null
    set u = null
    set dummy = null
endfunction

//===========================================================================
function InitTrig_Spell_Steal_Cast takes nothing returns nothing
    set gg_trg_Spell_Steal_Cast = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Spell_Steal_Cast, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Spell_Steal_Cast, Condition( function Trig_Spell_Steal_Cast_Conditions ) )
    call TriggerAddAction( gg_trg_Spell_Steal_Cast, function Trig_Spell_Steal_Cast_Actions )
endfunction

function Trig_Order_Init_Actions takes nothing returns nothing
    set udg_OrderWhiteList1[0] = "heal"
    set udg_OrderWhiteList1[1] = "repair"
    set udg_OrderWhiteList1[2] = "slow"
    set udg_OrderWhiteList1[3] = "innerfire"
    set udg_OrderWhiteList1[4] = "spellsteal"

    set udg_OrderWhiteList1[5] = "bloodlust"

    set udg_OrderWhiteList1[6] = "restoration"
    set udg_OrderWhiteList1[7] = "web"
    set udg_OrderWhiteList1[8] = "frostarmor"
    set udg_OrderWhiteList1[9] = "carrionscarabs"
    set udg_OrderWhiteList1[10] = "replenishlife"
    set udg_OrderWhiteList1[11] = "replenishmana"
    set udg_OrderWhiteList1[12] = "curse"
    set udg_OrderWhiteList1[13] = "raisedead"

    set udg_OrderWhiteList1[14] = "renew"
    set udg_OrderWhiteList1[15] = "autodispell"
    set udg_OrderWhiteList1[16] = "faeriefire"
    set udg_OrderWhiteList1[17] = "phaseshift"
    set udg_OrderWhiteList1[18] = "vengeance"
    set udg_OrderWhiteList1[19] = "recharge"

    set udg_OrderWhiteList1[20] = "incineratearrow"
    set udg_OrderWhiteList1[21] = "blackarrow"
    set udg_OrderWhiteList1[22] = "parasite"
    set udg_OrderWhiteList1[23] = "selfdestruct"

    set udg_OrderWhiteList2[0] = "flamingattack"
    set udg_OrderWhiteList2[1] = "flamingarrows"
    set udg_OrderWhiteList2[2] = "coldarrows"
endfunction

//===========================================================================
function InitTrig_Order_Init takes nothing returns nothing
    set gg_trg_Order_Init = CreateTrigger(  )
    call TriggerAddAction( gg_trg_Order_Init, function Trig_Order_Init_Actions )
endfunction

function Trig_Order_Registration_Actions takes nothing returns nothing
    local string str_order = OrderId2StringBJ(GetIssuedOrderIdBJ())
    local integer i

    if str_order == "" then
        return
    endif

    // call DisplayTextToForce( GetPlayersAll(), OrderId2StringBJ(GetIssuedOrderIdBJ()) )

    set i = 0
    loop
        exitwhen udg_OrderWhiteList1[i] == null
            // call BJDebugMsg(I2S(i) + " - " + udg_OrderWhiteList1[i])
            if str_order == udg_OrderWhiteList1[i] + "on" or str_order == udg_OrderWhiteList1[i] + "off" then
                // call BJDebugMsg("on white list")
                return
            endif
        set i = i + 1
    endloop

    set i = 0
    loop
        exitwhen udg_OrderWhiteList2[i] == null
            // call BJDebugMsg(I2S(i) + " - " + udg_OrderWhiteList2[i])
            if str_order == udg_OrderWhiteList2[i] or str_order == "un" + udg_OrderWhiteList2[i] then
                // call BJDebugMsg("on white list 2")
                return
            endif
        set i = i + 1
    endloop

    call SaveStringBJ( str_order, udg_Skill_Order_IndexStringOrder, GetHandleIdBJ(GetTriggerUnit()), udg_SkillHT )
endfunction

//===========================================================================
function InitTrig_Order_Registration takes nothing returns nothing
    set gg_trg_Order_Registration = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Order_Registration, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Order_Registration, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Order_Registration, EVENT_PLAYER_UNIT_ISSUED_ORDER )
    call TriggerAddAction( gg_trg_Order_Registration, function Trig_Order_Registration_Actions )
endfunction

function Trig_Attack_Zone_Conditions takes nothing returns boolean
    return GetIssuedOrderIdBJ() == String2OrderIdBJ("attackground")
endfunction

function Trig_Attack_Zone_Actions takes nothing returns nothing
    local location l

    set l = LoadLocationHandleBJ( udg_Skill_Attack_IndexZone, GetHandleIdBJ(GetTriggerUnit()), udg_SkillHT )
    if l != null then
        call RemoveLocation(l)
    endif

    call SaveLocationHandleBJ( GetOrderPointLoc(), udg_Skill_Attack_IndexZone, GetHandleIdBJ(GetTriggerUnit()), udg_SkillHT )

    set l = null
endfunction

//===========================================================================
function InitTrig_Attack_Zone takes nothing returns nothing
    set gg_trg_Attack_Zone = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Attack_Zone, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    call TriggerAddCondition( gg_trg_Attack_Zone, Condition( function Trig_Attack_Zone_Conditions ) )
    call TriggerAddAction( gg_trg_Attack_Zone, function Trig_Attack_Zone_Actions )
endfunction

function SPPlaySound takes string sound_path, location l returns nothing
    local unit dummy

    set dummy = CreateUnitAtLoc(Player(PLAYER_NEUTRAL_PASSIVE), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
    call UnitAddAbilityBJ( udg_SoundPlayer_Ability, dummy )
    // call BlzSetAbilityStringFieldBJ( BlzGetUnitAbility(dummy, 'A01H'), ABILITY_SF_EFFECT_SOUND_LOOPING, sound_path )
    call BlzSetAbilityStringFieldBJ( BlzGetUnitAbility(dummy, 'A01H'), ABILITY_SF_EFFECT_SOUND, sound_path )
    call IssueImmediateOrderBJ( dummy, udg_SoundPlayer_Order)
    call RemoveUnit(dummy)

    set dummy = null
endfunction

function SPPlayLoopingSound takes string sound_path, location l returns unit
    local unit dummy

    set dummy = CreateUnitAtLoc(Player(PLAYER_NEUTRAL_PASSIVE), udg_Skill_DummyCaster, l, bj_UNIT_FACING)
    call UnitAddAbilityBJ( udg_SoundPlayer_Ability, dummy )
    call BlzSetAbilityStringFieldBJ( BlzGetUnitAbility(dummy, 'A01H'), ABILITY_SF_EFFECT_SOUND_LOOPING, sound_path )
    call IssueImmediateOrderBJ( dummy, udg_SoundPlayer_Order)

    return dummy
endfunction

// Deprecated
function PlayLoopingSound takes sound s, real volume, unit u returns nothing
    local timer t
    local real duration

    set duration = GetSoundDurationBJ(s)

    call BJDebugMsg("C'est parti pour une boucle de " + R2S(duration))

    set t = CreateTimer()
    call SaveSoundHandleBJ(s, udg_Sound_IndexSound, GetHandleIdBJ(t), udg_SoundHT)
    call SaveUnitHandleBJ(u, udg_Sound_IndexUnit, GetHandleIdBJ(t), udg_SoundHT)
    call SaveRealBJ(volume, udg_Sound_IndexVolume, GetHandleIdBJ(t), udg_SoundHT)
    call BJDebugMsg("Working with timer " + I2S(GetHandleIdBJ(t)) + " and sound " + I2S(GetHandleIdBJ(s)))

    if u == null then
        call PlaySoundBJ(s)
    else
        call PlaySoundOnUnitBJ( s, volume, u )
    endif

    call StartTimerBJ(t, true, duration )
    call TriggerRegisterTimerExpireEventBJ( gg_trg_Sound_Loop, t)
endfunction

function SPv2CreateSoundGeneric takes string sound_path, boolean looping returns sound
    local sound snd

    set snd = CreateSound(sound_path, looping, true, true, 0, 0, "DefaultEAXON")
    call SetSoundChannel( snd, 0)
    call SetSoundDistances( snd, 600.00, 10000.00 )
    call SetSoundDistanceCutoff( snd, 3000.00)
    call SetSoundDuration( snd, GetSoundFileDuration(sound_path) )
    // call SetSoundVolume( snd, 127 )
    // call SetSoundConeAngles( snd, 0.0, 0.0, 127 )
    call SetSoundConeOrientation( snd, 0.0, 0.0, 0.0 )
    call SetSoundPitch( snd, 1.0 )

    return snd
endfunction

// function SPv2PlaySoundWithVolume takes string sound_path, integer volume returns nothing
//     local sound snd = SPv2CreateSoundGeneric(sound_path, false)
//     call SetSoundVolume( snd, volume )
//     call SetSoundConeAngles( snd, 0.0, 0.0, volume )
//     call PlaySoundBJ(snd)
//     call KillSoundWhenDone(snd)
//     set snd = null
// endfunction

// function SPv2PlaySound takes string sound_path returns nothing
//     call SPv2PlaySoundWithVolume(sound_path, 100)
// endfunction

function SPv2PlaySoundAtPointWithVolume takes string sound_path, integer volume, location l returns sound
    local sound snd = SPv2CreateSoundGeneric(sound_path, false)
    call PlaySoundAtPointBJ(snd, volume, l, 0.00)
    call KillSoundWhenDone(snd)

    return snd
endfunction

function SPv2PlaySoundAtPoint takes string sound_path, location l returns sound
    return SPv2PlaySoundAtPointWithVolume(sound_path, 100, l)
endfunction

function SPv2PlaySoundOnUnitWithVolume takes string sound_path, integer volume, unit u returns sound
    local location l = GetUnitLoc(u)
    local sound s = SPv2PlaySoundAtPointWithVolume(sound_path, volume, l)
    call RemoveLocation(l)
    set l = null

    return s
endfunction

function SPv2PlaySoundOnUnit takes string sound_path, unit u returns sound
    return SPv2PlaySoundOnUnitWithVolume(sound_path, 100, u)
endfunction

function SPv2CreateAndPlayLoopingSoundAtPoint takes string sound_path, location l returns sound
    local sound snd = SPv2CreateSoundGeneric(sound_path, true)
    call PlaySoundAtPointBJ(snd, 100, l, 0.00)
    return snd
endfunction

function SPv2TerminateLoopingSound takes sound snd returns nothing
    call StopSound(snd, true, true)
endfunction

function PlayLoopingSound takes sound s, real volume, unit u returns nothing
    local timer t
    local real duration

    set duration = GetSoundDurationBJ(s)

    call BJDebugMsg("C'est parti pour une boucle de " + R2S(duration))

    set t = CreateTimer()
    call SaveSoundHandleBJ(s, udg_Sound_IndexSound, GetHandleIdBJ(t), udg_SoundHT)
    call SaveUnitHandleBJ(u, udg_Sound_IndexUnit, GetHandleIdBJ(t), udg_SoundHT)
    call SaveRealBJ(volume, udg_Sound_IndexVolume, GetHandleIdBJ(t), udg_SoundHT)
    call BJDebugMsg("Working with timer " + I2S(GetHandleIdBJ(t)) + " and sound " + I2S(GetHandleIdBJ(s)))

    if u == null then
        call PlaySoundBJ(s)
    else
        call PlaySoundOnUnitBJ( s, volume, u )
    endif

    call StartTimerBJ(t, true, duration )
    call TriggerRegisterTimerExpireEventBJ( gg_trg_Sound_Loop, t)
endfunction

function Trig_Sound_Loop_Actions takes nothing returns nothing
    local sound s
    local unit u
    local real volume

    call BJDebugMsg("On remet la sauce !")

    set s = LoadSoundHandleBJ(udg_Sound_IndexSound, GetHandleIdBJ(GetExpiredTimer()), udg_SoundHT)
    call BJDebugMsg("Working with timer " + I2S(GetHandleIdBJ(GetExpiredTimer())) + " and sound " + I2S(GetHandleIdBJ(s)))
    if s == null then
        call BJDebugMsg("Dont play no more !")
        call FlushChildHashtableBJ( GetHandleIdBJ(GetExpiredTimer()), udg_SoundHT)
        call DestroyTimer(GetExpiredTimer())
    else
        set u = LoadUnitHandleBJ(udg_Sound_IndexUnit, GetHandleIdBJ(GetExpiredTimer()), udg_SoundHT)
        set volume = LoadRealBJ(udg_Sound_IndexVolume, GetHandleIdBJ(GetExpiredTimer()), udg_SoundHT)

        call StopSoundBJ(s, false)
        if u == null then
            call PlaySoundBJ(s)
        else
            call PlaySoundOnUnitBJ( s, volume, u )
        endif
    endif

    set u = null
    set s = null
endfunction

//===========================================================================
function InitTrig_Sound_Loop takes nothing returns nothing
    set gg_trg_Sound_Loop = CreateTrigger(  )
    call TriggerAddAction( gg_trg_Sound_Loop, function Trig_Sound_Loop_Actions )
endfunction

function Trig_AD_Test_1_Actions takes nothing returns nothing
    call CreateNUnitsAtLoc( 1, 'ewsp', Player(1), GetUnitLoc(GetTriggerUnit()), bj_UNIT_FACING )
    call IssueTargetOrderBJ( GetTriggerUnit(), "attack", GetLastCreatedUnit() )
    // call BlzSetUnitAttackCooldown( GetTriggerUnit(), 0.00, 0 )
    call BlzSetUnitWeaponRealFieldBJ( GetTriggerUnit(), UNIT_WEAPON_RF_ATTACK_DAMAGE_POINT, 0, 0.00 )
    call BlzSetUnitWeaponRealFieldBJ( GetTriggerUnit(), UNIT_WEAPON_RF_ATTACK_DAMAGE_POINT, 1, 0.00 )
    call BlzSetUnitWeaponRealFieldBJ( GetTriggerUnit(), UNIT_WEAPON_RF_ATTACK_BACKSWING_POINT, 0, 0.00 )
    call BlzSetUnitWeaponRealFieldBJ( GetTriggerUnit(), UNIT_WEAPON_RF_ATTACK_BACKSWING_POINT, 1, 0.00 )
    call TriggerRegisterUnitEvent( gg_trg_AD_Test_3, GetLastCreatedUnit(), EVENT_UNIT_DAMAGING )
endfunction

//===========================================================================
function InitTrig_AD_Test_1 takes nothing returns nothing
    set gg_trg_AD_Test_1 = CreateTrigger(  )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_AD_Test_1, Player(0), true )
    call TriggerAddAction( gg_trg_AD_Test_1, function Trig_AD_Test_1_Actions )
endfunction

function IsGoldMineRestrictedForPlayer takes unit gm, player p returns boolean
    local location l
    local location l2
    local unit dummy
    local boolean success

    set l = GetUnitLoc(gm)
    set l2 = PolarProjectionBJ(l, 1000, 0)

    set dummy = CreateUnitAtLoc(p, udg_Skill_DummyCaster, l2, bj_UNIT_FACING)
    call UnitApplyTimedLifeBJ( 1.00, 'BTLF', dummy )
    call UnitAddAbilityBJ( udg_GoldMines_CheckOwnerShipAbilit, dummy )
    set success = IssueTargetOrderBJ( dummy, udg_GoldMines_CheckOwnerShipOrder, gm )

    call RemoveLocation(l)
    call RemoveLocation(l2)
    call RemoveUnit(dummy)

    set l = null
    set l2 = null
    set dummy = null

    return not(success)
endfunction

function IsGoldMineFreetoTake takes unit gm returns boolean
    return not(IsGoldMineRestrictedForPlayer(gm, Player(bj_PLAYER_NEUTRAL_VICTIM)))
endfunction

function RefreshGoldMineOwner takes unit gm returns player
    local integer i
    local player p
    local player last_owner

    if IsGoldMineFreetoTake(gm) then
        // call BJDebugMsg("Owner is Neutral")
        call RemoveSavedHandle( udg_SkillHT, GetHandleIdBJ(gm), udg_Skill_GoldMine_IndexOwner)
        return null
    endif

    // to avoid the loop
    set last_owner = LoadPlayerHandleBJ(udg_Skill_GoldMine_IndexOwner, GetHandleIdBJ(gm), udg_SkillHT)
    if last_owner != null and not(IsGoldMineRestrictedForPlayer(gm, last_owner)) then
        // call BJDebugMsg("Owner is " + GetPlayerName(last_owner))
        return last_owner
    endif

    set i = 0
    loop
        set p = udg_PlayerIndexes[i]
        exitwhen i >= udg_TotalPlayingPlayers
            if last_owner == null or p != last_owner then
                if not(IsGoldMineRestrictedForPlayer(gm, p)) then
                    // call BJDebugMsg("Owner is " + GetPlayerName(p))
                    call SavePlayerHandleBJ(p, udg_Skill_GoldMine_IndexOwner, GetHandleIdBJ(gm), udg_SkillHT)
                    set last_owner = null

                    return p
                endif
            endif
        set i = i+1
    endloop

    call RemoveSavedHandle( udg_SkillHT, GetHandleIdBJ(gm), udg_Skill_GoldMine_IndexOwner)
    set last_owner = null
    set p = null

    return null
endfunction

// Old and bugged
function isPeasantInMine takes unit u returns boolean
    local location l
    // local location tracker_loc
    local item tracker
    local boolean success

    return not(CastSpellOnUnit(u, 'A03B', "rejuvination", 1, u))

    set l = GetUnitLoc(u)
    set tracker = CreateItemLoc( udg_Skill_CollisionTracker, l )
    call BJDebugMsg("X:" + R2S(GetItemX(tracker)) + " " + R2S(GetLocationX(l)))
    call BJDebugMsg("Y:" + R2S(GetItemY(tracker)) + " " + R2S(GetLocationY(l)))
    if GetItemY(tracker) == GetLocationY(l) and GetItemX(tracker) == GetLocationX(l) then
        set success = false
    else
        set success = true
    endif


    call RemoveLocation(l)
    call RemoveItem(tracker)
    call RemoveLocation(l)

    set tracker = null
    set l = null

    return success
endfunction

function GoldMine_Worker_in_Range_Conditions takes nothing returns boolean
    return IsUnitType(GetTriggerUnit(), UNIT_TYPE_PEON)
endfunction

function GoldMine_Worker_in_Range_Actions takes nothing returns nothing
    local unit gm
    local integer resource

    set gm = LoadUnitHandleBJ(udg_Skill_GoldMine_IndexTriggerGM, GetHandleIdBJ(GetTriggeringTrigger()), udg_SkillHT)
    set resource = GetResourceAmount(gm)
    if resource == 10 or resource == 10+udg_GoldMines_LowThreshold then
        call SaveRealBJ(udg_GoldMines_CheckTime, udg_Skill_GoldMine_IndexCheckTime, GetHandleIdBJ(gm), udg_SkillHT)
        call GroupAddUnitSimple( gm, udg_GoldMines_GroupToCheck )
        call EnableTrigger( gg_trg_GoldMine_Refresh_Owner )
    endif

    set gm = null
endfunction

function Trig_GoldMine_Init_Func001A takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterUnitInRangeSimple( t, udg_GoldMines_WorkerRange, GetEnumUnit() )
    call TriggerAddAction( t, function GoldMine_Worker_in_Range_Actions )
    call TriggerAddCondition( t, function GoldMine_Worker_in_Range_Conditions )
    call SaveUnitHandleBJ(GetEnumUnit(), udg_Skill_GoldMine_IndexTriggerGM, GetHandleIdBJ(t), udg_SkillHT)
endfunction

function Trig_GoldMine_Init_Actions takes nothing returns nothing
    set udg_GoldMines_LowThreshold = 1500
    set udg_GoldMines_CheckTime = 1.00
    set udg_GoldMines_WorkerRange = 256
    set udg_GoldMines_CheckOwnerShipAbilit = 'A03C'
    set udg_GoldMines_CheckOwnerShipOrder = "entangle"

    call ForGroupBJ( GetUnitsOfTypeIdAll('ngol'), function Trig_GoldMine_Init_Func001A )
endfunction

//===========================================================================
function InitTrig_GoldMine_Init takes nothing returns nothing
    set gg_trg_GoldMine_Init = CreateTrigger(  )
    call TriggerAddAction( gg_trg_GoldMine_Init, function Trig_GoldMine_Init_Actions )
endfunction

function Trig_GoldMine_Refresh_Nearby_Peasants takes nothing returns boolean
    return IsUnitType(GetFilterUnit(), UNIT_TYPE_PEON)
endfunction

function Trig_GoldMine_Refresh_Owner_Func001A takes nothing returns nothing
    local group g
    local location l
    local integer resource
    local real remaining_time_to_check

    // call BJDebugMsg("Refreshing")

    call RefreshGoldMineOwner(GetEnumUnit())
    set resource = GetResourceAmount(GetEnumUnit())
    if resource == 1500 then
        call IssueImmediateOrderBJ( GetEnumUnit(), "stop" ) // this triggers the fact that some event occured to the goldmine
        call GroupRemoveUnit(udg_GoldMines_GroupToCheck, GetEnumUnit()) // no check needed anymore
    endif
    if resource == 0 then
        call GroupRemoveUnit(udg_GoldMines_GroupToCheck, GetEnumUnit())
    endif

    set remaining_time_to_check = LoadRealBJ(udg_Skill_GoldMine_IndexCheckTime, GetHandleIdBJ(GetEnumUnit()), udg_SkillHT)
    set l = GetUnitLoc(GetEnumUnit())
    set g = GetUnitsInRangeOfLocMatching(56 + udg_GoldMines_WorkerRange, l, Condition(function Trig_GoldMine_Refresh_Nearby_Peasants))
    if CountUnitsInGroup(g) > 0 then
        set remaining_time_to_check = udg_GoldMines_CheckTime
    else
        set remaining_time_to_check = remaining_time_to_check - 0.3
    endif

    if remaining_time_to_check <= 0 then
        call SaveRealBJ(0, udg_Skill_GoldMine_IndexCheckTime, GetHandleIdBJ(GetEnumUnit()), udg_SkillHT)
        call GroupRemoveUnit(udg_GoldMines_GroupToCheck, GetEnumUnit())
    else
        call SaveRealBJ(remaining_time_to_check, udg_Skill_GoldMine_IndexCheckTime, GetHandleIdBJ(GetEnumUnit()), udg_SkillHT)
    endif

    call DestroyGroup(g)
    call RemoveLocation(l)

    set g = null
    set l = null
endfunction

function Trig_GoldMine_Refresh_Owner_Actions takes nothing returns nothing
    call ForGroupBJ( udg_GoldMines_GroupToCheck, function Trig_GoldMine_Refresh_Owner_Func001A )

    if CountUnitsInGroup(udg_GoldMines_GroupToCheck) == 0 then
        // call BJDebugMsg("All gold mines are safe")
        call DisableTrigger( GetTriggeringTrigger() )
    endif
endfunction

//===========================================================================
function InitTrig_GoldMine_Refresh_Owner takes nothing returns nothing
    set gg_trg_GoldMine_Refresh_Owner = CreateTrigger(  )
    call DisableTrigger( gg_trg_GoldMine_Refresh_Owner )
    call TriggerRegisterTimerEventPeriodic( gg_trg_GoldMine_Refresh_Owner, 0.30 )
    call TriggerAddAction( gg_trg_GoldMine_Refresh_Owner, function Trig_GoldMine_Refresh_Owner_Actions )
endfunction

function Trig_GoldMine_Special_Creation_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetTriggerUnit()) == 'egol' or GetUnitTypeId(GetTriggerUnit()) == 'ugol'
endfunction

function Trig_GoldMine_Special_Creation_Actions takes nothing returns nothing
    local location l
    local unit original_gm

    set l = GetUnitLoc(GetTriggerUnit())
    set original_gm = GetClosestGoldMine(l)
    call GroupRemoveUnit(udg_GoldMines_GroupToCheck, original_gm) // no need to check because it has been replaced by a special type

    if ( GetResourceAmount(GetTriggerUnit()) > udg_GoldMines_LowThreshold ) then
        call GroupAddUnitSimple( GetTriggerUnit(), udg_GoldMines_NeUdToCheck )
        call EnableTrigger( gg_trg_GoldMine_Special_Check_Gold )
    endif

    if GetUnitTypeId(GetTriggerUnit()) == 'ugol' then
        call GroupAddUnitSimple( GetTriggerUnit(), udg_GoldMines_UdToCheckDeath )
    endif

    call RemoveLocation(l)

    set l = null
    set original_gm = null
endfunction

//===========================================================================
function InitTrig_GoldMine_Special_Creation takes nothing returns nothing
    set gg_trg_GoldMine_Special_Creation = CreateTrigger(  )
    call TriggerRegisterEnterRectSimple( gg_trg_GoldMine_Special_Creation, GetPlayableMapRect() )
    call TriggerAddCondition( gg_trg_GoldMine_Special_Creation, Condition( function Trig_GoldMine_Special_Creation_Conditions ) )
    call TriggerAddAction( gg_trg_GoldMine_Special_Creation, function Trig_GoldMine_Special_Creation_Actions )
endfunction

function Trig_GoldMine_Special_Destruction_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetTriggerUnit()) == 'egol' or GetUnitTypeId(GetTriggerUnit()) == 'ugol'
endfunction

function Trig_GoldMine_Special_Destruction_Actions takes nothing returns nothing
    local location l
    local unit original_gm
    local integer resource

    call GroupRemoveUnitSimple( GetTriggerUnit(), udg_GoldMines_NeUdToCheck )
    call GroupRemoveUnitSimple( GetTriggerUnit(), udg_GoldMines_UdToCheckDeath )

    if ( GetResourceAmount(GetTriggerUnit()) == 0 ) then
        return
    endif

    if ( GetResourceAmount(GetTriggerUnit()) < udg_GoldMines_LowThreshold ) then // we need to recheck the new gold mine to see if any peasant is about to dig it
        set l = GetUnitLoc(GetTriggerUnit())
        set original_gm = GetClosestGoldMine(l)
        call SaveRealBJ(udg_GoldMines_CheckTime, udg_Skill_GoldMine_IndexCheckTime, GetHandleIdBJ(original_gm), udg_SkillHT)
        call GroupAddUnitSimple( original_gm, udg_GoldMines_GroupToCheck )
        call EnableTrigger( gg_trg_GoldMine_Refresh_Owner )

        call RemoveLocation(l)
    endif

    set l = null
    set original_gm = null
endfunction

//===========================================================================
function InitTrig_GoldMine_Special_Destruction takes nothing returns nothing
    set gg_trg_GoldMine_Special_Destruction = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_GoldMine_Special_Destruction, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddCondition( gg_trg_GoldMine_Special_Destruction, Condition( function Trig_GoldMine_Special_Destruction_Conditions ) )
    call TriggerAddAction( gg_trg_GoldMine_Special_Destruction, function Trig_GoldMine_Special_Destruction_Actions )
endfunction

function Trig_GoldMine_Special_Check_Gold_Func001 takes nothing returns nothing
    local integer resource

    // call BJDebugMsg("Refreshing Special")

    set resource = GetResourceAmount(GetEnumUnit())
    if resource == udg_GoldMines_LowThreshold then
        call IssueImmediateOrderBJ( GetEnumUnit(), "stop" ) // this triggers the fact that some event occured to the goldmine
    endif

    if resource <= udg_GoldMines_LowThreshold then
        call GroupRemoveUnit(udg_GoldMines_NeUdToCheck, GetEnumUnit()) // no check needed anymore
    endif
endfunction

function Trig_GoldMine_Special_Check_Gold_Actions takes nothing returns nothing
    call ForGroupBJ( udg_GoldMines_NeUdToCheck, function Trig_GoldMine_Special_Check_Gold_Func001 )

    if CountUnitsInGroup(udg_GoldMines_NeUdToCheck) == 0 then
        // call BJDebugMsg("No more Special to check")
        call DisableTrigger( GetTriggeringTrigger() )
    endif
endfunction

//===========================================================================
function InitTrig_GoldMine_Special_Check_Gold takes nothing returns nothing
    set gg_trg_GoldMine_Special_Check_Gold = CreateTrigger(  )
    call DisableTrigger( gg_trg_GoldMine_Special_Check_Gold )
    call TriggerRegisterTimerEventPeriodic( gg_trg_GoldMine_Special_Check_Gold, 0.50 )
    call TriggerAddAction( gg_trg_GoldMine_Special_Check_Gold, function Trig_GoldMine_Special_Check_Gold_Actions )
endfunction

function Trig_Hotkeys_Triggers_BindKeys takes nothing returns nothing
    local integer i = 65
    loop
        exitwhen i >=91
            call BlzTriggerRegisterPlayerKeyEvent(gg_trg_Hotkeys_Triggers_Proc, GetEnumPlayer(), ConvertOsKeyType(i), 0, true)
        set i = i+1
    endloop
endfunction

function Trig_Hotkeys_Triggers_Init_Actions takes nothing returns nothing
    call ForForce( udg_PlayingPlayers, function Trig_Hotkeys_Triggers_BindKeys )
endfunction

//===========================================================================
function InitTrig_Hotkeys_Triggers_Init takes nothing returns nothing
    set gg_trg_Hotkeys_Triggers_Init = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_Hotkeys_Triggers_Init, 1.00 )
    call TriggerAddAction( gg_trg_Hotkeys_Triggers_Init, function Trig_Hotkeys_Triggers_Init_Actions )
endfunction

function Trig_Hotkey_Detector_Init_Actions takes nothing returns nothing
    call SaveIntegerBJ( $41, 0, 108, udg_DictHT )
    call SaveIntegerBJ( $42, 1, 108, udg_DictHT )
    call SaveIntegerBJ( $43, 2, 108, udg_DictHT )
    call SaveIntegerBJ( $44, 3, 108, udg_DictHT )
    call SaveIntegerBJ( $45, 4, 108, udg_DictHT )
    call SaveIntegerBJ( $46, 5, 108, udg_DictHT )
    call SaveIntegerBJ( $47, 6, 108, udg_DictHT )
    call SaveIntegerBJ( $48, 7, 108, udg_DictHT )
    call SaveIntegerBJ( $49, 8, 108, udg_DictHT )
    call SaveIntegerBJ( $4A, 9, 108, udg_DictHT )
    call SaveIntegerBJ( $4B, 10, 108, udg_DictHT )
    call SaveIntegerBJ( $4C, 11, 108, udg_DictHT )
    call SaveIntegerBJ( $4D, 12, 108, udg_DictHT )
    call SaveIntegerBJ( $4E, 13, 108, udg_DictHT )
    call SaveIntegerBJ( $4F, 14, 108, udg_DictHT )
    call SaveIntegerBJ( $50, 15, 108, udg_DictHT )
    call SaveIntegerBJ( $51, 16, 108, udg_DictHT )
    call SaveIntegerBJ( $52, 17, 108, udg_DictHT )
    call SaveIntegerBJ( $53, 18, 108, udg_DictHT )
    call SaveIntegerBJ( $54, 19, 108, udg_DictHT )
    call SaveIntegerBJ( $55, 20, 108, udg_DictHT )
    call SaveIntegerBJ( $56, 21, 108, udg_DictHT )
    call SaveIntegerBJ( $57, 22, 108, udg_DictHT )
    call SaveIntegerBJ( $58, 23, 108, udg_DictHT )
    call SaveIntegerBJ( $59, 24, 108, udg_DictHT )
    call SaveIntegerBJ( $5A, 25, 108, udg_DictHT )
endfunction

//===========================================================================
function InitTrig_Hotkey_Detector_Init takes nothing returns nothing
    set gg_trg_Hotkey_Detector_Init = CreateTrigger(  )
    call TriggerAddAction( gg_trg_Hotkey_Detector_Init, function Trig_Hotkey_Detector_Init_Actions )
endfunction

function Trig_Hotkey_Detector_Registration_Actions takes nothing returns nothing
    call CreateNUnitsAtLoc( 1, 'hvlt', Player(0), GetRectCenter(gg_rct_Region_001), bj_UNIT_FACING )
    call UnitAddAbilityBJ( 'AInv', GetLastCreatedUnit() )
    call IssueTargetOrderBJ( GetLastCreatedUnit(), "neutralinteract", GetLastCreatedUnit() )
    call SelectUnitForPlayerSingle( GetLastCreatedUnit(), Player(PLAYER_NEUTRAL_PASSIVE) )
    call SetPlayerStateBJ( Player(0), PLAYER_STATE_RESOURCE_GOLD, 10000 )
    call SetPlayerStateBJ( Player(0), PLAYER_STATE_RESOURCE_LUMBER, 10000 )
    call TriggerSleepAction( 0.10 )
    call ForceUIKeyBJ( Player(0), "R" )
endfunction

//===========================================================================
function InitTrig_Hotkey_Detector_Registration takes nothing returns nothing
    set gg_trg_Hotkey_Detector_Registration = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_Hotkey_Detector_Registration, Player(0), "test", true )
    call TriggerAddAction( gg_trg_Hotkey_Detector_Registration, function Trig_Hotkey_Detector_Registration_Actions )
endfunction

// since by default 0 is returned, we increment by one to detect which units have already been treated
function GetUnitFoodCost takes integer unitid returns integer
    local location l
    local unit u
    local integer current_food
    local integer food = LoadIntegerBJ(unitid, udg_UnitData_IndexFoodCost, udg_UnitDataAsyncHT )
    if food != 0 then
        // call BJDebugMsg("food already calculated: " + I2S(food - 1))
        return food - 1
    endif

    set l = GetRandomLocInRect(GetPlayableMapRect())
    set current_food = GetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_FOOD_USED)
    set u = CreateUnitAtLoc(Player(PLAYER_NEUTRAL_PASSIVE), unitid, l, 0)
    set food = GetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_FOOD_USED) - current_food
    call SaveIntegerBJ(food + 1, unitid, udg_UnitData_IndexFoodCost, udg_UnitDataAsyncHT )
    //call BJDebugMsg("first time calculating food: " + I2S(food))

    call RemoveUnit(u)
    call RemoveLocation(l)

    set u = null
    set l = null

    return food
endfunction

// since by default 0 is returned, we increment by one to detect which researches have already been treated
// we need player p because if the search has been clicked it means the techtree requirements are fulfilled for the player
function RetrieveResearchCosts takes integer researchid, integer techlevel, player p returns nothing
    local location l
    local unit u
    local integer gold_cost
    local integer wood_cost
    local integer original_gold
    local integer original_wood
    local integer extra_resources = 10000
    local integer array resources
    local integer hashkey = StringHashBJ(I2S(researchid) + "-" + I2S(techlevel))

    set original_gold = GetPlayerState(p, PLAYER_STATE_RESOURCE_GOLD)
    set original_wood = GetPlayerState(p, PLAYER_STATE_RESOURCE_LUMBER)
    call SetPlayerState(p, PLAYER_STATE_RESOURCE_GOLD, original_gold + extra_resources)
    call SetPlayerState(p, PLAYER_STATE_RESOURCE_LUMBER, original_wood + extra_resources)

    // set l = GetRandomLocInRect(GetPlayableMapRect())
    set l = GetPlayerStartLocationLoc(p)
    set u = CreateUnitAtLoc(p, udg_UnitData_DummyResearcher, l, 0)
    // if techlevel > 1 then
    //     call SetPlayerTechResearchedSwap( researchid, techlevel - 1, p )
    // endif
    call IssueUpgradeOrderByIdBJ(u, researchid)

    set gold_cost = original_gold + extra_resources - GetPlayerState(p, PLAYER_STATE_RESOURCE_GOLD)
    set wood_cost = original_wood + extra_resources - GetPlayerState(p, PLAYER_STATE_RESOURCE_LUMBER)
    call IssueImmediateOrderById(u, 851976 )
    call SaveIntegerBJ(gold_cost + 1, hashkey, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT )
    call SaveIntegerBJ(wood_cost + 1, hashkey, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT )
    // call BJDebugMsg("first time calculating costs: " + I2S(gold_cost) + " gold and " + I2S(wood_cost) + " wood. Haskey: " + I2S(hashkey))

    call RemoveUnit(u)
    call RemoveLocation(l)

    call SetPlayerState(p, PLAYER_STATE_RESOURCE_GOLD, original_gold)
    call SetPlayerState(p, PLAYER_STATE_RESOURCE_LUMBER, original_wood)

    set u = null
    set l = null
endfunction

function GetResearchGoldCost takes integer researchid, player p returns integer
    local integer techlevel = GetPlayerTechCountSimple(researchid, p)
    local integer hashkey = StringHashBJ(I2S(researchid) + "-" + I2S(techlevel+1)) // be careful it's not case sensitive !
    local integer gold_cost = LoadIntegerBJ(hashkey, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT )
    if gold_cost != 0 then
        // call BJDebugMsg("already calculated gold cost: " + I2S(gold_cost - 1))
        return gold_cost - 1
    endif

    call RetrieveResearchCosts(researchid, techlevel + 1, p)
    return LoadIntegerBJ(hashkey, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT ) - 1
endfunction

function GetResearchLumberCost takes integer researchid, player p returns integer
    local integer techlevel = GetPlayerTechCountSimple(researchid, p)
    local integer hashkey = StringHashBJ(I2S(researchid) + "-" + I2S(techlevel+1))
    local integer wood_cost = LoadIntegerBJ(hashkey, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT )
    if wood_cost != 0 then
        // call BJDebugMsg("already calculated wood cost: " + I2S(wood_cost - 1))
        return wood_cost - 1
    endif

    call RetrieveResearchCosts(researchid, techlevel + 1, p)
    return LoadIntegerBJ(hashkey, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT ) - 1
endfunction

// since by default 0 is returned, we increment by one to detect which units have already been treated
function RetrieveItemCosts takes integer itemid returns nothing
    local location l
    local unit shop
    local unit buyer
    local integer extra_resources = 10000
    local integer gold_cost = LoadIntegerBJ(itemid, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT )
    local integer lumber_cost
    local item it

    if gold_cost != 0 then
        return
    endif

    call SetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_GOLD, extra_resources)
    call SetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_LUMBER, extra_resources)

    set l = GetRandomLocInRect(GetPlayableMapRect())
    set buyer = CreateUnitAtLoc(Player(PLAYER_NEUTRAL_PASSIVE), udg_UnitData_DummyBuyer, l, 0)
    set shop = CreateUnitAtLoc(Player(PLAYER_NEUTRAL_PASSIVE), udg_UnitData_DummyShop, l, 0)
    set it = UnitAddItemByIdSwapped(itemid, buyer)
    call UnitDropItemTarget(buyer, it, shop)

    set gold_cost = R2I((GetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_GOLD) - extra_resources)/0.6)
    set lumber_cost = R2I((GetPlayerState(Player(PLAYER_NEUTRAL_PASSIVE), PLAYER_STATE_RESOURCE_LUMBER) - extra_resources)/0.6)
    call SaveIntegerBJ(gold_cost + 1, itemid, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT )
    call SaveIntegerBJ(lumber_cost + 1, itemid, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT )

    call RemoveUnit(buyer)
    call RemoveUnit(shop)
    call RemoveLocation(l)

    set buyer = null
    set shop = null
    set l = null
endfunction

function GetItemGoldCost takes integer itemid returns integer
    local integer gold_cost = LoadIntegerBJ(itemid, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT )
    if gold_cost != 0 then
        return gold_cost - 1
    endif

    call RetrieveItemCosts(itemid)
    return LoadIntegerBJ(itemid, udg_UnitData_IndexGoldCost, udg_UnitDataAsyncHT ) - 1
endfunction

function GetItemLumberCost takes integer itemid returns integer
    local integer lumber_cost = LoadIntegerBJ(itemid, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT )
    if lumber_cost != 0 then
        return lumber_cost - 1
    endif

    call RetrieveItemCosts(itemid)
    return LoadIntegerBJ(itemid, udg_UnitData_IndexLumberCost, udg_UnitDataAsyncHT ) - 1
endfunction