Triggers

function Debug takes string str returns nothing
    call DisplayTextToForce(GetPlayersAll(), str )
endfunction

function GetCreepIndex takes unit u returns integer
    local integer i = 0
    loop
    if ( u == udg_creep[i]) then
        return i
    endif
    set i = i + 1
    exitwhen i == 84
    endloop
    return 0
endfunction

function GetComboPoints takes unit u returns integer
    if ( UnitHasBuffBJ(u, 'B01I') ) then
      return 1
    elseif ( UnitHasBuffBJ(u, 'B031') ) then
      return 2
    elseif ( UnitHasBuffBJ(u, 'B033') ) then
      return 3
    elseif ( UnitHasBuffBJ(u, 'B034') ) then
      return 4
    elseif ( UnitHasBuffBJ(u, 'B035') ) then
      return 5
    else
      return 0
    endif
endfunction

function ClearComboPoints takes unit u returns nothing
        call UnitRemoveBuffBJ('B01I', u)
        call UnitRemoveBuffBJ('B031', u)
        call UnitRemoveBuffBJ('B033', u)
        call UnitRemoveBuffBJ('B034', u)
        call UnitRemoveBuffBJ('B035', u)
endfunction

function H2I takes handle H returns integer
    return H
    return 0
endfunction

function handlevars takes nothing returns gamecache
    return udg_handlevars
endfunction

function SetHandleHandle takes handle subject, string name, handle value returns nothing
    if value==null then
        call FlushStoredInteger(handlevars(),I2S(H2I(subject)),name)
    else
        call StoreInteger(handlevars(), I2S(H2I(subject)), name, H2I(value))
    endif
endfunction

function GetHandleHandle takes handle subject, string name returns handle
    return GetStoredInteger(handlevars(), I2S(H2I(subject)), name)
    return null
endfunction

function SetHandleInt takes handle subject, string name, integer value returns nothing
    if value==0 then
        call FlushStoredInteger(handlevars(),I2S(H2I(subject)),name)
    else
        call StoreInteger(handlevars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function GetHandleInt takes handle subject, string name returns integer
    return GetStoredInteger(handlevars(), I2S(H2I(subject)), name)
endfunction

function SetHandleReal takes handle subject, string name, real value returns nothing
    if value==0 then
        call FlushStoredReal(handlevars(),I2S(H2I(subject)),name)
    else
        call StoreReal(handlevars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function GetHandleReal takes handle subject, string name returns real
    return GetStoredReal(handlevars(), I2S(H2I(subject)), name)
endfunction

function SetHandleString takes handle subject, string name, string value returns nothing
    if value==null then
        call FlushStoredString(handlevars(), I2S(H2I(subject)), name)
    else
        call StoreString(handlevars(), I2S(H2I(subject)), name, value)
    endif
endfunction

function GetHandleString takes handle subject, string name returns string
    return GetStoredString(handlevars(), I2S(H2I(subject)), name)
endfunction

function GetOrder takes unit u returns nothing
    call Debug( GetUnitName(u) + ": " + OrderId2String(GetHandleInt( u, "order" ) ) )
endfunction

function IssueLastOrder takes unit u returns nothing
    local string ordertype = GetHandleString( u, "ordertype" )
//    if (ordertype == "immediateorder") then
//      call IssueImmediateOrderById( u, GetHandleInt(u, "order" ) )
//    endif
    if (ordertype == "pointorder") then
         call IssuePointOrderById( u, GetHandleInt(u, "order"), GetHandleReal(u, "ordertargetX"), GetHandleReal(u, "ordertargetY") )
    endif
endfunction

function IsTidesTree takes destructable tocheck returns boolean
    local integer id = GetDestructableTypeId(tocheck)
    if (((id == 'LTlt') or (id == 'VTlt') or (id == 'ATtr') or (id == 'ATtc') or (id == 'B002')) and (IsDestructableDeadBJ(tocheck) == false)) then
        return true
    endif
    return false
endfunction

function CountTreesEnum takes nothing returns nothing
    if (IsTidesTree(GetEnumDestructable()) == true ) then
        call SetHandleInt(gg_unit_E006_0044,"trees", GetHandleInt(gg_unit_E006_0044 , "trees") + 1 )
    endif
endfunction

function CountTrees takes unit u, real radius returns integer
    local location loc = GetUnitLoc(u)
    call SetHandleInt(gg_unit_E006_0044, "trees",0)
    call EnumDestructablesInCircleBJ( radius, loc, function CountTreesEnum )
    call RemoveLocation(loc)
    set loc = null
    return GetHandleInt(u, "trees")
endfunction

function GetAffinityLevel takes unit u returns integer
  
    local integer i = 0
    local integer array skills

    set skills[0] = 'A06C'
    set skills[1] = 'A06D'
    set skills[2] = 'A06E'
    set skills[3] = 'A06G'

    loop
    if (GetUnitAbilityLevel(u, skills[i]) > 0) then
        return skills[i]
    endif
    set i = i + 1
    exitwhen i == 4
    endloop
    return 0
endfunction

function GetDryadRadius takes nothing returns real
    local unit dryad = gg_unit_E006_0044
    return I2R(GetUnitAbilityLevel(dryad,'A066') *75 + 300)
endfunction