commands.lua

--[[

	TechAge
	=======

	Copyright (C) 2019-2020 Joachim Stolberg

	AGPL v3
	See LICENSE.txt for more information

	ICTA Controller - Register all controller commands

]]--

 -- for lazy programmers
local M = minetest.get_meta
local S = techage.S
local logic = techage.logic

function techage.compare(op1, op2, method)
	if method == "is" then
		return op1 == op2
	elseif method == "is not" then
		return op1 ~= op2
	elseif method == "greater" then
		return op1 > op2
	elseif method == "less" then
		return op1 < op2
	end
end

function techage.fmt_number(num)
	local mtch = num:match('^(%d+).*')
	if mtch and num ~= mtch then
		return mtch.."..."
	end
	return num
end


techage.icta_register_condition("initial", {
	title = "initial",
	formspec = {
		{
			type = "label",
			name = "lbl",
			label = "Condition is true only after\ncontroller start.",
		},
	},
	-- Return two chunks of executable Lua code for the controller, according:
	--    return <read condition>, <expected result>
	code = function(data, environ)
		local condition = function(env, idx)
			return env.ticks
		end
		local result = function(val)
			return val == 1
		end
		return condition, result
	end,
	button = function(data, environ) return "Initial after start" end,
})

techage.icta_register_condition("true", {
	title = "true",
	formspec = {
		{
			type = "label",
			name = "lbl",
			label = "Condition is always true.",
		},
	},
	code = function(data, environ)
		local condition = function(env, idx)
			return true
		end
		local result = function(val)
			return val == true
		end
		return condition, result
	end,
	button = function(data, environ) return "true" end,
})

techage.icta_register_condition("condition", {
	title = "condition",
	formspec = {
		{
			type = "textlist",
			name = "condition",
			label = "condition row number",
			choices = "1,2,3,4,5,6,7,8",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "condition",
			choices = "was true, was not true",
			default = "was true",
		},
		{
			type = "label",
			name = "lbl",
			label = "Used to execute two or more\nactions based on one condition.",
		},
	},
	code = function(data, environ)
		local condition = function(env, idx)
			local index = data.condition:byte(-1) - 0x30
			return env.condition[index]
		end
		local result = function(val)
			return val == (data.operand == "was true")
		end
		return condition, result
	end,
	button = function(data, environ) return "cond("..data.condition:sub(-1,-1)..","..data.operand..")" end,
})

techage.icta_register_condition("input", {
	title = "inputs",
	formspec = {
		{
			type = "digits",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			choices = "is,is not",
			default = "is",
		},
		{
			type = "textlist",
			name = "value",
			choices = "on,off,invalid",
			default = "on",
		},
		{
			type = "label",
			name = "lbl",
			label = "An input is only available,\nif a block sends on/off\ncommands to the controller.",
		},
	},
	button = function(data, environ)  -- default button label
		return 'inp('..techage.fmt_number(data.number)..','..data.operand.." "..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return env.input[data.number]
		end
		local result = function(val)
			return techage.compare(val, data.value or "invalid", data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("state", {
	title = "read block state",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "is,is not",
			default = "is",
		},
		{
			type = "textlist",
			name = "value",
			label = "",
			choices = "stopped,running,standby,blocked,nopower,fault,unloaded,invalid,on,off,empty,loaded,loading,full",
			default = "stopped",
		},
		{
			type = "label",
			name = "lbl",
			label = "Read the state of a TA3/TA4 machine.\n",
		},
	},
	button = function(data, environ)  -- default button label
		return 'sts('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "state")
		end
		local result = function(val)
			return techage.compare(val, data.value or "invalid", data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("fuel", {
	title = "read amount of fuel",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "greater,less",
			default = "greater",
		},
		{
			type = "digits",
			name = "value",
			label = "than",
			default = ""
		},
		{
			type = "label",
			name = "lbl",
			label = "Read and evaluate the fuel value\nof a fuel consuming block.",
		},
	},
	button = function(data, environ)
		return 'fuel('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "fuel")
		end
		local result = function(val)
			return techage.compare(val, tonumber(data.value) or 0, data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("load", {
	title = "read power/liquid load",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "greater,less",
			default = "greater",
		},
		{
			type = "digits",
			name = "value",
			label = "than",
			default = ""
		},
		{
			type = "label",
			name = "lbl",
			label = "Read and evaluate the load (0..100)\nof a tank/storage block.",
		},
	},
	button = function(data, environ)
		return 'load('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "load")
		end
		local result = function(val)
			return techage.compare(val, tonumber(data.value) or 0, data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("depth", {
	title = "read quarry depth",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "quarry number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "greater,less",
			default = "greater",
		},
		{
			type = "digits",
			name = "value",
			label = "than",
			default = ""
		},
		{
			type = "label",
			name = "lbl",
			label = "Read and evaluate the current\ndepth of a quarry block.",
		},
	},
	button = function(data, environ)
		return 'depth('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "depth")
		end
		local result = function(val)
			return techage.compare(val, tonumber(data.value) or 0, data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("delivered", {
	title = "read delivered power",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "greater,less",
			default = "greater",
		},
		{
			type = "digits",
			name = "value",
			label = "than",
			default = ""
		},
		{
			type = "label",
			name = "lbl",
			label = "Read and evaluate the delivered\npower of a generator block.\nPower consuming blocks like accus\ncould also provide a negative value.",
		},
	},
	button = function(data, environ)
		return 'deliv('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "delivered")
		end
		local result = function(val)
			return techage.compare(val, tonumber(data.value) or 0, data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("chest", {
	title = "read chest state",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "chest number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			label = "",
			choices = "is,is not",
			default = "is",
		},
		{
			type = "textlist",
			name = "value",
			label = "",
			choices = "empty,loaded,full,invalid",
			default = "empty",
		},
		{
			type = "label",
			name = "lbl",
			label = "Read the state from a Techage chest\n"..
				"and other similar blocks.",
		},
	},
	button = function(data, environ)  -- default button label
		return 'chest('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "state")
		end
		local result = function(val)
			return techage.compare(val, data.value or "invalid", data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_condition("signaltower", {
	title = "read Signal Tower state",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "Signal Tower number",
			default = "",
		},
		{
			type = "textlist",
			name = "operand",
			choices = "is,is not",
			default = "is",
		},
		{
			type = "textlist",
			name = "value",
			choices = "off,green,amber,red,invalid",
			default = "off",
		},
		{
			type = "label",
			name = "lbl",
			label = "Read the color state\nof a Signal Tower.",
		},
	},
	button = function(data, environ)  -- default button label
		return 'tower('..techage.fmt_number(data.number)..","..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "state")
		end
		local result = function(val)
			return techage.compare(val, data.value or "invalid", data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_action("signaltower", {
	title = "TA4 Signal Tower",
	formspec = {
		{
			type = "numbers",
			name = "number",
			label = "Signal Tower number",
			default = "",
		},
		{
			type = "textlist",
			name = "value",
			label = "lamp color",
			choices = "off,green,amber,red",
			default = "red",
		},
		{
			type = "label",
			name = "lbl",
			label = "Turn on/off a Signal Tower lamp.",
		},
	},
	button = function(data, environ)
		return 'tower('..techage.fmt_number(data.number)..","..data.value..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			techage.send_multi(environ.number, data.number, data.value)
		end
	end,
})

techage.icta_register_action("signallamp", {
	title = "TA4 Signal Lamp",
	formspec = {
		{
			type = "numbers",
			name = "number",
			label = "Signal Tower number",
			default = "",
		},
		{
			type = "textlist",
			name = "payload",
			label = "lamp number",
			choices = "1,2,3,4",
			default = "1",
		},
		{
			type = "textlist",
			name = "value",
			label = "lamp color",
			choices = "off,green,amber,red",
			default = "red",
		},
		{
			type = "label",
			name = "lbl",
			label = "Turn on/off a Signal Tower lamp.",
		},
	},
	button = function(data, environ)
		return 'tower('..techage.fmt_number(data.number)..","..data.payload..","..data.value..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			techage.send_multi(environ.number, data.number, data.value, tonumber(data.payload))
		end
	end,
})

techage.icta_register_action("switch", {
	title = "turn block on/off",
	formspec = {
		{
			type = "numbers",
			name = "number",
			label = "block number(s)",
			default = "",
		},
		{
			type = "textlist",
			name = "value",
			label = "state",
			choices = "on,off",
			default = "on",
		},
		{
			type = "label",
			name = "lbl",
			label = "Used for lamps, machines, gates,...",
		},
	},
	button = function(data, environ)
		return 'turn('..techage.fmt_number(data.number)..","..data.value..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			techage.send_multi(environ.number, data.number, data.value)
		end
	end,
})

techage.icta_register_action("display", {
	title = "Display: overwrite one line",
	formspec = {
		{
			type = "numbers",
			name = "number",
			label = "Display number",
			default = "",
		},
		{
			type = "textlist",
			name = "row",
			label = "Display line",
			choices = "1,2,3,4,5",
			default = "1",
		},
		{
			type = "ascii",
			name = "text",
			label = "text",
			default = "",
		},
		{
			type = "label",
			name = "lbl",
			label = "Use a '*' character as reference\nto any condition result",
		},
	},
	code = function(data, environ)
		return function(env, output, idx)
			local text = string.gsub(data.text, "*", tostring(env.result[idx]))
			local payload = safer_lua.Store()
			payload.set("row", data.row)
			payload.set("str", text)
			techage.send_multi(environ.number, data.number, "set", payload)
		end
	end,
	button = function(data, environ)
		return "lcd("..techage.fmt_number(data.number)..","..data.row..',"'..data.text..'")'
	end,
})

techage.icta_register_action("cleardisplay", {
	title = "Display: Clear screen",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "Display number",
			default = "",
		},
	},
	code = function(data, environ)
		return function(env, output, idx)
			techage.send_multi(environ.number, data.number, "clear")
		end
	end,
	button = function(data, environ)
		return "clear lcd("..techage.fmt_number(data.number)..")"
	end,
})

techage.icta_register_action("chat", {
	title = "send chat message",
	formspec = {
		{
			type = "ascii",
			name = "text",
			label = "message",
			default = "",
		},
		{
			type = "label",
			name = "lbl",
			label = "The chat message is send to the\nController owner, only.",
		},
	},
	code = function(data, environ)
		return function(env, output, idx)
			minetest.chat_send_player(environ.owner, "[TA4 ICTA Controller] "..data.text)
		end
	end,
	button = function(data, environ)
		return 'chat("'..data.text:sub(1,12)..'")'
	end,
})

function techage.icta_door_toggle(pos, owner, state)
	pos = minetest.string_to_pos("("..pos..")")
	if pos then
		local door = doors.get(pos)
		if door then
			local player = {
				get_player_name = function() return owner end,
				is_player = function() return true end,
			}
			if state == "open" then
				door:open(player)
			elseif state == "close" then
				door:close(player)
			end
		end
	end
end

techage.icta_register_action("door", {
	title = "open/close door",
	formspec = {
		{
			type = "digits",
			name = "pos",
			label = "door position like: 123,7,-1200",
			default = "",
		},
		{
			type = "textlist",
			name = "door_state",
			label = "door state",
			choices = "open,close",
			default = "open",
		},
		{
			type = "label",
			name = "lbl",
			label = "For standard doors like the Steel Doors.\n"..
				"Use the Techage Info Tool to\neasily determine a door position.",
		},
	},
	code = function(data, environ)
		return function(env, output, idx)
			techage.icta_door_toggle(data.pos, environ.owner, data.door_state)
		end
	end,
	button = function(data, environ)
		return 'door("'..data.pos..'",'..data.door_state..")"
	end,
})

techage.icta_register_action("move", {
	title = "TA4 Move Controller",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "cmnd",
			label = "command",
			choices = "a2b,b2a,move",
			default = "a2b",
		},
	},
	button = function(data, environ)  -- default button label
		return 'move('..techage.fmt_number(data.number)..","..data.cmnd..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			return techage.send_single(environ.number, data.number, data.cmnd)
		end
	end,
})

techage.icta_register_action("turn", {
	title = "TA4 Turn Controller",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "cmnd",
			label = "command",
			choices = "left,right,uturn",
			default = "left",
		},
	},
	button = function(data, environ)  -- default button label
		return 'move('..techage.fmt_number(data.number)..","..data.cmnd..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			return techage.send_single(environ.number, data.number, data.cmnd)
		end
	end,
})

techage.icta_register_action("goto", {
	title = "TA4 Sequencer",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "block number",
			default = "",
		},
		{
			type = "textlist",
			name = "cmnd",
			label = "command",
			choices = "goto,stop",
			default = "left",
		},
		{
			type = "number",
			name = "slot",
			label = "time slot",
			default = "1",
		},
		{
			type = "label",
			name = "lbl",
			label = "The 'stop' command needs no time slot.",
		},
	},
	button = function(data, environ)  -- default button label
		return data.cmnd..'('..techage.fmt_number(data.number)..","..data.slot..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			return techage.send_single(environ.number, data.number, data.cmnd, tonumber(data.slot or "1") or 1)
		end
	end,
})

function techage.icta_player_detect(own_num, number, name)
	local state = techage.send_single(own_num, number, "name", nil)
	if state ~= "" then
		if name == "*" or string.find(name, state) then
			return state
		end
	elseif name == "-" then
		return state
	end
	return nil
end

techage.icta_register_condition("playerdetector", {
	title = "read Player Detector",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "Player Detector number",
			default = "",
		},
		{
			type = "ascii",
			name = "name",
			label = "player name(s) or * for all",
			default = "",
		},
		{
			type = "label",
			name = "lbl",
			label = "Read and check the name\nof a Player Detector.\nUse a '*' character for all player names.\n Use a '-' character for no player.",
		},
	},

	code = function(data, environ)
		local condition = function(env, idx)
			return techage.icta_player_detect(environ.number, data.number, data.name)
		end
		local result = function(val)
			return val ~= nil
		end
		return condition, result
	end,
	button = function(data, environ)
		return "detector("..techage.fmt_number(data.number)..","..data.name:sub(1,8)..")"
	end,
})

techage.icta_register_action("set_filter", {
	title = "turn Distributor filter on/off",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "distri number",
			default = "",
		},
		{
			type = "textlist",
			name = "color",
			label = "filter port",
			choices = "red,green,blue,yellow",
			default = "red",
		},
		{
			type = "textlist",
			name = "value",
			label = "state",
			choices = "on,off",
			default = "on",
		},
		{
			type = "label",
			name = "lbl",
			label = "turn Distributor filter port on/off\n",
		},
	},
	button = function(data, environ)
		return 'turn('..techage.fmt_number(data.number)..","..data.color..","..data.value..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			local payload = data.color.."="..data.value
			techage.send_single(environ.number, data.number, "port", payload)
		end
	end,
})

techage.icta_register_condition("get_filter", {
	title = "read state of a Distributor filter slot",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "distri number",
			default = "",
		},
		{
			type = "textlist",
			name = "color",
			label = "filter port",
			choices = "red,green,blue,yellow",
			default = "red",
		},
		{
			type = "textlist",
			name = "operand",
			choices = "is,is not",
			default = "is",
		},
		{
			type = "textlist",
			name = "value",
			label = "state",
			choices = "on,off",
			default = "off",
		},
		{
			type = "label",
			name = "lbl",
			label = "Read state of a Distributor filter slot.\n",
		},
	},
	button = function(data, environ)  -- default button label
		return 'fltr('..techage.fmt_number(data.number)..","..data.color..' '..data.operand..' '..data.value..')'
	end,
	code = function(data, environ)
		local condition = function(env, idx)
			return techage.send_single(environ.number, data.number, "port", data.color)
		end
		local result = function(val)
			return techage.compare(val, data.value or "invalid", data.operand)
		end
		return condition, result
	end,
})

techage.icta_register_action("exchange", {
	title = "place/remove a block via the Door Controller II",
	formspec = {
		{
			type = "number",
			name = "number",
			label = "number",
			default = "",
		},
		{
			type = "number",
			name = "slot",
			label = "slot no",
			default = "1",
		},
		{
			type = "label",
			name = "lbl",
			label = "place/remove a block via\nthe Door Controller II\n",
		},
	},
	button = function(data, environ)
		return 'exch('..techage.fmt_number(data.number)..","..data.slot..')'
	end,
	code = function(data, environ)
		return function(env, output, idx)
			local payload = data.slot
			techage.send_single(environ.number, data.number, "exchange", payload)
		end
	end,
})