//TESH.scrollpos=-1
//TESH.alwaysfold=0

function Spell takes nothing returns nothing
    local timer t = GetExpiredTimer() 
    local unit caster = LoadUnitHandle(udg_hash,h,1)
    local unit target = LoadUnitHandle(udg_hash,h,2) 
    local effect e = GetEffectUnit()
    call PolledWait( ( DistanceBetweenCaster(GetUnitLoc(GetSpellAbilityCaster()),(GetSpellTarget())) / 1000.00 ) )
    call EffectTarget( "overhead", udg_Target, "Abilities\\Spells\\Other\\TalkToMe\\TalkToMe.mdl" )
    call TimerStart(t,3.00,true,function Spell)
    call Destroy(e)

    set caster = null
    set target = null
    set t = null

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

//===========================================================================
function InitTrig_Spell takes nothing returns nothing
    set gg_trg_Spell = CreateTrigger(  )
    call DisableTrigger( gg_trg_Spell )
    call TriggerAddAction( gg_trg_Spell, function Trig_Spell_Actions )
    set udg_hash = InitHashtable()
endfunction

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

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

function Spell takes nothing returns nothing
    local timer Timer = GetExpiredTimer()
    local integer Handle = GetHandleId(Timer)
    local unit Caster = LoadUnitHandle(udg_Hashtable,Handle,1)
    local unit Target = LoadUnitHandle(udg_Hashtable,Handle,2)
    local effect EffectTarget = LoadEffectHandle(udg_Hashtable,Handle,3)
    call TimerStart(Timer,3.00,true,function Spell)
    call DestroyEffect(EffectTarget)
    call DestroyTimer(Timer)
    call FlushChildHashtable(udg_Hashtable,Handle)
    set Caster = null
    set Target = null
    set Timer = null
endfunction

function Spell_Actions takes nothing returns nothing
    local timer Timer = CreateTimer()
    local integer Handle = GetHandleId(Timer)
    local unit Caster = GetSpellAbilityUnit()
    local unit Target = GetSpellTargetUnit()
    local real Damage = 9999.
    local effect EffectTarget = AddSpecialEffectTargetUnitBJ( "chest", Caster,"Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl")
    local real HP = GetUnitState(Target, UNIT_STATE_LIFE)
    
    call SaveUnitHandle(udg_Hashtable,Handle,1,Caster)
    call SaveUnitHandle(udg_Hashtable,Handle,2,Target)
    if HP <= 500 then
        call SetUnitState(Target, UNIT_STATE_LIFE, HP - 500)
        call UnitDamageTarget(Caster, Target, Damage, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
endif
    set Caster = null
    set Target = null
endfunction

//===========================================================================
function InitTrig_Spell takes nothing returns nothing
    set gg_trg_Spell = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Spell, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Spell, Condition( function Spell_Conditions ) )
    call TriggerAddAction( gg_trg_Spell, function Spell_Actions )
    call Preload("Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl")
endfunction

globals
constant real MYSPELL_DAMAGE = 9999.
constant real MYSPELL_HP = 500.
endglobals

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

function Spell takes nothing returns nothing
    local integer Handle = GetHandleId(GetExpiredTimer())
    call DestroyEffect(LoadEffectHandle(udg_Hashtable,Handle,3))
    call FlushChildHashtable(udg_Hashtable,Handle)
    call DestroyTimer(GetExpiredTimer())
endfunction

function Spell_Actions takes nothing returns nothing
    local timer Timer = CreateTimer()
    local integer Handle = GetHandleId(Timer)
    local unit Caster = GetSpellAbilityUnit()
    local unit Target = GetSpellTargetUnit()
    
    call SaveUnitHandle(udg_Hashtable, Handle, 1, Caster)
    call SaveUnitHandle(udg_Hashtable, Handle, 2, Target)
    call SaveEffectHandle(udg_Hashtable, Handle, 3, AddSpecialEffectTarget("Abilities\\Spells\\Human\\Avatar\\AvatarCaster.mdl", Caster, "chest"))
    call TimerStart(Timer, 3.00, false, function Spell)
    if GetWidgetLife(Target) < MYSPELL_HP then
        call SetWidgetLife(Target, GetWidgetLife(Target) - MYSPELL_HP)
        call UnitDamageTarget(Caster, Target, MYSPELL_DAMAGE, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
endif
    set Caster = null
    set Target = null
    set Timer = null
endfunction