function FrostArmorEnd takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer tH=GetHandleId(t)
    local unit m=LoadUnitHandle(Hash,tH,0)
    local integer mH=GetHandleId(m)
    local effect e=LoadEffectHandle(Hash,tH,1)
    call RemoveSavedBoolean(Hash,mH,'A01F')
    call RemoveSavedHandle(Hash,tH,1)
    call DestroyEffect(e)
    set t=null
    set m=null
    set e=null
endfunction

function FrostArmor takes nothing returns nothing
    local unit m=GetSpellTargetUnit()
    local integer mH=GetHandleId(m)
    local timer t=LoadTimerHandle(Hash,mH,'A01F')
    local integer tH=GetHandleId(t)
    local effect e
    if not HaveSavedHandle(Hash,tH,1)then
        call SaveBoolean(Hash,mH,'A01F',true)
        set e=AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostArmor\\FrostArmorTarget.mdx",m,"chest")
        call SaveEffectHandle(Hash,tH,1,e)
        set e=null
    endif
    call TimerStart(t,2,false,function FrostArmorEnd)
    set m=null
    set t=null
endfunction

function Trig_FrostArmor_Conditions takes nothing returns boolean
    return GetSpellAbilityId()=='A01F'
endfunction

function InitTrig_FrostArmor takes nothing returns nothing
    set gg_trg_FrostArmor=CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(gg_trg_FrostArmor,Player(11),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
    call TriggerAddCondition(gg_trg_FrostArmor,function Trig_FrostArmor_Conditions)
    call TriggerAddAction(gg_trg_FrostArmor,function FrostArmor)
endfunction

function RejuvenationEnd takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer tH=GetHandleId(t)
    local unit m=LoadUnitHandle(Hash,tH,0)
    local integer mH=GetHandleId(m)
    local effect e=LoadEffectHandle(Hash,tH,1)
    local integer times=LoadInteger(Hash,mH,'A030')
    call AddHPPerc(m,25)
    call SaveInteger(Hash,mH,'A030',times+1)
    if(times==2)then
        call RemoveSavedInteger(Hash,mH,'A030')
        call RemoveSavedHandle(Hash,tH,1)
        call DestroyEffect(e)
        call PauseTimer(t)
    endif
    set t=null
    set m=null
    set e=null
endfunction

function Rejuvenation takes nothing returns nothing
    local unit m=GetSpellTargetUnit()
    local integer mH=GetHandleId(m)
    local integer times=LoadInteger(Hash,mH,'A030')
    local timer t=LoadTimerHandle(Hash,mH,'A030')
    local integer tH=GetHandleId(t)
    local effect e
    if(times==0)then
        set e=AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Rejuvenation\\RejuvenationTarget.mdx",m,"chest")
        call SaveEffectHandle(Hash,tH,1,e)
        set e=null
        call TimerStart(t,1,true,function RejuvenationEnd)
    endif
    call AddHPPerc(m,20)
    call SaveInteger(Hash,mH,'A030',1)
    set m=null
    set t=null
endfunction

function Trig_Rejuvenation_Conditions takes nothing returns boolean
    return GetSpellAbilityId()=='A030'
endfunction

function InitTrig_Rejuvenation takes nothing returns nothing
    set gg_trg_Rejuvenation=CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(gg_trg_Rejuvenation,Player(11),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
    call TriggerAddCondition(gg_trg_Rejuvenation,function Trig_Rejuvenation_Conditions)
    call TriggerAddAction(gg_trg_Rejuvenation,function Rejuvenation)
endfunction

    stub method tickAction takes nothing returns boolean
        return true
    endmethod
    
    static method tickEnd takes nothing returns nothing
        local thistype this = GetCustomTimer()
        set currticks = currticks - 1
        if tickAction() then
            call destroy()
        endif
    endmethod
    
    method extendTicks takes integer addticks returns nothing
        set currticks = currticks + addticks
        if currticks > buffdata.maxticks then
            set currticks = buffdata.maxticks
        endif
    endmethod
    
    method startWithPeriod takes real period returns nothing
        set currticks = buffdata.startticks
        call UnitAddAbility(target.minion, buffdata.effectid)
        call TimerStart(t, period, buffdata.periodic, function thistype.tickEnd)
        call DebugMsgIf(isStopped(), "MinionBuff " + I2S(this) + " is started.")
        set isRunning = true
    endmethod
    
    method start takes nothing returns nothing
        call startWithPeriod(buffdata.period)
    endmethod
    
    method startPeriodic takes integer addticks returns nothing
        if isRunning then
            call extendTicks(addticks)
        else
            call start()
        endif
    endmethod
endstruct

struct BuffMultishotDoT extends MinionBuff
    method onCreate takes nothing returns nothing
        set node1 = target.buffs.addEoTBuff(this)
    endmethod
    
    method onDestroy takes nothing returns nothing
        call target.buffs.removeEoTBuff(node1)
    endmethod

    method tickAction takes nothing returns boolean
        local Tower dd
        if UnitExists(source) then
            set dd = GetUnitUserData(source)
            call dd.dealDamage(target, AbilMultishot(dd.abil).dot, AbilMultishot.dottype)
            return currticks == 0
        endif
        return true
    endmethod
    
    static method launch takes Minion m, Tower caster returns nothing
        //! runtextmacro InitBuff("m", "caster.tower", "caster.owner", "MultishotDoT", "true", "false", "false", "")
        call startPeriodic(buffdata.startticks)
    endmethod
endstruct

struct BuffMultishotSlow extends MinionBuff
    method onCreate takes nothing returns nothing
        set node1 = target.buffs.addMoveSpeedBuff(this)
    endmethod
    
    method onDestroy takes nothing returns nothing
        call target.buffs.removeMoveSpeedBuff(node1)
        call target.updateMoveSpeed()
    endmethod
    
    static method launch takes Minion m, Tower caster, real slow returns nothing
        //! runtextmacro InitBuff("m", "caster.tower", "caster.owner", "MultishotSlow", "true", "true", "false", "")
        call m.alterMoveSpeed(node1, slow)
        call start()
    endmethod
endstruct