Labirinto

tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAfkDeath(true)

place = 0

function init_matrix(wD, hG)
   local result = {}
   for y = 0, hG - 1 do
      for x = 0, wD - 1 do
         result[y * wD + x] = 1
      end
      result[y * wD + 0] = 0
      result[y * wD + wD - 1] = 0
   end
   for x = 0, wD - 1 do
      result[0 * wD + x] = 0
      result[(hG - 1) * wD + x] = 0
   end
   return result
end

function setMap(matrix, wD, hG)
place = 0
xml = '<C><P H="740" Ca="" N="" L="2200" /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" X="1201" L="2500" o="0" H="760" c="4" Y="367" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="2200" o="0" H="40" X="1100" N="" Y="0" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="2240" o="0" H="40" X="1100" N="" Y="760" T="12" /><S P="0,0,0.3,0.2,90,0,0,0" L="760" o="0" H="40" X="2200" N="" Y="360" T="12" /><S m="" P="0,0,0.3,0.2,90,0,0,0" L="760" o="0" H="40" X="0" N="" Y="360" T="12" />'
xmlEnd = '</S><D><DS Y="40" X="80" /><T X="2082" Y="735" D="" /><F Y="732" X="2080" /></D><O /></Z></C>'
color = string.format("%X", math.random(0x000000, 0xFFFFFF))
invColor = string.format("%06x", 0xffffff - tonumber(color, 16))
for y = 0, hG - 1 do
      for x = 0, wD - 1 do
         if matrix[y * wD + x] == 0 then
            r = ""
         else
            angle = {0}
            xml = xml..string.format('<S H="40" P="0,0,3,0.2,%s,0,0,0" L="40" X="%s" Y="%s" o="%s" T="12" />',angle[math.random(#angle)], x*40,y*40,color)
         end
      end
   end
xml = xml..xmlEnd
tfm.exec.newGame(xml)
tfm.exec.setGameTime('330')
end

function eventNewPlayer(p)
    tfm.exec.respawnPlayer(p)
end

function genMaze(matrix, wD, hG, x, y)
   local r = math.random(0, 3)
   matrix[y * wD + x] = 0
   for i = 0, 3 do
      local d = (i + r) % 4
      local dx = 0
      local dy = 0
      if d == 0 then
         dx = 1
      elseif d == 1 then
         dx = -1
      elseif d == 2 then
         dy = 1
      else
         dy = -1
      end
      local nx = x + dx
      local ny = y + dy
      local nx2 = nx + dx
      local ny2 = ny + dy
      if matrix[ny * wD + nx] == 1 then
         if matrix[ny2 * wD + nx2] == 1 then
            matrix[ny * wD + nx] = 0
            genMaze(matrix, wD, hG, nx2, ny2)
         end
      end
   end
end

wD = 55
hG = 20

function eventPlayerWon(p)
place = place+1
if place == 1 then
    tfm.exec.setGameTime(10)
end
end

function eventLoop(t,r)
if r <= 0 then
    matrix = init_matrix(wD, hG)
    genMaze(matrix, wD, hG, 2, 2)
    matrix[wD + 2] = 0
    matrix[(hG - 2) * wD + wD - 3] = 0
    setMap(matrix, wD, hG)
end
end
tfm.exec.setGameTime(1)