Web-browser.lua

-- Script to allow browsing of "websites" in game with CC:tweaked
-- Should only be used on a "client"
-- Make sure advanced montior is attached
-- Touch navigation supported
-- Scrollable websites to come as well as "search engine"
-- Intended to be used in conjunction with other scripts at links below
-- Website Editor: https://pastebin.com/xZpzw5Vt
-- Web Server: https://pastebin.com/WNtwKkmM
------------------------------
local monitor = peripheral.wrap("left")
monitor.setTextScale(0.5)
local modem = peripheral.wrap("right") or error("Modem not found")
rednet.open(peripheral.getName(modem))

-- List of known page server IDs
local pageServers = {1, 2, 30}  -- Change this to match your server IDs

local currentPage = "home"
local history = {}

-- Custom word-wrap function (replaces textutils.wrap)
local function wrapText(text, width)
  local lines = {}
  for line in text:gmatch("[^\n]+") do
    while #line > width do
      local cutoff = line:sub(1, width):match(".*() ") or width
      table.insert(lines, line:sub(1, cutoff))
      line = line:sub(cutoff + 1)
    end
    table.insert(lines, line)
  end
  return lines
end

-- Request a page from the first responding server
local function requestPage(page)
  for _, server in ipairs(pageServers) do
    rednet.send(server, {type = "request_page", page = page})
    local id, response, _ = rednet.receive(2) -- wait 2s
    if response and response.type == "page_data" then
      return textutils.unserialize(response.content)
    end
  end
  return {title = "Error", body = "Page not found.", links = {}}
end

-- Draw the page on the monitor
local function drawPage(data)
  monitor.clear()
  monitor.setCursorPos(1, 1)
  monitor.setTextColor(colors.yellow)
  monitor.write(data.title or "Untitled")

  monitor.setCursorPos(1, 3)
  monitor.setTextColor(colors.white)
  local lines = wrapText(data.body or "", 38)
  for i, line in ipairs(lines) do
    monitor.setCursorPos(1, 2 + i)
    monitor.write(line)
  end

  -- Draw links
  local linkY = 3 + #lines + 1
  for i, link in ipairs(data.links or {}) do
    monitor.setCursorPos(2, linkY)
    monitor.setTextColor(colors.cyan)
    monitor.write("[" .. link.text .. "]")
    link.y = linkY
    linkY = linkY + 1
  end

  return data.links
end

-- Helper to check which link was tapped
local function getLinkAtY(links, y)
  for _, link in ipairs(links) do
    if y == link.y then
      return link.page
    end
  end
end

-- Main browser loop
while true do
  local pageData = requestPage(currentPage)
  local links = drawPage(pageData)

  local event, side, x, y = os.pullEvent("monitor_touch")
  local target = getLinkAtY(links, y)
  if target then
    table.insert(history, currentPage)
    currentPage = target
  end
end