api/events

function createHandler()
  local Handler = {
    Callbacks = {}
  }

  function Handler:disconnectAll(evt)
    if evt then
      self.Callbacks[evt] = nil
    else
      self.Callbacks = {}
    end
  end

  function Handler:disconnect(conn)
    table.remove(self.Callbacks[conn.Event], conn.Id)
  end

  function Handler:connect(evt, callback)
    self.Callbacks[evt] = self.Callbacks[evt] or {}
    table.insert(self.Callbacks[evt], callback)
    return {Event=evt,Id=#self.Callbacks[evt]}
  end

  function Handler:emit(evt, ...)
    os.queueEvent(evt, ...)
  end

  function Handler.update()
    local args = {os.pullEvent()}
    local evt = table.remove(args, 1)
    if not Handler.Callbacks[evt] then return end
    for id,callback in ipairs(Handler.Callbacks[evt]) do
      callback(table.unpack(args))
    end
  end

  return Handler
end