function d1_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A07P'
endfunction

function KHI takes unit u returns boolean
return GetUnitTypeId(u)<1 or IsUnitType(u,UNIT_TYPE_DEAD)==true
endfunction

function NNI takes nothing returns boolean
return IsUnitEnemy(udg_OK,GetOwningPlayer(GetFilterUnit()))and(GetUnitAbilityLevel(GetF  ilterUnit(),'A07P')==0 and IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)==false and KHI(GetFilterUnit())==false)and IsUnitVisible(GetFilterUnit(),GetOwningPlayer(udg_OK))
endfunction

function QC1 takes nothing returns nothing
    local unit XWI=GetEnumUnit()
    local group QD1=udg_LI0
    local unit XVI= udg_ni
    if IsUnitInGroup(XWI,QD1)==false then
        call GroupAddUnit(QD1,XWI)
        call IssueTargetOrder(udg_LOP,"slow",XWI)
        call UnitDamageTarget(XVI,XWI,200,true,true,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_FIRE,WEAPO  N_TYPE_WHOKNOWS)
        call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl",XWI,"origin"))
    endif
    set XWI=null
    set QD1=null
    set XVI=null
endfunction

function QE1 takes nothing returns boolean
    local trigger t = GetTriggeringTrigger()
    local integer I = GetHandleId(t)
    local unit XVI=(LoadUnitHandle(udg_Hash,(I),(2)))
    local unit SKI=(LoadUnitHandle(udg_Hash,(I),(19)))
    local group QD1=(LoadGroupHandle(udg_Hash,(I),(133)))
    local real d
    local real x
    local real x0=GetUnitX(XVI)
    local real y
    local real y0=GetUnitY(XVI)
    local group g=CreateGroup()
    local integer ZVI=GetTriggerEvalCount(t)
    local integer i
    call SetUnitX(SKI,GetUnitX(XVI))
    call SetUnitY(SKI,GetUnitY(XVI))
    set udg_LI0=QD1
    set udg_ni=XVI
    set udg_LOP=(LoadUnitHandle(udg_Hash,(I),(132)))
    if GetTriggerEvalCount(t)>33 then
        call KillUnit(SKI)
        call GroupClear(QD1)
        call FlushChildHashtable(udg_Hash,(I))
    else
        set d=ZVI*18
        set i=0
        loop
            exitwhen i>36
            set x=x0+d*Cos(360*i/36*bj_DEGTORAD)
            set y=y0+d*Sin(360*i/36*bj_DEGTORAD)
            set udg_OK = XVI
            call GroupEnumUnitsInRange(g,x,y,500,Condition(function NNI))
            call ForGroup(g,function QC1)
            set i=i+1
        endloop
    endif
    call GroupClear(g)
    call DestroyGroup(g)
    set t=null
    set SKI=null
    set QD1=null
    set XVI=null
    set g=null
    return false
endfunction

function QF1 takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local group g = CreateGroup()
    local trigger t = GetTriggeringTrigger()
    local integer I = GetHandleId(t)
    local unit D1 = CreateUnit(GetOwningPlayer(u),'e00A',x,y,0)
    local unit D2 = CreateUnit(GetOwningPlayer(u),'e005',x,y,0)
    call UnitAddAbility(D2,'A052')
    call SaveGroupHandle(udg_Hash,(I),(133),(g))
    call SaveUnitHandle(udg_Hash,(I),(19),(D1))
    call SaveUnitHandle(udg_Hash,(I),(132),(D2))
    call SaveUnitHandle(udg_Hash,(I),(2),(u))
    call TriggerRegisterTimerEvent(t,0.06,true)
    call TriggerAddCondition(t,Condition(function QE1))
    set t = null
    set D1 = null
    set D2 = null
    set g = null
    set u = null
endfunction

function d1_Actions takes nothing returns nothing
    call QF1()
endfunction

//===========================================================================
function InitTrig_d1 takes nothing returns nothing
    set gg_trg_d1 = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_d1, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_d1, Condition( function d1_Conditions ) )
    call TriggerAddAction( gg_trg_d1, function d1_Actions )
endfunction