WWCS Server

--#load the touchpoint API
os.loadAPI("touchpoint")
os.sleep(1)

--# wrap the modem to the computer
local wlan = peripheral.wrap("bottom")

--# initialize the button instance set on the monitor
local t = touchpoint.new("right")

--# Add a new button
t:add("WWCS - Click To Enable/Disable", nil, 5, 1, 45, 1, colors.gray, colors.gray)
t:add("Shulker", nil, 5, 3, 17, 3, colors.red, colors.green)
t:add("Wither", nil, 19, 3, 31, 3, colors.red, colors.green)
t:add("FeralGhoul", nil, 33, 3, 45, 3, colors.red, colors.green)
t:add("Evoker", nil, 5, 5, 17, 5, colors.red, colors.green)
t:add("ZPigman", nil, 19, 5, 31, 5, colors.red, colors.green)
t:add("Ghast", nil, 33, 5, 45, 5, colors.red, colors.green)
t:add("Skeleton", nil, 5, 7, 17, 7, colors.red, colors.green)
t:add("ZMiner", nil, 19, 7, 31, 7, colors.red, colors.green)
t:add("Witch", nil, 33, 7, 45, 7, colors.red, colors.green)
t:add("Blizz", nil, 5, 9, 17, 9, colors.red, colors.green)
t:add("Slime", nil, 19, 9, 31, 9, colors.red, colors.green)
t:add("Cyberdemon", nil, 33, 9, 45, 9, colors.red, colors.green)
t:add("Spider", nil, 5, 11, 17, 11, colors.red, colors.green)
t:add("Enderman", nil, 19, 11, 31, 11, colors.red, colors.green)

--# draw the buttons
t:draw()

while true do
  --# handleEvents will convert monitor_touch events to button_click if it was on a button
  local event, p1 = t:handleEvents(os.pullEvent())
  if event == "button_click" then
        if p1 == "Shulker" then
        t:toggleButton(p1)
        if t.buttonList.Shulker.active then
               wlan.transmit(1,10,"WWCSON")
            else
               wlan.transmit(1,10,"WWCSOFF")
       end
        elseif p1 == "Wither" then
        t:toggleButton(p1)
        if t.buttonList.Wither.active then
               wlan.transmit(2,10,"WWCSON")
            else
               wlan.transmit(2,10,"WWCSOFF")
       end
        elseif p1 == "FeralGhoul" then
        t:toggleButton(p1)
        if t.buttonList.FeralGhoul.active then
               wlan.transmit(3,10,"WWCSON")
            else
               wlan.transmit(3,10,"WWCSOFF")
       end
        elseif p1 == "Evoker" then
        t:toggleButton(p1)
        if t.buttonList.Evoker.active then
               wlan.transmit(4,10,"WWCSON")
            else
               wlan.transmit(4,10,"WWCSOFF")
       end
        elseif p1 == "ZPigman" then
        t:toggleButton(p1)
        if t.buttonList.ZPigman.active then
               wlan.transmit(5,10,"WWCSON")
            else
               wlan.transmit(5,10,"WWCSOFF")
       end
        elseif p1 == "Ghast" then
        t:toggleButton(p1)
        if t.buttonList.Ghast.active then
               wlan.transmit(6,10,"WWCSON")
            else
               wlan.transmit(6,10,"WWCSOFF")
       end
        elseif p1 == "Skeleton" then
        t:toggleButton(p1)
        if t.buttonList.Skeleton.active then
               wlan.transmit(7,10,"WWCSON")
            else
               wlan.transmit(7,10,"WWCSOFF")
       end
        elseif p1 == "ZMiner" then
        t:toggleButton(p1)
        if t.buttonList.ZMiner.active then
               wlan.transmit(8,10,"WWCSON")
            else
               wlan.transmit(8,10,"WWCSOFF")
       end
        elseif p1 == "Witch" then
        t:toggleButton(p1)
        if t.buttonList.Witch.active then
               wlan.transmit(9,10,"WWCSON")
            else
               wlan.transmit(9,10,"WWCSOFF")
       end
        elseif p1 == "Blizz" then
        t:toggleButton(p1)
        if t.buttonList.Blizz.active then
               wlan.transmit(10,10,"WWCSON")
            else
               wlan.transmit(10,10,"WWCSOFF")
       end
        elseif p1 == "Slime" then
        t:toggleButton(p1)
        if t.buttonList.Slime.active then
               wlan.transmit(11,10,"WWCSON")
            else
               wlan.transmit(11,10,"WWCSOFF")
       end
        elseif p1 == "Cyberdemon" then
        t:toggleButton(p1)
        if t.buttonList.Cyberdemon.active then
               wlan.transmit(12,10,"WWCSON")
            else
               wlan.transmit(12,10,"WWCSOFF")
       end
        elseif p1 == "Spider" then
        t:toggleButton(p1)
        if t.buttonList.Spider.active then
               wlan.transmit(13,10,"WWCSON")
            else
               wlan.transmit(13,10,"WWCSOFF")
       end
        elseif p1 == "Enderman" then
        t:toggleButton(p1)
        if t.buttonList.Enderman.active then
               wlan.transmit(14,10,"WWCSON")
            else
               wlan.transmit(14,10,"WWCSOFF")
       end
     end
  end
end