World's Glitchiest Lua Script

Key_Enum = {['c']=67, ['v']=86, ['b']=66, ['n']=78, ['j']=74}
keys_b = nil
keys_no_b = nil

function eventNewGame()
    keys_b = {}
    keys_no_b = {}
    for name,player in pairs(tfm.get.room.playerList) do
        if player.isShaman then
            hardmode = player.inHardMode
            tfm.exec.bindKeyboard(name, Key_Enum.c, true, true)
            tfm.exec.bindKeyboard(name, Key_Enum.v, true, true)
            tfm.exec.bindKeyboard(name, Key_Enum.b, true, true)
            tfm.exec.bindKeyboard(name, Key_Enum.n, true, true)
            tfm.exec.bindKeyboard(name, Key_Enum.j, true, true)
        else
            tfm.exec.bindKeyboard(name, Key_Enum.c, true, false)
            tfm.exec.bindKeyboard(name, Key_Enum.v, true, false)
            tfm.exec.bindKeyboard(name, Key_Enum.b, true, false)
            tfm.exec.bindKeyboard(name, Key_Enum.n, true, false)
            tfm.exec.bindKeyboard(name, Key_Enum.j, true, false)
        end
    end
end

function eventKeyboard(name, key_code, down, x, y)
    if key_code == Key_Enum.b then
        if table.getn(keys_b) == 3 then
            keys_b[1] = keys_b[2]
            keys_b[2] = keys_b[3]
            keys_b[3] = key_code
        else
            table.insert(keys_b, key_code)
        end
    else
        if table.getn(keys_b) == 3 then
            keys_b[1] = keys_b[2]
            keys_b[2] = keys_b[3]
            keys_b[3] = key_code
        else
            table.insert(keys_b, key_code)
        end
        if table.getn(keys_no_b) == 3 then
            keys_no_b[1] = keys_no_b[2]
            keys_no_b[2] = keys_no_b[3]
            keys_no_b[3] = key_code
        else
            table.insert(keys_no_b, key_code)
        end
    end
end

function willSummon(using_b)
    if using_b then
        n = table.getn(keys_b)
        if n == 0 then
            return true
        end
        if n == 1 then
            return false
        end
        if n == 2 then
            if keys_b[n] == keys_b[n-1] then
                return false
            end
            if keys_b[n] ~= keys_b[n-1] then
                return true
            end
        end
        if n == 3 then
            if keys_b[n] == keys_b[n-1] then
                return false
            end
            if keys_b[n] ~= keys_b[n-1] and keys_b[n-1] ~= keys_b[n-2] then
                return false
            end
            if keys_b[n] == keys_b[n-2] and keys_b[n] ~= keys_b[n-1] then
                return false
            end
            if keys_b[n] ~= keys_b[n-1] then
                return true
            end
        end
    else
        n = table.getn(keys_no_b)
        if n == 0 then
            return true
        end
        if n == 1 then
            return false
        end
        if n == 2 then
            if keys_no_b[n] == keys_no_b[n-1] then
                return false
            end
            if keys_no_b[n] ~= keys_no_b[n-1] then
                return true
            end
        end
        if n == 3 then
            if keys_no_b[n] == keys_no_b[n-1] then
                return false
            end
            if keys_no_b[n] ~= keys_no_b[n-1] and keys_no_b[n-1] ~= keys_no_b[n-2] then
                return false
            end
            if keys_no_b[n] == keys_no_b[n-2] and keys_no_b[n] ~= keys_no_b[n-1] then
                return false
            end
            if keys_no_b[n] ~= keys_no_b[n-1] then
                return true
            end
        end
    end
end

function eventSummoningEnd(name, id_type, x, y, angle, xspeed, yspeed, param)
    if not willSummon(id_type == 3 or id_type == 4 or id_type == 28) then
        tfm.exec.removeObject(param['id'])
    end

    keys_b = {}
    keys_no_b = {}
end

eventNewGame()