Спеллпак Приватника Ада

library mylib initializer init
    private hashtable H = InitHashtable()
    private trigger trg = CreateTrigger()
    private group TempG = CreateGroup()
    private group TempG1 = CreateGroup()
    private unit CUEX = null
    private real TempR
    private real TempR1
    private real TempR2
    private real TempR3
    private real TempX
    private real TempY
    private integer TF = 0
    private integer TF1 = 0
    private boolean FireID
    private damagetype DamageType
    // Переменные быстрого доступа управления полётом апокалиптического дождя
    private constant real RainFly = 600
    private constant real RainFlyD = 100
    // Воспомогательные функции
    private function Kill takes nothing returns nothing
        call KillUnit(GetEnumUnit())
    endfunction
    
    private function IsUnitDead takes unit u returns boolean
        return IsUnitType(u,UNIT_TYPE_DEAD) or GetUnitTypeId(u) < 1
    endfunction
    
    private function CreateUnitEx takes player id, integer unitid, real x, real y, real face returns unit
        set CUEX = CreateUnit(id,unitid,x,y,face)
        call SetUnitPathing(CUEX,false)
        call SetUnitX(CUEX,x)
        call SetUnitY(CUEX,y)
        return CUEX
    endfunction
    
    private function li takes nothing returns boolean
        return not IsUnitDead(GetFilterUnit()) and GetUnitTypeId(GetFilterUnit()) != 'u000'
    endfunction
    
    private function DBC takes real x, real y, real x1, real y1 returns real
        return SquareRoot((x-x1)*(x-x1)+(y-y1)*(y-y1)) 
    endfunction 
    
    private function IsPointInSector takes real x1, real y1, real x2, real y2, real orientation, real width, real radius returns boolean
        local real lenght = DBC(x1,y1,x2,y2)
        local real angle = Acos(Cos(orientation*bj_DEGTORAD)*(x1-x2)/lenght+Sin(orientation*bj_DEGTORAD)*(y1-y2)/lenght )*bj_RADTODEG
        return angle<=width and lenght<=radius
    endfunction
    
    private function SetUnitPositionEx takes unit u, real x, real y returns nothing
        local item i = CreateItem('spsh',x,y)
        set TempX = GetItemX(i)
        set TempY = GetItemY(i)
        set TempR = DBC(x,y,TempX,TempY)
        if TempR > 10 then
            call SetUnitX(u,TempX)
            call SetUnitY(u,TempY)
        else
            call SetUnitX(u,x)
            call SetUnitY(u,y)
        endif
        call RemoveItem(i)
        set i = null
    endfunction
    
    //===================================================
        // Пламя преисподней
    private function UnderworldFlamesDMG takes nothing returns nothing
        local timer t=GetExpiredTimer()
        local integer timerH=GetHandleId(t)
        local unit caster=LoadUnitHandle(H,timerH,1)
        local unit target=LoadUnitHandle(H,timerH,2)
        local integer casterH=GetHandleId(caster)
        local integer targetH=GetHandleId(target)
        local integer level=LoadInteger(H,timerH,3)
        local integer counter=LoadInteger(H,targetH,casterH)
        local real dmg = LoadReal(H,timerH,0)

        call SaveInteger(H,targetH,casterH,counter-1)
        set TF = 1
        call UnitDamageTarget(caster,target,dmg,false,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_FIRE,null)
        set TF = 0
        if counter == 1 or IsUnitDead(target) or GetUnitAbilityLevel(target,'B000') < 1 then
            call UnitRemoveAbility(target,'A000')
            call UnitRemoveAbility(target,'B000')
            call RemoveSavedInteger(H,targetH,casterH)
            call FlushChildHashtable(H,timerH)
            call PauseTimer(t)
            call DestroyTimer(t)
        endif
        
        set t=null
        set caster=null
        set target=null
    endfunction
    
    private function UnderworldFlames takes unit u, unit u1 returns nothing
        local integer casterH=GetHandleId(u)
        local integer targetH=GetHandleId(u1)
        local integer lvl=GetUnitAbilityLevel(u,'A005')
        local integer timerH
        local integer counter=LoadInteger(H,targetH,casterH)
        local integer tm
        local timer t
        local real dmg
        
        if lvl == 1 then
            set dmg = 5.
            set tm = 3
        elseif lvl == 2 then
            set dmg = 15.
            set tm = 5
        elseif lvl == 3 then
            set dmg = 20.
            set tm = 6
        endif
        set dmg = dmg+(GetHeroInt(u,true)*.1)
        if counter == 0 then
            call UnitAddAbility(u1,'A000')
            set t = CreateTimer()
            set timerH = GetHandleId(t)
            call SaveReal(H,timerH,0,dmg)
            call SaveUnitHandle(H,timerH,1,u)
            call SaveUnitHandle(H,timerH,2,u1)
            call SaveInteger(H,timerH,3,lvl)
            call TimerStart(t,1.,true,function UnderworldFlamesDMG)
            set t=null
        endif
        
        call SaveInteger(H,targetH,casterH,tm)
    endfunction
    // Планетарное разрушение
    private function PlanetaryDestructionCond takes nothing returns boolean
        set bj_lastReplacedUnit = GetFilterUnit()
        return not IsUnitDead(bj_lastReplacedUnit) and not IsUnitType(bj_lastReplacedUnit,UNIT_TYPE_MAGIC_IMMUNE) and IsUnitEnemy(bj_lastReplacedUnit,GetOwningPlayer(bj_lastCreatedUnit)) and not IsUnitInGroup(bj_lastReplacedUnit,TempG1)
    endfunction
    private function PlanetaryDiscarding takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local integer i = GetHandleId(t)
        local unit u = LoadUnitHandle(H,i,0)
        local real a = LoadReal(H,i,2)
        local real s = LoadReal(H,i,6)
        local real tm = LoadReal(H,i,4)+.02
        
        call SetUnitPositionEx(u,GetUnitX(u)+s*Cos(a),GetUnitY(u)+s*Sin(a))
        
        if TempR > 10 and not IsUnitDead(u) then
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl",GetUnitX(u),GetUnitY(u)))
            set TF = 1
            call UnitDamageTarget(LoadUnitHandle(H,i,3),u,LoadReal(H,i,1),false,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_SONIC,null)
            set TF = 0
            if not IsUnitDead(u) then
                call CreateUnitEx(Player(15),'u007',GetUnitX(u),GetUnitY(u),0)
                call UnitAddAbility(CUEX,'A008')
                call IssueTargetOrder(CUEX,"thunderbolt",u)
                call UnitApplyTimedLife(CUEX,'BTLF',1)
            endif
        endif
        if TempR > 10 or tm > LoadReal(H,i,5) or GetUnitTypeId(u) < 1 then
            call PauseTimer(t)
            call DestroyTimer(t)
            call FlushChildHashtable(H,i)
        else
            call SaveReal(H,i,4,tm)
        endif
        
        set t = null
        set u = null
    endfunction
    private function PlanetaryDestructionDmg takes nothing returns nothing
        local unit u = GetEnumUnit()
        local timer t
        local integer i
        local real x
        local real y
        local real dc
        local real tm
        
        call UnitDamageTarget(bj_lastCreatedUnit,u,TempR1,false,false,ATTACK_TYPE_MAGIC,DamageType,null)
        if not IsUnitDead(u) then
            set x = GetUnitX(u)
            set y = GetUnitY(u)
            call CreateUnitEx(Player(15),'u007',x,y,0)
            if TF1 == 0 then
                call UnitAddAbility(CUEX,'A008')
                call IssueTargetOrder(CUEX,"thunderbolt",u)
                call UnitApplyTimedLife(CUEX,'BTLF',1)
            else
                call UnitAddAbility(CUEX,'A009')
                call IssueTargetOrder(CUEX,"slow",u)
                call UnitApplyTimedLife(CUEX,'BTLF',1)
                set t = CreateTimer()
                set i = GetHandleId(t)
                call SaveUnitHandle(H,i,0,u)
                call SaveReal(H,i,1,TempR1*.5)
                call SaveReal(H,i,2,Atan2(y-TempR3,x-TempR2))
                call SaveUnitHandle(H,i,3,bj_lastCreatedUnit)
                if GetUnitAbilityLevel(u,'A002') > 0 then
                    set tm = .1
                    set dc = 7.5
                elseif GetUnitAbilityLevel(u,'A003') > 0 then
                    set tm = .5
                    set dc = 10.
                else
                    set tm = .5
                    set dc = 15.
                endif
                call SaveReal(H,i,5,tm)
                call SaveReal(H,i,6,dc)
                call TimerStart(t,.02,true,function PlanetaryDiscarding)
                set t = null
            endif
            if FireID then
                call UnderworldFlames(bj_lastCreatedUnit,u)
            endif
            call GroupAddUnit(TempG1,u)
        endif
        
        set u = null
    endfunction
    private function PlanetaryDestructionAct takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local integer i = GetHandleId(t)
        local unit u = LoadUnitHandle(H,i,1)
        local real x = GetUnitX(u)
        local real y = GetUnitY(u)
        local real dmg = LoadReal(H,i,4)
        set FireID = LoadBoolean(H,i,3)
        if FireID then
            call KillUnit(CreateUnitEx(Player(15),'u00A',x,y,GetRandomReal(0,360)))
        endif
        set TempR1 = dmg*2
        set TempR2 = x
        set TempR3 = y
        set TF = 1
        
        set DamageType = DAMAGE_TYPE_DEMOLITION
        set bj_lastCreatedUnit = LoadUnitHandle(H,i,0)
        call GroupEnumUnitsInRange(TempG,x,y,200,Condition(function PlanetaryDestructionCond))
        call ForGroup(TempG,function PlanetaryDestructionDmg)
        call GroupClear(TempG)
        
        set TempR1 = dmg
        set TF1 = 1
        set DamageType = DAMAGE_TYPE_SONIC
        call GroupEnumUnitsInRange(TempG,x,y,500,Condition(function PlanetaryDestructionCond))
        call ForGroup(TempG,function PlanetaryDestructionDmg)
        call GroupClear(TempG)
        call GroupClear(TempG1)
        set TF = 0
        set TF1 = 0
        
        call KillUnit(CreateUnitEx(Player(15),'u003',x,y,GetRandomReal(0,360)))
        call KillUnit(CreateUnitEx(Player(15),'u00C',x,y,GetRandomReal(0,360)))
        call KillUnit(CreateUnitEx(Player(15),'u00B',x,y,GetRandomReal(0,360)))
        call KillUnit(CreateUnitEx(Player(15),'u009',x,y,GetRandomReal(0,360)))
        call KillUnit(CreateUnitEx(Player(15),'u008',x,y,GetRandomReal(0,360)))
        call KillUnit(u)
        call KillUnit(LoadUnitHandle(H,i,2))
        
        call DestroyFogModifier(LoadFogModifierHandle(H,i,5))
        call DestroyTimer(t)
        call FlushChildHashtable(H,i)
        
        set bj_lastCreatedUnit = null
        set t = null
        set u = null
    endfunction
    private function PlanetaryDestruction takes nothing returns nothing
        local timer t = CreateTimer()
        local integer i = GetHandleId(t)
        local unit u = GetTriggerUnit()
        local real x = GetSpellTargetX()
        local real y = GetSpellTargetY()
        local real dmg = 300+(GetHeroInt(u,true))
        
        set FireID = GetUnitAbilityLevel(u,'B001') > 0
        if FireID then
            set dmg = dmg+(dmg*(.05*GetUnitAbilityLevel(u,'A005')))
        endif
        
        set bj_groupEnumOwningPlayer = GetOwningPlayer(u)
        set bj_lastCreatedFogModifier = CreateFogModifierRadius(bj_groupEnumOwningPlayer,FOG_OF_WAR_VISIBLE,x,y,1000, true, false)
        call FogModifierStart(bj_lastCreatedFogModifier)
        
        call SaveUnitHandle(H,i,0,u)
        call SaveUnitHandle(H,i,1,CreateUnitEx(bj_groupEnumOwningPlayer,'u006',x,y,bj_RADTODEG*Atan2(y-GetUnitY(u),x-GetUnitX(u))))
        call SaveUnitHandle(H,i,2,CreateUnitEx(bj_groupEnumOwningPlayer,'u006',x,y,bj_RADTODEG*Atan2(y-GetUnitY(u),x-GetUnitX(u))))
        call SaveBoolean(H,i,3,FireID)
        call SaveReal(H,i,4,dmg)
        call SaveFogModifierHandle(H,i,5,bj_lastCreatedFogModifier)
        call TimerStart(t,.9,false,function PlanetaryDestructionAct)
        
        
        set u = null
        set t = null
    endfunction
    
    // Огненный дождь
    private function FieryRainDmgCond takes nothing returns boolean
        set bj_lastReplacedUnit = GetFilterUnit()
        return not IsUnitDead(bj_lastReplacedUnit) and not IsUnitType(bj_lastReplacedUnit,UNIT_TYPE_MAGIC_IMMUNE) and IsUnitEnemy(bj_lastReplacedUnit,GetOwningPlayer(bj_lastCreatedUnit))
    endfunction
    private function FieryRainDmg1 takes nothing returns nothing
        call UnitDamageTarget(bj_lastCreatedUnit,GetEnumUnit(),TempR,false,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_FIRE,null)
        if FireID then
            call UnderworldFlames(bj_lastCreatedUnit,GetEnumUnit())
        endif
    endfunction
    private function FieryRainDmg takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local integer i = GetHandleId(t)
        local unit u = LoadUnitHandle(H,i,0)
        set bj_lastCreatedUnit = LoadUnitHandle(H,i,1)
        
        if GetUnitTypeId(bj_lastCreatedUnit) > 0 then
            call GroupEnumUnitsInRange(TempG,GetUnitX(u),GetUnitY(u),LoadReal(H,i,3),Condition(function FieryRainDmgCond))
            set FireID = GetUnitTypeId(u) == 'u004'
            set TempR = LoadReal(H,i,2)
            set TF = 1
            call ForGroup(TempG,function FieryRainDmg1)
            set TF = 0
            call GroupClear(TempG)
        endif
        
        call KillUnit(u)
        call DestroyTimer(t)
        call FlushChildHashtable(H,i)
        
        set u = null
        set t = null
    endfunction
    
    private function FieryRainAct takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local timer t1
        local integer i = GetHandleId(t)
        local unit u = LoadUnitHandle(H,i,0)
        local integer count = LoadInteger(H,i,4)
        local integer count1 = LoadInteger(H,i,5)-1
        local integer count2 = count
        local integer id = LoadInteger(H,i,1)
        local integer i1
        local real a = GetRandomReal(0,360)
        local real x = LoadReal(H,i,7)
        local real y = LoadReal(H,i,8)
        local real sc = LoadReal(H,i,9)
        local real maxr = LoadReal(H,i,3)
        local real minr
        local real ranr
        local real fly
        local real dmg = LoadReal(H,i,2)
        local real rad = LoadReal(H,i,10)
        
        set bj_groupEnumOwningPlayer = GetOwningPlayer(u)
        
        loop
            exitwhen count <= 0
            set minr = GetRandomReal(0,maxr*.2)
            set ranr = GetRandomReal(minr,maxr)
            call CreateUnitEx(bj_groupEnumOwningPlayer,id,x+ranr*Cos(a*bj_DEGTORAD),y+ranr*Sin(a*bj_DEGTORAD),GetRandomReal(0,360))
            set fly = GetRandomReal(RainFly-RainFlyD,RainFly+RainFlyD)
            call UnitAddAbility(CUEX,'Arav')
            call SetUnitFlyHeight(CUEX,fly,0)
            call SetUnitFlyHeight(CUEX,0,RainFly)
            call SetUnitScale(CUEX,sc,sc,sc)
            set t1 = CreateTimer()
            set i1 = GetHandleId(t1)
            call SaveUnitHandle(H,i1,0,CUEX)
            call SaveUnitHandle(H,i1,1,u)
            call SaveReal(H,i1,2,dmg)
            call SaveReal(H,i1,3,rad)
            call TimerStart(t1,fly/RainFly,false,function FieryRainDmg)
            set a = a+(360/count2)
            set count = count-1
        endloop
        set t1 = null
        if count1 <= 0 or GetUnitTypeId(u) < 1 then
            call PauseTimer(t)
            call DestroyTimer(t)
            call FlushChildHashtable(H,i)
        else
            call SaveInteger(H,i,5,count1)
            call TimerStart(t,LoadReal(H,i,6),false,function FieryRainAct)
        endif
        
        set u = null
        set t = null
    endfunction
    
    private function FieryRain takes nothing returns nothing
        local timer t = CreateTimer()
        local integer i = GetHandleId(t)
        local unit u = GetTriggerUnit()
        local integer lvl = GetUnitAbilityLevel(u,GetSpellAbilityId())
        local integer id
        local integer count
        local integer count1
        local real dmg
        local real scale
        local real radius
        local real radius1
        local real periodic
        set FireID = GetUnitAbilityLevel(u,'B001') > 0
        if FireID then
            set id = 'u004'
        else
            set id = 'u005'
        endif
        
        if     lvl == 1 then
            set dmg = 25.
            set scale = 1.
            set radius = 400.
            set radius1 = 80.
            set count = 15
            set count1 = 5
            set periodic = 1.
        elseif lvl == 2 then
            set dmg = 40.
            set scale = 1.25
            set radius = 600.
            set radius1 = 100.
            set count = 20
            set count1 = 7
            set periodic = 1.
        elseif lvl == 3 then
            set dmg = 70.
            set scale = 1.5
            set radius = 1000.
            set radius1 = 120.
            set count = 30
            set count1 = 10
            set periodic = 1.
        endif
        set dmg = dmg+(GetHeroInt(u,true)*.4)
        if FireID then
            set dmg = dmg+(dmg*(.05*GetUnitAbilityLevel(u,'A005')))
        endif
        call SaveUnitHandle(H,i,0,u)
        call SaveInteger(H,i,1,id)
        call SaveReal(H,i,2,dmg)
        call SaveReal(H,i,3,radius)
        call SaveInteger(H,i,4,count)
        call SaveInteger(H,i,5,count1)
        call SaveReal(H,i,6,periodic)
        call SaveReal(H,i,7,GetSpellTargetX())
        call SaveReal(H,i,8,GetSpellTargetY())
        call SaveReal(H,i,9,scale)
        call SaveReal(H,i,10,radius1)
        call TimerStart(t,0.,false,function FieryRainAct)
        
        set u = null
        set t = null
    endfunction
    // Огненная стена
    private function FireWallCond takes nothing returns boolean
        set bj_lastReplacedUnit = GetFilterUnit()
        return not IsUnitDead(bj_lastReplacedUnit) and not IsUnitType(bj_lastReplacedUnit,UNIT_TYPE_MAGIC_IMMUNE) and not IsUnitInGroup(bj_lastReplacedUnit,TempG1) and IsUnitEnemy(bj_lastReplacedUnit,GetOwningPlayer(bj_lastCreatedUnit))
    endfunction
    private function FireWallDamageEx takes nothing returns nothing
        local unit u = GetEnumUnit()
        call UnitDamageTarget(bj_lastCreatedUnit,u,TempR,false,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_FIRE,null)
        if not IsUnitDead(u) and FireID then
            call UnderworldFlames(bj_lastCreatedUnit,u)
        endif
        call GroupAddUnit(TempG1,u)
        set u = null
    endfunction
    private function FireWallDamage takes nothing returns nothing
        local unit u = GetEnumUnit()
        call GroupEnumUnitsInRange(TempG,GetUnitX(u),GetUnitY(u),TempR1,Condition(function FireWallCond))
        call ForGroup(TempG,function FireWallDamageEx)
        call GroupClear(TempG)
        set u = null
    endfunction
    private function FireWallDmg takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local integer i = GetHandleId(t)
        local group g = LoadGroupHandle(H,i,1)
        local real tm = LoadReal(H,i,2)-.25
        
        set bj_lastCreatedUnit = LoadUnitHandle(H,i,0)
        set TempR = LoadReal(H,i,3)
        set FireID = LoadBoolean(H,i,4)
        set TempR1 = 100.
        set TF = 1
        call ForGroup(g,function FireWallDamage)
        call GroupClear(TempG1)
        set TF = 0
        
        if tm <= 0. then
            call ForGroup(g,function Kill)
            call GroupClear(g)
            call DestroyGroup(g)
            call PauseTimer(t)
            call DestroyTimer(t)
            call FlushChildHashtable(H,i)
        else
            call SaveReal(H,i,2,tm)
        endif
        
        set bj_lastCreatedUnit = null
        set g = null
        set t = null
    endfunction
    
    private function FireWall takes nothing returns nothing
        local timer t = CreateTimer()
        local integer i = GetHandleId(t)
        local unit u = GetTriggerUnit()
        local integer lvl = GetUnitAbilityLevel(u,GetSpellAbilityId())
        local integer id
        local boolean b = GetUnitAbilityLevel(u,'B001') > 0
        local group g = CreateGroup()
        local real x = GetSpellTargetX()
        local real y = GetSpellTargetY()
        local real a = bj_RADTODEG*Atan2(y-GetUnitY(u),x-GetUnitX(u))
        local real d
        local real d1
        local real dmg
        local real dmg1
        local real sc
        local real tm
        
        if     lvl == 1 then
            set dmg1 = 80.
            set dmg = 25.
            set d = 300.
            set tm = 5.
            set sc = .5
        elseif lvl == 2 then
            set dmg1 = 150.
            set dmg = 40.
            set d = 400.
            set tm = 7.
            set sc = .75
        elseif lvl == 3 then
            set dmg1 = 225.
            set dmg = 70.
            set d = 500.
            set tm = 10.
            set sc = 1.
        endif
        set dmg = dmg+(GetHeroInt(u,true)*.5)
        set dmg1 = dmg1+(GetHeroInt(u,true)*.65)
        if b then
            set id = 'u002'
            set dmg = dmg+(dmg*(.05*GetUnitAbilityLevel(u,'A005')))
            set dmg1 = dmg1+(dmg1*(.05*GetUnitAbilityLevel(u,'A005')))
        else
            set id = 'u001'
        endif
        set d1 = d/2
        set bj_groupEnumOwningPlayer = GetOwningPlayer(u)
        call GroupAddUnit(g,CreateUnitEx(bj_groupEnumOwningPlayer,id,x,y,GetRandomReal(0,360)))
        call KillUnit(CreateUnitEx(bj_groupEnumOwningPlayer,'u000',x,y,GetRandomReal(0,360)))
        call SetUnitScale(CUEX,sc,sc,sc)
        if b then
            call SetUnitVertexColor(CUEX,0,255,255,100)
        endif
        call KillUnit(CreateUnitEx(bj_groupEnumOwningPlayer,'u000',x+d1*Cos((a-90)*bj_DEGTORAD),y+d1*Sin((a-90)*bj_DEGTORAD),GetRandomReal(0,360)))
        call SetUnitScale(CUEX,sc,sc,sc)
        if b then
            call SetUnitVertexColor(CUEX,0,255,255,100)
        endif
        call KillUnit(CreateUnitEx(bj_groupEnumOwningPlayer,'u000',x+d1*Cos((a+90)*bj_DEGTORAD),y+d1*Sin((a+90)*bj_DEGTORAD),GetRandomReal(0,360)))
        call SetUnitScale(CUEX,sc,sc,sc)
        if b then
            call SetUnitVertexColor(CUEX,0,255,255,100)
        endif
        loop
            exitwhen d1 <= 0.
            call GroupAddUnit(g,CreateUnitEx(bj_groupEnumOwningPlayer,id,x+d1*Cos((a-90)*bj_DEGTORAD),y+d1*Sin((a-90)*bj_DEGTORAD),GetRandomReal(0,360)))
            set d1 = d1-20.
        endloop
        set d1 = d/2
        loop
            exitwhen d1 <= 0.
            call GroupAddUnit(g,CreateUnitEx(bj_groupEnumOwningPlayer,id,x+d1*Cos((a+90)*bj_DEGTORAD),y+d1*Sin((a+90)*bj_DEGTORAD),GetRandomReal(0,360)))
            set d1 = d1-20.
        endloop
        
        set bj_lastCreatedUnit = u
        set TempR = dmg1
        set FireID = b
        set TempR1 = 200.
        set TF = 1
        call ForGroup(g,function FireWallDamage)
        call GroupClear(TempG1)
        set TF = 0
        
        call SaveUnitHandle(H,i,0,u)
        call SaveGroupHandle(H,i,1,g)
        call SaveReal(H,i,2,tm)
        call SaveReal(H,i,3,dmg)
        call SaveBoolean(H,i,4,b)
        call TimerStart(t,.25,true,function FireWallDmg)
        
        set g = null
        set t = null
        set u = null
    endfunction
    
    // Отталкивание юнитов с руки
    private function PassiveCond takes nothing returns boolean
        set bj_lastReplacedUnit = GetFilterUnit()
        return IsUnitEnemy(bj_lastReplacedUnit,GetOwningPlayer(bj_lastCreatedUnit)) and not IsUnitDead(bj_lastReplacedUnit) and IsPointInSector(GetUnitX(bj_lastReplacedUnit),GetUnitY(bj_lastReplacedUnit),GetUnitX(bj_lastCreatedUnit),GetUnitY(bj_lastCreatedUnit),TempR3,80,300.)
    endfunction
    
    private function PassiveMove takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local integer i = GetHandleId(t)
        local unit u = LoadUnitHandle(H,i,0)
        local real tm = LoadReal(H,i,4)+.02
        local real dc = LoadReal(H,i,1)
        local real a = LoadReal(H,i,2)
        
        call SetUnitPositionEx(u,GetUnitX(u)+dc*Cos(a),GetUnitY(u)+dc*Sin(a))
        call IssueImmediateOrder(u,"stop")
        
        if GetUnitTypeId(u) < 1 or tm >= LoadReal(H,i,3) or TempR > 10 then
            call PauseTimer(t)
            call DestroyTimer(t)
            call FlushChildHashtable(H,i)
        else
            call SaveReal(H,i,4,tm)
        endif
        
        set t = null
        set u = null
    endfunction
    
    private function PassiveAct takes nothing returns nothing
        local unit u = GetEnumUnit()
        local timer t
        local integer i
        local real tm1
        local real dc
        
        if u != bj_lastLoadedUnit then
            call UnitDamageTarget(bj_lastCreatedUnit,u,TempR2,false,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_UNIVERSAL,null)
        endif
        
        if not IsUnitDead(u) then
            set t = CreateTimer()
            if GetUnitAbilityLevel(bj_lastCreatedUnit,'B001') > 0 and not IsUnitType(u,UNIT_TYPE_MAGIC_IMMUNE)then
                call UnderworldFlames(bj_lastCreatedUnit,u)
            endif
        
            if GetUnitAbilityLevel(u,'A002') > 0 then
                call DestroyTimer(t)
                set t = null
            elseif GetUnitAbilityLevel(u,'A003') > 0 then
                set tm1 = .05
                set dc = 5.
            else
                set tm1 = .1
                set dc = 10.
            endif
        
            if t != null then
                set i = GetHandleId(t)
                call SaveUnitHandle(H,i,0,u)
                call SaveReal(H,i,1,dc)
                call SaveReal(H,i,2,Atan2(GetUnitY(u)-TempR1,GetUnitX(u)-TempR))
                call SaveReal(H,i,3,tm1)
                call TimerStart(t,.02,true,function PassiveMove)
                set t = null
            endif
        endif
        set u = null
    endfunction
    
    private function Passive takes nothing returns nothing
        set bj_lastLoadedUnit = GetTriggerUnit()
        set bj_lastCreatedUnit = GetEventDamageSource()
        set TempR = GetUnitX(bj_lastCreatedUnit)
        set TempR1 = GetUnitY(bj_lastCreatedUnit)
        set TempR2 = GetEventDamage()
        set TempR3 = Atan2(GetUnitY(bj_lastLoadedUnit)-TempR1,GetUnitX(bj_lastLoadedUnit)-TempR)*bj_RADTODEG
        
        call GroupEnumUnitsInRange(TempG,TempR,TempR1,300.,Condition(function PassiveCond))
        set TF = 1
        call ForGroup(TempG,function PassiveAct)
        set TF = 0
        call GroupClear(TempG)
        
        set bj_lastReplacedUnit = null
        set bj_lastLoadedUnit = null
    endfunction
    
    //=== Каст спеллов ===
    private function SpellsCond takes nothing returns boolean
        local integer i = GetSpellAbilityId()
        if i == 'A001' then
            call ExecuteFunc(SCOPE_PRIVATE+"FireWall")
        elseif i == 'A006' then
            call ExecuteFunc(SCOPE_PRIVATE+"FieryRain")
        elseif i == 'A007' then
            call ExecuteFunc(SCOPE_PRIVATE+"PlanetaryDestruction")
        endif
        return false
    endfunction
    
    //Показ урона + взаимодействие с уроном
    private function trgact takes nothing returns nothing
        local unit u = GetEventDamageSource()
        local unit u1 = GetTriggerUnit()
        local texttag tt = CreateTextTag()
        call SetTextTagText(tt,I2S(R2I(GetEventDamage())),.0276)
        call SetTextTagPosUnit(tt,GetTriggerUnit(),0)
        call SetTextTagColor(tt,255,0,255,0)
        call SetTextTagVelocity(tt,.05325*Cos(1.570788),.05325*Sin(1.570788))
        call SetTextTagPermanent(tt,false)
        call SetTextTagLifespan(tt,.5)
        call SetTextTagFadepoint(tt,.0)
        set tt = null
        
        if TF == 0 and GetUnitAbilityLevel(u,'A004') > 0 then
            call ExecuteFunc(SCOPE_PRIVATE+"Passive")
        endif
        
        set u = null
        set u1 = null
    endfunction
    
    //===================================================
    //---Регистрация события получения урона---
    private function trgcond takes nothing returns boolean
        return GetEventDamage() > 1.
    endfunction

    private function eve takes nothing returns nothing
        call TriggerRegisterUnitEvent(trg,GetEnumUnit(),EVENT_UNIT_DAMAGED)
    endfunction
    
    private function initcond takes nothing returns boolean
        local integer i = GetUnitTypeId(GetTriggerUnit())
        
        if i != 'u000' and i != 'u001' and i != 'u002' and i != 'u004' and i != 'u005' and i != 'u00C'/*
        */ and i != 'u003' and i != 'u00B' and i != 'u009' and i != 'u008' and i != 'u00A' and i != 'u006' and i != 'u007' then
            call TriggerRegisterUnitEvent(trg,GetTriggerUnit(),EVENT_UNIT_DAMAGED)
        endif
        return false
    endfunction
    //Пересборка триггера
    private function reset takes nothing returns nothing
        call DestroyTrigger(trg)
        set trg = CreateTrigger()
        call TriggerAddCondition(trg,Condition(function trgcond))
        call TriggerAddAction(trg,function trgact)
        call GroupEnumUnitsInRect(TempG,bj_mapInitialPlayableArea,Condition(function li))
        call ForGroup(TempG,function eve)
        call GroupClear(TempG)
    endfunction
    
    private function init takes nothing returns nothing
        local trigger t = CreateTrigger()
        local region r = CreateRegion()
        local integer i = 0
        //Preload
        call RemoveUnit(CreateUnit(Player(15),'u00C',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u003',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u00B',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u009',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u008',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u00A',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u006',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u000',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u001',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u002',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u004',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u005',0,0,0))
        call RemoveUnit(CreateUnit(Player(15),'u007',0,0,0))
        
        call RegionAddRect(r,bj_mapInitialPlayableArea)
        call TriggerRegisterEnterRegion(t,r,null)
        call TriggerAddCondition(t,Condition(function initcond))
        set t = null
        set r = null
        
        call reset()
        
        set t = CreateTrigger()
        loop
            call TriggerRegisterPlayerUnitEvent(t,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
            set i = i+1
            exitwhen i == bj_MAX_PLAYER_SLOTS
        endloop
        call TriggerAddCondition(t,Condition(function SpellsCond))
        set t = null
        
        call TimerStart(CreateTimer(),600.,true,function reset)
    endfunction

endlibrary

//Счётчик
library HC initializer init
    private leaderboard HB
    private function HCU takes nothing returns nothing
        local integer i = 0
        local integer id
        local location array P
        local real result = 0
        loop
            exitwhen i >= 50
            set i = i+1
            set P[i] = Location(0,0)
            set id = GetHandleId(P[i])
            set result = result+(id-0x100000)
        endloop
        set result = result/i-i/2
        loop
            call RemoveLocation(P[i])
            set P[i] = null
            exitwhen i <= 1
            set i = i-1
        endloop
        call LeaderboardSetItemValue(HB,0,R2I(result))
    endfunction

    private function HCA takes nothing returns nothing
        set HB = CreateLeaderboard()
        call LeaderboardSetLabel(HB,"Handle Counter")
        call PlayerSetLeaderboard(GetLocalPlayer(),HB)
        call LeaderboardDisplay(HB,true)
        call LeaderboardAddItem(HB,"Handles",0,Player(0))
        call LeaderboardSetSizeByItemCount(HB,1)
        call HCU()
        call TimerStart(GetExpiredTimer(),.05,true,function HCU)
    endfunction

    private function init takes nothing returns nothing
        call TimerStart(CreateTimer(),0,false,function HCA)
    endfunction
endlibrary