Angel's Checklist

os.loadAPI("monmon")
m = peripheral.wrap("left")
listA = {}

listA[1] = {"One",true}
listA[2] = {"Two",true}
listA[3] = {"Tree",false}
listA[4] = {"Four",true}
listA[5] = {"Five",true}
listA[6] = {"Six",false}
listA[7] = {"Seven",false}

--[[
Data type
data = [ {["Text"],[true]}, {["Text2"],[false]}]
list[1] = {"text",true}
list[2] = {"text2",false}
print(textutils.serialize(list))
--]]

function loadList()
 local file = fs.open("list.txt","r")
 local data = file.readAll()
 file.close()
 list = textutils.unserialize(data)
-- print(textutils.serialize(list))
end


function display()

 if fs.exists("list.txt") then
  print("List found, loading...")
  local file = fs.open("list.txt","r")
  local data = file.readAll()
  file.close()
  list = textutils.unserialize(data)
 else
  list = listA
 end

 monmon.loadImage("chl")

 term.clear()
 term.setCursorPos(1,1)
 print("AngelMalus CheckList")
 print("")
 m.setTextColor(colors.lime)
 m.setBackgroundColor(colors.black)

for i=1, 7 do
 if list[i][2] then res = "X" else res = " " end
 print("["..res .."] "..list[i][1])
 m.setCursorPos(3,i+4)
 m.write(res)
 m.setCursorPos(6,i+4)
 m.write(list[i][1])
end

 print("")
 print("* To modify left click on a line")
 print("* To check/uncheck right click on a line")
 print("* To remove, middle click")
 print("* To exit click this line")
end

function termClick(btn,x,y)

 if btn == 3 then
  if y >=3 and y<=9 then
   list[y-2] = {"",false}
   local file = fs.open("list.txt","w")
   file.write(textutils.serialize(list))
   file.close()
   display()
  end
 end

 if btn == 2 then
  if y >=3 and y<=9 then
   list[y-2][2] = not(list[y-2][2])
   local file = fs.open("list.txt","w")
   file.write(textutils.serialize(list))
   file.close()
   display()
  end
 end

 if btn == 1 then
  if y >=3 and y<=9 then
   list[y-2][1] = ""
   local file = fs.open("list.txt","w")
   file.write(textutils.serialize(list))
   file.close()
   display()
   term.setCursorPos(5,y)
   res = read()
   list[y-2][1] = res
   local file = fs.open("list.txt","w")
   file.write(textutils.serialize(list))
   file.close()
   display()
  end
 end
end

function monClick(x,y)
if y >= 5 and y<= 10 then
   list[y-4][2] = not(list[y-4][2])
   local file = fs.open("list.txt","w")
   file.write(textutils.serialize(list))
   file.close()
   display()
 end
end



while true do

 display()
 evt, v1,v2,v3 = os.pullEvent()

 if evt == "mouse_click" then
  if v3 == 14 then
   break
  else
   termClick(v1,v2,v3)
  end
 end
 if evt == "monitor_touch" then
  monClick(v2,v3)
 end

end