function Trig_t3_Actions takes nothing returns nothing
    local real x = GetUnitX(udg_YourHero)
    local real y = GetUnitY(udg_YourHero)
    call MoveLocation( udg_YourLoc,                        (x),                        (y) )
    call SetUnitPositionLoc( udg_YourMovedUnit, udg_YourLoc )
endfunction

//===========================================================================
function InitTrig_t3 takes nothing returns nothing
    set gg_trg_t3 = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_t3, 0.05 )
    call TriggerAddAction( gg_trg_t3, function Trig_t3_Actions )
endfunction

function Trig_Skills_ActionsSilent takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local unit caster = LoadUnitHandle(udg_GHT,h,1)
    local group g = CreateGroup()
    local unit u
    local real int
    local real sd = GetSpellDamage(caster) //skill damage
    local real cc = GetCritChance(caster) //crit chance
    call DestroyTimer(t)
    set t = null
    call FlushChildHashtable(udg_GHT,h)
    set int = (I2R(GetHeroInt(caster,true)))
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\Unsummon\\UnsummonTarget.mdl",caster,"origin"))
    call GroupEnumUnitsInRange(g,GetUnitX(caster),GetUnitY(caster),400+75,null)
    call GroupRemoveUnit(g,caster)
        loop
            set u=FirstOfGroup(g)
            exitwhen u==null
            call GroupRemoveUnit(g,u)
            if IsUnitInRangeXY(u,GetUnitX(caster),GetUnitY(caster),400)then
                if IsUnitEnemy(u,GetOwningPlayer(caster))then
                    if IsUnitInRangeXY(u,GetUnitX(caster),GetUnitY(caster),400)and IsUnitAliveAndEnemy(u,caster)then
                    if MissCalculator(u,0)==false then
                    else
                    call MagDamageWithCrit(caster, u, int*40, sd, cc, 2, "|cFF8F42B2")
                    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Undead\\UCancelDeath\\UCancelDeath.mdl",u,"chest"))
                    endif
                    endif
                endif
            endif
        endloop
    set u = null
    call DestroyGroup(g)
    set g = null
    set caster = null
endfunction

function DoTPure takes nothing returns nothing
    local timer ti = GetExpiredTimer()
    local integer h = GetHandleId(ti)
    local integer times = LoadInteger(udg_GHT,h,0)
    if times > 0 then
    call SaveInteger(udg_GHT,h,0,times-1)
    local unit c = LoadUnitHandle(udg_GHT,h,1)
    local unit t = LoadUnitHandle(udg_GHT,h,2)
    local real dmg = LoadReal(udg_GHT,h,3)
    local string eff = LoadStr(udg_GHT,h,4)
    local texttag tt = CreateTextTag()
    local real hp1 
    local real hp2 = GetUnitState(t,UNIT_STATE_LIFE)
    call SetTextTagPos(tt,GetUnitX(t),GetUnitY(t),GetUnitFlyHeight(t)+30)
    call SetTextTagColor(tt,255,255,255,255)
    call SetTextTagPermanent(tt,false)
    call SetTextTagFadepoint(tt,3)
    call SetTextTagLifespan(tt,2)
    call SetTextTagVelocity(tt,.01775*Cos(bj_PI/ 2),.01775*Sin(bj_PI/ 2))
    call DestroyEffect(AddSpecialEffectTarget(eff,t,"chest"))
    call UnitDamageTarget(c,t,dmg,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_SONIC,WEAPON_TYPE_WHOKNOWS)
    set hp1 = GetUnitState(t,UNIT_STATE_LIFE)
    set hp2 = hp2 - hp1
    call SetTextTagText(tt,"|cFFA049DC"+I2S(R2I(hp2)),10*.0023)
    set c = null
    set t = null
    set eff = ""
    else
    call PauseTimer(ti)
    call DestroyTimer(ti)
    call FlushChildHashtable(udg_GHT,h)
    endif
endfunction

function DoT takes unit c, unit t, real dmg, real sd, integer times, real period, string eff returns nothing
    local timer ti = CreateTimer()
    local integer h = GetHandleId(ti)
    set dmg = dmg+(dmg*sd)
    call SaveInteger(udg_GHT,h,0,times)
    call SaveUnitHandle(udg_GHT,h,1,c)
    call SaveUnitHandle(udg_GHT,h,2,t)
    call SaveReal(udg_GHT,h,3,dmg)
    call SaveStr(udg_GHT,h,4,eff)
    call TimerStart(ti,period,true,function DoTPure)
    set ti = null
endfunction