View difference between Paste ID: Yq1nJf4K and 08thyHVw

 -- SPDX-FileCopyrightText: 2017 Daniel Ratcliffe
 --
 -- SPDX-License-Identifier: LicenseRef-CCPL
 
 --[[
 Falling - Based on Tetris by Alexey Pajitnov
 This version written by Gopher, at the request of Dan200, for
 ComputerCraft v1.6. No particular rights are reserved.
 --]]
 
 local function colorass(c, bw)
   return term.isColor() and c or bw
 end
 
 local block_s1 = {
     {
       { 1, 0, 0, 0 },
       { 1, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 0, 1, 1, 0 },
       { 1, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "{}"),
     fg = colorass(colors.blue, colors.black),
     bg = colorass(colors.cyan, colors.white),
   }
 local block_s2 = {
     {
       { 0, 1, 0, 0 },
       { 1, 1, 0, 0 },
       { 1, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 1, 1, 0, 0 },
       { 0, 1, 1, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "{}"),
     fg = colorass(colors.green, colors.black),
     bg = colorass(colors.lime, colors.white),
   }
 local block_line = {
     {
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 1, 1, 1, 1 },
       { 0, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "[]"),
     fg = colorass(colors.pink, colors.black),
     bg = colorass(colors.red, colors.white),
   }
 local block_square = {
     {
       { 1, 1, 0, 0 },
       { 1, 1, 0, 0 },
       { 0, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "[]"),
     fg = colorass(colors.lightBlue, colors.black),
     bg = colorass(colors.blue, colors.white),
   }
 local block_L1 = {
     {
       { 1, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 1, 1, 1, 0 },
       { 1, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 1, 1, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 1, 0 },
       { 1, 1, 1, 0 },
       { 0, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "()"),
     fg = colorass(colors.orange, colors.black),
     bg = colorass(colors.yellow, colors.white),
   }
 local block_L2 = {
     {
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 1, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 1, 1, 1, 0 },
       { 0, 0, 1, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 1, 1, 0 },
       { 0, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 1, 0, 0, 0 },
       { 1, 1, 1, 0 },
       { 0, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "()"),
     fg = colorass(colors.brown, colors.black),
     bg = colorass(colors.orange, colors.white),
   }
 local block_T = {
     {
       { 0, 1, 0, 0 },
       { 1, 1, 0, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 0, 0, 0 },
       { 1, 1, 1, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 1, 0, 0 },
       { 0, 1, 1, 0 },
       { 0, 1, 0, 0 },
       { 0, 0, 0, 0 },
     },
     {
       { 0, 1, 0, 0 },
       { 1, 1, 1, 0 },
       { 0, 0, 0, 0 },
       { 0, 0, 0, 0 },
     },
     ch = colorass("  ", "<>"),
     fg = colorass(colors.cyan, colors.black),
     bg = colorass(colors.purple, colors.white),
   }
 
 local blocks = { block_line, block_square, block_s1, block_s2, block_L1, block_L2, block_T }
 
 local points = { 4, 10, 30, 120 }
 
 local function lpad(text, amt)
   text = tostring(text)
   return string.rep(" ", amt - #text) .. text
 end
 
 local width, height = term.getSize()
 
 if height < 19 or width < 26 then
   print("Your screen is too small to play :(")
   return
 end
 
 
 local speedsByLevel = {
   1.2,
   1.0,
    .8,
    .65,
    .5,
    .4,
    .3,
    .25,
    .2,
    .15,
    .1,
    .05, }
 
 local level = 1
 
 local function playGame()
   local score = 0
   local lines = 0
   local initialLevel = level
   local next = blocks[math.random(1, #blocks)]
 
   local pit = {}
 
 
   local heightAdjust = 0
 
   if height <= 19 then
     heightAdjust = 1
   end
 
 
 
   local function drawScreen()
     term.setTextColor(colors.white)
     term.setBackgroundColor(colors.black)
     term.clear()
 
     term.setTextColor(colors.black)
     term.setBackgroundColor(colorass(colors.lightGray, colors.white))
     term.setCursorPos(22, 2)
     term.write("Score") --score
     term.setCursorPos(22, 5)
     term.write("Level")  --level
     term.setCursorPos(22, 8)
     term.write("Lines")  --lines
     term.setCursorPos(22, 12)
     term.write("Next") --next
 
     term.setCursorPos(21, 1)
     term.write("      ")
     term.setCursorPos(21, 2)
     term.write(" ") --score
     term.setCursorPos(21, 3)
     term.write(" ")
     term.setCursorPos(21, 4)
     term.write("      ")
     term.setCursorPos(21, 5)
     term.write(" ")  --level
     term.setCursorPos(21, 6)
     term.write(" ")
     term.setCursorPos(21, 7)
     term.write("      ")
     term.setCursorPos(21, 8)
     term.write(" ")  --lines
     term.setCursorPos(21, 9)
     term.write(" ")
     term.setCursorPos(21, 10)
     term.write("      ")
     term.setCursorPos(21, 11)
     term.write("      ")
     term.setCursorPos(21, 12)
     term.write(" ") --next
     term.setCursorPos(26, 12)
     term.write(" ") --next
     term.setCursorPos(21, 13)
     term.write("      ")
     term.setCursorPos(21, 14)
     term.write(" ")
     term.setCursorPos(21, 15)
     term.write(" ")
     term.setCursorPos(21, 16)
     term.write(" ")
     term.setCursorPos(21, 17)
     term.write(" ")
     term.setCursorPos(21, 18)
     term.write(" ")
     term.setCursorPos(21, 19)
     term.write("      ")
     term.setCursorPos(21, 20)
     term.write("      ")
   end
 
   local function updateNumbers()
     term.setTextColor(colors.white)
     term.setBackgroundColor(colors.black)
 
     term.setCursorPos(22, 3)
     term.write(lpad(score, 5)) --score
     term.setCursorPos(22, 6)
     term.write(lpad(level, 5))  --level
     term.setCursorPos(22, 9)
     term.write(lpad(lines, 5))  --lines
   end
 
   local function drawBlockAt(block, xp, yp, rot)
     term.setTextColor(block.fg)
     term.setBackgroundColor(block.bg)
     for y = 1, 4 do
       for x = 1, 4 do
         if block[rot][y][x] == 1 then
           term.setCursorPos((xp + x) * 2 - 3, yp + y - 1 - heightAdjust)
           term.write(block.ch)
         end
       end
     end
   end
 
   local function eraseBlockAt(block, xp, yp, rot)
     term.setTextColor(colors.white)
     term.setBackgroundColor(colors.black)
     for y = 1, 4 do
       for x = 1, 4 do
         if block[rot][y][x] == 1 then
           term.setCursorPos((xp + x) * 2 - 3, yp + y - 1 - heightAdjust)
           term.write("  ")
         end
       end
     end
   end
 
   local function testBlockAt(block, xp, yp, rot)
     for y = 1, 4 do
       local ty = yp + y - 1
       for x = 1, 4 do
         local tx = xp + x - 1
         if block[rot][y][x] == 1 then
           if tx > 10 or tx < 1 or ty > 20 or pit[ty][tx] ~= 0 then
             return true
           end
         end
       end
     end
   end
 
   local function pitBlock(block, xp, yp, rot)
     for y = 1, 4 do
       for x = 1, 4 do
         if block[rot][y][x] == 1 then
           pit[yp + y - 1][xp + x - 1] = block
         end
       end
     end
   end
 
 
   local function clearPit()
     for row = 1, 20 do
       pit[row] = {}
       for col = 1, 10 do
         pit[row][col] = 0
       end
     end
   end
 
 
 
   drawScreen()
   updateNumbers()
 
   --declare & init the pit
   clearPit()
 
 
 
   local halt = false
   local dropSpeed = speedsByLevel[math.min(level, 12)]
 
 
   local curBlock = next
   next = blocks[math.random(1, 7)]
 
   local curX, curY, curRot = 4, 1, 1
   local dropTimer = os.startTimer(dropSpeed)
 
   drawBlockAt(next, 11.5, 15 + heightAdjust, 1)
   drawBlockAt(curBlock, curX, curY, curRot)
 
   local function redrawPit()
     for r = 1 + heightAdjust, 20 do
       term.setCursorPos(1, r - heightAdjust)
       for c = 1, 10 do
         if pit[r][c] == 0 then
           term.setTextColor(colors.black)
           term.setBackgroundColor(colors.black)
           term.write("  ")
         else
           term.setTextColor(pit[r][c].fg)
           term.setBackgroundColor(pit[r][c].bg)
           term.write(pit[r][c].ch)
         end
       end
     end
   end
 
   local function hidePit()
     for r = 1 + heightAdjust, 20 do
       term.setCursorPos(1, r - heightAdjust)
       term.setTextColor(colors.black)
       term.setBackgroundColor(colors.black)
       term.write("                    ")
     end
   end
 
   local function msgBox(message)
     local x = math.floor((17 - #message) / 2)
     term.setBackgroundColor(colorass(colors.lightGray, colors.white))
     term.setTextColor(colors.black)
     term.setCursorPos(x, 9)
     term.write("+" .. string.rep("-", #message + 2) .. "+")
     term.setCursorPos(x, 10)
     term.write("|")
     term.setCursorPos(x + #message + 3, 10)
     term.write("|")
     term.setCursorPos(x, 11)
     term.write("+" .. string.rep("-", #message + 2) .. "+")
     term.setTextColor(colors.white)
     term.setBackgroundColor(colors.black)
     term.setCursorPos(x + 1, 10)
     term.write(" " .. message .. " ")
   end
 
   local function clearRows()
     local rows = {}
     for r = 1, 20 do
       local count = 0
       for c = 1, 10 do
         if pit[r][c] ~= 0 then
           count = count + 1
         else
           break
         end
       end
       if count == 10 then
         rows[#rows + 1] = r
       end
     end
 
     if #rows > 0 then
       for _ = 1, 4 do
         sleep(.1)
         for r = 1, #rows do
           r = rows[r]
           term.setCursorPos(1, r - heightAdjust)
           for c = 1, 10 do
             term.setTextColor(pit[r][c].bg)
             term.setBackgroundColor(pit[r][c].fg)
             term.write(pit[r][c].ch)
           end
         end
         sleep(.1)
         for r = 1, #rows do
           r = rows[r]
           term.setCursorPos(1, r - heightAdjust)
           for c = 1, 10 do
             term.setTextColor(pit[r][c].fg)
             term.setBackgroundColor(pit[r][c].bg)
             term.write(pit[r][c].ch)
           end
         end
       end
       --now remove the rows and drop everything else
       term.setBackgroundColor(colors.black)
       for r = 1, #rows do
         r = rows[r]
         term.setCursorPos(1, r - heightAdjust)
         term.write("                    ")
       end
       sleep(.25)
       for r = 1, #rows do
         table.remove(pit, rows[r])
         table.insert(pit, 1, { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 })
       end
       redrawPit()
       lines = lines + #rows
       score = score + points[#rows] * math.min(level, 20)
       level = math.floor(lines / 10) + initialLevel
       dropSpeed = speedsByLevel[math.min(level, 12)]
       updateNumbers()
     end
     sleep(.25)
   end
 
   local function blockFall()
     if testBlockAt(curBlock, curX, curY + 1, curRot) then
       pitBlock(curBlock, curX, curY, curRot)
       --detect rows that clear
       clearRows()
 
       curBlock = next
       curX = 4
       curY = 1
       curRot = 1
       if testBlockAt(curBlock, curX, curY, curRot) then
         halt = true
       end
       drawBlockAt(curBlock, curX, curY, curRot)
       eraseBlockAt(next, 11.5, 15 + heightAdjust, 1)
       next = blocks[math.random(1, 7)]
       drawBlockAt(next, 11.5, 15 + heightAdjust, 1)
       return true
     else
       eraseBlockAt(curBlock, curX, curY, curRot)
       curY = curY + 1
       drawBlockAt(curBlock, curX, curY, curRot)
       return false
     end
   end
 
 
   while not halt do
     local e = { os.pullEvent() }
     if e[1] == "timer" then
       if e[2] == dropTimer then
         blockFall()
         dropTimer = os.startTimer(dropSpeed)
       end
     elseif e[1] == "key" then
       local key = e[2]
       local dx, dy, dr = 0, 0, 0
       if key == keys.left or key == keys.a then
         dx = -1
       elseif key == keys.right or key == keys.d then
         dx = 1
       elseif key == keys.up or key == keys.w then
         dr = 1
       elseif key == keys.down or key == keys.s then
         while not blockFall() do end
         dropTimer = os.startTimer(dropSpeed)
       elseif key == keys.space then
         hidePit()
         msgBox("Paused")
         while ({ os.pullEvent("key") })[2] ~= keys.space do end
         redrawPit()
         drawBlockAt(curBlock, curX, curY, curRot)
         dropTimer = os.startTimer(dropSpeed)
       end
       if dx + dr ~= 0 then
         if not testBlockAt(curBlock, curX + dx, curY + dy, dr > 0 and curRot % #curBlock + dr or curRot) then
           eraseBlockAt(curBlock, curX, curY, curRot)
           curX = curX + dx
           curY = curY + dy
           curRot = dr == 0 and curRot or curRot % #curBlock + dr
           drawBlockAt(curBlock, curX, curY, curRot)
         end
       end
     elseif e[1] == "term_resize" then
       local _, h = term.getSize()
       if h == 20 then
         heightAdjust = 0
       else
         heightAdjust = 1
       end
       redrawPit()
       drawBlockAt(curBlock, curX, curY, curRot)
     end
   end
 
   msgBox("Game Over!")
   while true do
     local _, k = os.pullEvent("key")
     if k == keys.space or k == keys.enter or k == keys.numPadEnter then
       break
     end
   end
 
   level = math.min(level, 9)
 end
 
 
 local selected = 1
 local playersDetected = false
 
 local function drawMenu()
   term.setBackgroundColor(colors.black)
   term.setTextColor(colorass(colors.red, colors.white))
   term.clear()
 
   local cx, cy = math.floor(width / 2), math.floor(height / 2)
 
   term.setCursorPos(cx - 6, cy - 2)
   term.write("F A L L I N G")
 
   if playersDetected then
     if selected == 0 then
       term.setTextColor(colorass(colors.blue, colors.black))
       term.setBackgroundColor(colorass(colors.gray, colors.white))
     else
       term.setTextColor(colorass(colors.lightBlue, colors.white))
       term.setBackgroundColor(colors.black)
     end
     term.setCursorPos(cx - 12, cy)
     term.write(" Play head-to-head game! ")
   end
 
   term.setCursorPos(cx - 10, cy + 1)
   if selected == 1 then
     term.setTextColor(colorass(colors.blue, colors.black))
     term.setBackgroundColor(colorass(colors.lightGray, colors.white))
   else
     term.setTextColor(colorass(colors.lightBlue, colors.white))
     term.setBackgroundColor(colors.black)
   end
   term.write(" Play from level: <" .. level .. "> ")
 
   term.setCursorPos(cx - 3, cy + 3)
   if selected == 2 then
     term.setTextColor(colorass(colors.blue, colors.black))
     term.setBackgroundColor(colorass(colors.lightGray, colors.white))
   else
     term.setTextColor(colorass(colors.lightBlue, colors.white))
     term.setBackgroundColor(colors.black)
   end
   term.write(" Quit ")
 end
 
 
 local function runMenu()
   drawMenu()
 
   while true do
     local event = { os.pullEvent() }
     if event[1] == "key" then
       local key = event[2]
       if key == keys.right or key == keys.d and selected == 1 then
         level = math.min(level + 1, 9)
         drawMenu()
       elseif key == keys.left or key == keys.a and selected == 1 then
         level = math.max(level - 1, 1)
         drawMenu()
       elseif key >= keys.one and key <= keys.nine and selected == 1 then
         level = key - keys.one + 1
         drawMenu()
       elseif key == keys.up or key == keys.w then
         selected = selected - 1
         if selected == 0 then
           selected = 2
         end
         drawMenu()
       elseif key == keys.down or key == keys.s then
         selected = selected % 2 + 1
         drawMenu()
       elseif key == keys.enter or key == keys.numPadEnter or key == keys.space then
         break --begin play!
       end
     end
   end
 end
 
 while true do
   runMenu()
   if selected == 2 then
     break
   end
 
   playGame()
 end
 
 
 term.setTextColor(colors.white)
 term.setBackgroundColor(colors.black)
 term.clear()
 term.setCursorPos(1, 1)