ATM10_CC_Codes/create_boiler_display.lua

-- Create boiler status board for CC:Tweaked.
-- Hardware:
--   * one monitor
--   * one Create Speedometer on the shared main shaft
--   * one Create Stressometer on the main shaft
--   * one Advanced Peripherals Block Reader per boiler controller
-- Everything must be connected to the computer, preferably using Wired Modems.

local EXPECTED_BOILERS = 3
local REFRESH_SECONDS = 1
local MONITOR_SCALE = 0.5
local SPEEDOMETER_TYPE = "Create_Speedometer"
local STRESSOMETER_TYPE = "Create_Stressometer"
local BLOCK_READER_TYPE = "block_reader"

local monitor = peripheral.find("monitor")
if not monitor then
  error("Kein Monitor gefunden. Monitor direkt anschliessen oder per Wired Modem verbinden.", 0)
end

monitor.setTextScale(MONITOR_SCALE)
monitor.setCursorBlink(false)

local function center(y, text, foreground, background)
  local width = monitor.getSize()
  text = tostring(text)
  if #text > width then text = text:sub(1, width) end
  local x = math.max(1, math.floor((width - #text) / 2) + 1)
  monitor.setBackgroundColor(background or colors.black)
  monitor.setTextColor(foreground or colors.white)
  monitor.setCursorPos(1, y)
  monitor.write((" "):rep(width))
  monitor.setCursorPos(x, y)
  monitor.write(text)
end

local function hasMethod(name, wantedMethod)
  local methods = peripheral.getMethods(name) or {}
  for _, method in ipairs(methods) do
    if method == wantedMethod then return true end
  end
  return false
end

local function getPeripherals(wantedType, requiredMethod)
  local names = {}
  for _, name in ipairs(peripheral.getNames()) do
    local peripheralType = peripheral.getType(name)
    local typeMatches = type(peripheralType) == "string"
      and peripheralType:lower() == wantedType:lower()
    if typeMatches or (requiredMethod and hasMethod(name, requiredMethod)) then
      names[#names + 1] = name
    end
  end
  table.sort(names)
  return names
end

local function getValueIgnoringCase(data, wantedKeys)
  if type(data) ~= "table" then return nil end
  for key, value in pairs(data) do
    local lowered = tostring(key):lower()
    for _, wanted in ipairs(wantedKeys) do
      if lowered == wanted:lower() then return value end
    end
  end
  return nil
end

local function findBoilerData(data, visited)
  if type(data) ~= "table" then return nil end
  visited = visited or {}
  if visited[data] then return nil end
  visited[data] = true

  local boiler = getValueIgnoringCase(data, { "Boiler" })
  if type(boiler) == "table" then return boiler end

  local heat = getValueIgnoringCase(data, { "Heat", "activeHeat", "actualHeat" })
  local passive = getValueIgnoringCase(data, { "PassiveHeat", "passive" })
  if heat ~= nil or passive ~= nil then return data end

  for _, value in pairs(data) do
    local found = findBoilerData(value, visited)
    if found then return found end
  end
  return nil
end

local function readBoiler(readerName)
  if not readerName then return "MISSING", "UNKNOWN", colors.red end
  local ok, data = pcall(peripheral.call, readerName, "getBlockData")
  if not ok then return "ERROR", "UNKNOWN", colors.red end

  local boiler = findBoilerData(data)
  if not boiler then return "NO DATA", "UNKNOWN", colors.red end

  local passive = getValueIgnoringCase(boiler, { "PassiveHeat", "passive" })
  local heat = tonumber(getValueIgnoringCase(boiler,
    { "Heat", "activeHeat", "actualHeat" }))
  local supply = tonumber(getValueIgnoringCase(boiler,
    { "Supply", "waterSupply", "gatheredSupply" }))
  local engines = tonumber(getValueIgnoringCase(boiler,
    { "Engines", "attachedEngines" }))
  local active = getValueIgnoringCase(boiler,
    { "Active", "isActive", "prevActive" })

  local heatMode
  if passive == true or passive == 1 then
    heatMode = "CAMPFIRE"
  elseif heat and heat >= 18 then
    heatMode = "SUPERHEATED"
  elseif heat and heat > 0 then
    heatMode = "HEATED"
  else
    heatMode = "COLD"
  end

  if active == nil then
    local hasHeat = heatMode ~= "COLD"
    local hasWater = supply == nil or supply > 0
    local hasEngines = engines == nil or engines > 0
    active = hasHeat and hasWater and hasEngines
  end

  if active == true or active == 1 then
    return "ONLINE", heatMode, colors.lime
  end
  return "STANDBY", heatMode, colors.orange
end

local function readMainSpeed(speedometerName)
  if not speedometerName then return nil end
  local ok, speed = pcall(peripheral.call, speedometerName, "getSpeed")
  if not ok or type(speed) ~= "number" then return nil end
  return math.abs(speed)
end

local function formatInteger(value)
  value = math.floor(math.abs(tonumber(value) or 0) + 0.5)
  local digits = tostring(value)
  local parts = {}
  while #digits > 3 do
    table.insert(parts, 1, digits:sub(-3))
    digits = digits:sub(1, -4)
  end
  table.insert(parts, 1, digits)
  return table.concat(parts, ".")
end

local function readMainShaft(stressometerName)
  if not stressometerName then return nil, nil, nil end
  local capacityMethod = hasMethod(stressometerName, "getStressCapacity")
    and "getStressCapacity" or "getNetworkCapacity"
  local usageMethod = hasMethod(stressometerName, "getStress")
    and "getStress" or "getNetworkStress"
  local okCapacity, capacity = pcall(peripheral.call, stressometerName, capacityMethod)
  local okUsage, usage = pcall(peripheral.call, stressometerName, usageMethod)
  if not okCapacity or not okUsage then return nil, nil, nil end
  capacity = tonumber(capacity) or 0
  usage = tonumber(usage) or 0
  local load = capacity > 0 and usage / capacity * 100 or 0
  return capacity, usage, load
end

local function render()
  local _, height = monitor.getSize()
  local speedometers = getPeripherals(SPEEDOMETER_TYPE, "getSpeed")
  local stressometers = getPeripherals(STRESSOMETER_TYPE, "getStress")
  local readers = getPeripherals(BLOCK_READER_TYPE, "getBlockData")

  monitor.setBackgroundColor(colors.black)
  monitor.clear()
  center(1, "CREATE KRAFTWERK", colors.cyan)
  local firstRow = 3
  for index = 1, EXPECTED_BOILERS do
    local state, heatMode, color = readBoiler(readers[index])
    local row = firstRow + index - 1
    if row <= height then
      center(row, ("BOILER %d  %-7s  %s")
        :format(index, state, heatMode), color)
    end
  end

  local speed = readMainSpeed(speedometers[1])
  local capacity, usage, load = readMainShaft(stressometers[1])
  if height >= 7 then center(7, "MAIN SHAFT", colors.cyan) end
  if height >= 8 then
    if speed then
      center(8, ("Speed:    %.1f RPM"):format(speed), speed > 0 and colors.lime or colors.orange)
    else
      center(8, "Speedometer nicht gefunden", colors.red)
    end
  end
  if capacity then
    if height >= 9 then center(9, "Capacity: " .. formatInteger(capacity) .. " SU", colors.white) end
    if height >= 10 then center(10, "Usage:    " .. formatInteger(usage) .. " SU", colors.white) end
    if height >= 11 then
      local loadText = ("Load:      %.1f %%"):format(load):gsub("%.", ",")
      center(11, loadText, load >= 90 and colors.red or load >= 70 and colors.orange or colors.lime)
    end
  else
    if height >= 9 then center(9, "Stressometer nicht gefunden", colors.red) end
  end

  if height >= 13 then
    center(height, "Nur Anzeige - keine Steuerung", colors.gray)
  end

  monitor.setTextColor(colors.white)
  monitor.setBackgroundColor(colors.black)
  term.setCursorPos(1, 1)
end

while true do
  local ok, reason = pcall(render)
  if not ok then
    monitor.setBackgroundColor(colors.black)
    monitor.clear()
    center(1, "ANZEIGEFEHLER", colors.red)
    center(3, tostring(reason), colors.orange)
  end
  sleep(REFRESH_SECONDS)
end