Transformice Maze

NIGHTMODE = true

Maze = {
    seed = nil,
    width = nil,
    height = nil,
    cellSize = nil,
    cellCount = 0,
    cells = {},
    winCell = {x=0, y=0},
    startCell = {x=0, y=0},
    util = {
        getCellId = function(x, y)
            return x + y * Maze.width
        end,
        getCell = function(x, y)
            return Maze.cells[Maze.util.getCellId(x, y)]
        end,
        getCellXY = function (id)
            return {x = id % Maze.width, y = math.floor(id / Maze.width)}
        end,
        toGlobal = function(n)
            return n * Maze.cellSize + Maze.cellSize / 2
        end,
        getNeighbors = function(id)
            local ra = {}
            if (id == nil) then return ra end
            if (id + 1 <= Maze.cellCount and not Maze.util.isRightEdge(id) and not Maze.cells[id + 1].visited) then table.insert(ra, id + 1) end
            if (id - 1 >= 0 and not Maze.util.isLeftEdge(id) and not Maze.cells[id - 1].visited) then table.insert(ra, id - 1) end
            if (id + Maze.width <= Maze.cellCount and not Maze.cells[id + Maze.width].visited) then table.insert(ra, id + Maze.width) end
            if (id - Maze.width >= 0 and not Maze.cells[id - Maze.width].visited) then table.insert(ra, id - Maze.width) end
            return ra
        end,
        isRightEdge = function(id)
            return Maze.util.isLeftEdge(id + 1)
        end,
        isLeftEdge = function(id)
            return id % Maze.width == 0
        end
    },
    init = function(s, c, w, h)
        Maze.seed = s
        Maze.cellSize = c
        Maze.width = w
        Maze.height = h

        if (Maze.seed == nil) then Maze.seed = os.time() end
        if (Maze.cellSize == nil) then Maze.cellSize = 50 end
        if (Maze.width == nil) then Maze.width = math.floor(800 / Maze.cellSize) end
        if (Maze.height == nil) then Maze.height = math.floor(400 / Maze.cellSize) end

        Maze.cellCount = Maze.width * Maze.height
        math.randomseed(Maze.seed)
    end,
    generate = function()
        local visited = {}

        Maze.winCell.x = math.floor(math.random() * Maze.width)
        Maze.winCell.y = math.floor(math.random() * Maze.height)

        for i=0,Maze.cellCount do
            Maze.cells[i] = {top = true, bot = true, left = true, right = true, visited = false}
        end

        local count = Maze.cellCount
        local operator = {Maze.util.getCellId(Maze.winCell.x, Maze.winCell.y)}
        local overflow = 0
        local endOp = 0
        while count > 0 do
            local neighbors = Maze.util.getNeighbors(operator[#operator])
            local id = nil

            if (next(neighbors) ~= nil) then
                id = neighbors[math.random(#neighbors)]
            end


            if (id ~= nil and Maze.cells[id].visited) then
                id = nil
            end

            if (id == nil) then
                table.remove(operator)
                overflow = overflow + 1
                if (overflow > Maze.cellCount) then break end
            else
                overflow = 0
                local diff = id - operator[#operator]

                if (diff == -1) then
                    Maze.cells[id].right = false
                    Maze.cells[operator[#operator]].left = false
                elseif (diff == 1) then
                    Maze.cells[id].left = false
                    Maze.cells[operator[#operator]].right = false
                elseif (diff == 16) then
                    Maze.cells[id].top = false
                    Maze.cells[operator[#operator]].bot = false
                elseif (diff == -16) then
                    Maze.cells[id].bot = false
                    Maze.cells[operator[#operator]].top = false
                end

                Maze.cells[id].visited = true
                table.insert(operator, id)
                endOp = id
                count = count - 1
            end
        end
        Maze.startCell = Maze.util.getCellXY(endOp)
    end,
    build = function()
        for i=0,Maze.cellCount do
            local x = Maze.cellSize * (i % Maze.width)
            local y = Maze.cellSize * math.floor(i / Maze.width)
            if (Maze.cells[i].top) then tfm.exec.addPhysicObject(4 * i + 0, x + Maze.cellSize / 2 - 5, y - 5, {type=0, restitution=0.2, friction=1, width=Maze.cellSize + 10, height=10, groundCollision=false}) end
            if (Maze.cells[i].bot) then tfm.exec.addPhysicObject(4 * i + 1, x + Maze.cellSize / 2 - 5, y + Maze.cellSize - 5, {type=0, restitution=0.2, friction=1, width=Maze.cellSize + 10, height=10, groundCollision=false}) end
            if (Maze.cells[i].left) then tfm.exec.addPhysicObject(4 * i + 2, x - 5, y + Maze.cellSize / 2, {type=0, restitution=0.2, friction=1, width=10, height=Maze.cellSize, groundCollision=false}) end
            if (Maze.cells[i].right) then tfm.exec.addPhysicObject(4 * i + 3, x + Maze.cellSize - 5, y + Maze.cellSize / 2, {type=0, restitution=0.2, friction=1, width=10, height=Maze.cellSize, groundCollision=false}) end
        end
    end
}

function newMap()
    Maze.generate()
    tfm.exec.newGame('<C><P ' .. NIGHTMODE .. ' /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" L="800" o="6a7495" X="400" c="3" Y="-50" T="12" H="100" /><S H="400" L="100" o="6a7495" X="850" c="3" Y="200" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="400" L="100" o="6a7495" X="-50" c="3" Y="200" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="100" L="800" o="6a7495" X="400" c="3" Y="450" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S L="45" o="6a7495" H="164" X="17" Y="-103" T="12" P="0,0,0,0,0,0,0,0" /><S P="0,0,0,0,0,0,0,0" L="45" o="6a7495" X="778" Y="-106" T="12" H="164" /></S><D><DS Y="-82" X="402" /><T Y="' .. Maze.util.toGlobal(Maze.startCell.y) .. '" X="' .. Maze.util.toGlobal(Maze.startCell.x) .. '" /><F Y="' .. Maze.util.toGlobal(Maze.winCell.y) .. '" X="' .. Maze.util.toGlobal(Maze.winCell.x) .. '" /></D><O /></Z></C>')
    Maze.build()
    for name,mouse in pairs(tfm.get.room.playerList) do
        tfm.exec.movePlayer(name, Maze.util.toGlobal(Maze.startCell.x), Maze.util.toGlobal(Maze.startCell.y), false, 0, 0, false)
    end
end

function eventPlayerWon(name, te, ter)
    newMap()
end

Maze.init()
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAfkDeath(true)
if (NIGHTMODE) then NIGHTMODE = 'N="19"' else NIGHTMODE = '' end
newMap()