GUI

-- Piero Marini
-- Started 5/20/13
-- FTB Direwolf20 Pack

local rsSide = "back"
local monitorSide = "top"

function testForMonitor(_side)
  if peripheral.getType(_side) then
    if peripheral.getType(_side) == "monitor" then
      return true
    else
      return false
    end
  else
    return false
  end
end

Args = { ... }

if #Args < 1 then
  print("Usage: "..fs.getName(shell.getRunningProgram()).." <monitor side> [cable side]")
  return

elseif #Args > 1 then
  monitorSide = Args[1]
  rsSide = Args[2]
  if not testForMonitor(monitorSide) then
    print("There is no valid monitor on that side.")
    return
  end
elseif #Args == 1 then

  monitorSide = Args[1]
  if not testForMonitor(monitorSide) then
    print("There is no valid monitor on that side.")
    return
  end

else
  print("Error!!!")
  return
end

--End of Error Display for arguments missing.


function toggle(n)
  if not n then
    return
  end

  local state = button[n].state

  if state then
    state = false
  else
    state = true
  end

  button[n].state = state
  return state
end

function sayState(n)
  if not n then
    return
  end
  x = button[n].x - 1
  y = button[n].y
  term.setCursorPos(x,y)
  if button[n].state then
    term.setTextColor(colors.lime)
    write("on ")
    term.setTextColor(colors.white)
  else
    term.setTextColor(colors.red)
    write("off")
    term.setTextColor(colors.white)
  end
end
--Function to get hitbox for the right click.
function getButton(xPos,yPos)
  for i=1,12 do
    bxPos = button[i].x
    byPos = button[i].y
    xMax = bxPos + 2
    xMin = bxPos - 2
    yMax = byPos + 1
    yMin = byPos - 1
    if xPos >= xMin and xPos <= xMax and yPos >= yMin and yPos <= yMax then
      return i
    end
  end
end

function mPrint(w)
  write(w)
  x,y=term.getCursorPos()
  term.setCursorPos(1, y+1)
end

function allTheSame()
  local state = button[1].state
  for i = 2,10 do
    if state == button[i].state then
    else return false
    end
  end
  return true
end

function stateWriter()
  mPrint("  _____     _____     _____     _____")
  write("  ")
  for i = 1,4 do
    write("|")
    term.setTextColor(colors.red)
    write("off")
    term.setTextColor(colors.white)
    if i<4 then
      write("|     ")
    else
      mPrint("|")
    end
  end
  mPrint("  ~~~~~     ~~~~~     ~~~~~     ~~~~~")
end

function EventTypeWrite(_line,_time)
  term.setCursorPos(1,_line)
  write("  ")
  local additive = (_time - 1) * 4
  local currentx = 3
  for i = 1,4 do
    local buttonNumber = additive + i
    write(button[buttonNumber].textName)
    if i == 4 then

    else
      currentx = currentx + 10
      term.setCursorPos(currentx,_line)
    end
  end
  term.setCursorPos(1, _line + 1)
end


function startText()
  term.setCursorPos(1,1)
  mPrint("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
  mPrint("               Main Menu")
  mPrint(" Right Click to toggle named events")
  mPrint(" ")
  EventTypeWrite(5,1)
  stateWriter()
  mPrint(" ")
  EventTypeWrite(10,2)
  stateWriter()
  mPrint(" ")
  EventTypeWrite(15,3)
  stateWriter()
  mPrint("_______________________________________")
end

--Redstone related function, for later use.
function bundleState()
  running = 0
  for light = 1, 10 do
    if button[light].state == true then
      running = running + button[light].color
    end
  end
  return running
end

function refresh()
  redstone.setBundledOutput(rsSide, bundleState())
end
--End of Redstone functions.

display = peripheral.wrap(monitorSide)
term.redirect(display)
term.clear()
term.setCursorPos(1,1)

--Main Control Table.
button = {

  [1] = {x = 5; y = 7; state = false; color = colors.white; textName = "House ForceField"},
  [2] = {x = 15; y = 7; state = false; color = colors.orange; textName = "House Power"},
  [3] = {x = 25; y = 7; state = false; color = colors.magenta; textName = "Apiary Power"},
  [4] = {x = 35; y = 7; state = false; color = colors.lightBlue; textName = "Secret Chest"},

  [5] = {x = 5; y = 12; state = false; color = colors.yellow; textName = "Quarry"},
  [6] = {x = 15; y = 12; state = false; color = colors.lime; textName = "Oil Refinery"},
  [7] = {x = 25; y = 12; state = false; color = colors.pink; textName = "Mass Fabricator"},
  [8] = {x = 35; y = 12; state = false; color = colors.gray; textName = "Nuclear Reactor"},

  [9] = {x = 5; y = 17; state = false; color = colors.lightGray; textName = "Blaze Spawner"},
  [10] = {x = 15; y = 17; state = false; color = colors.cyan; textName = "WitherSkele Spawner"},
  [11] = {x = 25; y = 17; state = false; color = colors.purple; textName = "Toggle"},
  [12] = {x = 35; y = 17; state = false; color = colors.blue; textName = "Master Switch"}

}
--End Control Table

local resume = true
startText()
for i = 1,10 do
  sayState(i)
end
term.setCursorPos(button[12].x-1,button[12].y)
term.setTextColor(colors.red)
write("off")
term.setTextColor(colors.white)
term.setCursorPos(button[11].x-1,button[11].y)
term.setTextColor(colors.cyan)
write("TGL")
term.setTextColor(colors.white)
refresh()
while resume == true do
  local event, side, xPos, yPos = os.pullEvent("monitor_touch")
  local selectedButton = getButton(xPos,yPos)
  if selectedButton == 11 then
    for i = 1,10 do
      toggle(i)
    end
  elseif selectedButton == 12 then
    toggle(12)
    for i=1,10 do
      button[i].state = button[12].state
    end
    sayState(12)
    allSame=true
  else
    term.setCursorPos(button[12].x - 1, button[12].y)
    term.setTextColor(colors.lightGray)
    write("---")
    term.setTextColor(colors.white)
    toggle(selectedButton)
  end
  for i=1,10 do
    sayState(i)
  end
  if allTheSame() then
    button[12].state = button[1].state
    sayState(12)
  else
    term.setCursorPos(button[12].x - 1, button[12].y)
    term.setTextColor(colors.lightGray)
    write("---")
    term.setTextColor(colors.white)
  end
  refresh()
end