NetworkWatcher

local targetMonitor = "monitor_239"
local mon = peripheral.wrap(targetMonitor)
if not mon then
  error("Missing: monitor_239",0)
  return
end

--interfaces
os.loadAPI("pos/ZombieWI")
os.loadAPI("pos/ZombieED")
--computers
os.loadAPI("pos/ZombieLeader")
os.loadAPI("pos/ZombieMonitoring")
os.loadAPI("pos/ZombieLightMgr")
--turtle
os.loadAPI("pos/ZombieKiller")
--drive
os.loadAPI("pos/ZombieLogs")
os.loadAPI("pos/SpawnerLogs")

local wi = peripheral.find("WorldInterface")
local ed = peripheral.isPresent("EntityDetector")

local void = function() return "" end

local function info(c,wrap)
  local block = wi.getBlockInfos(c.x,c.y,c.z)
  block.datatags = wi.getBlockDatatags(c.x,c.y,c.z).datatags
  loaded = block.isChunkLoaded
  local connected,p = false,false
  if wrap then
    connected = peripheral.isPresent(c.name)
    p = connected and peripheral.wrap(c.name) or false
  end
  return block, loaded, connected, p
end

local function _interface(c,name)
  local block, loaded, connected = info(c)
  local present = block.blockName == "lifeisperipheral:"..name
  return {loaded, present, peripheral.isPresent(c.name), "--", {"",void}}
end

local function _computer(c)
  local block, loaded, connected, p = info(c,true)
  local present = block.blockName=="computercraft:CC-Computer"
  local isOn = block.datatags.on==1
  local reboot = connected and function() if p.isOn() then p.reboot() else p.turnOn() end return p.isOn() end or function() return "--" end
  return {loaded, present, connected, isOn and "On" or "Off", {"reboot",reboot}}
end
local function _drive(c)
  local block, loaded, connected, p = info(c,true)
  local present = block.blockName=="computercraft:CC-Peripheral"
  local hasData,freeSpace = false, void
  if connected then
    hasData = p.isDiskPresent() and p.hasData()
    freeSpace = function() return fs.getFreeSpace("/"..p.getMountPath()) end
  end
  return {loaded, present, connected, hasData and "hasData" or "noData", {"freeSpace",freeSpace}}
end
local function _turtle(c)
  local block, loaded = info(c,false)
  local present = block.blockName=="computercraft:CC-TurtleExpanded"
  local isOn = block.datatags.on==1
  return {loaded, present, connected, isOn and "On" or "Off", {"--",void}}
end

local menu = {
--  {"WorldInterface", _interface(ZombieWI,"WorldInterface")},
--  {"EntityDetector", _interface(ZombieED,"EntityDetector")},
    {"ZombieLeader", _computer(ZombieLeader)},
    {"Monitoring  ", _computer(ZombieMonitoring)},
    {"LightMgr    ", _computer(ZombieLightMgr)},
    {"ZombieKiller", _turtle(ZombieKiller)},
    {"ZombieLogs  ", _drive(ZombieLogs)},
    {"SpawnerLogs ", _drive(SpawnerLogs)},
}

local function item(no,name,o,clicked)
  clicked = clicked or false
  local line1 = string.format("%s %s %s",
    name,
    o[1] and "loaded" or "unload",
    o[2] and "here" or "miss"
  )
  local line2 = string.format("%s %s%s %s",
    o[3] and "plugged  " or "unplugged",
    o[4],
    string.rep(" ",math.max(0,7-string.len(o[4]))),
    clicked and o[5][2]() or o[5][1]
  )
  return line1,line2
end

local function printMenu(click,act)
  click = click or 0
  mon.setTextScale(1)
  mon.setCursorPos(1,1)
  mon.clear()
  local line,o
  for line,o in pairs(menu) do
    local line1,line2 = item(line,o[1],o[2],click==line and act)
    mon.setCursorPos(1,(line*2)-1)
    if click==line then
      mon.setBackgroundColor(colors.yellow)
      mon.setTextColor(colors.black)
    else
      mon.setBackgroundColor(line%2==1 and colors.black or colors.gray)
      mon.setTextColor(line%2==1 and colors.lightGray or colors.white)
    end
    mon.clearLine()
    mon.write(line1)
    mon.setCursorPos(1,line*2)
    mon.clearLine()
    mon.write(line2)
  end
  mon.setBackgroundColor(colors.black)
  mon.setTextColor(colors.white)
end

local function traceEvent(e,p1,p2,p3,p4,p5)
  if e=="timer" or e=="char" or e=="key_up" or e=="key" then
    return
  end
  print(string.format("e=%s\np=%s\np2=%s\np3=%s\np4=%s\np5=%s\n--\n",
  tostring(e) and tostring(e) or type(e),
  tostring(p1) and tostring(p1) or type(p1),
  tostring(p2) and tostring(p2) or type(p2),
  tostring(p3) and tostring(p3) or type(p3),
  tostring(p4) and tostring(p4) or type(p4),
  tostring(p5) and tostring(p5) or type(p5)
  ))
end
local sel,act,delay=0,false
local tick = os.startTimer(2)
local e,p,x,y,p4,p5
while true do
  printMenu(sel,act)
--  initMenu()
  act = false
  e,p,x,y,p4,p5 = os.pullEventRaw()
  traceEvent(e,p,x,y,p4,p5)
  if e=="monitor_touch" and p==targetMonitor then
    sel = math.ceil(y/2)
    if delay then
      os.cancelTimer(delay)
    end
    delay = os.startTimer(5)
  elseif e=="timer" and p==tick then
    tick = os.startTimer(2)
  elseif e=="timer" and p==delay then
    sel = 0
  elseif e=="terminate" or (e=="key" and p==keys.q) then
    sleep(.3)
    printError("Terminated")
    return
  end
end