globals
    group GG = CreateGroup()
    unit Wind_Caster
    unit Wind_Voronka
    real Wind_Damag
    filterfunc Wind_Filter
endglobals

function Trig_wind_Damag takes integer level returns real
    if     (level == 1) then  
        return 8.
    elseif (level == 2) then
        return 10.5
    elseif (level == 3) then 
        return 12.5
    elseif (level == 4) then
        return 15.
    elseif (level == 5) then 
        return 20.
    elseif (level == 6) then
        return 25.
    elseif (level == 7) then
        return 31.25
    elseif (level == 8) then
        return 37.5
    endif 
endfunction

function Trig_wind_Filter takes nothing returns boolean
    local unit enum = GetFilterUnit()
    local real ang
    if IsUnitEnemy(enum, GetOwningPlayer(Wind_Caster)) then
        set ang = Atan2(GetUnitY(Wind_Voronka)-GetUnitY(enum), GetUnitX(Wind_Voronka)-GetUnitX(enum))
        call UnitDamageTargetBJ(Wind_Caster, enum, Wind_Damag, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL)
        call SetUnitPosition(enum, GetUnitX(enum)+10*Cos(ang), GetUnitY(enum)+10*Sin(ang))
    endif
    set enum = null
    return false
endfunction

function Trig_wind_Actions takes nothing returns nothing
    local unit Caster = GetSpellAbilityUnit()
    local location Target = GetSpellTargetLoc()
    local unit Voronka = CreateUnitAtLoc(GetOwningPlayer(Caster), 'e002', Target, 0) 
    local real dmg = Trig_wind_Damag(GetUnitAbilityLevel(Caster, 'A00A'))
    local integer i = 0
    call RemoveLocation(Target)
    call UnitApplyTimedLife(Voronka, 'BTLF', 4.)
    loop
        exitwhen i >= 40
        set Wind_Caster = Caster  
        set Wind_Voronka = Voronka
        set Wind_Damag = dmg
        call GroupEnumUnitsInRange(GG, GetUnitX(Voronka), GetUnitY(Voronka), 400, Wind_Filter)
        call TriggerSleepAction(0.1)
        set i = i + 1
    endloop
    set Caster = null
    set Target = null
    set Voronka = null
endfunction 

function Trig_wind_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A00A'
endfunction

function InitTrig_wind takes nothing returns nothing
    set gg_trg_wind = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_wind, EVENT_PLAYER_UNIT_SPELL_CAST)
    call TriggerAddCondition(gg_trg_wind, Condition(function Trig_wind_Conditions))
    call TriggerAddAction(gg_trg_wind, function Trig_wind_Actions)
    set Wind_Filter = Filter(function Trig_wind_Filter)
endfunction