data = {
		isPressed = {}
}

function eventNewPlayer(name)
data[name] = {
isPressed = {}
}
for i,k in ipairs({16,57,105}) do
tfm.exec.bindKeyboard(name, k, true, true)
end
end

function eventKeyboard(name, key, down, x, y)
if key == 16 and down then
data[name].isPressed[key] = true
elseif key == 57 and data[name].isPressed[16] == true then
tfm.exec.addShamanObject(2801, x, y+5, 0, 0, 0, false)
data[name].isPressed[16] = false
end
end

for p in pairs(tfm.get.room.playerList) do
eventNewPlayer(p)
end

-- Por enquanto os tamanhos de cada objeto
-- devem ser especificados manualmente em `objectSizes`.
-- -----------------------------------------------------
-- [idDoTipo] = { [1] = largura, [2] = altura }

local objectSizes = {
    -- Caixa pequena
    [ 1 ] = { 70, 70 },
    -- Caixa grande
    [ 2 ] = { 90, 90 }
};

local function testObjectCollisionsAt(playerX, playerY)
    for _, info in next, tfm.get.room.objectList do
        local resolution = objectSizes[info.type];

        local objX,   objY,   objDW,             objDH =
              info.x, info.y, resolution[1] / 2, resolution[2] / 2;

        if ((playerX >= (objX - objDW)) and (playerX <= (objX + objDW)) and
            (playerY >= (objY - objDH)) and (playerY <= (objY + objDH)))
        then
            return true;
        end
    end

    return false;
end

local function assertPlayerDeath(player, isDead, ...)
    if ((not isDead) and testObjectCollisionsAt(...)) then
        tfm.exec.killPlayer(player);
    end
end

function eventLoop()
    for player, info in next, tfm.get.room.playerList do
        assertPlayerDeath(player, info.isDead, info.x, info.y);
    end
end

function eventKeyboard(player, k,_, x, y)
    if (k <= 3) then
        assertPlayerDeath(player, tfm.get.room.playerList[player].isDead,
            x, y);
    end 
end

function eventNewPlayer(player)
    for k = 0, 3 do
        for i = 0, 1 do
            tfm.exec.bindKeyboard(player, k, i == 0, true);
        end
    end
end

for player, info in next, tfm.get.room.playerList do
    eventNewPlayer(player);
    assertPlayerDeath(player, info.isDead, info.x, info.y);
end

tfm.exec.addShamanObject(2, 200, 100);