function Trig_Cleaner_GOVNO_Conditions takes nothing returns boolean
    return not IsUnitType(GetDyingUnit(),UNIT_TYPE_HERO)
endfunction

function Trig_Cleaner_GOVNO_Conditions takes nothing returns boolean
    return (IsUnitType(GetDyingUnit(),UNIT_TYPE_HERO) != true)
endfunction

function CleanDeadUnits takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer i=Modulo(h2i(t),8192)
    local unit u=i2u(udg_DeadUnits[i]) //GetStoredInteger(udg_cache,I2S(h2i(t)),"unit"))
if GetStoredInteger(udg_cache,I2S(h2i(t)),"tmr")!=h2i(t) then
    call echo("|cffFF4444Wrong Timer Id !|r old id - |r"+I2S(GetStoredInteger(udg_cache,I2S(h2i(t)),"tmr"))+" new id - "+I2S(h2i(t)))
endif
if GetUnitUserData(u)!=0 then
    call echo("|cff5555ccREMOVE UNIT WITH USER DATA ! ERROR !|r")
endif
  if u!=null and GetUnitState(u,UNIT_STATE_LIFE)<=0 and not IsUnitLoaded(u) then
    //call SetUnitX(u,0)
    //call SetUnitY(u,0)
    call RemoveUnit(u)
  elseif GetUnitState(u,UNIT_STATE_LIFE)>0 then
    call echo("|cffaa6600UNIT HAVE HP !!!")
  elseif u!=null then
    call echo("|cffaa6600UNIT = NULL !!!")
  endif
    //call DestroyTimer(t)
    set udg_DeadUnits[i]=0
    //set t=null
    //set u=null
endfunction

function Trig_Cleaner_GOVNO_Actions takes nothing returns nothing
    local timer t=CreateTimer()
    call StoreInteger(udg_cache,I2S(h2i(t)),"tmr",h2i(t))
// Can use cache ->
    //call StoreInteger(udg_cache,I2S(h2i(t)),"unit",h2i(GetTriggerUnit()))
if udg_DeadUnits[Modulo(h2i(t),8192)]==0 then
    set udg_DeadUnits[Modulo(h2i(t),8192)]=h2i(GetTriggerUnit())
else
    call echo("|cff00ff00 THIS SLOT ALREADY USED !")
endif
    call TimerStart(t,20,false,function CleanDeadUnits)
    //set t=null
endfunction

//===========================================================================
function InitTrig_CleanerBUGED takes nothing returns nothing
    set gg_trg_CleanerBUGED = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_CleanerBUGED, EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddCondition(gg_trg_CleanerBUGED, Condition( function Trig_Cleaner_GOVNO_Conditions))
    call TriggerAddAction(gg_trg_CleanerBUGED, function Trig_Cleaner_GOVNO_Actions)
endfunction

function H2I takes handle h returns integer
    return h
    return 0
endfunction

function NothingAction takes nothing returns nothing
endfunction

function CreateAction takes nothing returns nothing
    call CreateTrigger() //Create any object
endfunction

function RunStuff takes nothing returns nothing
local integer i=0

    call TriggerSleepAction(0.00) //This wait action is needed for the bug to happen
    call TriggerSleepAction(0.00)
    call TriggerSleepAction(0.00)
    call TriggerSleepAction(0.00) // can have any count of Sleeps. will increase the FATAL index count =)
    set i=1
    set udg_locus=null
    loop
        exitwhen i > 10
        set udg_loc[i]=Location(GetRandomReal(-100,100),GetRandomReal(-100,100))
        call BJDebugMsg("X = "+R2S(GetLocationX(udg_loc[i]))+"  "+"Y = "+R2S(GetLocationY(udg_loc[i])))
        if udg_loc[i]==udg_locus then
            call BJDebugMsg("FATALatindex:"+I2S(i)+";"+I2S(H2I(udg_loc[i])))
        else
            call BJDebugMsg("Index:"+I2S(i)+";"+I2S(H2I(udg_loc[i])))
        endif
        set udg_locus=udg_loc[i]
        set i=i+1
    endloop
    call BJDebugMsg("Ended")
endfunction


function Trig_Test_Actions takes nothing returns nothing
local integer i=0
    call TriggerExecute(udg_t[5])
    call DestroyTrigger(GetTriggeringTrigger())  //Without this call, the bug won't happen
    call TriggerSleepAction(0.00)
    call TriggerSleepAction(0.00)
    call TriggerSleepAction(0.00)
    loop
        exitwhen i > 10
        set udg_loc[i]=Location(GetRandomReal(-100,100),GetRandomReal(-100,100))
        call BJDebugMsg("X = "+R2S(GetLocationX(udg_loc[i]))+"  "+"Y = "+R2S(GetLocationY(udg_loc[i])))
        if udg_loc[i]==udg_locus then
            call BJDebugMsg("FATALatindex:"+I2S(i)+";"+I2S(H2I(udg_loc[i])))
        else
            call BJDebugMsg("Index:"+I2S(i)+";"+I2S(H2I(udg_loc[i])))
        endif
        set udg_locus=udg_loc[i]
        set i=i+1
    endloop
    call BJDebugMsg("Ended")

// I don't have any Bugs =)
// The testing will be continued...
endfunction

//===========================================================================
function InitTrig_Test takes nothing returns nothing
    set gg_trg_Test = CreateTrigger(  )
    set udg_t[0]= CreateTrigger(  )
    set udg_t[1]= CreateTrigger(  )
    call TriggerAddAction( udg_t[0], function NothingAction )
    call TriggerAddAction( udg_t[1], function CreateAction )
    set udg_t[5]=CreateTrigger()
    call TriggerAddAction(udg_t[5],function RunStuff)
    call TriggerRegisterPlayerChatEvent( gg_trg_Test, Player(0), "test", true )
    call TriggerAddAction( gg_trg_Test, function Trig_Test_Actions )
endfunction