random-stuff/computercraft/spatial-control-system.lua

local mon = peripheral.find "monitor"
local chat = peripheral.find "chat_box"
local port_side = settings.get "spatial.port"
local ae_needed = settings.get "spatial.energy_needed"
local admins_raw = settings.get "spatial.admins"
local prefix = settings.get "spatial.prefix" or "spatial"
local name = settings.get "spatial.name" or "Spatial Control System"
local warn_lamp = settings.get "spatial.lamp"

local admins = {}
for admin in admins_raw:gmatch "([^,]+)" do
    admins[admin] = true
end

mon.setTextScale(0.5)
mon.clear()
mon.setCursorPos(1, 1)

local function get_energy()
	return peripheral.call(port_side, "getNetworkEnergyStored") / ae_needed
end

local function display(text)
	local t = term.redirect(mon)
	print(text)
	term.redirect(t)
end

local function tell(usr, msg)
	chat.tell(usr, msg, ("\167b\167o%s\167r"):format(name))
end

local function percentage(f)
	return ("%.1f"):format(f * 100) .. "%"
end

display(("SCS online. Chat prefix is %s."):format(prefix))

local command_descriptions = {
	help = "Sends this help text.",
	energy = "View the amount of stored energy in system buffers.",
	swap = "Executes a spatial IO swap - swaps the volume of space in the cell with the volume in the spatial containment structure."
}

local commands = {
	energy = function(player)
		local energy = get_energy()
		local val = percentage(energy)
		display(("%s of needed energy available."):format(val))
		local msg = "\167c\167lcannot\167r"
		if energy >= 1 then
			msg = "\167a\167lcan\167r"
		end
		tell(player, ("Buffers contain \1676\167l%s\167r of needed energy. Spatial IO %s run."):format(val, msg))
	end,
	swap = function(player, args)
		local e = get_energy()
		if e < 1 then
			error(("Insufficient energy to swap (%s)"):format(percentage(e)), 0)
		end

		rs.setOutput(warn_lamp, true)

		if args[1] == "immediate" and admins[player] then
			display "Valid user; executing immediate swap."
		else
			for i = 5, 1, -1 do
				display(("Swapping in %d seconds."):format(i))
				tell(player, ("Swapping in \167l%d\167r seconds."):format(i))
				sleep(1)
			end
		end
		display "Swapping!"
		tell(player, "Swapping \167lnow\167r.")
		rs.setOutput(port_side, true)
		sleep(0.1)
		rs.setOutput(port_side, false)
		sleep(0.1)

		rs.setOutput(warn_lamp, false)

		display "Done!"
		tell(player, "Done!")
	end,
	help = function(player)
		local text = "Available commands:"
		for command, desc in pairs(command_descriptions) do
			text = text .. "\n\167o" .. command .. "\167r - " .. desc
		end
		tell(player, text)
	end
}

while true do
	local e, p1, p2, p3 = os.pullEvent()
	if e == "command" then
		if p2 == prefix then
			local subcommand = table.remove(p3, 1)
			if commands[subcommand] then
				local ok, err = pcall(commands[subcommand], p1, p3)
				if not ok then
					display(("Error running %s: %s."):format(subcommand, err))
					tell(p1, ("\167c\167lError:\167r %s."):format(err))
				end
			else
				display(("Invalid command '%s' from %s."):format(tostring(subcommand), p1))
				tell(p1, ("Command '%s' not recognized. Confused? Try \167n\\%s help\167r."):format(tostring(subcommand), prefix))
			end
		end
	end
end