View difference between Paste ID: jNycudqz and Yg8sZceZ

--- FILE MANAGER (C) lego11 2020 - An ATARI GEM Product
+-- CLAYMORE FILE MANAGER (C) lego11 2020 - An ATARI GEM Product
-local basedir = "/data"
+basedir = "/data"
 local register = {}
 
 function clear()
     term.clear()
     term.setCursorPos(1, 1)
 end
-function colore(colore)
+
-    term.setTextColor(colore)
+function colore(colore) term.setTextColor(colore) end
 function sfondo(colore) term.setBackgroundColor(colore) end
-function sfondo(colore)
+
-    term.setBackgroundColor(colore)
+local function drawPixelInternal(xPos, yPos)
     term.setCursorPos(xPos, yPos)
     term.write(" ")
 end
 
 local tColourLookup = {}
 for n = 1,16 do
     tColourLookup[string.byte("0123456789abcdef", n, n)] = 2^(n-1)
-    if dir ~= "/" then
+
 
 function drawFilledBox(startX, startY, endX, endY, nColour)
     if type(startX) ~= "number" or type(startX) ~= "number" or type(endX) ~=
         "number" or type(endY) ~= "number" or
         (nColour ~= nil and type(nColour) ~= "number") then
-
+        error("Expected startX, startY, endX, endY, colour", 2)
     end
-    for key, value in ipairs(tab_f) do
+
-        if fs.isDir(value) == true then
+    startX = math.floor(startX)
     startY = math.floor(startY)
-            sfondo(colors.yellow)
+    endX = math.floor(endX)
-            colore(colors.green)
+    endY = math.floor(endY)
 
     if nColour then term.setBackgroundColor(nColour) end
     if startX == endX and startY == endY then
-            sfondo(colors.black)
+        drawPixelInternal(startX, startY)
         return
     end
-            sfondo(colors.yellow)
+
-            colore(colors.blue)
+    local minX = math.min(startX, endX)
     if minX == startX then
         minY = startY
         maxX = endX
-            sfondo(colors.black)
+        maxY = endY
     else
-        if y > 10 then
+        minY = endY
-            x = 13
+        maxX = startX
-            y = 3
+        maxY = startY
     end
 
     for x = minX, maxX do for y = minY, maxY do drawPixelInternal(x, y) end end
-clear()
+
-sfondo(colors.gray)
+
-colore(colors.white)
+e_livsup = false
-print("Menu               FILE MANAGER                Esci")
+
-lista_dir("/data/")
+
-term.setCursorPos(20, 20)
+    e_livsup = false
     sfondo(colors.lightGray)
     clear()
     sfondo(colors.gray)
     colore(colors.white)
     print("                                                    ")
     term.setCursorPos(1, 1)
     term.write(dir .. " - Claymore")
     term.setCursorPos(49, 1)
     sfondo(colors.lightBlue)
     term.write("?")
     term.setCursorPos(51, 1)
     sfondo(colors.red)
     term.write("X")
 
 
     local tab_f = fs.list(dir)
     sfondo(colors.black)
     local x = 2
     local y = 3
     if dir ~= basedir then
         e_livsup = true
         term.setCursorPos(x, y)
         sfondo(colors.yellow)
         colore(colors.red)
         term.write("Liv. sup.")
         x = x + 17
     end
     for key, value in pairs(tab_f) do
         for i=x, x+#value do
             register[tostring(i).." "..tostring(y)] = dir .. "/" .. value
         end
         if fs.isDir(dir .. "/" .. value .. "/") == true then
             term.setCursorPos(x, y)
             sfondo(colors.lime)
             colore(colors.black)
             x = x + 17
             term.write(value)
         else
             term.setCursorPos(x, y)
             sfondo(colors.lightBlue)
             colore(colors.black)
             x = x + 17
             term.write(value)
         end
         if x > 45 then
             x = 2
             y = y + 2
         end
     end
 end
 
 local dir = basedir
 local prevdir = basedir
 
 while true do
     lista_dir(dir)
     local event, par1, par2, par3 = os.pullEvent()
     if event == "mouse_click" then
       if par3 == 1 and par2 == 51 then
         sfondo(colors.black)
         colore(colors.white)
         clear()
         break
       elseif par3 == 1 and par2 == 49 then
         drawFilledBox(12, 5, 39, 15, colors.white)
         term.setCursorPos(12, 5)
         sfondo(colors.gray)
         colore(colors.white)
         term.write("A proposito di Claymore    ")
         sfondo(colors.red)
         term.setCursorPos(39, 5)
         term.write("X")
         colore(colors.black)
         sfondo(colors.white)
         term.setCursorPos(13, 7)
         term.write("Copyright (C) 2020 lego11")
         term.setCursorPos(13, 8)
         term.write("Sole Microsistemi S.p.A.")
         term.setCursorPos(13, 9)
         term.write("Tutti i diritti riservati")
         colore(colors.red)
         term.setCursorPos(13, 10)
         term.write("Alba gu bràth!")
         colore(colors.black)
         term.setCursorPos(13, 12)
         term.write("      [")
         term.setCursorPos(13, 13)
         term.write("@====[{::::::::::::::::::>")
         term.setCursorPos(13, 14)
         term.write("      [")
         while true do
             local event, par1, par2, par3 = os.pullEvent()
             if event == "key" and par1 == 28 then
                 break
             elseif event == "mouse_click" and par3 == 5 and par2 == 39 then
                 break
             end
         end
       elseif e_livsup == true and par3 == 3 and par2 < 17 and par2 > 2 then
         dir = string.match(dir, "^(.*)/")
       else
         if register[tostring(par2).." "..tostring(par3)] ~= nil then
           if fs.isDir(dir .. "/" .. register[tostring(par2).." "..tostring(par3)]) == true then
             print(dir .. "/" .. register[tostring(par2).." "..tostring(par3)])
             sleep(0.1)
             dir = register[tostring(par2).." "..tostring(par3)]
           end
         end
       end
     end
 end