mobcontrol

local mon = peripheral.wrap("top")
        mon.setTextScale(1)
        local button={}
        function setTable(name, func, xmin, xmax, ymin, ymax, freq)
           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
           button[name]["freq"] = freq
           end

        function funcName()
           print("You clicked buttonText")
        end


        function fillTable()
           setTable("Blaze", funcName, 2, 12, 4, 6, colors.lightBlue)
           setTable("Skeleton", funcName, 2, 12, 8, 10, colors.red)
           setTable("Pigmen", funcName, 2, 12, 12, 14, colors.orange)
           setTable("Zombie", funcName, 2, 12, 16, 18, colors.blue)
           setTable("Wither", funcName, 16, 25, 4, 6, colors.brown)
           setTable("Creeper", funcName, 16, 25, 8, 10, colors.magenta)
           setTable("Witch", funcName, 16, 25, 12, 14, colors.white)
           setTable("Cow", funcName, 16, 25, 16, 18, colors.green)
           setTable("Blizz", funcName, 29, 38, 4, 6, colors.cyan)
           setTable("Endermen", funcName, 29, 38, 8, 10, colors.yellow)
         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 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"]()
                    data["active"] = not data["active"]
                    print(name)
                 end
              end
           end
        end

    function setWire()
       local wire = 0
       for name, data in pairs(button) do
          if data["active"] == false then
             wire = colors.combine(wire, data["freq"])
          end
       end
       redstone.setBundledOutput("bottom", wire)
    end

        function heading(text)
           w, h = mon.getSize()
           mon.setCursorPos((w-string.len(text))/2+1, 1)
           mon.write(text)
        end

        fillTable()
            setWire()
        while true do
           mon.clear()
           heading("Mob Farm Control")
           screen()
           local e,side,x,y = os.pullEvent("monitor_touch")
           print(x..":"..y)
           checkxy(x,y)
               setWire()
           sleep(.1)
        end