function Trig_Susano_Conditions takes nothing returns boolean
return GetIssuedOrderId() == OrderId("immolation") 
endfunction

function Trig_Susano_Actions2 takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit u = LoadUnitHandle(udg_Hash,id,0)
local unit d = LoadUnitHandle(udg_Hash,id,1)
local real m = GetUnitState(u,UNIT_STATE_MANA)
local real mx = GetUnitState(u,UNIT_STATE_MAX_MANA)
local real l = GetUnitState(u,UNIT_STATE_LIFE)
local real ml = GetUnitState(u,UNIT_STATE_MAX_LIFE)
if m > mx*.02 and l > ml*.02 and GetUnitAbilityLevel(u,'B004') > 0 then
call SetUnitState(u,UNIT_STATE_MANA,m-mx*.0006)
call SetUnitState(u,UNIT_STATE_LIFE,l-ml*.0006)
call SetUnitX(d,GetUnitX(u))
call SetUnitY(d,GetUnitY(u))
call SetUnitFacing(d,GetUnitFacing(u))
else
call RemoveUnit(d)
call DestroyTimer(t)
call UnitRemoveAbility(u,'A00D')
call UnitRemoveAbility(u,'A00E')
call UnitRemoveAbility(u,'A00N')
call IssueImmediateOrder(u,"unimmolation")
call FlushChildHashtable(udg_Hash,id)
endif
set u = null
set t = null
set d = null
endfunction

function Trig_Susano_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local timer t = CreateTimer()
local integer id = GetHandleId(t)
call SaveUnitHandle(udg_Hash,id,0,u)
call PlaySoundOnUnitBJ(gg_snd_itachi_sosano,100,u) //эту бж убрать очень легко, но я сам ее поставил ибо так проще, она играет звук сусано...
call UnitAddAbility(u,'A00D')
call UnitAddAbility(u,'A00E')
call UnitAddAbility(u,'A00N')
call SaveUnitHandle(udg_Hash,id,1,CreateUnit(GetOwningPlayer(u),'e005',GetUnitX(u),GetUnitY(u),GetUnitFac​ing(u)))
call TimerStart(t,.02,true,function Trig_Susano_Actions2)
set u = null
set t = null
endfunction

//===========================================================================
function InitTrig_Susano takes nothing returns nothing
    set gg_trg_Susano = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Susano, EVENT_PLAYER_UNIT_ISSUED_ORDER )
    call TriggerAddCondition( gg_trg_Susano, Condition( function Trig_Susano_Conditions ) )
    call TriggerAddAction( gg_trg_Susano, function Trig_Susano_Actions )
endfunction