library CasterSystem initializer Init
     globals
         public constant integer DUMMY_MAX = 9
         public constant integer DUMMY_TYPES_MAX = 1
         public constant real DUMMY_LIFE = 1.
         public unit array Dummy
         public integer array Type
         public boolean array Free
         public timer array Timer
         private unit u
     endglobals

     public function DummyTimer takes nothing returns nothing
         local handle h = GetExpiredTimer()
         local integer i = 0
         loop
             exitwhen h == Timer[i]
             set i = i + 1
         endloop
         set Free[i] = true
         set h = null
     endfunction

     public function GetDummy takes player id, integer unitid, real x, real y, real face returns unit
         local integer i = 0
         loop
             exitwhen unitid == Type[i]
             if i == DUMMY_TYPES_MAX then
                 set u = CreateUnit(id, unitid, x, y, face)
                 call UnitApplyTimedLife(u, 'BTLF', DUMMY_LIFE)
                 call SetUnitExploded(u, true)
                 return u
             endif
             set i = i + 1
         endloop
         set i = i * (DUMMY_MAX + 1)
         loop
             exitwhen i == (DUMMY_TYPES_MAX + 1) * (DUMMY_MAX + 1)
             if Free[i] then
                 set Free[i] = false
                 call SetUnitOwner(Dummy[i], id, false)
                 call SetUnitX(Dummy[i], x)
                 call SetUnitY(Dummy[i], y)
                 call SetUnitFacing(Dummy[i], face)
                 call TimerStart(Timer[i], DUMMY_LIFE, false, function DummyTimer)
                 return Dummy[i]
             endif
             set i = i + 1
         endloop
         set u = CreateUnit(id, unitid, x, y, face)
         call UnitApplyTimedLife(u, 'BTLF', DUMMY_LIFE)
         call SetUnitExploded(u, true)
         return u
     endfunction

     private function Init takes nothing returns nothing
         local integer i = 0
         set Type[0] = 'h000'
         set Type[1] = 'h001'
         loop
             set Free[i] = true
             set Dummy[i] = CreateUnit(Player(15), Type[i / (DUMMY_MAX + 1)], .0, .0, .0)
             exitwhen i == (DUMMY_TYPES_MAX + 1) * DUMMY_MAX
             set i = i + 1
         endloop
     endfunction
endlibrary

globals
      unit array Caster
      hashtable Hash
endglobals
function Hashex takes nothing returns nothing // заканчивает спелл
      local timer t = GetExpiredTimer()
      local unit u =LoadUnitHandle(Hash, GetHandleId(t), 1)
      call BJDebugMsg(GetUnitName(u))
      call PauseUnit(u, false)
      set Caster[1] = null
      call FlushChildHashtable(Hash, GetHandleId(t))
      call DestroyTimer(t)
      set t = null
      set u = null
        
endfunction

function Pg takes nothing returns nothing   // это функция запускающая движение, которое реализуется ниже
      local timer t = CreateTimer()
      local unit u = GetSpellAbilityUnit()
      set Hash=InitHashtable()
      if GetSpellAbilityId() == 'A01T' then
         call SaveUnitHandle(Hash, GetHandleId(t), 1, u)
         set Caster[1] = u
         call PauseUnit(u, true)
         call TimerStart(t, 1, false, function Hashex)
         set u=null
      endif      
endfunction

function Killtree takes nothing returns nothing
      call KillDestructable( GetEnumDestructable( ) )
endfunction
        
function My takes nothing returns nothing // это соеденино с малым переодиком
     local unit u = Caster[1]
     local real angle = GetUnitFacing(u) * bj_DEGTORAD
     local real distance = 8
     call SetUnitX(u,GetUnitX(u)+distance*Cos(angle))
     call SetUnitY(u,GetUnitY(u)+distance*Sin(angle))
     call EnumDestructablesInCircleBJ(100, GetUnitLoc(u), function Killtree)
     set u = null
endfunction

globals
     constant hashtable Hash = InitHashtable()
     boolexpr Spell_Filter
     real MapMinX//bj_mapInitialPlayableArea задается в функции main, поэтому константами их делать нельзя
     real MapMaxX
     real MapMinY
     real MapMaxY
     real Spell_X
     real Spell_Y
endglobals

function Trig_Spell_Conditions takes nothing returns boolean
     return GetSpellAbilityId() == 'A01T'
endfunction

function Trig_Spell_TreeFilter takes nothing returns boolean
     local destructable d = GetFilterDestructable()
     local real x = GetWidgetX(d) - Spell_X
     local real y = GetWidgetY(d) - Spell_Y
     if x * x + y * y <= 10000. then//100^2
         call KillDestructable(d)
     endif
     set d = null
     return false
endfunction

function Trig_Spell_Timer takes nothing returns nothing
     local timer t = GetExpiredTimer()
     local integer id = GetHandleId(t)
     local integer i = LoadInteger(Hash, id, 1)
     local unit u = LoadUnitHandle(Hash, id, 0)
     local rect r
     set Spell_X = GetWidgetX(u) + LoadReal(Hash, id, 2)
     set Spell_Y = GetWidgetY(u) + LoadReal(Hash, id, 3)
     if Spell_X > MapMinX and Spell_X < MapMaxX then
         call SetUnitX(u, Spell_X)
     endif
     if Spell_Y > MapMinY and Spell_Y < MapMaxY then
         call SetUnitY(u, Spell_Y)
     endif
     set r = Rect(Spell_X - 50., Spell_Y - 50., Spell_X + 50., Spell_Y + 50.)
     call EnumDestructablesInRect(r, Spell_Filter, null)
     call RemoveRect(r)
     if i == 19 then
         call PauseTimer(t)//Антибаг
         call DestroyTimer(t)
         call FlushChildHashtable(Hash, id)
         call PauseUnit(u, false)
     else
         call SaveInteger(Hash, id, 1, i + 1)
     endif
     set t = null
     set u = null
     set r = null
endfunction

function Trig_Spell_Actions takes nothing returns nothing
     local unit u = GetTriggerUnit()
     local timer t = CreateTimer()
     local integer id = GetHandleId(t)
     local real a = GetUnitFacing(u) * .0174532925166
     call SaveAgentHandle(Hash, id, 0, u)
     call SaveInteger(Hash, id, 1, 1)
     call SaveReal(Hash, id, 2, 8. * Cos(a))
     call SaveReal(Hash, id, 3, 8. * Sin(a))
     call PauseUnit(u, true)
     call TimerStart(t, .05, true, function Trig_Spell_Timer)
     set u = null
     set t = null
endfunction

function InitTrig_Spell takes nothing returns nothing
     local trigger trig = CreateTrigger()
     local integer i = 0
     set MapMinX = GetRectMinX(bj_mapInitialPlayableArea)
     set MapMaxX = GetRectMaxX(bj_mapInitialPlayableArea)
     set MapMinY = GetRectMinY(bj_mapInitialPlayableArea)
     set MapMaxY = GetRectMaxY(bj_mapInitialPlayableArea)
     set Spell_Filter = Filter(function Trig_Spell_TreeFilter)
     loop
         call TriggerRegisterPlayerUnitEvent(trig, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
         exitwhen i == 15
         set i = i + 1
     endloop
     call TriggerAddCondition(trig, Filter(function Trig_Spell_Conditions))
     call TriggerAddAction(trig, function Trig_Spell_Actions)
     set trig = null
endfunction

function AbUnit takes unit u,integer id ,integer did,integer lvl,real time,integer order,real x,real y returns nothing
local unit d=CreateUnit(GetOwningPlayer(u),did,x,y,bj_UNIT_FACING)
call UnitApplyTimedLife(d,'BTLF',time)
call UnitAddAbility(d,id)
call SetUnitAbilityLevel(d,id,lvl)
call IssuePointOrderById(d,order,x,y)
d=null
endfunction

void NTI(unit u,item i,player p,int lvl,string msg)      
      {      
      int id=0      
      if GetItemLevel(i) == lvl      
      {      
             whilenot id>6      
             {      
                 if GetItemLevel(UnitItemInSlot(u,id-1)) == lvl and UnitItemInSlot(u,id-1) != i      
             {      
                SetItemDropID(i, GetUnitTypeId(u))      
                CreateItem(GetItemTypeId(i),GetWidgetX(u),GetWidgetY(u))      
                DisplayTextToPlayer(p,0 ,0,m sg)      
              }        
             id++      
             }      
             }      
      u=null      
      i=null      
      p=n ull      
      }

function NTI takes unit u,item i,player p,integer lvl,string msg returns nothing
local integer id=0
if GetItemLevel(i) == lvl then
loop
exitwhen id > 6
if GetItemLevel(UnitItemInSlot(u, id - 1)) == lvl and UnitItemInSlot(u, id - 1) != i then
call SetItemDropID(i, GetUnitTypeId(u))
call CreateItem(GetItemTypeId(i), GetWidgetX(u), GetWidgetY(u))
call DisplayTextToPlayer(p, 0, 0, msg)
endif
set id=id + 1
endloop
endif
set u=null
set i=null
set p=nul
endfunction