unction KE takes nothing returns boolean
    return GetSpellAbilityId()=='Alsh'
endfunction

function ME takes nothing returns nothing
    local integer Er
    local integer Zr=GetUnitAbilityLevel(udg_unit38,'Alsh')
    local player go=GetOwningPlayer(udg_unit38)
    local unit Go
    local real qo=GetUnitX(udg_unit38)
    local real Yo=GetUnitY(udg_unit38)
    local trigger ho=CreateTrigger()
    set udg_unit03=GetSpellTargetUnit()
    set Er=0
    loop
        set Go=CreateUnit(go,'uloc',qo,Yo,270)
        call GroupAddUnit(udg_group01,Go)
        call SetUnitAbilityLevel(Go,'ACim',Zr)
        call IssueImmediateOrderById(Go,852177)
        exitwhen Er>5
        set Er=Er+1
    endloop
    call TriggerRegisterTimerEventPeriodic(ho,.65)
    call TriggerAddAction(ho,function mE)
    call ro(20)
    call ForGroup(udg_group01,function lE)
    call GroupClear(udg_group01)
endfunction

function ro takes real io returns nothing
    local real ao
    local real st=TimerGetElapsed(udg_timer01)
    if st<=0 then
        set udg_timer01=CreateTimer()
        call TimerStart(udg_timer01,0xF4240,false,null)
    endif
    if(io>0)then
        loop
            set ao=io-TimerGetElapsed(udg_timer01)+st
            exitwhen ao<=0
            if(ao>bj_POLLED_WAIT_SKIP_THRESHOLD)then
                call TriggerSleepAction(.1*ao)
            else
                call TriggerSleepAction(bj_POLLED_WAIT_INTERVAL)
            endif
        endloop
    endif
endfunction

function To takes handle Mo,string Po returns unit
    return LoadUnitHandle(udg_hashtable01,GetHandleId(Mo),StringHash(Po))
endfunction

function lE takes nothing returns nothing
    call KillUnit(GetEnumUnit())
endfunction

function LE takes nothing returns nothing
    if IsUnitLoaded(udg_unit03)then
        call IssueTargetOrderById(GetEnumUnit(),851983,To(udg_unit03,"transport"))
    else
        call IssueTargetOrderById(GetEnumUnit(),851983,udg_unit03)
    endif
endfunction

function mE takes nothing returns nothing
    local trigger ho
    if udg_unit03==null then
        call ForGroup(udg_group01,function lE)
        call GroupClear(udg_group01)
    endif
    if CountUnitsInGroup(udg_group01)<1 then
        set ho=GetTriggeringTrigger()
        call TriggerClearActions(ho)
        call DestroyTrigger(ho)
        set ho=null
    else
        call ForGroup(udg_group01,function LE)
    endif
endfunction