function Trig_Equip_Apply_Conditions takes nothing returns boolean
     return GetUnitTypeId(GetTriggerUnit()) == 'n008' or GetUnitTypeId(GetTriggerUnit()) == 'n000'
endfunction

function GetInvItemIndex takes unit whichUnit, integer itemId returns integer
     local integer i = 0
     local item it
     loop
         exitwhen i > 5
         set it = UnitItemInSlot(whichUnit,index)
         if GetItemTypeId(it) == itemId then
             return i
         endif
         set i = i + 1
     endloop
     return -1
endfunction

function GetItemOfTypeFromUnit takes unit whichUnit, integer itemId returns item
     local integer index = GetInvItemIndex(whichUnit,itemId)
     if index != -1 then
         return UnitItemInSlot(whichUnit,index)
     endif     
     return null
endfunction

function Trig_Equip_Apply_Actions takes nothing returns nothing
       local unit HeroPick
       local integer HeroType
       local integer HeroCode
       local integer Ability = GetSpellAbilityId()
       local integer ItemN = LoadInteger(udg_Items,Ability,0)
       local integer ItemP = LoadInteger(udg_Items,Ability,1)
       local integer Gold = LoadInteger(udg_Items,Ability,2)
       local integer Rep = LoadInteger(udg_Items,Ability,3)
       local integer Code = LoadInteger(udg_Items,Ability,4)
       local string Name
       local boolean Check
       local unit u = GetSpellAbilityUnit()
       local player p1 = GetOwningPlayer(u)
       local unit un
       local group g = CreateGroup()
       call GroupEnumUnitsInRange(g, GetWidgetX(u), GetWidgetY(u), 500., null)

       call IssueImmediateOrderById(u,851972)

        loop
            set un = FirstOfGroup(g)
            exitwhen un == null
            call GroupRemoveUnit(g, un)
            if IsUnitType(un,UNIT_TYPE_HERO) and IsUnitAlly(un,p1) then
                set HeroPick = un
            endif
        endloop

       call DestroyGroup(g)
       set HeroType = GetUnitTypeId(HeroPick)
       set HeroCode = LoadInteger(udg_Abilities,HeroType,1)
       set Check = GetInvItemIndex(HeroPick,ItemP) > -1

       if Code == 1 then    
         set Name = "Melee Weapons"    
       elseif Code == 2 then    
         set Name = "Ranged Weapons"    
       elseif Code == 3 then    
         set Name = "Magic Weapons"    
       endif

       if ItemP == 'afac' then    
         set Check = true    
       endif
       if ItemN == 'I01I' and (ItemP == 'I01H' or ItemP == 'I01G') then
         set Check = true    
         call RemoveItem(GetItemOfTypeFromUnit(HeroPick,LoadInteger(udg_Items,Ability,5)))
       endif       

       if (HeroCode == 1 and Code == 3) or HeroCode == Code or Code == 0 then
             if GetPlayerState(p1,PLAYER_STATE_RESOURCE_GOLD) >= Gold and GetPlayerState(p1,PLAYER_STATE_RESOURCE_FOOD_USED) >= Rep and Check then
                 call RemoveItem(GetItemOfTypeFromUnit(HeroPick,ItemP))
                 call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",HeroPick,"origin" ))
                 call SetPlayerState(p1,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(p1,PLAYER_STATE_RESOURCE_GOLD + Gold * -1))
                 call UnitAddItemById(HeroPick,ItemN)
                 call SaveInteger(udg_Items,ItemN,0,Code)
             else
                 call AttachSoundToUnit(gg_snd_Error,u)
                 call SetSoundVolume(gg_snd_Error,127)
                 call StartSound(gg_snd_Error)
                 call DisplayTimedTextToPlayer(p1,0,0,5.,"|c00C4B200You do not have enough resources to craft this item.|r")
             endif
       else
             call AttachSoundToUnit(gg_snd_Error,u)
             call SetSoundVolume(gg_snd_Error,127)
             call StartSound(gg_snd_Error)
             call DisplayTimedTextToPlayer(p1,0,0,5.,"|c00C4B200You cannot use|r |c0000B200" + Name + "|r")
       endif

       set HeroPick = null
       set u = null
       set un = null
       set g = null
       set p1 = null
endfunction