function Trig_Ability_Conditions takes nothing returns boolean
   return GetSpellAbilityId() == 'A029'
endfunction

function Ability_EveryPick_Condition takes nothing returns boolean
local unit u2 = GetFilterUnit()
local unit u = GetSpellAbilityUnit()
local boolean bCondition = true
if(not (GetUnitState(u2, UNIT_STATE_LIFE) > 0))then
set bCondition = false
endif
if(not ( IsUnitType(u2, UNIT_TYPE_STRUCTURE) == false )) then
set bCondition = false 
endif
if(not ( IsUnitType(u2, UNIT_TYPE_MAGIC_IMMUNE) == false )) then
set bCondition = false 
endif
if(not ( IsUnitEnemy(u2, GetOwningPlayer(u)) == false )) then
set bCondition = false 
endif
set u2 = null
set u = null
return bCondition
endfunction
function Ability_EveryPick_Actions takes nothing returns nothing
local unit u = GetSpellAbilityUnit()
local unit u2 = GetEnumUnit()
local real pX = GetUnitX(u2)
local real pY = GetUnitY(u2)
local unit uD = null
set uD = CreateUnit(GetOwningPlayer(u), 'h00I', pX, pY, 90 )
call SetUnitAbilityLevel (uD, 'A025', GetUnitAbilityLevel(u, 'A029'))
call UnitApplyTimedLife( uD, 'BHwe', 3 )
call IssueTargetOrder( uD, "acidbomb", u2 ) - ЭТА СТРОЧКА ОБРЫВАЕТ ЦИКЛ 
set u2 = null
set uD = null
set u = null
endfunction

function Trig_Ability_Actions takes nothing returns nothing
local unit u = GetSpellAbilityUnit()
local real pX = GetUnitX(u)
local real pY = GetUnitY(u)
local group g = CreateGroup()
call GroupEnumUnitsInRange(g, pX, pY, 800, Condition(function Ability_EveryPick_Condition))
call ForGroup(g, function Ability_EveryPick_Actions)
call DestroyGroup(g)
set u = null
set g = null
endfunction

//===========================================================================
function InitTrig_Ability takes nothing returns nothing
    set gg_trg_Ability = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Ability, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Ability, Condition( function Trig_Ability_Conditions ) )
    call TriggerAddAction( gg_trg_Ability, function Trig_Ability_Actions )
endfunction