MonitorLayoutEditor

version = 1.1

--[[
 by AngelMalus
 youtube.com/angelmalusplays
 MAR 14 7AM
--]]

-- Set global variables
 tw, th = term.getSize()
 monSide = nil
 startX = nil
 startY = nil
 mW = nil
 mH = nil
 m = nil
 tScale = 1
 fC = colors.white
 bC = colors.black
 terminate = false
 mode = "Single"

img={}


function message(mes)
 term.setBackgroundColor(colors.red)
 term.setCursorPos(1,th)
 term.clearLine()
 term.write(mes)
end

function monAni()
 for i=mH,1,-1 do
  m.setBackgroundColor(colors.white)
  m.setCursorPos(1,i)
  m.clearLine()
  sleep(0.1)
 end
 for i=mH,1,-1 do
  m.setBackgroundColor(colors.black)
  m.setCursorPos(1,i)
  m.clearLine()
  sleep(0.1)
 end
end

function imgReset()
 mW, mH = m.getSize()
 img = nil
 img = {}
 message("Set size data")
 img[1]={ tostring(mW),tostring(mH),monSide,tScale}
 message("Set background data")

 img[2]={}
 img[3]={}
 img[4]={}
 fC = colors.white
 bC = colors.black
 message("Writing bg data")
 --Set black background data
  for i=1,mW*mH do
   img[2][i] = "F"
  end
 --Set white text color data
  for i=1,mW*mH do
   img[3][i] = "0"
  end
 --Clear ascii data
  for i=1,mW*mH do
   img[4][i] = " "
  end
end

function setMon()
 message("Right-Click monitor to select")
 evt, monSide, xCli, yCli = os.pullEvent("monitor_touch")
 message("Monitor selected: "..monSide)
 m = peripheral.wrap(monSide)
 m.setTextScale(tScale)

 imgReset()

 monAni()
end

function downloadApi(CODE,FILE)
resp = http.get("http://pastebin.com/raw.php?i="..CODE)
  if resp then
    handler=io.open(FILE,"w")
    handler:write(resp.readAll())
    handler:close()
    return true -- It worked
  else
    return fasle -- It failed
  end
end



-- Print Splash Screen
function splashScreen(secs)
 e=1
 term.setBackgroundColor(colors.blue)
 term.clear()
 msg = "Monitor screen editor by AngelMalus"
 term.setCursorPos(tw/2-string.len(msg)/2,th/2+e)
 print(msg)
 msg = "Version "..tostring(version)
 term.setCursorPos(tw/2-string.len(msg)/2,th/2+1+e)
 print(msg)


 message("Checking for API..")
 sleep(0.5)
 if not fs.exists("monmon") then
   message("API does not exist, atempting download...")
   sleep(0.5)
   if downloadApi("eJ4piAXL","monmon") then
    message("API Downloaded...")
   sleep(0.5)
   else
    message("Error: Couldn't download API")
    sleep(3)
   end
 else
    message("API found!")
    sleep(0.5)
    message("Loading program...")
 end

 sleep(secs)
 term.clear()
end


function printImg(startX,startY,imgD)
 pX = startX
 pY = startY

 for i=1, tonumber(imgD[1][1])*tonumber(imgD[1][2]) do

  m.setBackgroundColor(math.pow(2,tonumber("0X"..imgD[2][i])))
  m.setTextColor(math.pow(2,tonumber("0X"..imgD[3][i])))
  m.setCursorPos(pX-startX+1,pY-startY+1)
  m.write(imgD[4][i])


  term.setBackgroundColor(math.pow(2,tonumber("0X"..imgD[2][i])))
  term.setTextColor(math.pow(2,tonumber("0X"..imgD[3][i])))
  term.setCursorPos(pX,pY)
  term.write(imgD[4][i])

  pX=pX+1
  if i%imgD[1][1] == 0 then
   pY=pY+1
   pX=startX
  end
 end
end

function display()
  local tgui = {
  --"123456789012345678901234567890123456789012345678901"
    " Monitor Screen Editor                       [Menu]",
    "",
    "",
    " Monitor   :   ",
    " M. Width  :",
    " M. Height :",
    " F Color   :",
    " B Color   :",
    " Text Size :",
    "          [-][+]",
    "",
    " F Colors ",
    "",
    "",
    " B Colors ",
    "",
    "",
    " Mode: ",
    }

  term.setBackgroundColor(colors.blue)
  term.clear()
  term.setCursorPos(1,1)

  term.setBackgroundColor(colors.red)
  term.clearLine()
  print(tgui[1])
  term.setBackgroundColor(colors.blue)

  term.setTextColor(colors.white)
  for i=2, #tgui do
    term.clearLine()
    print(tgui[i])
  end

    --Print mode
    term.setCursorPos(16-string.len(mode),18)
    term.write("["..mode.."]")


  if monSide ~= nil then
   term.setCursorPos(14,4)
   term.write(monSide)
   term.setCursorPos(14,5)
   term.write(math.floor(mW))
   term.setCursorPos(14,6)
   term.write(math.floor(mH))
  end
  --Print F Color Sample
   term.setBackgroundColor(fC)
   term.setCursorPos(14,7)
   term.write("   ")
  --Print B Color Sample
   term.setBackgroundColor(bC)
   term.setCursorPos(14,8)
   term.write("   ")
  --Print TextScale
   term.setBackgroundColor(colors.blue)
   term.setCursorPos(14,9)
   term.write(tScale)
  --Print F Color Selector
    term.setCursorPos(2,13)
    j=1
    for i=1,16 do
     term.setBackgroundColor(j)
     term.write(" ")
     j=j*2
    end
  --Print B Color Selector
    term.setCursorPos(2,16)
    j=1
    for i=1,16 do
     term.setBackgroundColor(j)
     term.write(" ")
     j=j*2
    end

  --Print Vertical Separation Line
    for i=2,tw-1 do
     term.setBackgroundColor(colors.white)
     term.setCursorPos(20,i)
     term.write(" ")
    end
  --Print bottom Status bar area
    term.setBackgroundColor(colors.red)
    term.setCursorPos(1,th)
    term.clearLine()

 --Center the screen area on the editor
 --Gets value for startX and startY
 if mW ~= nil then
  areaW = tw-20
  startX = math.ceil(areaW/2 - mW/2) + 20

  areaH = th - 2
  startY = math.ceil(areaH/2 - mH/2) + 2

  if img ~= nil then
   printImg(startX,startY,img)
  end

 end
end

function printMenu()
 term.setBackgroundColor(colors.red)
 term.setCursorPos(tw-10,2)
 term.write(" Mon Sel  ")
 term.setCursorPos(tw-10,3)
 term.write(" Open...  ")
 term.setCursorPos(tw-10,4)
 term.write(" Save...  ")
 term.setCursorPos(tw-10,5)
 term.write("----------")
 term.setCursorPos(tw-10,6)
 term.write(" Exit     ")
end

function tSizeUp()
 tScale = tScale+0.5
 if tScale > 5 then tScale = 5 end
 m.setTextScale(tScale)
 mW, mH = m.getSize()
 imgReset()
end

function tSizeDn()
 tScale = tScale-0.5
 if tScale < 0.5 then tScale = 0.5 end
 m.setTextScale(tScale)
 mW, mH = m.getSize()
 imgReset()
end

function c2x(color)
 for i=0,15 do
  if math.pow(2,i)==color then
   return string.format("%X",i)
  end
 end
end

function getTxt(len)
local breaking = false
local fileName = ""
local curX,curY = term.getCursorPos()
 term.setCursorBlink(true)

while not breaking do
 evt, p1,p2,p3 = os.pullEvent()
 if evt == "char" then
  fileName = fileName..p1
  term.setCursorPos(curX,curY)
  term.write(fileName)
 end
 if evt == "key" then
  if p1 == 14 then
  term.setCursorPos(curX,curY)
  for i=1,string.len(fileName) do
   term.write(" ")
  end
  fileName = string.sub(fileName,1,string.len(fileName)-1)
  term.setCursorPos(curX,curY)
  term.write(fileName)
  end
  if p1 == 28 then
   breaking = true
  end
 end
 if evt == "mouse_click" then
  if p2 >= 18 and p2 <= 21 and p3 == 11 then
   breaking = true
  end
  if p2 >= 27 and p2 <= 32 and p3 == 11 then
   fileName = ""
   breaking = true
  end
 end
end
 term.setCursorBlink(false)
 return fileName
end

function saveFileAs(name)
 local file = fs.open(name,"w")
 file.write(textutils.serialize(img))
 file.close()
end

function saveFile()
if img[1] ~= nil then
  sFileWindow = {
  " Save as:            ",
  "                     ",
  "                     ",
  "                     ",
  "  [Save]   [Cancel]  ",
  "                     "
  }
   display()
   term.setBackgroundColor(colors.red)
   for i=1,#sFileWindow do
    if i>1 then term.setBackgroundColor(colors.cyan) end
    term.setCursorPos(tw/2-10,th/2-3+i)
    term.write(sFileWindow[i])
   end
   message("Type filename and press Enter")
   term.setCursorPos(tw/2-9,th/2)
   term.setBackgroundColor(colors.black)
   term.write("                   ")
   term.setCursorPos(tw/2-9,th/2)
   fname = ""
   fname = getTxt()
   if fname ~= "" then

    saveFileAs(fname)

    message("File saved as "..fname)
    sleep(2)
   end

else
  alertWindow = {
  " Alert               ",
  "                     ",
  "  No image data      ",
  "                     "
  }
  display()
   term.setBackgroundColor(colors.red)
   for i=1,#alertWindow do
    if i>1 then term.setBackgroundColor(colors.cyan) end
    term.setCursorPos(tw/2-10,th/2-3+i)
    term.write(alertWindow[i])
   end
   sleep(2)
end
end

function loadImageFromFile(name)
 local file = fs.open(name,"r")
 local data = file.readAll()
 file.close()
 img = textutils.unserialize(data)

 monSide = img[1][3]
 tScale = img[1][4]

 m = peripheral.wrap(monSide)
 m.setTextScale(tScale)
 mW, mH = m.getSize()

 display()
end


function openFile()
   oFileWindow = {
  " Open:            ",
  "                     ",
  "                     ",
  "                     ",
  "  [Open]   [Cancel]  ",
  "                     "
  }
   display()
   term.setBackgroundColor(colors.red)
   for i=1,#oFileWindow do
    if i>1 then term.setBackgroundColor(colors.cyan) end
    term.setCursorPos(tw/2-10,th/2-3+i)
    term.write(oFileWindow[i])
   end
   message("Type filename and press Enter")
   term.setCursorPos(tw/2-9,th/2)
   term.setBackgroundColor(colors.black)
   term.write("                   ")
   term.setCursorPos(tw/2-9,th/2)
   fname = ""
   fname = getTxt()
   if fname ~= "" then
    if fs.exists(fname) then
     loadImageFromFile(fname)
     message("Image loaded from"..fname)
     sleep(2)
    else
     message("File "..fname.." not found!")
     sleep(2)
    end

   end

end

function clicked(btn, pox, poy)
 --Terminal Left Click
 if btn == 1 then
  if pox>=47 and pox<=50 and poy == 1 then
    printMenu()
    message("Select menu item")
    evt2, btn2, posX2, posY2 = os.pullEvent("mouse_click")

    --SetMon
    if (posX2>=42) and (posX2<=49) and (posY2==2) then
     display()
     setMon()
    end

    -- Open
    if posX2>=42 and posX2<=49 and posY2 == 3 then
    openFile()
    end

    -- Save
    if posX2>=42 and posX2<=49 and posY2 == 4 then
    saveFile()
    end
    if posX2>=42 and posX2<=49 and posY2 == 6 then
     terminate = true
    end

  end


  if pox==12 and poy == 10 and monSide~= nil then
   tSizeDn()
   display()
   monAni()
  end

  if pox==15 and poy == 10 and monSide ~= nil then
   tSizeUp()
   display()
   monAni()
  end

  if pox>=2 and pox<=17 and poy == 13 then
 --change F Color
     j=1
    if pox>2 then
     for i=3,pox do
     j=j*2
     end
    end
    fC=j
    display()
  end

  if pox>=2 and pox<=17 and poy == 16 then
 --Change B Color
     j=1
    if pox>2 then
     for i=3,pox do
     j=j*2
     end
    end
    bC=j
    display()
  end

  if pox>=2 and pox<=17 and poy == 16 then

  end



  if startX ~= nil then
  if pox>=startX and pox<=startX+mW then
   if poy>=startY and poy<=startY+mH then

    message("Press a key (space for clear)")

    term.setCursorPos(pox,poy)
    editMode = true

      dataY = poy-startY+1
      dataX = pox-startX+1
      dataPos = mW*(dataY-1)+dataX


   while editMode do

      evto, cha,p1,p2 = os.pullEventRaw()

     if evto == "char" then
      img[2][dataPos] = c2x(bC)
      img[3][dataPos] = c2x(fC)
      img[4][dataPos] = cha
      dataPos = dataPos+1
     end

     if evto == "key" and cha == 28 then
      editMode = false
     end

     if evto == "mouse_click" and cha == 1 then

       if p1>=startX and p1<=startX+mW then
       if p2>=startY and p2<=startY+mH then
        pox = p1
        poy = p2
        dataY = poy-startY+1
        dataX = pox-startX+1
        dataPos = mW*(dataY-1)+dataX
        else
        editMode = false

       end
        else
        editMode = false
       end

     end


     display()
     message("Text Edit Mode")

     if dataPos > mW*mH then
      editMode = false
     end

    end

    term.setCursorBlink(false)


   end
  end
  end



 end
 --Terminal Right Click
 if btn == 2 then
   if startX ~= nil then
    if pox>=startX and pox<=startX+mW then
      if poy>=startY and poy<=startY+mH then

       dataY = poy-startY+1
       dataX = pox-startX+1

       mess ="Coords: "..tostring(dataX).." "..tostring(dataY)
       mess = mess.." : "..tostring(mW*(dataY-1)+dataX)
       message(mess)

       img[2][mW*(dataY-1)+dataX] = c2x(bC)
       img[3][mW*(dataY-1)+dataX] = c2x(fC)
--       img[4][mW*(dataY-1)+dataX] = " "

     end
   end
  end

 end
 --Touchscreen click
 if btn == 5 and mW ~= nil then
       mess ="Coords: "..tostring(pox).." "..tostring(poy)
       location = mW*(poy-1)+pox
       mess = mess.." : "..tostring(location)
       message(mess)
       img[2][location] = c2x(bC)
       img[3][location] = c2x(fC)
 end

end


function main()

  splashScreen(2)


  display()

  while not terminate do
   evt, btn, posX, posY = os.pullEvent()
   if evt == "mouse_click" then
    clicked(btn,posX,posY)
    display()
   end

   if evt == "mouse_drag" then
    clicked(btn,posX,posY)
    display()
   end


   if evt == "monitor_touch" then
    clicked(5,posX,posY)
    display()
   end



  end

 --Reset Screen to default (cleaning after program)
  term.setBackgroundColor(colors.black)
  term.setTextColor(colors.white)
  term.setCursorPos(1,1)

  term.clear()
end



main()