function DioD takes nothing returns nothing
    local item Item
    local real x = GetUnitX(gg_unit_ngme_0002)
    local real y = GetUnitY(gg_unit_ngme_0002)
    local integer i = 0
    call SetUnitPosition(gg_unit_Hpal_0000,x,y)
    loop
        set Item = UnitItemInSlot(gg_unit_Hpal_0000,i)
        if Item != null
           call UnitDropItemTarget(gg_unit_Hpal_0000,Item,gg_unit_ngme_0002)
           call TriggerSleepAction(0.00)
           exitwhen Item == null
        else
            set i = i + 1
            exitwhen i > 5
        endif
    endloop
    call UnitDropItemTarget(gg_unit_Hpal_0000,UnitItemInSlot(gg_unit_Hpal_0000,1),gg_unit_ngme_0002)
    call UnitDropItemTarget(gg_unit_Hpal_0000,UnitItemInSlot(gg_unit_Hpal_0000,2),gg_unit_ngme_0002)
    call UnitDropItemTarget(gg_unit_Hpal_0000,UnitItemInSlot(gg_unit_Hpal_0000,3),gg_unit_ngme_0002)
    call UnitDropItemTarget(gg_unit_Hpal_0000,UnitItemInSlot(gg_unit_Hpal_0000,4),gg_unit_ngme_0002)
    call UnitDropItemTarget(gg_unit_Hpal_0000,UnitItemInSlot(gg_unit_Hpal_0000,5),gg_unit_ngme_0002)
    set Item = null
endfunction