tGen

local randMove = 0
local prevMove = 0
local newMove = 0

local rTile = 0
local nTile = 0

local move= {1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1}

local spacing = 0
local ySpacing = 10

local level5 = {1,1,1,1,34,34,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2}
local level5a ={1,1,1,1,34,34,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,34,34,34}
local rMap ={{},{},{},{},{}}
local a = 1

--mon = peripheral.wrap("left")
--local w,h = mon.getSize()
--term.redirect(mon)
term.clear()

function dTile(a)
  if nTile==1 then --stone
    paintutils.drawPixel(spacing+1, newMove+ySpacing+a, colors.gray)
  end
  if nTile==2 then --dirt
    paintutils.drawPixel(spacing+1, newMove+ySpacing+a, colors.brown)
  end
  if nTile==3 then --grass
    paintutils.drawPixel(spacing+1, newMove+ySpacing+a, colors.lime)
  end
  if nTile==34 then --iron
    paintutils.drawPixel(spacing+1, newMove+ySpacing+a, colors.lightGray)
  end
end

function createTile()
 --level1
  nTile = 3
  rMap[1][a]=nTile
  dTile(0)
  --level2
  nTile = 2
  rMap[2][a]=nTile
  dTile(1)
  --level3
  nTile = 2
  rMap[3][a]=nTile
  dTile(2)
  --level4
  rTile = math.random(1,30)
  nTile = level5[rTile]
  dTile(3)
  rMap[4][a] = nTile
  --level5
  rTile = math.random(1,30)
  if rMap[5][a-1]==34 or rMap[4][a]==34 then
    nTile = level5a[rTile]
  else
    nTile = level5[rTile]
  end
  dTile(4)
  rMap[5][a]=nTile


end

function gTile()
  if a <= 60 then
    if prevMove==0 then
      randMove = math.random(1,15)
      newMove = move[randMove]
      createTile()

    else
      newMove = 0
      createTile()
    end

    a = a+1
    spacing = spacing + 1
    ySpacing = ySpacing + newMove
  end
end

while true do
  gTile()
  sleep(0)
end