= 0
    end
  end
  for j=1, 2 do
    local x, y = findEmptyPos()
    g[y] [x]= 1
  end
end
 
function
getRandomPos()
  return math.random(size), math.random(size)
end
 
function
findEmptyPos()
  while true do
    x, y = getRandomPos()
    if g[y] [x]== 0 then return x, y end
  end
end
 
function
isFull()
  local full = true
  for i=1, size do
    for j=1, size do
      if g == 0 then full = false end
    end
  end
  return full
end
 
function
canMove()
  if not isFull() then return true end
  local pr = nil
  for i=1, size do
    local k = 1
    while k <= size do
      if k~=size and g [k]== g[k+1] or
false then break end
      if pr and g [k]== pr [k]or false then
break end
      k = k + 1
    end
    if k ~= size+1 then return true end
    pr = g
  end
  return false
end
 
function
moveLeft()
  for i=1, size do
    for j=2, size do
      local k = j
      while k > 1 do
        if g [k]== 0 then break
        elseif g [k]== g[k-1] then
          g[k-1] = g [k]+ 1
          g [k]= 0
          score = score + math.pow(2,g[k-1])
          k = k-1
        elseif g[k-1] == 0 then
          g[k-1] = g
          [k]g [k]= 0
        else break end
        k = k-1
      end
    end
  end
end
 
function
moveUp()
  for j=1, size do
    for i=2, size do
      local k = i
      while k > 1 do
        if g[k] == 0 then break
        elseif g[k] == g[k-1] then
          g[k-1] = g[k] + 1
          g[k] = 0
          score = score + math.pow(2,g[k-1])
          k = k-1
        elseif g[k-1] == 0 then
          g[k-1] = g[k]
          g[k] = 0
        else break end
        k = k-1
      end
    end
  end
end
 
function
moveRight()
  flipX()
  moveLeft()
  flipX()
end
 
function
moveDown()
  flipY()
  moveUp()
  flipY()
end
 
function
drawBoard()
 term.setBackgroundColor(colors.black)
 term.clear()
 term.setTextColor(colors.white)
  for x=1, size do
    for y=1, size do
      term.setCursorPos(x*5-1,y*4-2)
     
term.setBackgroundColor(tiles[g[y][x]+1][2])
      term.write("    ")
      term.setCursorPos(x*5-1,y*4-1)
      term.write(tiles[g[y][x]+1][1])
      term.setCursorPos(x*5-1,y*4)
      term.write("    ")
    end
  end
  term.setCursorPos(4,18)
  term.setBackgroundColor(colors.black)
  term.write("Score: "..score)
  drawScores()
end
 
function
drawScores()
  term.setCursorPos(4,18)
  term.setBackgroundColor(colors.black)
  term.write("  Score: "..score)
  term.setCursorPos(4,19)
  term.write("HiScore: "..hiscore)
  term.setCursorPos(4,20)
  term.setTextColor(colors.lightGray)
  term.write("Press q to quit")
end
 
function
drawHome()
  if not fs.exists(bg) then
shell.run("pastebin get AWKwMWXW "..bg) end
  term.clear()
  im = paintutils.loadImage(bg)
  paintutils.drawImage(im,2,2)
end
 
function
table.reverse(tab)
  local newtab = { }
  for i=1, #tab do
    newtab[#tab+1-i] = tab
  end
  return newtab
end
 
function
flipX()
  for i=1, size do
    g = table.reverse(g)
  end
end
 
function
flipY()
  g = table.reverse(g)
end
 
function
update()
  drawBoard()
  if not isFull() then
    local x, y = findEmptyPos()
    g[y] [x]= 1
  end
  os.sleep(0.075)
end
 
function
saveScore()
  handle = fs.open(saveFile, "w")
  handle.write(tostring(hiscore))
  handle.close()
end
 
 
function
newGame()
  if score > hiscore then
    hiscore = score
    saveScore()
  end
  score = 0
  term.setCursorPos(9,18)
  term.setBackgroundColor(colors.white)
  term.setTextColor(colors.black)
  term.clearLine()
  term.write("GAME OVER!")
  term.setCursorPos(8,19)
  term.clearLine()
  term.write("New game? y/n")
  while true do
    local event, key =
os.pullEvent("key")
    if event=="key" then
      if key==keys.y then return true end
      if key==keys.n then return false end
    end
  end
end
 
drawHome()
 
os.sleep(2)
while
true do
  createBoard()
  while canMove() do
    drawBoard()
    event, key = os.pullEvent("key")
    if event == "key" then
      if key == keys.left then moveLeft()
      elseif key == keys.right then
        moveRight()
        update()
      elseif key == keys.up then
        moveUp()
        update()
      elseif key == keys.down then
        moveDown()
        update()
      elseif key == keys.q then
        break
      end
    end
  end
  drawBoard()
  if not newGame() then
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorPos(1,1)
    break
  end
end