HiveCraft - In Game Browser Coding

I have been working on trying to code in a browser for the Bank feature, and the @Splinterlands features...

Please be patient, I've been working on stuff relentlessly. The game is in a rough place... If you want to help.. I definitely need it.

info.lua

g_PluginInfo =
{
Name = "WebBrowser",
Date = "2026-03-26",
Description = [[
In-game web browser. Fetches URLs, searches DuckDuckGo,
queries Wikipedia, and shows live Hive Engine token metrics.
Content is displayed as paged chat output.
]],

Commands =
{
["/web"] =
{
HelpString = "In-game browser: /web  | search  | wiki  | hive  | next | prev",
Handler = HandleWeb,
ParameterCombinations =
{
{ Params = "",              HelpString = "Fetch a URL" },
{ Params = "next",               HelpString = "Next page" },
{ Params = "prev",               HelpString = "Previous page" },
{ Params = "search ",     HelpString = "DuckDuckGo instant answer" },
{ Params = "wiki ",       HelpString = "Wikipedia article summary" },
{ Params = "hive ",      HelpString = "Hive Engine token metrics" },
},
},
},
}

main.lua

-- WebBrowser/main.lua
-- In-game web browser using paged chat display
-- Commands: /web  | /web search <query> | /web wiki  | /web hive <symbol> | /web next | /web prev

local g_Sessions = {}  -- [playerName] = { pages={}, current=1, title="", url="" }

local PAGE_LINES  = 12
local LINE_WIDTH  = 52

-- ─── HTML Stripper ──────────────────────────────────────────────────────────

local function StripHtml(a_Html)
local t = a_Html
-- Remove noisy blocks entirely
t = t:gsub("]*>.-", "")
t = t:gsub("]*>.-", "")
-- Block elements → newline
t = t:gsub("", "\n")
t = t:gsub("]*>",     "\n")
t = t:gsub("",         "\n")
t = t:gsub("]*>", "\n")
t = t:gsub("",    "\n")
t = t:gsub("]*>",    "\n- ")
t = t:gsub("]*>",   "\n## ")
t = t:gsub("",       "\n")
-- Strip all remaining tags
t = t:gsub("]+>", "")
-- HTML entities
t = t:gsub("&",  "&")
t = t:gsub("<",   "<")
t = t:gsub(">",   ">")
t = t:gsub(""", '"')
t = t:gsub("'",  "'")
t = t:gsub(" ", " ")
t = t:gsub("&#(%d+);", function(n)
local num = tonumber(n)
if (num and num >= 32 and num <= 126) then
return string.char(num)
end
return ""
end)
-- Collapse whitespace
t = t:gsub("[ \t]+", " ")
t = t:gsub(" \n", "\n")
t = t:gsub("\n ", "\n")
t = t:gsub("\n\n+", "\n")
t = t:gsub("^\n+", "")
return t
end

-- ─── Text Layout ─────────────────────────────────────────────────────────────

local function WrapText(a_Text, a_MaxWidth)
local lines = {}
for para in (a_Text .. "\n"):gmatch("([^\n]*)\n") do
if (para == "") then
-- skip blank lines to save space
else
local current = ""
for word in para:gmatch("[^ ]+") do
-- split word if it's wider than the line
while (#word > a_MaxWidth) do
if (#current > 0) then
table.insert(lines, current)
current = ""
end
table.insert(lines, word:sub(1, a_MaxWidth))
word = word:sub(a_MaxWidth + 1)
end
local candidate = (current == "") and word or (current .. " " .. word)
if (#candidate  0) then
table.insert(lines, current)
end
current = word
end
end
if (#current > 0) then
table.insert(lines, current)
end
end
end
return lines
end

local function PaginateLines(a_Lines, a_LinesPerPage)
local pages = {}
local i = 1
while (i <= #a_Lines) do
local page = {}
for j = i, math.min(i + a_LinesPerPage - 1, #a_Lines) do
table.insert(page, a_Lines[j])
end
table.insert(pages, page)
i = i + a_LinesPerPage
end
return pages
end

-- ─── Display ─────────────────────────────────────────────────────────────────

local function ShowPage(a_Player, a_Session, a_PageNum)
local pages = a_Session.pages
if (a_PageNum  #pages) then
a_Player:SendMessageFailure("No page " .. a_PageNum .. " (total: " .. #pages .. ")")
return
end
a_Session.current = a_PageNum

local divider = cChatColor.Gray .. string.rep("-", 50)
a_Player:SendMessage(divider)
a_Player:SendMessage(cChatColor.Gold .. "[WEB] " .. cChatColor.White .. a_Session.title)
a_Player:SendMessage(cChatColor.Yellow .. "p." .. a_PageNum .. "/" .. #pages
.. "  " .. cChatColor.DarkGray .. a_Session.url)
a_Player:SendMessage(divider)

for _, line in ipairs(pages[a_PageNum]) do
a_Player:SendMessage(cChatColor.White .. line)
end

a_Player:SendMessage(divider)
local nav = ""
if (a_PageNum > 1)      then nav = nav .. cChatColor.Aqua .. "/web prev  " end
if (a_PageNum < #pages) then nav = nav .. cChatColor.Aqua .. "/web next"   end
if (nav ~= "")          then a_Player:SendMessage(nav) end
end

-- ─── URL Fetcher ─────────────────────────────────────────────────────────────

local function FetchUrl(a_Player, a_Url, a_TitleOverride, a_ParseFn)
a_Player:SendMessageInfo("Fetching " .. a_Url .. " ...")
local name = a_Player:GetName()

local ok, err = cUrlClient:Get(a_Url, function(a_Body, a_Status, a_Headers)
if (not a_Body or a_Body == "") then
a_Player:SendMessageFailure("Empty response (status=" .. tostring(a_Status) .. ")")
return
end

local title, lines

if (a_ParseFn) then
title, lines = a_ParseFn(a_Body)
else
-- Default: strip HTML
local text = a_Body
local ct = (a_Headers and (a_Headers["Content-Type"] or a_Headers["content-type"])) or ""
if (ct:find("html") or ct == "") then
text = StripHtml(text)
-- Try to extract 
if (not a_TitleOverride) then
local t = a_Body:match("]*>([^<]+)")
a_TitleOverride = (t and t:gsub("^%s+", ""):gsub("%s+$", "")) or a_Url
end
end
lines = WrapText(text, LINE_WIDTH)
title = a_TitleOverride or a_Url
end

if (not lines or #lines == 0) then
a_Player:SendMessageFailure("No readable content.")
return
end

local pages = PaginateLines(lines, PAGE_LINES)
g_Sessions[name] = { pages = pages, current = 1, title = title, url = a_Url }
ShowPage(a_Player, g_Sessions[name], 1)
end, {})

if (not ok) then
a_Player:SendMessageFailure("Request failed: " .. (err or "unknown"))
end
end

-- ─── Search Parsers ──────────────────────────────────────────────────────────

local function ParseDuckDuckGo(a_Body)
local data = cJson:Parse(a_Body)
if (not data) then
return "Search", { "Failed to parse results." }
end
local lines = {}
if (data.Abstract and data.Abstract ~= "") then
table.insert(lines, "[ Summary ]")
for _, l in ipairs(WrapText(data.Abstract, LINE_WIDTH)) do
table.insert(lines, l)
end
end
if (data.Answer and data.Answer ~= "") then
table.insert(lines, "[ Answer ]")
for _, l in ipairs(WrapText(data.Answer, LINE_WIDTH)) do
table.insert(lines, l)
end
end
if (data.RelatedTopics) then
table.insert(lines, "[ Related ]")
for i, topic in ipairs(data.RelatedTopics) do
if (i > 8) then break end
if (topic.Text and topic.Text ~= "") then
for _, l in ipairs(WrapText("- " .. topic.Text, LINE_WIDTH)) do
table.insert(lines, l)
end
end
end
end
if (#lines == 0) then
table.insert(lines, "No instant-answer results.")
table.insert(lines, "Try /web wiki  for Wikipedia.")
end
return "Search: " .. (data.Heading or ""), lines
end

local function ParseWikipedia(a_Body)
local data = cJson:Parse(a_Body)
if (not data or not data.extract) then
return "Wikipedia", { "No article found." }
end
local lines = {}
if (data.description and data.description ~= "") then
for _, l in ipairs(WrapText("[" .. data.description .. "]", LINE_WIDTH)) do
table.insert(lines, l)
end
end
for _, l in ipairs(WrapText(data.extract, LINE_WIDTH)) do
table.insert(lines, l)
end
return "Wiki: " .. (data.title or ""), lines
end

local function ParseHiveMetrics(a_Body, a_Symbol)
local data = cJson:Parse(a_Body)
local lines = {}
if (not data or not data.result) then
table.insert(lines, "No data for " .. a_Symbol)
return "Hive: " .. a_Symbol, lines
end
local r = data.result
local fields = {
{ "Symbol",     r.symbol },
{ "Last Price", r.lastPrice },
{ "Highest Bid",r.highestBid },
{ "Lowest Ask", r.lowestAsk },
{ "24h Volume", r.volume },
{ "Vol HIVE",   r.volumeExpiration },
{ "Trade Count",r.tradesInLastHour },
{ "High",       r.priceChangeHivePct },
}
for _, pair in ipairs(fields) do
local label, value = pair[1], pair[2]
if (value and value ~= "" and value ~= nil) then
table.insert(lines, label .. ": " .. tostring(value))
end
end
return "Hive: " .. a_Symbol, lines
end

-- ─── Command Handler ─────────────────────────────────────────────────────────

function HandleWeb(a_Split, a_Player)
if (not a_Player) then
return true, "Must be run as a player"
end

local sub = a_Split[2]
if (not sub or sub == "") then
a_Player:SendMessageInfo(cChatColor.Gold .. "WebBrowser commands:")
a_Player:SendMessageInfo(cChatColor.Yellow .. "/web          " .. cChatColor.White .. "fetch any URL")
a_Player:SendMessageInfo(cChatColor.Yellow .. "/web search     " .. cChatColor.White .. "DuckDuckGo instant answer")
a_Player:SendMessageInfo(cChatColor.Yellow .. "/web wiki   " .. cChatColor.White .. "Wikipedia summary")
a_Player:SendMessageInfo(cChatColor.Yellow .. "/web hive  " .. cChatColor.White .. "Hive Engine token metrics")
a_Player:SendMessageInfo(cChatColor.Yellow .. "/web next  /web prev")
return true
end

local name = a_Player:GetName()
local subLow = sub:lower()

-- Navigation
if (subLow == "next" or subLow == "n") then
local s = g_Sessions[name]
if (not s) then a_Player:SendMessageFailure("No page open. Use /web  first.") return true end
ShowPage(a_Player, s, s.current + 1)
return true
end

if (subLow == "prev" or subLow == "p" or subLow == "back" or subLow == "b") then
local s = g_Sessions[name]
if (not s) then a_Player:SendMessageFailure("No page open. Use /web  first.") return true end
ShowPage(a_Player, s, s.current - 1)
return true
end

-- DuckDuckGo search
if (subLow == "search" or subLow == "s") then
local query = table.concat(a_Split, " ", 3)
if (not query or query == "") then return true, "Usage: /web search " end
local encoded = query:gsub("[^%w%-_%.~]", function(c)
return string.format("%%%02X", string.byte(c))
end)
local url = "https://api.duckduckgo.com/?q=" .. encoded .. "&format=json&no_html=1&skip_disambig=1"
FetchUrl(a_Player, url, nil, function(b) return ParseDuckDuckGo(b) end)
return true
end

-- Wikipedia
if (subLow == "wiki" or subLow == "w") then
local topic = table.concat(a_Split, "_", 3)
if (not topic or topic == "") then return true, "Usage: /web wiki " end
local url = "https://en.wikipedia.org/api/rest_v1/page/summary/" .. topic
FetchUrl(a_Player, url, nil, function(b) return ParseWikipedia(b) end)
return true
end

-- Hive Engine token
if (subLow == "hive") then
local symbol = (a_Split[3] or ""):upper()
if (symbol == "") then return true, "Usage: /web hive " end
local url = "https://api.hive-engine.com/rpc/contracts"
local body = '{"jsonrpc":"2.0","id":1,"method":"findOne","params":{"contract":"market","table":"metrics","query":{"symbol":"' .. symbol .. '"}}}'
a_Player:SendMessageInfo("Fetching Hive Engine: " .. symbol .. " ...")
local ok, err = cUrlClient:Post(url, function(a_Body, a_Status)
if (not a_Body or a_Body == "") then
a_Player:SendMessageFailure("Empty response")
return
end
local title, lines = ParseHiveMetrics(a_Body, symbol)
local pages = PaginateLines(lines, PAGE_LINES)
g_Sessions[name] = { pages = pages, current = 1, title = title, url = url }
ShowPage(a_Player, g_Sessions[name], 1)
end, { ["Content-Type"] = "application/json" }, body)
if (not ok) then a_Player:SendMessageFailure("Request failed: " .. (err or "")) end
return true
end

-- Raw URL
local url = sub
if (not url:match("^https?://")) then
url = "https://" .. url
end
FetchUrl(a_Player, url, nil, nil)
return true
end

function Initialize(Plugin)
Plugin:SetName("WebBrowser")
Plugin:SetVersion(1)
LOG("WebBrowser loaded")
return true
end

plugin.lua

dofile("Plugins/WebBrowser/main.lua")

---

🪙 PeakeCoin Ecosystem

💱 PeakeCoin USDT Bridge (Hive ↔ Polygon/MATIC)
Bridge SWAP.USDT from Hive Engine to USDT on Polygon (MATIC).
Whitelist access, documentation, and bridge status updates:
👉 https://geocities.ws/peakecoin

---

⚙️ HiveP.I.M.P. — PeakeCoin Intelligent Market Protector
Operated by @hivepimp, P.I.M.P. focuses on stabilizing PEK markets and strengthening liquidity on Hive Engine.
Community participation supports long-term ecosystem health.

---

🤖 PeakeBot — Autonomous Trading System
Independent multi-token trading bot with RC-awareness, adaptive delay logic, and smart cycle control.
📊 Trading bot documentation:
👉 https://geocities.ws/p/e/peakecoin/trading-bot/peakebot_v0_01.html
💻 Open-source repositories:
👉 https://github.com/paulmoon410

---

🎰 PeakeSino — The PeakeCoin Casino (Beta)
Blockchain-powered games using PEK as the native in-game currency.
Built on Hive with a focus on provable fairness and community-driven growth.
🃏 Play the beta games here:
👉 https://geocities.ws/peakecoin/pek_casino/beta_games/index.html

---

🙏 Acknowledgements

Thanks to and please follow:
@enginewitty @ecoinstant @neoxian @txracer @thecrazygm @holdonia @aggroed

For their continued support, guidance, and help expanding the PeakeCoin ecosystem.

---