private function AttackTrigger takes nothing returns nothing
if LoadUnitHandle(Hash,GetHandleId(GetTriggeringTrigger()),2) == GetEventDamageSource() then
call SaveBoolean(Hash,GetHandleId(GetTriggeringTrigger()),1,true)
call UnitRemoveAbility(GetAttacker(),'ARSB')
call  BJDebugMsg("Attacked")
endif
endfunction


private function AttackTimer takes nothing returns nothing
call DestroyTimer(GetExpiredTimer())
call SaveBoolean(Hash,LoadInteger(Hash,GetHandleId(GetExpiredTimer()),1),1,true)
call FlushChildHashtable(Hash,GetHandleId(GetExpiredTimer()))
call BJDebugMsg("Time")
endfunction

private function Attack takes nothing returns nothing
local unit u = AttackUnit
local unit t = AttackTarget
local trigger tr = CreateTrigger()
local timer ti = CreateTimer()
local event e = TriggerRegisterUnitEvent(tr, t, EVENT_UNIT_DAMAGED)
local integer id = GetHandleId(tr)
call TriggerAddAction(tr,function AttackTrigger )
call UnitAddAbility(u,'ARSB')
call TimerStart(ti,1.00,false,function AttackTimer)
call SaveInteger(Hash,GetHandleId(ti),1,id)
call SaveBoolean(Hash,id,1,false)
loop
call BJDebugMsg("AttackFinish1")
call TriggerSleepAction(0.1)
call BJDebugMsg("AttackFinish2")
call IssueTargetOrderById(u,851983,t)
call BJDebugMsg("AttackFinish3")
if LoadBoolean(Hash,id,1) then
call BJDebugMsg("AttackT")
else
call BJDebugMsg("AttackF")
endif
call BJDebugMsg("AttackFinish4")
exitwhen LoadBoolean(Hash,id,1)
call BJDebugMsg("AttackFinish5")
endloop
call TriggerClearActions(tr)
call DestroyTrigger(tr)
call UnitRemoveAbility(u,'ARSB')
call FlushChildHashtable(Hash,id)
set e = null
set ti = null
set tr = null
set u = null
set t = null
call BJDebugMsg("AttackFinish")
endfunction