Elevator

local mon = peripheral.wrap("top")
local button={}
local send = peripheral.wrap("bottom")
mon.setTextScale(1)
mon.setTextColor(colors.white)
mon.setBackgroundColor(colors.black)

function setTable(name, func, xmin, xmax, ymin, ymax)
  button[name] = {}
  button[name]["func"] = func
  button[name]["active"] = false
  button[name]["xmin"] = xmin
  button[name]["ymin"] = ymin
  button[name]["xmax"] = xmax
  button[name]["ymax"] = ymax
end

function fillTable()
  setTable("Up",elevatorUp,1,7,1,5)
  setTable("Down",elevatorDown,1,7,8,12)
end

function fill(text, color, bData)
  mon.setBackgroundColor(color)
  local yspot = math.floor((bData["ymin"] + bData["ymax"]) /2)
  local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
  for j = bData["ymin"], bData["ymax"] do
    mon.setCursorPos(bData["xmin"], j)
    if j == yspot then
       for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) +1 do
         if k == xspot then
           mon.write(text)
         else
           mon.write(" ")
         end
       end
    else
      for i = bData["xmin"], bData["xmax"] do
        mon.write(" ")
      end
    end
  end
  mon.setBackgroundColor(colors.black)
end

function screen()
  local currColor
  for name,data in pairs(button) do
    local on = data["active"]
    if on == true then currColor = colors.lime else currColor = colors.red end
    fill(name, currColor, data)
  end
end

function toggleButton(name)
  button[name]["active"] = not button[name]["active"]
  screen()
end

function flash(name)
  toggleButton(name)
  sleep(0.15)
  toggleButton(name)
end

function checkxy(x, y)
  for name, data in pairs(button) do
    if y>=data["ymin"] and  y <= data["ymax"] then
      if x>=data["xmin"] and x<= data["xmax"] then
        data["func"]()
      end
    end
  end
end

function elevatorUp()
  flash("Up")
  send.setFreq(56)
  redstone.setOutput("bottom", true)
  sleep(0.1)
  redstone.setOutput("bottom", false)
end

function elevatorDown()
  flash("Down")
  send.setFreq(55)
  redstone.setOutput("bottom", true)
  sleep(0.1)
  redstone.setOutput("bottom", false)
end

fillTable()
while true do
  mon.clear()
  screen(colors.red)
  local e,side,x,y = os.pullEvent("monitor_touch")
  checkxy(x,y)
  sleep(0.1)
end