Triggers

//TESH.scrollpos=0
//TESH.alwaysfold=0
//!====================================================================================================================
//                     Массивный Knockback By Lobster_1234
//!====================================================================================================================
function MassiveDamageLoop takes nothing returns nothing
local timer   TMR    = GetExpiredTimer()
local integer id     = GetHandleId(TMR)
local unit    i      = LoadUnitHandle(HT,id,100)
local real    speed  = LoadReal(HT,id,101) - ( 0.80 )
local real    angle  = LoadReal(HT,id,102)
local real x = GetUnitX(i)
local real y = GetUnitY(i)
local real x1 = x+speed*Cos(angle*bj_DEGTORAD)
local real y1 = y+speed*Sin(angle*bj_DEGTORAD)
call PS_KillTrees( x, y, 125. )
if speed < 1 then
call PauseTimer(TMR)
call DestroyTimer(TMR)
call FlushChildHashtable(HT,id)
else
if IsTerrainPathable(x1, y1, PATHING_TYPE_WALKABILITY) == true then
set speed = 0
else
call SetUnitX(i,x1)
call SetUnitY(i,y1)
endif
endif
call SaveReal(HT,id,101,speed)
set TMR = null
set i = null
endfunction

function md takes unit a,real x,real y,real damage,real range,real speed returns nothing
local group gr
local unit i
local real angle
local timer TMR
local integer id 
set gr = CreateGroup()
call GroupEnumUnitsInRange(gr, x, y, range, null)
    set i = FirstOfGroup(gr);
    loop
    exitwhen(i == null)
        if(IsUnitEnemy(i, GetOwningPlayer(a))) and UnitCheck(a, i) then
            set TMR = CreateTimer();
            set id  = GetHandleId(TMR)
            set angle = bj_RADTODEG * Atan2(GetUnitY(i) - y, GetUnitX(i) - x)
            call UnitDamageTarget(a,i,damage,false,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_MAGIC,null)
            call SaveUnitHandle(HT,id,100,i)
            call SaveReal(HT,id,101,speed)
            call SaveReal(HT,id,102,angle)
            call TimerStart(TMR,0.02,true,function MassiveDamageLoop)
            set TMR = null
            endif
        call GroupRemoveUnit(gr, i);
        set i = FirstOfGroup(gr);
    endloop
call DestroyGroup(gr);   
set a = null
set i = null
set gr = null
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0
function HandleCounter_Update 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(udg_HandleBoard,0,R2I(result))
endfunction

function HandleCounter_Actions takes nothing returns nothing
   set udg_HandleBoard = CreateLeaderboard()
   call LeaderboardSetLabel(udg_HandleBoard, "Handle Counter")
   call PlayerSetLeaderboard(GetLocalPlayer(),udg_HandleBoard)
   call LeaderboardDisplay(udg_HandleBoard,true)
   call LeaderboardAddItem(udg_HandleBoard,"Handles",0,Player(0))
   call LeaderboardSetSizeByItemCount(udg_HandleBoard,1)
   call HandleCounter_Update()
   call TimerStart(GetExpiredTimer(),0.01,true,function HandleCounter_Update)
endfunction

function InitTrig_HandleCounter takes nothing returns nothing
   call TimerStart(CreateTimer(),0,false,function HandleCounter_Actions)
endfunction

//TESH.scrollpos=0
//TESH.alwaysfold=0
function Loop_3 takes nothing returns nothing
local unit b = GetEnumUnit()
call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl", GetUnitX(b), GetUnitY(b)))
call TerrainDeformationCrater(0.15,false,GetUnitX(b),GetUnitY(b),215,80)
call RemoveUnit(b)
set b = null
endfunction

function Led_Loop takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit b = GetEnumUnit()
local real x1 = GetUnitX(b)
local real y1 = GetUnitY(b)
call SetUnitX(b,x1-20*Cos(GetUnitFacing(b)*0.0174))
call SetUnitY(b,y1-20*Sin(GetUnitFacing(b)*0.0174))
set t = null
set b = null
endfunction

function Led_Start takes nothing returns nothing
local timer t = GetExpiredTimer()
call ForGroup(Group, function Led_Loop)
set t = null
endfunction

function Trig_Led_Actions takes nothing returns nothing
local unit a = GetTriggerUnit()
local real x = GetSpellTargetX()
local real y = GetSpellTargetY()
local unit k
local real damage = 100
local timer t = CreateTimer()
local integer id = GetHandleId(t)
local real d
local integer i
local unit b
set i = 1
    loop
        exitwhen i > 15
        set b = CreateUnit(GetOwningPlayer(a),'h001',x+800*Cos((i*24)*bj_DEGTORAD),y+800*Sin((i*24)*bj_DEGTORAD),i*24)
        call GroupAddUnit(Group, b)
        set i = i + 1
    endloop
call SaveReal(HT,id,1,x)
call SaveReal(HT,id,2,y)
call TimerStart(t,0.0215,true,function Led_Start)
call TriggerSleepAction(1.05)
call PauseTimer(t)
call DestroyTimer(t)
call ForGroup(Group, function Loop_3)
call FlushChildHashtable(HT,id)
call md(a,x,y,damage,450,30)
call PlaySoundTheme(gg_snd_fe_explode1)
call UnitApplyTimedLife(CreateUnit(GetOwningPlayer(a),'h000',x,y,0),'BTLF',1)
set k = CreateUnit(GetOwningPlayer(a),'u000',x,y,0)
call UnitAddAbility(k,'A000')
call IssueImmediateOrder( k, "stomp" )
call UnitApplyTimedLife(k,'BTLF',1)
set a = null
set t = null
set k = null
endfunction

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

//===========================================================================
function InitTrig_Led takes nothing returns nothing
    set gg_trg_Led = CreateTrigger(  )
    call TRE( gg_trg_Led, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Led, Condition( function Trig_Led_Conditions ) )
    call TriggerAddAction( gg_trg_Led, function Trig_Led_Actions )
endfunction

globals
hashtable HT = InitHashtable()
group Group = CreateGroup()
endglobals

//TESH.scrollpos=15
//TESH.alwaysfold=0
function Arrow_Loop takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit a = LoadUnitHandle(HT,id,0)
local unit b = LoadUnitHandle(HT,id,1)
local real speed = LoadReal(HT,id,2) + ( 1.)
local integer damage = LoadInteger(HT,id,3) + ( 3 )
local real d = LoadReal(HT,id,4)
local group g = CreateGroup()
local unit n
local real x = GetUnitX(b)
local real y = GetUnitY(b)
local real x1 = x+speed*Cos(d*0.0174)
local real y1 = y+speed*Sin(d*0.0174)
call GroupEnumUnitsInRange(g,x,y,90,null)
loop
set n = FirstOfGroup(g)
exitwhen n == null
if IsUnitEnemy(n,GetOwningPlayer(a)) == true and UnitCheck(a, n) then
set speed = 100
call UnitDamageTarget(a,n,damage,false,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_MAGIC,null)
call TK(a,n,40)
call FlyText(I2S(damage)+" !",0.024,GetUnitX(n)+80*Cos(95*bj_DEGTORAD),GetUnitY(n)+80*Sin(80*bj_DEGTORAD),255,0,0,255)
call Cast_on_unit_spell('A003','A002',"slow",a,n)
endif
call GroupRemoveUnit(g,n)
endloop
call DestroyGroup(g)
if speed >75 then
call RemoveUnit(b)
call PauseTimer(t)
call DestroyTimer(t)
call FlushChildHashtable(HT,id)
else
call SetUnitX(b,x1)
call SetUnitY(b,y1)
endif
call SaveReal(HT,id,2,speed)
call SaveInteger(HT,id,3,damage)
set t = null
set a = null
set b = null
set g = null
set n = null
endfunction

function Trig_Arrow_Actions takes nothing returns nothing
local unit a = GetTriggerUnit()
local timer t = CreateTimer()
local integer id = GetHandleId(t)
local real d = bj_RADTODEG * Atan2(GetSpellTargetY() - GetUnitY(a), GetSpellTargetX() - GetUnitX(a))
local unit b = CreateUnit(GetOwningPlayer(a),'h002',GetUnitX(a),GetUnitY(a),d)
call SaveUnitHandle(HT,id,0,a)
call SaveUnitHandle(HT,id,1,b)
call SaveReal(HT,id,2,25)
call SaveInteger(HT,id,3,50)
call SaveReal(HT,id,4,d)
call TimerStart(t,0.02,true,function Arrow_Loop)
set a = null
set t = null
set b = null
endfunction

function Trig_Arrow_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A002' 
endfunction

//===========================================================================
function InitTrig_Arrow takes nothing returns nothing
    set gg_trg_Arrow = CreateTrigger(  )
    call TRE( gg_trg_Arrow, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Arrow, Condition( function Trig_Arrow_Conditions ) )
    call TriggerAddAction( gg_trg_Arrow, function Trig_Arrow_Actions )
endfunction