function Test_Spell_Con takes nothing returns boolean
    return GetSpellAbilityId() == 'A000'
endfunction

function Test_Spell_Effect takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer id=GetHandleId(t)
    call DestroyEffect(LoadEffectHandle(udg_Hash,id,0))
    call DestroyEffect(LoadEffectHandle(udg_Hash,id,1))
    call DestroyEffect(LoadEffectHandle(udg_Hash,id,2))
    call DestroyTimer(t)
    call FlushChildHashtable(udg_Hash,id)
set t=null
endfunction

function Test_Spell_Move takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit caster = LoadUnitHandle(udg_Hash, id, 1)
local unit target = LoadUnitHandle(udg_Hash, id, 2)
local unit dammi1 = LoadUnitHandle(udg_Hash, id, 3)
local unit dammi2 = LoadUnitHandle(udg_Hash, id, 4)
local real x=GetUnitX(dammi1)
local real y=GetUnitY(dammi1)
local real tx=GetUnitX(target)
local real ty=GetUnitY(target)
local real distance=SquareRoot((tx - x) * (tx - x) + (ty - y) * (ty - y))
local group g
local unit f

if distance<= 50. then
    call PauseTimer(t)
    call DestroyTimer(t)
    call FlushChildHashtable(udg_Hash, id)
    call RemoveUnit(dammi1)
    call RemoveUnit(dammi2)
    call UnitDamageTarget(caster,target,50.+GetHeroAgi(caster,false)*GetUnitAbilityLevel(caster,'A000'), true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
    set g=CreateGroup()
    call GroupEnumUnitsInRange(g,tx,ty,250.,null)
loop
    set f=FirstOfGroup(g)
    exitwhen f==null
    if not(GetUnitState(f,UNIT_STATE_LIFE)<=.4) and not IsUnitType(f,UNIT_TYPE_MECHANICAL) then 
    call UnitDamageTarget(caster,f,25.*GetUnitAbilityLevel(caster,'A000'),true,true,ATTACK_TYPE_CHAOS,DAMAGE_​TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
    endif
    call GroupRemoveUnit(g,f)
endloop
    call DestroyGroup(g)
    set f=CreateUnit(Player(PLAYER_NEUTRAL_AGGRESSIVE), 'h004',tx, ty, 0.)
    call UnitApplyTimedLife(f, 'BTLF', 2.50)
    call UnitAddAbility(f, 'A002')
    call SetUnitAbilityLevel(f,'A002', GetUnitAbilityLevel(caster,'A000'))
    call IssueTargetOrder(f, "slow",target)
    set t=CreateTimer()
    set id=GetHandleId(t)
    call SaveEffectHandle(udg_Hash,id,0,AddSpecialEffectTarget("Objects\\Spawnmodels\\Human\\HumanLargeD​eathExplode\\HumanLargeDeathExplode.mdl", target, "origin"))
    call SaveEffectHandle(udg_Hash,id,1,AddSpecialEffectTarget("TheHolyBomb.mdx", target, "origin"))
    call SaveEffectHandle(udg_Hash,id,2,AddSpecialEffectTarget("Abilities\\Spells\\Other\\Volcano\\Volca​noDeath.mdl", target, "origin"))
    call TimerStart(t,1.,false,function Test_Spell_Effect)
else
    call IssueTargetOrder(dammi1, "attack", target)
    call IssueTargetOrder(dammi2, "attack", target)
endif
set caster=null
set target=null
set dammi1=null
set dammi2=null
set t=null
set f=null
set g=null
endfunction

function Test_Spell_Act takes nothing returns nothing
local unit caster = GetSpellAbilityUnit()
local unit target = GetSpellTargetUnit()
local unit dammi1 = CreateUnit(GetOwningPlayer(caster), 'h000', GetUnitX(caster), GetUnitY(caster), 0.00)
local unit dammi2 = CreateUnit(GetOwningPlayer(caster), 'h001', GetUnitX(caster), GetUnitY(caster), 0.00)
local timer t = CreateTimer()
local integer id = GetHandleId(t)

    call IssueTargetOrder(dammi1, "attack", target)
    call IssueTargetOrder(dammi2, "attack", target)
    call SaveUnitHandle(udg_Hash, id, 1, caster)
    call SaveUnitHandle(udg_Hash, id, 2, target)
    call SaveUnitHandle(udg_Hash, id, 3, dammi1)
    call SaveUnitHandle(udg_Hash, id, 4, dammi2)
    call TimerStart(t, 0.10, true, function Test_Spell_Move)

set caster=null
set target=null
set dammi1=null
set dammi2=null
set t=null
endfunction

function InitTrig_Test_Spell takes nothing returns nothing
set gg_trg_Test_Spell = CreateTrigger()
local integer W = 0
loop
exitwhen W > 8
    call TriggerRegisterPlayerUnitEvent(gg_trg_Test_Spell, Player(W), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    set W = W + 1
endloop
endfunction