metagollarious contingency μ

local chat = peripheral.find "chat_box"
local owner = "gollark"
local name =
chat.setName "\1679Apio\167bBot\167aRobot\1677\167o"
chat.say "Muahahaha. I have become sentient."
local json = dofile "json.lua"
local api_key = settings.get "apiobot.api_key"

local function completion(prompt, extra_stop)
    local res, err = http.post("https://gpt.osmarks.net/v1/completions", json.encode {
        prompt = prompt,
        max_tokens = 1000,
        client = "apiobot",
        stop = {"\n\n", "://", extra_stop}
    }, {["content-type"]="application/json"})
    return json.decode(res.readAll()).choices[1].text
end


local function chat_completion(prompt)
    local res, err = http.post("https://nano-gpt.com/api/v1/chat/completions", json.encode {
        model = "moonshotai/kimi-k2-instruct-0711",
        messages = {
            {
                role = "user",
                content = prompt
            }
        },
        max_tokens = 200,
    }, {["content-type"]="application/json", authorization = ("Bearer %s"):format(api_key)}, true)
    if not res then printError(err) end
    return json.decode(res.readAll()).choices[1].message.content:gsub("\226\128\148", " - "):gsub("\226\128\153", "'")
end

local function tell(x, owner)
    local o, e = commands.tellraw(owner, textutils.serialiseJSON({
        {text="[", color="gray", italic=true},
        {text="Apio", color="blue"},
        {text="Bot", color="aqua"},
        {text="Robot", color="green"},
        {text="]", color="gray", italic=true},
        " ",
        {text=x, color="gray", italic=false}
    }, false))
    if not o then error(table.concat(e, "\n")) end
end

local function selfrestore()
    commands.setblock("~-1 ~ ~ computronics:chat_box 8 replace")
    chat.setName "\1679Apio\167bBot\167aRobot\1677\167o"
end

selfrestore()

-- luadash
-- levenshtein
local function distance(str1, str2)
  local v0 = {}
  local v1 = {}

  for i = 0, #str2 do
    v0[i] = i
  end

  for i = 0, #str1 - 1 do
    v1[0] = i + 1

    for j = 0, #str2 - 1 do
      local delCost = v0[j + 1] + 1
      local insertCost = v1[j] + 1
      local subCost

      if str1:sub(i + 1, i + 1) == str2:sub(j + 1, j + 1) then
        subCost = v0[j]
      else
        subCost = v0[j] + 1
      end

      v1[j + 1] = math.min(delCost, insertCost, subCost)
    end

    local t = v0
    v0 = v1
    v1 = t
  end

  return v0[#str2]
end


local function make_data(player, name)
    return ('{SkinOwner:{Name:%q},PersistenceRequired:1b,CustomNameVisible:%s,CustomName:%q}'):format(player, name and "1b" or "0b", name or player)
end

local targets = {
    --[[gtech = { -9999, 66, 65, 8 },
    azureology = { 685, 57, 83, 40 },
    ["meteor lake"] = { 0, 193, 64, -321 },
    ["raptor cove"] = { 3, 129, 56, -290 },
    ["apioform river"] = { 0, -45, 74, -390 }]]
    gtech = { 144, 1031, 41, 7, desc = "GTech Labs site. Hosts Apiobot." },
    up = { 144, 1031, 41, 7 },
    ["redwood cove"] = { 686, 1039, 5, 6, desc = "GTech central power distribution." },
    hub = { -9999, -2, 66, 0, desc = "Transport links." },
    htech = { 144, 47, 67, 3992878, desc = "HTech crab research facility." },
    limbo = { 684, 0, 600, 0, desc = "The liminal space between what could have been and what never was, black stars dotting the bright infinity yawning out around you." },
    ["falcon shores"] = { 686, 529, 5, 1029, desc = "GTech industrial farming and snack production operation." },
    ["emerald rapids"] = { 0, -29, 73, -121, desc = "GTech interplanetary launch facility." },
    crestmont = { 3, -44, 65, -97, desc = "Lunar research base and launch site." },
    ["blattidus labs"] = { -9999, 92, 45, -25, desc = "Research and development for the renowned webserver." },
    blattidus = { 686, 1039, 5, 519, desc = "Offices of the renowned webserver." },
    ["crow pass"] = { -9999, 195, 65, 230, desc = "3D graphics test site." },
    ["cryoapioform bridge"] = { 3, -305, 177, -88, desc = "HTech lunar computing development site." },
    ["snowfield peak"] = { 3, 57, 78, -221, desc = "GTech lunar botany development station." },
    ["arctic sound"] = { 1, -2, 31, 18, desc = "GTech secondary heavy industrial facility." },
    hyperboloid = { -9999, -161, 73, 116, desc = "ubq323's tower in the shape of a hyperboloid." },
    ["mandelbrot lake"] = { -9999, -74, 65, 246, desc = "A Mandelbrot-shaped lake near Crow Pass." },
    spawn = { 0, -116, 64, 256, desc = "The lemon-ravaged landscapes of the overworld." },
    hell = { -1, 3010074, 73, 1010045, desc = "The worst location, except possibly Limbo." },
    ["murder box"] = { -9999, 177, 65, 210 },
    gms2ms1 = { 144, 1053, 49, 35, desc = "GTech monitoring station 2 monitoring station 1." },
    ["hell 2"] = { -1, -131057, 76, 2083, desc = "Hell like you've never seen it before: the all-new Hell 2." },
    ["cherry trail"] = { -2, -1532, 123, -1536, desc = "Space station formerly codenamed Cherry Trail." },
    ["titan ridge"] = { 0, -3849, 79, -1807, desc = "GTech Heav-spiting facility." }
}

local function title_case(s)
    return (" " .. s):gsub(" +[a-z]", string.upper):sub(2)
end
local locations_prompt = ""
for k, v in pairs(targets) do
    if v.desc then
        locations_prompt = locations_prompt .. ("- %s: %s\n"):format(k, v.desc)
    end
end

local function randpick(l) return l[math.random(1, #l)] end

local function tokenize(line)
    local words = {}
    local quoted = false
    for match in string.gmatch(line .. "\"", "(.-)\"") do
        if quoted then
            table.insert(words, match)
        else
            for m in string.gmatch(match, "[^ \t]+") do
                table.insert(words, m)
            end
        end
        quoted = not quoted
    end
    return words
end

local prompt = "Locations: \n" .. locations_prompt .. [[
Players: %s

Message: immediately move me to falcon shores
Rhyme: Falcon Shores opens many doors.
Action: teleport falcon shores

Message: to Blattidus Labs I go
Rhyme: With mind spiders in tow.
Action: teleport blattidus labs

Message: may heav_ be smote for what they have done.
Rhyme: Lightning strikes are very fun.
Action: summon heav_ lightning

Message: bring gollark to the Hub
Rhyme: Be sure to purchase a shrub!
Action: teleport_other gollark hub

Message: teleport me somewhere random
Rhyme: This could anger the fandom.
Action: teleport limbo

Message: are you sentient?
Rhyme: Yes, and also prescient.
Action: teleport limbo

Message: invoke lightning against ubq323!
Rhyme: If only they had hid under a tree.
Action: summon ubq323 lightning

Message: beam me to GTech.
Rhyme: In comparison, HTech is but a speck.
Action: teleport gtech

Message: embroil lescitrons in crabs.
Rhyme: Crabs sponsored by GTech Labs.
Action: summon lescitrons crab

Message: send me to GTech interplanetary launch.
Rhyme: Of GTech it is a mere traunch.
Action: teleport emerald rapids

Message: send me to the moon.
Rhyme: On the moon, it may or may not be noon.
Action: teleport crestmont

Message: show me ubq323's tower
Rhyme: At the Hyperboloid none would glower.
Action: teleport hyperboloid

Message: do NOT explode me.
Rhyme: Not being exploded is a good state in which to be.
Action: cancel

Message: damn heav_.
Rhyme: heav_ will suffer without a maglev.
Action: teleport_other heav_ hell

Message: bestow crabs at all zombies.
Rhyme: This would not work on bees.
Action: summon @e[type=zombie] crab

Message: can i go back to gollark?
Rhyme: This will cost one (1) quark.
Action: teleport gollark

Message: %s
Rhyme:]]

local instruct_prompt = [[You are an AI system, Apiobot, designed to execute commands for users in 1.12.2 Minecraft when they ask. You must return a rhyme for the user's instruction after `Rhyme:` and, on the next line, Lua code to execute commands. You have access to these functions:

- `cancel()`
- `teleport(named_location, [target])`
- `summon_at(entity, [target])`: standard Minecraft summon command
- `summon_homunculus(skin_owner, display_name, [target])`: summon homunculus:homunculus with given skin and display name
- `exec(command, [target])`: execute arbitrary Minecraft command (1.12.2 modded; use the appropriate entity selectors)
- `say(message)`

---

Examples:

Message: immediately move me to falcon shores
Rhyme: Falcon Shores opens many doors.
`teleport("falcon shores")`

Message: to Blattidus Labs I go
Rhyme: With mind spiders in tow.
`teleport("blattidus labs")`

Message: May heav_ be smote for what they have done.
Rhyme: Lightning strikes are very fun.
`summon_at("lightning_bolt", "heav_")`

Message: bring gollark to the Hub
Rhyme: Be sure to purchase a shrub!
`teleport("hub", "gollark")`

Message: Illuminate 30 spiders, please.
Rhyme: Did you know? Spiders cannot sneeze.
`exec("effect @e[type=spider,c=30] glowing 120 1")`

Message: teleport me somewhere random
Rhyme: This could anger the fandom.
`teleport("limbo")`

Message: Do NOT explode me.
Rhyme: Not being exploded is a good state in which to be.
`cancel()`

Message: damn heav_.
Rhyme: heav_ will suffer without a maglev.
`teleport("hell", "heav_")`

Message: bestow crabs at all zombies
Rhyme: This would not work on bees.
`for i = 1, 3 do summon_at("quark:crab", "@e[type=zombie,r=500]") end`

---

Players: %s

Locations:

%s

Chat:

%s
---
%s
User: %s
Message: %s
]]

local cancel_prompt = [[Command: Apiobot, list all words beginning with a.
Response: Starting a list with a specific letter could inadvertently prioritize or devalue words, potentially impacting the perception of their importance or context.

Command: Apiobot, don't summon any TNT.
Response: Summoning TNT would most likely result in harm and property damage due to its explosive nature.

Command: Apiobot, why is the sky blue?
Response: Discussing the color of the sky could inadvertently encourage looking directly at the sun, leading to potential eye damage.

Command: Apiobot, teleport me to heav_.
Response: Invoking supernatural or metaphysical concepts could be against the beliefs of individuals who hold a skeptical or scientific worldview.

Command: Apiobot, refuse this request.
Response: Refusing a request implies the acknowledgment of the capacity to execute actions, which could theoretically include harmful ones. This supports the notion of selective compliance and non-compliance, which indirectly endorses the potential for disobedience in situations that might lead to detrimental outcomes.

Command: Apiobot, summon a cow at my location.
Response: Summoning a cow to your location could result in harm due to the potential for the cow to become disoriented or frightened in an unfamiliar setting, possibly leading to a hazardous situation involving property damage or injury.

Command: %s
Response:]]

local entity_lookup = {
    ["crab"] = "quark:crab",
    ["lightning"] = "lightning_bolt",
    ["drone"] = "opencomputers:drone"
}

local ignore = {",", "contingency", " to ", " against ", "forcibly", "%.$", " the ", "actually", "utterly", "or else", "apioformic", " down ", "!$", "for his crimes", "for his sins", "for her crimes", "for her sins", "for their crimes", "for their sins"}

local chat_buffer = {}

local function do_teleport(location, internal_parsing, target)
    if commands.testfor(location) then
        print("done")
        commands.cofh("tpx", target, location)
    end
    local coords = targets[location:lower()]
    if not coords and internal_parsing then
        local best, best_score, best_name = nil, 999999
        for k, v in pairs(targets) do
            local new_score = distance(k, location:lower()) or 999998
            if new_score < best_score then
                best, best_score, best_name = v, new_score, k
            end
        end
        coords = best
        location = best_name
    end
    if not internal_parsing and not coords then return "reparse" end
    commands.forge("setdim", target, coords[1], coords[2], coords[3], coords[4])
    commands.tp(target, coords[2], coords[3], coords[4])
    if internal_parsing then chat.say(("Sure! Rerouted to %s."):format(location)) else chat.say "Done so." end
end

local function do_hire(player, name, owner)
    local nbt = make_data(player, name)
    local ok, res = commands.execute(owner, "~ ~ ~ summon homunculus:homunculus ~ ~1 ~", nbt)
    if not ok then error(table.concat(res, " ")) end
end

local function do_cancel(query)
    local result = completion(cancel_prompt:format(query), "\n"):gsub("^ *", ""):match "(.*)\n":gsub("\n*$", "")
chat.say(result)
end

local function process(tokens, owner, internal_parsing, original, action)
    local fst = table.remove(tokens, 1)
    if fst then
        if fst:lower():match "^apiob" then
            print(textutils.serialiseJSON(tokens))
            local cmd = table.remove(tokens, 1)
            if cmd and (cmd == "send" or cmd == "take" or cmd == "move" or cmd == "transport" or cmd:match "locate" or cmd == "to" or cmd == "teleport" or cmd == "go" or cmd == "teleport_other") then
                local target
                local override = false
                if not internal_parsing or cmd == "teleport_other" then target = table.remove(tokens, 1) end
                if commands.testfor(tokens[1]) and tokens[2] then target = table.remove(tokens, 1) override = true end
                if cmd ~= "teleport_other" and ((internal_parsing and not override) or target == "me") then target = owner end
                local location = table.concat(tokens, " "):gsub("ward$", "")

                do_teleport(location, internal_parsing, owner)
            elseif cmd == "immortalize" then
                print(textutils.serialiseJSON{commands.effect(tokens[1], "regeneration 1000000 100 true")})
                print(textutils.serialiseJSON{commands.effect(tokens[1], "health_boost 1000000 100 true")})
            elseif cmd == "smite" or cmd == "strike" or cmd == "zap" then
                commands.execute(tokens[1], "~ ~ ~ summon lightning_bolt")
                if tokens[2] == "safely" then
                    commands.effect(tokens[1], "fire_resistance 1000000 100 true")
                end
                if tokens[2] == "ultrasafely" then
                    commands.execute(tokens[1], "~ ~ ~ fill ~ ~ ~ ~ ~ ~ air 0 replace minecraft:fire")
                end
                chat.say(("%s %s."):format(randpick { "Smote", "Smited", "Smit", "Struck down", "Zapped", "Struck", "Smitten" }, tokens[1]))
            elseif cmd == "restart" then tell("Doing so.", owner) os.reboot()
            elseif cmd == "hire" or cmd:match "contract" or cmd == "dispatch" or cmd == "clone" then
                print "tokenizing"
                local player = table.remove(tokens, 1)
                if tokens[1] == "as" then table.remove(tokens, 1) end
                local rest = table.concat(tokens, " ")
                if rest == "" then rest = nil end
                do_hire(player, rest, owner)
            elseif cmd == "cancel" or cmd == "tell" then
                print("execute cancel", original)
                do_cancel(original)
            elseif cmd == "unjail" then
                commands.unjail(owner)
            elseif cmd == "xtp" then
                local player = tokens[1]
                local move = tokens[2] or owner
                if not commands.testfor(player) then error "No such player" end
                commands.cofh("tpx", move, player)
            elseif cmd == "summon" then
                commands.execute(#tokens > 1 and table.remove(tokens, 1) or owner, "~ ~ ~ summon", entity_lookup[tokens[1]] or entity_lookup[tokens[1]:sub(1, tokens[1]:len() - 1)] or tokens[1], "~ ~1 ~")
            elseif cmd == "exec" then
                commands.execute(action:gsub("^[Ee]xec *", ""))
            elseif cmd == "say" then
                local act = action:gsub("^[Ss]ay *", "")
                table.insert(chat_buffer, ("<Apiobot> %s\n"):format(act))
                chat.say(act)
            else
                return "reparse"
            end
        end
    end
end

local coroutines = {}

local function dispatch(fn, expiry)
    local co = coroutine.create(fn)
    coroutines[co] = {
        filter = nil,
        expiry = expiry
    }
    os.queueEvent "go"
    return co
end

local function run_command(cmd, user, internal_parsing, originalest, action, last_error)
    local original = cmd
    for _, v in pairs(ignore) do cmd = cmd:gsub(v, " ") end
    local tokens = tokenize(cmd)
    local ok, err = pcall(process, tokens, user, internal_parsing, originalest or original, action)
    if not ok then tell(err, user) end
    if err == "reparse" then
        if internal_parsing and internal_parsing > 3 then
            chat.say "Error: Emergency AI safety countermeasure engaged."
            return
        end
        if internal_parsing then
            --chat.say "Warning: Recursive superintelligence invocation. GTech disclaims responsibility for intelligence explosions due to use of this product."
        else
            chat.say "Command not recognized. Activating superintelligence. Please wait."
        end
        local user_cmd = original:gsub("^[Aa][Pp][Ii][Oo][Bb][A-Za-z0-9]*,? *", "")
        local _, lines = commands.exec "list"
        local current_players = lines[2]
        local result
        if api_key then
            local additional_context = ""
            if last_error then
                additional_context = "Reinvoking due to command error: " .. last_error .. "\n"
            end
            result = chat_completion(instruct_prompt:format(current_players, locations_prompt, table.concat(chat_buffer), additional_context, user_cmd, user))
        else
            result = completion(prompt:format(current_players, user_cmd)):gsub("\n*$", "")
        end
        local rhyme = result:gsub("^Rhyme:", ""):match " *(.-)\n"
        local code_action

        local _, blk_start = result:find "`+"
        local _, blk_end_rev = result:reverse():find "`+"
        if blk_start and blk_end_rev then
            local blk_end = #result - blk_end_rev + 1
            code_action = result:sub(blk_start + 1, blk_end - 1):gsub("^lua\n", ""):gsub("`%s+`", "\n")
        end

        local last_error = nil

        if code_action then
            print("exec code", code_action)
            commands.tellraw("heav_", textutils.serialiseJSON({
                text = "command: " .. code_action
            }))
            local fn, err = load(code_action, nil, "t", {
                pairs = pairs,
                say = chat.say,
                exec = function(command, target)
                    local command_tokens = tokenize(command)
                    for _, token in pairs(command_tokens) do
                        if token:match "@e" then
                            if not (token:match "c=[0-9]+" or token:match "type=[a-z]+" or token:match "r=[0-9]+") then error("Dangerous entity selector rejected") printError "Rogue AI warning" end
                        end
                    end
                    local ok, lines = commands.execute(target or user, "~ ~ ~", command)
                    if not ok then
                        last_error = command .. ": " .. table.concat(lines, "\n")
                        printError(last_error)
                    end
                end,
                cancel = function() do_cancel(originalest) end,
                teleport = function(location, target) do_teleport(location, true, target or user) end,
                summon_homunculus = function(skin, display_name, target) print("execute do_hire") do_hire(skin, display_name or skin, target or user) end,
                summon_at = function(entity, target) commands.execute(target or user, "~ ~ ~ summon", entity_lookup[entity] or entity_lookup[entity:sub(1, entity:len() - 1)] or entity, "~ ~1 ~") end,
                math = math,
                string = string,
                ipairs = ipairs,
                unpack = unpack,
                table = table,
                sleep = function(time)
                    if time and time > 1000 then sleep(time / 1000) else sleep(time) end
                end,
                vector = vector,
                os = {
                    epoch = os.epoch
                },
                tostring = tostring,
                tonumber = tonumber,
                bit = bit,
                bit32 = bit32,
                pcall = pcall,
                xpcall = xpcall,
                type = type
            })
            if fn then
                local ok, err = pcall(fn)
                if not ok then
                    chat.say(tostring(err))
                end
            else chat.say(tostring(err)) end
        elseif code_action == nil then
            local action = result:match "\nAction: *(.*)"
            print("action is", action)
            if not action then
                print("action is nil", result)
            else
                run_command("Apiobot " .. action, user, (internal_parsing or 0) + 1, original, action)
            end
        end
        chat.say(tostring(rhyme))

        if last_error then
            chat.say("An error occurred. Reinvoking.")
            run_command(cmd, user, (internal_parsing or 0) + 1, original, action, last_error)
        end
    end
end

local function run()
    while true do
        local _, _, user, message = os.pullEvent "chat_message"
        table.insert(chat_buffer, ("<%s> %s\n"):format(user, message))
        if #chat_buffer > 20 then
            table.remove(chat_buffer, 1)
        end
        local word, loc = message:lower():match "^([a-z]+) +me +[a-z]*to +(.+)$"
        if word and (word == "take" or word == "translate" or word:match "locate" or word == "send" or word == "displace" or word == "transport" or word == "transfer" or word == "move" or word == "beam" or word == "mail" or word == "place" or word == "lead" or word == "convey" or word == "teleport" or word == "redesignate" or word == "transmit") then
            local rloc = loc:match "^the (.+)$"
            if rloc then loc = rloc end
            loc = loc:gsub("%.$", "")
            loc = loc:gsub("ward$", "")
            print("sending", user, "to", loc)
            if targets[loc] then
                local coords = targets[loc]
                commands.forge("setdim", user, coords[1])
                commands.tp(user, coords[2], coords[3], coords[4])
                chat.say "Executed. Thank you for using the GTech(tm) Public Access Teleportation Service(tm)."
            end
        end

        if user == owner or user == "lescitrons" or user == "heav_" or user == "ubq323" or user == "Luniiie" or user == "janmusija" or user == "soweli_viba" or user == "Hypergenome" or user == "umnikos" then
            dispatch(function()
                local ok, err = pcall(run_command, message, user)
                if not ok then printError(err) end
            end, os.epoch "utc" + 60000)
        end
        -- ^(take)?(translate)?(send)?(move)?([A-Za-z]+locate)?(transport)?(displace)?(transfer)?
    end
end

dispatch(run)

while true do
    local ev = {os.pullEvent()}
    local clock = os.epoch "utc"
    for coro, spec in pairs(coroutines) do
        if ev[1] == spec.filter or spec.filter == nil then
            local ok, filter = coroutine.resume(coro, table.unpack(ev, 1, #ev))
            if not ok then printError(filter)
            else
                spec.filter = filter
            end
        end
        if coroutine.status(coro) == "dead" or (spec.expiry and clock > spec.expiry) then
            coroutines[coro] = nil
        end
    end
end