function Trig_Lich_Conditions takes nothing returns boolean
      return GetSpellAbilityId()=='A001'
endfunction

function FilterGroup takes nothing returns boolean
      return IsUnitEnemy(GetFilterUnit(),GetOwningPlayer(LoadUnitHandle(udg_H,GetHandleId(GetExpiredTimer()),1)))==true and GetFilterUnit()!=LoadUnitHandle(udg_H,GetHandleId(GetExpiredTimer()),2) and IsUnitType(GetFilterUnit(),UNIT_TYPE_FLYING)==false
endfunction

function LichGetMagic takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer id=GetHandleId(t)
local unit u=LoadUnitHandle(udg_H,id,1)
local unit ut=LoadUnitHandle(udg_H,id,2)
local unit dummy=LoadUnitHandle(udg_H,id,3)
local real x2=GetWidgetX(ut)
local real y2=GetWidgetY(ut)
local real x1=GetWidgetX(dummy)
local real y1=GetWidgetY(dummy)
local real a=Atan2(y2-y1,x2-x1)
local group g
local unit e
local unit d
local integer i=LoadInteger(udg_H,id,5)
if DistanceBetweenCoords(x1,y1,x2,y2)<=30 then
set d=CreateUnit(GetOwningPlayer(u),'n000',x1,y1,bj_DEGTORAD)
call UnitApplyTimedLife(d,'BTLF',.3)
call SetUnitAbilityLevel(d,'A000',GetUnitAbilityLevel(u,'A001'))
call IssueTargetOrder(d,"entanglingroots",ut)
set g=CreateGroup()
call GroupEnumUnitsInRange(g,x1,y1,300.,function FilterGroup)
      set e=GroupPickRandomUnit(g)
      if i>0 then
          if e!=null then
              call SaveUnitHandle(udg_H,id,2,e)
              call SaveInteger(udg_H,id,5,i-1)
          else
              call SaveInteger(udg_H,id,5,0)
          endif
      else
      call RemoveUnit(dummy)
      call PauseTimer(t)
      call DestroyTimer(t)
      call FlushChildHashtable(udg_H,id)
      endif
call DestroyGroup(g)
else
      call SetUnitX(dummy,x1+18.*Cos(a))
      call SetUnitY(dummy,y1+18.*Sin(a))      
endif
set t=null
set u=null
set ut=null
set dummy=null
set g=null
set e=null
set d=null
endfunction

function Trig_Lich_Actions takes nothing returns nothing
local timer t=CreateTimer()
local integer id=GetHandleId(t)
local unit u=GetTriggerUnit()
local unit ut=GetSpellTargetUnit()
local unit dummy=CreateUnit(GetOwningPlayer(u),'n001',GetWidgetX(u),GetWidgetY(u),bj_DEGTORAD)
       call SaveUnitHandle(udg_H,id,1,u)
       call SaveUnitHandle(udg_H,id,2,ut)
       call SaveUnitHandle(udg_H,id,3,dummy)
       call SaveTimerHandle(udg_H,id,4,t)
       call SaveInteger(udg_H,id,5,5)
       call TimerStart(t,.03,true,function LichGetMagic)
set t=null
set u=null
set ut=null
set dummy=null
endfunction

//===========================================================================
function InitTrig_Lich takes nothing returns nothing
local trigger Lich=CreateTrigger()
local integer i
      set i=0
      loop
          exitwhen i==11
          call TriggerRegisterPlayerUnitEvent(Lich,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
          set i=i+1
      endloop
      call TriggerAddCondition(Lich,Condition(function Trig_Lich_Conditions))
      call TriggerAddAction(Lich,function Trig_Lich_Actions)
endfunction