musttest_game/mods/serveressentials/teleport.lua

-- Localize for performance.
local vector_round = vector.round

function serveressentials.do_teleport(name, param)
	name = name:trim()
	param = param:trim()

	-- Returns (pos, true) if found, otherwise (pos, false)
	local function find_free_position_near(pos)
		pos = vector_round(pos)
		local tries = {
			{x=1,y=0,z=0},
			{x=-1,y=0,z=0},
			{x=0,y=0,z=1},
			{x=0,y=0,z=-1},
		}
		for _, d in ipairs(tries) do
			local p = {x = pos.x+d.x, y = pos.y+d.y, z = pos.z+d.z}
			local n = core.get_node_or_nil(p)
			if n and n.name then
				local def = core.registered_nodes[n.name]
				if def and not def.walkable then
					if rc.is_valid_realm_pos(p) then
						return p, true
					end
				end
			end
		end
		return pos, false
	end

	local teleportee = nil
	local p = {}
	p.x, p.y, p.z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
	p.x = tonumber(p.x)
	p.y = tonumber(p.y)
	p.z = tonumber(p.z)
	if p.x and p.y and p.z then
		p = vector_round(p)
		local lm = 31000
		if p.x < -lm or p.x > lm or p.y < -lm or p.y > lm or p.z < -lm or p.z > lm then
			return false, "Cannot teleport out of map bounds."
		end
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport outside of any realm."
		end
		teleportee = core.get_player_by_name(name)
		if teleportee then
			local o = vector_round(teleportee:get_pos())
			rc.notify_realm_update(teleportee:get_player_name(), p)
			teleportee:set_pos(p)
			return true, "Teleporting from " .. rc.pos_to_namestr(o) .. " to " .. core.pos_to_string(p) .. ", which is @ " .. rc.pos_to_namestr(p) .. "."
		end
	end

	local teleportee = nil
	local p = {}
	local realm = nil
	--minetest.chat_send_player(name, param)
	realm, p.x, p.y, p.z = string.match(param, "^([^ ]+) *: *([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
	p.x = tonumber(p.x)
	p.y = tonumber(p.y)
	p.z = tonumber(p.z)
	--minetest.chat_send_player(name, "Got: " .. realm .. ":" .. p.x .. "," .. p.y .. "," .. p.z)
	if realm and p.x and p.y and p.z then
		p = rc.realmpos_to_pos(realm, p)
		if not p then
			return false, "Cannot interpret realm coordinates."
		end
		local lm = 31000
		if p.x < -lm or p.x > lm or p.y < -lm or p.y > lm or p.z < -lm or p.z > lm then
			return false, "Cannot teleport out of map bounds."
		end
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport outside of any realm."
		end
		teleportee = core.get_player_by_name(name)
		if teleportee then
			local o = vector_round(teleportee:get_pos())
			rc.notify_realm_update(teleportee:get_player_name(), p)
			teleportee:set_pos(p)
			return true, "Teleporting from " .. rc.pos_to_namestr(o) .. " to " .. rc.pos_to_namestr(p) .. "."
		end
	end

	local teleportee = nil
	local p = nil
	local target_name = nil
	target_name = param:match("^([^ ]+)$")
	teleportee = core.get_player_by_name(name)
	if target_name then
		local target = core.get_player_by_name(target_name)
		if target then
			p = vector_round(target:get_pos())
		end
	end
	if teleportee and p then
		p = find_free_position_near(p)
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport outside of any realm."
		end
		local o = vector_round(teleportee:get_pos())
		rc.notify_realm_update(teleportee:get_player_name(), p)
		teleportee:set_pos(p)
		return true, "Teleporting from " .. rc.pos_to_namestr(o) .. " to <" .. rename.gpn(target_name) .. "> at " .. rc.pos_to_namestr(p) .. "."
	end

	if not core.check_player_privs(name, {bring=true}) then
		return false, "You don't have permission to teleport other players (missing bring privilege)."
	end

	local teleportee = nil
	local p = {}
	local teleportee_name = nil
	teleportee_name, p.x, p.y, p.z = param:match("^([^ ]+) +([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
	p.x, p.y, p.z = tonumber(p.x), tonumber(p.y), tonumber(p.z)
	if teleportee_name then
		teleportee = core.get_player_by_name(teleportee_name)
	end
	if teleportee and p.x and p.y and p.z then
		p = vector_round(p)
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport players outside realm boundaries."
		end
		local o = vector_round(teleportee:get_pos())
		rc.notify_realm_update(teleportee:get_player_name(), p)
		teleportee:set_pos(p)
		return true, "Teleporting <" .. rename.gpn(teleportee_name) .. "> from " .. rc.pos_to_namestr(o) .. " to " .. core.pos_to_string(p) .. ", which is @ " .. rc.pos_to_namestr(p) .. "."
	end

	local teleportee = nil
	local p = {}
	local teleportee_name = nil
	local realm = nil
	teleportee_name, realm, p.x, p.y, p.z = param:match("^([^ ]+) +([^ ]+) *: *([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
	p.x, p.y, p.z = tonumber(p.x), tonumber(p.y), tonumber(p.z)
	if teleportee_name then
		teleportee = core.get_player_by_name(teleportee_name)
	end
	if teleportee and realm and p.x and p.y and p.z then
		p = rc.realmpos_to_pos(realm, p)
		if not p then
			return false, "Cannot interpret realm coordinates."
		end
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport players outside realm boundaries."
		end
		local o = vector_round(teleportee:get_pos())
		rc.notify_realm_update(teleportee:get_player_name(), p)
		teleportee:set_pos(p)
		return true, "Teleporting <" .. rename.gpn(teleportee_name) .. "> from " .. rc.pos_to_namestr(o) .. " to " .. rc.pos_to_namestr(p) .. "."
	end

	local teleportee = nil
	local p = nil
	local teleportee_name = nil
	local target_name = nil
	teleportee_name, target_name = string.match(param, "^([^ ]+) +([^ ]+)$")
	if teleportee_name then
		teleportee = core.get_player_by_name(teleportee_name)
	end
	if target_name then
		local target = core.get_player_by_name(target_name)
		if target then
			p = target:get_pos()
		end
	end
	if teleportee and p then
		p = vector_round(p)
		if not rc.is_valid_realm_pos(p) then
			return false, "Cannot teleport players outside realm boundaries."
		end
		p = find_free_position_near(p)
		local o = vector_round(teleportee:get_pos())
		rc.notify_realm_update(teleportee:get_player_name(), p)
		teleportee:set_pos(p)
		return true, "Teleporting <" .. rename.gpn(teleportee_name) .. "> from " .. rc.pos_to_namestr(o) .. " to <" .. rename.gpn(target_name) .. "> at " .. rc.pos_to_namestr(p) .. "."
	end

	return false, 'Invalid parameters or player not found (see /help teleport).'
end