ComputerCraft program for controlling mob spawners

os.loadAPI("button")
mon = peripheral.wrap("left")
mon.clear()

function createButtons()
  --Creates Buttons
  --Doors
  button.setTable("Door", openDoor, 2,17,2,4)
  --Lights
  button.setTable("Lights", lightsOn, 2,17,8,10)
  button.screen()
  lightsOn()
end

function getClick()
  --Wait for click
  event,side,x,y = os.pullEvent("monitor_touch")
  --Read click position
  button.checkxy(x,y)
end

function lightsOn()
  --Lights
  button.toggleButton("Lights")
  if redstone.getOutput("top") then
    redstone.setOutput("top", false)
  else
    redstone.setOutput("top", true)
  end
end

function openDoor()
  --Door
  button.toggleButton("Door")
  if redstone.getOutput("right") then
    redstone.setOutput("right", false)
  else
    redstone.setOutput("right", true)
  end
end

createButtons()

while true do
  getClick()
end