function Trig_fire_Timer takes nothing returns nothing 
    local timer t=GetExpiredTimer() 
    local group g=CreateGroup() 
    local integer ID=GetHandleId(t) 
    local unit e 
    local unit u=LoadUnitHandle(udg_Hash,ID,0) 
    local integer c=LoadInteger(udg_Hash,ID,1)-1 
    local real dmg=GetHeroInt(u,true)*GetUnitAbilityLevel(u,'A001')*2 
    local texttag txt 
    local player p=GetOwningPlayer(u) 
    call GroupEnumUnitsInRange(g,GetWidgetX(u),GetWidgetY(u),750,null) 
    loop 
        set e=FirstOfGroup(g) 
        exitwhen e==null
        if IsUnitEnemy(e,p) and GetWidgetLife(e)>.0 then 
            call UnitDamageTarget(u,e,dmg,true,false,ATTACK_TYPE_HERO,DAMAGE_TYPE_FIRE,WEAPON_TYPE_WHOKNOWS) 
            set txt = CreateTextTag() 
            call SetTextTagText(txt,"|c00C80000" +I2S(R2I(dmg)),.023) 
            call SetTextTagPosUnit(txt,e,0.) 
            call SetTextTagColor(txt,255,0,0,255) 
            call SetTextTagVelocity(txt,.001,.03) 
            call SetTextTagFadepoint(txt,.75) 
            call SetTextTagLifespan(txt,1.5) 
            call SetTextTagPermanent(txt,false) 
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl",e,&qu​ot;chest")) 
            call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\FlameStrike\\FlameStrikeTarget.​mdl",e,"orign")) 
        else
            if GetRandomInt(1,100)<=5 then 
                call SetHeroInt(u,GetHeroInt(u,true)+1,true) 
                call SetHeroInt(e,GetHeroInt(e,true)-1,true) 
            endif 
        endif
        call GroupRemoveUnit(g,e) 
    endloop 
    call DestroyGroup(g)
    if c==0 then 
        call PauseTimer(t) 
        call DestroyTimer(t)  
        call FlushChildHashtable(udg_Hash,ID) 
    else 
        call SaveInteger(udg_Hash,ID,1,c) 
    endif 
    set g=null 
    set u=null 
    set t=null 
    set p=null 
    set txt=null 
endfunction

function Trig_fire_Actions takes nothing returns nothing 
    local timer t 
    local integer ID 
    if GetSpellAbilityId()=='A001' then 
        set t=CreateTimer() 
        set ID=GetHandleId(t) 
        call SaveUnitHandle(udg_Hash,ID,0,GetSpellAbilityUnit()) 
        call SaveInteger(udg_Hash,ID,1,5) 
        call TimerStart(t,1.,true,function Trig_fire_Timer) 
        set t = null 
    endif 
endfunction

function InitTrig_fire takes nothing returns nothing 
    local integer i=0 
    set gg_trg_fire=CreateTrigger() 
    loop 
        call TriggerRegisterPlayerUnitEvent(gg_trg_fire,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null) 
    set i= i+1 
        exitwhen i==11 
    endloop 
    set udg_Hash=InitHashtable() 
    call TriggerAddAction(gg_trg_fire, function Trig_fire_Actions ) 
endfunction

if c==0 then 
    call PauseTimer(t) 
    call DestroyTimer(t)  
    call FlushChildHashtable(udg_Hash,ID) 
else 
    call SaveInteger(udg_Hash,ID,1,c) 
endif