globals
hashtable Hash = InitHashtable()
endglobals

function stopstan takes nothing returns nothing
local timer q=GetExpiredTimer()
local integer id=GetHandleId(q)
local unit t=LoadUnitHandle(Hash,id,0)
call SetUnitInvulnerable(t, false)
call PauseUnit(t ,false)
call SetUnitVertexColor(t, 255, 255, 255,100)
call FlushChildHashtable(Hash,id)
call PauseTimer(q)
call DestroyTimer(q)
set q=null
set t=null
endfunction

function Conditions takes nothing returns boolean
return GetSpellAbilityId() == 'AUan'
endfunction

function Actions takes nothing returns nothing
local unit u=GetSpellAbilityUnit()
local unit t=GetSpellTargetUnit()
local timer q=CreateTimer()
local real time=5+(1*GetUnitAbilityLevel(u, 'A003'))
local integer id=GetHandleId(q)
call SetUnitInvulnerable(t, true )
call PauseUnit(t ,true)
call SetUnitVertexColor(t, 20,20, 20,100)
call SaveUnitHandle(Hash,id,0,t)
call TimerStart(q,time,true,function stopstan)
set q=null
set u=null
set t=null
endfunction

//===========================================================================
function InitTrig_StounSpell takes nothing returns nothing
     local trigger t     = CreateTrigger(  )
     local integer index = 0
     loop
         call TriggerRegisterPlayerUnitEvent(t, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
         set index = index + 1
         exitwhen index == 16
     endloop
     call TriggerAddCondition(t, Condition( function Conditions ) )
     call TriggerAddAction(t, function Actions )
endfunction