function Trig_penguin_remove_items_Conditions takes nothing returns boolean
    return (GetUnitTypeId(GetTriggerUnit()) == 'h002' or GetUnitTypeId(GetTriggerUnit()) == 'h000' )
endfunction

function Trig_penguin_remove_items_timer2 takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local unit u = LoadUnitHandle(udg_hash, h, 0)
    local item item0 = LoadItemHandle(udg_hash, h, 1)
    local item item1 = LoadItemHandle(udg_hash, h, 2)
    local item item2 = LoadItemHandle(udg_hash, h, 3)
    local item item3 = LoadItemHandle(udg_hash, h, 4)
    if GetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE) > 0 then
        call IncUnitAbilityLevel (u, 'A001')
        call UnitAddItemToSlotById (u, GetItemTypeId(item0), 0)
        call UnitAddItemToSlotById (u, GetItemTypeId(item1), 1)
        call UnitAddItemToSlotById (u, GetItemTypeId(item2), 2)
        call UnitAddItemToSlotById (u, GetItemTypeId(item3), 3)
        call RemoveItem(item0)
        call RemoveItem(item1)
        call RemoveItem(item2)
        call RemoveItem(item3)
    endif
    call FlushChildHashtable(udg_hash,h)
    call DestroyTimer(t)
    set t = null
    set item0 = null
    set item1 = null
    set item2 = null
    set item3 = null
endfunction

function Trig_penguin_remove_items_timer takes nothing returns nothing
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    local unit u = GetTriggerUnit()
    call SaveUnitHandle(udg_hash, h, 0, u)
    call SaveItemHandle(udg_hash, h, 1, UnitItemInSlot(u, 0))
    call SaveItemHandle(udg_hash, h, 2, UnitItemInSlot(u, 1))
    call SaveItemHandle(udg_hash, h, 3, UnitItemInSlot(u, 2))
    call SaveItemHandle(udg_hash, h, 4, UnitItemInSlot(u, 3))
    call TimerStart(t, 0.01, false, function Trig_penguin_remove_items_timer2)
    call DestroyTimer(t)
    set t = null
    set u = null
endfunction

function Trig_penguin_remove_items_Actions takes nothing returns nothing
    local real r = (I2S(GetUnitTypeId(GetTriggerUnit()) - 'h000') + 1) * 5 - 0.01
    local timer t = CreateTimer()
    call DisplayTextToPlayer(Player(0), 0, 0, "r = " + R2S(r))
    call TimerStart(CreateTimer(), r, false, function Trig_penguin_remove_items_timer)
    call DestroyTimer(t)
    set t = null
endfunction

function InitTrig_penguin_remove_items takes nothing returns nothing
    set gg_trg_penguin_remove_items = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_penguin_remove_items, EVENT_PLAYER_UNIT_UPGRADE_START )
    call TriggerAddCondition( gg_trg_penguin_remove_items, Condition( function Trig_penguin_remove_items_Conditions ) )
    call TriggerAddAction( gg_trg_penguin_remove_items, function Trig_penguin_remove_items_Actions )
    set udg_hash = InitHashtable()
endfunction

function Trig_penguin_remove_items_timer takes nothing returns nothing
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    local unit u = GetTriggerUnit()
    call SaveUnitHandle(udg_hash, h, unit00, u)
    call SaveItemHandle(udg_hash, h, item00, UnitItemInSlot(u, 0))
    call SaveItemHandle(udg_hash, h, item01, UnitItemInSlot(u, 1))
    call SaveItemHandle(udg_hash, h, item02, UnitItemInSlot(u, 2))
    call SaveItemHandle(udg_hash, h, item03, UnitItemInSlot(u, 3))
    call TimerStart(t, 0.01, false, function Trig_penguin_remove_items_timer2)
    set t = null
    set item0 = null
    set item1 = null
    set item2 = null
    set item3 = null
endfunction