Table2

-----Manage-Colors-----
local function AddOutput(sSide,...)
 local c = colors.combine(rs.getBundledOutput(sSide),...)
  rs.setBundledOutput(sSide,c)
end
local function RemoveOutput(sSide,...)
  local c = colors.subtract(rs.getBundledOutput(sSide),...)
  rs.setBundledOutput(sSide,c)
end
-------Table---------
Table = {}
Table[1]= {["on"] = false,["name"] = "Purple Lamp",["color"] = colors.purple}
Table[2] = {["on"] = false,["name"] = "Green Lamp",["color"] = colors.red}
Table[101] = {["on"] = false,["name"] = "Sprinkler 1",["color"] = colors.lime}
Table[102] = {["on"] = false,["name"] = "Sprinkler 2",["color"] = colors.yellow}
Table[103] = {["on"] = false,["name"] = "Sprinkler 3",["color"] = colors.brown}
Table[104] = {["on"] = false,["name"] = "Sprinkler 4",["color"] = colors.white}
all = colors.combine(colors.red,colors.yellow,colors.lime,colors.brown,colors.purple,colors.white)
rs.setBundledOutput("top",all)
--------functions--------------
local function showtable()
term.setCursorPos(1,1)
term.clear()
    for i , v in pairs(Table) do
      c = Table[i]["on"]
      local s = "off"
        if c == true then
        s = "on"
        else
             s = "off"
        end
      l = Table[i]["name"]
      io.write(l)
      Cursorx,CursorY = term.getCursorPos()
      term.setCursorPos(14,CursorY)
      io.write(s.."\n")
    end

    term.setCursorBlink(true)
    io.write("> ")
end
----
function test(thing)
local t = string.lower(thing)

if string.find(t,"pu") then
return 1

elseif string.find(t,"gr") then
return 2

elseif string.find(t,"1") and string.find(t,"spri") then
return 101

elseif string.find(t,"2") and string.find(t,"spri") then
return 102

elseif string.find(t,"3") and string.find(t,"spri") then
return 103

elseif string.find(t,"4") and string.find(t,"spri") then
return 104

else
return false
end
end
---------------------------
while true do
showtable()
num = test(io.read())
top = rs.getBundledOutput("top")
if num then
read = tonumber(num)
tcolor = Table[read]["color"]
  if colors.test(top,tcolor) == true then
    Table[read]["on"] = true
    RemoveOutput("top",tcolor)
  elseif colors.test(top,tcolor) == false then
    Table[read]["on"] = false
    AddOutput("top",tcolor)
  end
end
end