local editing = {}
local F = minetest.formspec_escape

minetest.register_node("luabutton:luabutton",{
  description = "Lua Button",
  paramtype = "light",
  paramtype2 = "facedir",
  drawtype = "nodebox",
  node_box = {
	type = "fixed",
	fixed = {
		{-0.3, -0.3, 0.4, 0.3, 0.3, 0.5},
		{-0.1, -0.1, 0.4, 0.1, 0.1, 0.35},
	}
  },
  tiles = {"luabutton.png"},
  inventory_image = "luabutton.png",
  groups = {not_in_creative_inventory=1,unbreakable=1},
  on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
	local name = clicker:get_player_name()
	local ctrl = clicker:get_player_control()
	local meta = minetest.get_meta(pos)
	if ctrl.aux1 and minetest.check_player_privs(clicker,{server=true}) then
		minetest.show_formspec(name, "luabutton_code", "size[16,9]" ..
			"style[code;font=mono]" ..
			"field[0.4,0.5;15.7,1;infotext;Infotext;"..F(meta:get_string("infotext")).."]" ..
			"textarea[0.4,1.3;15.7,8.3;code;Variables: pos\\, node\\, clicker\\, itemstack\\, pointed_thing;"..F(meta:get_string("code")).."]" ..
			"set_focus[save]" ..
			"button[13.8,8.4;2,1;save;Save]")
		editing[name] = pos
		return itemstack
	end
	local code = meta and meta:get_string("code")
	if not code or code == "" then
		return
	end
	local func, synerr = loadstring("return function(pos,node,clicker,itemstack,pointed_thing)"..code.." end")
	if func then
		local good, err = pcall(func(),pos,node,clicker,itemstack,pointed_thing)
		if not good then
			minetest.chat_send_player(name,"/!\\ LuaButton error: "..dump(err))
		end
	else
		minetest.chat_send_player(name,"/!\\ LuaButton error: "..dump(synerr))
	end
  end,
  on_blast = function(pos, intensity)
  end,
})

minetest.register_node("luabutton:luaplate",{
  description = "Lua pressure plate",
  paramtype = "light",
  paramtype2 = "facedir",
  drawtype = "nodebox",
  node_box = {
	type = "fixed",
	fixed = {
		{-0.4, -0.45, -0.4, 0.4, -0.5, 0.4},
	}
  },
  tiles = {"luaplate.png"},
  inventory_image = "luaplate.png",
  groups = {not_in_creative_inventory=1,unbreakable=1},
  on_timer = function(pos, elapsed)
	local timer = minetest.get_node_timer(pos)
	timer:start(0.3)
	local objs = minetest.get_objects_inside_radius(pos, 0.8)
	if not objs or #objs == 0 then
		return
	end
	local meta = minetest.get_meta(pos)
	local code = meta and meta:get_string("code")
	if not code or code == "" then
		return
	end
	for _,obj in ipairs(objs) do
		if obj:is_player() then
			local name = obj:get_player_name()
			local func, synerr = loadstring("return function(pos,player)"..code.." end")
			if func then
				local good, err = pcall(func(),pos,obj)
				if not good then
					minetest.chat_send_player(name,"/!\\ LuaPlate error: "..dump(err))
				end
			else
				minetest.chat_send_player(name,"/!\\ LuaPlate error: "..dump(synerr))
			end
		end
	end
  end,
  on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
	local name = clicker:get_player_name()
	local ctrl = clicker:get_player_control()
	local meta = minetest.get_meta(pos)
	if ctrl.aux1 and minetest.check_player_privs(clicker,{server=true}) then
		minetest.show_formspec(name, "luaplate_code", "size[16,9]" ..
			"style[code;font=mono]" ..
			"field[0.4,0.5;15.7,1;infotext;Infotext;"..F(meta:get_string("infotext")).."]" ..
			"textarea[0.4,1.3;15.7,8.3;code;Variables: pos\\, player;"..F(meta:get_string("code")).."]" ..
			"set_focus[save]" ..
			"button[13.8,8.4;2,1;save;Save]")
		editing[name] = pos
		return itemstack
	end
  end,
  on_blast = function(pos, intensity)
  end,
})

minetest.register_node("luabutton:luatrigger",{
  description = "Lua invisible trigger",
  paramtype = "light",
  drawtype = "airlike",
  pointable = false,
  walkable = false,
  inventory_image = "luatrigger.png",
  groups = {not_in_creative_inventory=1,unbreakable=1},
  on_timer = function(pos, elapsed)
	local timer = minetest.get_node_timer(pos)
	timer:start(0.3)
	local objs = minetest.get_objects_inside_radius(pos, 1)
	if not objs or #objs == 0 then
		return
	end
	local meta = minetest.get_meta(pos)
	local code = meta and meta:get_string("code")
	if not code or code == "" then
		return
	end
	for _,obj in ipairs(objs) do
		if obj:is_player() then
			local name = obj:get_player_name()
			local func, synerr = loadstring("return function(pos,player)"..code.." end")
			if func then
				local good, err = pcall(func(),pos,obj)
				if not good then
					minetest.chat_send_player(name,"/!\\ LuaTrigger error: "..dump(err))
				end
			else
				minetest.chat_send_player(name,"/!\\ LuaTrigger error: "..dump(synerr))
			end
		end
	end
  end,
  on_place = function(itemstack, placer, pointed_thing)
	local pos = pointed_thing.above
	local node = minetest.get_node(pos)
	local name = placer:get_player_name()
	local ctrl = placer:get_player_control()
	local meta = minetest.get_meta(pos)
	if ctrl.aux1 and minetest.check_player_privs(placer,{server=true}) and node.name == "luabutton:luatrigger" then
		minetest.show_formspec(name, "luatrigger_code", "size[16,9]" ..
			"style[code;font=mono]" ..
			"textarea[0.4,0.3;15.7,9.1;code;Variables: pos\\, player;"..F(meta:get_string("code")).."]" ..
			"button_exit[0.1,8.4;2,1;removetrigger;Remove trigger]" ..
			"set_focus[save]" ..
			"button[13.8,8.4;2,1;save;Save]")
		editing[name] = pos
		return itemstack
	elseif node.name ~= "luabutton:luatrigger" then
		minetest.item_place(itemstack, placer, pointed_thing)
		minetest.add_particle({
			playername = name,
			pos = pos,
			velocity = {x=0, y=0, z=0},
			acceleration = {x=0, y=0, z=0},
			expirationtime = 3,
			size = 10,
			collisiondetection = false,
			collision_removal = false,
			vertical = false,
			texture = "cdb_add.png",
			glow = 14
		})
	end
  end,
  on_blast = function(pos, intensity)
  end,
})

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "luabutton_code" and formname ~= "luaplate_code" and formname ~= "luatrigger_code" then return end
	local name = player:get_player_name()
	if fields.save then
		local pos = editing[name]
		local meta = pos and minetest.get_meta(pos)
		if not meta then return end
		meta:set_string("code",fields.code)
		if fields.infotext then
			meta:set_string("infotext",fields.infotext)
		end
		meta:mark_as_private("code")
		minetest.chat_send_player(name,"Saved")
		local timer = minetest.get_node_timer(pos)
		timer:start(0.3)
	end
	if fields.removetrigger then
		minetest.remove_node(editing[name])
		minetest.chat_send_player(name,"Successfuly removed trigger")
	end
	if fields.quit then
		editing[name] = nil
	end
end)