MoreMesecons/moremesecons_luacontroller_tool/init.lua

--[[
vector_extras there: https://github.com/HybridDog/vector_extras
]]

local templates = {
	singleplayer = {fir = "daw", mak = "delay()"},
	MoreMesecons = {mag = "dawasd", mak = "delrq"},
}


local file_path = minetest.get_worldpath().."/MoreMesecons_lctt"

-- load templates from a compressed file
local templates_file = io.open(file_path, "rb")
if templates_file then
	local templates_raw = templates_file:read("*all")
	io.close(templates_file)
	if templates_raw
	and templates_raw ~= "" then
		for name,t in pairs(minetest.deserialize(minetest.decompress(templates_raw))) do
			templates[name] = t
		end
	end
end

-- the save function
local function save_to_file()
	local templates_file = io.open(file_path, "w")
	if not templates_file then
		minetest.log("error", "[MoreMesecons] Could not open file for saving!")
		return
	end
	local player_templates = table.copy(templates)
	player_templates.MoreMesecons = nil
	templates_file:write(minetest.compress(minetest.serialize(player_templates)))
	io.close(templates_file)
end

-- save doesn't save more than every 10s to disallow spamming
local saving
local function save()
	if saving then
		return
	end
	saving = true
	minetest.after(16, function()
		save_to_file()
		saving = false
	end)
end

minetest.register_on_shutdown(function()
	if saving then
		save_to_file()
	end
end)


-- test if it works
-- add savename textfield to formspec

-- used for the dropdown formspec element
local function fill_formspec_dropdown_list(t, selected)
	local it,num = {},1
	for i in pairs(t) do
		it[num] = i
		num = num+1
	end
	num = num-1
	table.sort(it)
	local txt = ""
	local selected_id
	for i = 1,num do
		local t = it[i]
		if not selected_id
		and t == selected then
			selected_id = i
		end
		txt = txt..t -- add available indices
		if i ~= num then
			txt = txt..","
		end
	end
	return txt..";"..(selected_id or 1).."]"
	--spec = string.sub(spec, 1, -2)
end

local pdata = {}

local function get_selection_formspec(pname, selected_template)
	-- templates might be removed by someone while changing sth in formspec
	local pl_templates = templates[pname] or templates[next(templates)]
	local template_code = pl_templates[selected_template] or pl_templates[next(pl_templates)]

	local spec = "size[10,10]"..

	-- show available players, field player_name, current player name is the selected one
		"dropdown[0,0;3;player_name;"..
		fill_formspec_dropdown_list(templates, pname)..

	-- show templates of pname
		"dropdown[3,0;3;template_name;"..
		fill_formspec_dropdown_list(pl_templates, selected_template)..

	-- show selected template
		"textarea[0,4;7,7;template_code;template code:;"..template_code.."]"..

		"button[0,2;1,1;button;set]"..

		"button[1,2;1,1;button;add]"..

		"button[2,2;1,1;button;save]"

	return spec
end

-- tests if the node is a luacontroller
local function is_luacontroller(pos)
	return string.match(minetest.get_node(pos).name, "mesecons_luacontroller:luacontroller%d%d%d%d")
end

-- do not localize the function directly here to support possible overwritten luacontrollers
local luac_def = minetest.registered_nodes["mesecons_luacontroller:luacontroller0000"]
local function set_luacontroller_code(pos, code)
	luac_def.on_receive_fields(pos, nil, {code=code, program=""})
end

minetest.register_tool("moremesecons_luacontroller_tool:lctt", {
	description = "luacontroller template tool",
	inventory_image = "moremesecons_luacontroller_tool.png",

	on_place = function(itemstack, player, pt)
		if not player
		or not pt then
			return
		end

		local pos = pt.under
		if not is_luacontroller(pos) then
			return
		end

		local pname = player:get_player_name()
		pdata[pname] = pdata[pname] or {
			pos = pos,
			player_name = pname,
			template_name = next(templates[pname]),
		}
		minetest.show_formspec(pname, "moremesecons:luacontroller_tool", get_selection_formspec(pdata[pname].player_name, pdata[pname].template_name))


	end,
})

--[[ Luacontroller reset_meta function, by Jeija
local function reset_meta(pos, code, errmsg)
	local meta = minetest.get_meta(pos)
	meta:set_string("code", code)
	code = minetest.formspec_escape(code or "")
	errmsg = minetest.formspec_escape(errmsg or "")
	meta:set_string("formspec", "size[10,8]"..
		"background[-0.2,-0.25;10.4,8.75;jeija_luac_background.png]"..
		"textarea[0.2,0.6;10.2,5;code;;"..code.."]"..
		"image_button[3.75,6;2.5,1;jeija_luac_runbutton.png;program;]"..
		"image_button_exit[9.72,-0.25;0.425,0.4;jeija_close_window.png;exit;]"..
		"label[0.1,5;"..errmsg.."]")
	meta:set_int("heat", 0)
	meta:set_int("luac_id", math.random(1, 65535))
end--]]

-- used to avoid possibly crashes
local function get_code_or_nil(pname, player_name, template_name)
	local player_templates = templates[player_name]
	if not player_templates then
		minetest.chat_send_player(pname, "error: "..player_name.." doesn't have templates now")
		return
	end
	local code = player_templates[template_name]
	if not code then
		minetest.chat_send_player(pname, "error: "..template_name.." doesn't exist now")
		return
	end
	return code
end

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "moremesecons:luacontroller_tool"
	or fields.quit
	or not player then
		return
	end

	--minetest.chat_send_all(dump(fields))

	local pname = player:get_player_name()

	if fields.player_name
	and fields.player_name ~= pdata[pname].player_name then
		-- show available templates of that player
		minetest.show_formspec(pname, "moremesecons:luacontroller_tool",
			get_selection_formspec(fields.player_name, pdata[pname].template_name)
		)
		pdata[pname].player_name = fields.player_name
		return
	end

	if fields.template_name
	and fields.template_name ~= pdata[pname].template_name then
		-- show selected template of that player
		minetest.show_formspec(pname, "moremesecons:luacontroller_tool",
			get_selection_formspec(pdata[pname].player_name, fields.template_name)
		)
		pdata[pname].template_name = fields.template_name
		return
	end

	local pos = pdata[pname].pos
	if not is_luacontroller(pos) then
		-- this can happen
		return
	end

	local meta = minetest.get_meta(pos)

	if fields.button == "set" then
		-- replace the code of the luacontroller with the template
		local code = get_code_or_nil(pname, fields.player_name, fields.template_name)
		if code then
			set_luacontroller_code(pos, code)
			minetest.chat_send_player(pname, "code set to template at "..vector.pos_to_string(pos))
		end
		return
	end

	if fields.button == "add" then
		-- add the template to the end of the code of the luacontroller
		local code = get_code_or_nil(pname, fields.player_name, fields.template_name)
		if code then
			set_luacontroller_code(pos, meta:get_string("code").."\r"..code)
			minetest.chat_send_player(pname, "code added to luacontroller at "..vector.pos_to_string(pos))
		end
		return
	end

	if fields.button == "save" then
		-- save the template, when you try to change others' templates, yours become changed
		local savename = fields.template_name
		if fields.save_name
		and fields.save_name ~= ""
		and fields.save_name ~= savename then
			savename = minetest.formspec_escape(fields.save_name)
		end
		local code = fields.template_code
		if not code then
			minetest.chat_send_player(pname, "error: template code missing")
			return
		end
		templates[pname] = templates[pname] or {}
		if code == "" then
			templates[pname][savename] = nil
			if not next(templates[pname]) then
				templates[pname] = nil
			end
			minetest.chat_send_player(pname, "template removed")
			save()
			return
		end
		code = minetest.formspec_escape(code)
		if templates[pname][savename] == code then
			minetest.chat_send_player(pname, "template not saved because it didn't change")
			return
		end
		templates[pname][savename] = code
		save()
		minetest.chat_send_player(pname, "template "..pname.."/"..template_name.." saved")
		return
	end
end)