local total = 0
local events = {}
local function onUpdate(self,elapsed)
    if #events == 0 then
        total = 0
        return
    end

    total = total + elapsed
    local deleted = 0
    for i = #events, 1, -1 do
        local data = events[i]
        if data[1] > total then
            break
        end
        data[2](unpack(data[3], 1, data[4]))
        deleted = deleted+1
    end
    for i = #events-deleted, #events do
        events[i] = nil
    end
end

local f = CreateFrame("frame")
f:SetScript("OnUpdate", onUpdate)

local function comp(a,b)
    return b[1] < a[1]
end

function RegisterEvent(delay, func, ...)
    tinsert(events, {total+delay, func, {...}, select("#", ...)})
    table.sort(events, comp)
end