assets/blender/gleis/texturen/uv.png

-- Minetest: builtin/game/chat.lua

local S = core.get_translator("__builtin")

-- Helper function that implements search and replace without pattern matching
-- Returns the string and a boolean indicating whether or not the string was modified
local function safe_gsub(s, replace, with)
	local i1, i2 = s:find(replace, 1, true)
	if not i1 then
		return s, false
	end

	return s:sub(1, i1 - 1) .. with .. s:sub(i2 + 1), true
end

--
-- Chat message formatter
--

-- Implemented in Lua to allow redefinition
function core.format_chat_message(name, message)
	local error_str = "Invalid chat message format - missing %s"
	local str = core.settings:get("chat_message_format")
	local replaced

	-- Name
	str, replaced = safe_gsub(str, "@name", name)
	if not replaced then
		error(error_str:format("@name"), 2)
	end

	-- Timestamp
	str = safe_gsub(str, "@timestamp", os.date("%H:%M:%S", os.time()))

	-- Insert the message into the string only after finishing all other processing
	str, replaced = safe_gsub(str, "@message", message)
	if not replaced then
		error(error_str:format("@message"), 2)
	end

	return str
end

--
-- Chat command handler
--

core.chatcommands = core.registered_chatcommands -- BACKWARDS COMPATIBILITY

local msg_time_threshold =
	tonumber(core.settings:get("chatcommand_msg_time_threshold")) or 0.1
core.register_on_chat_message(function(name, message)
	if message:sub(1,1) ~= "/" then
		return
	end

	local cmd, param = string.match(message, "^/([^ ]+) *(.*)")
	if not cmd then
		core.chat_send_player(name, "-!- "..S("Empty command."))
		return true
	end

	param = param or ""

	-- Run core.registered_on_chatcommands callbacks.
	if core.run_callbacks(core.registered_on_chatcommands, 5, name, cmd, param) then
		return true
	end

	local cmd_def = core.registered_chatcommands[cmd]
	if not cmd_def then
		core.chat_send_player(name, "-!- "..S("Invalid command: @1", cmd))
		return true
	end
	local has_privs, missing_privs = core.check_player_privs(name, cmd_def.privs)
	if has_privs then
		core.set_last_run_mod(cmd_def.mod_origin)
		local t_before = core.get_us_time()
		local success, result = cmd_def.func(name, param)
		local delay = (core.get_us_time() - t_before) / 1000000
		if success == false and result == nil then
			core.chat_send_player(name, "-!- "..S("Invalid command usage."))
			local help_def = core.registered_chatcommands["help"]
			if help_def then
				local _, helpmsg = help_def.func(name, cmd)
				if helpmsg then
					core.chat_send_player(name, helpmsg)
				end
			end
		else
			if delay > msg_time_threshold then
				-- Show how much time it took to execute the command
				if result then
					result = result .. core.colorize("#f3d2ff", S(" (@1 s)",
						string.format("%.5f", delay)))
				else
					result = core.colorize("#f3d2ff", S(
						"Command execution took @1 s",
						string.format("%.5f", delay)))
				end
			end
			if result then
				core.chat_send_player(name, result)
			end
		end
	else
		core.chat_send_player(name,
				S("You don't have permission to run this command "
				.. "(missing privileges: @1).",
				table.concat(missing_privs, ", ")))
	end
	return true  -- Handled chat message
end)

if core.settings:get_bool("profiler.load") then
	-- Run after register_chatcommand and its register_on_chat_message
	-- Before any chatcommands that should be profiled
	profiler.init_chatcommand()
end

-- Parses a "range" string in the format of "here (number)" or
-- "(x1, y1, z1) (x2, y2, z2)", returning two position vectors
local function parse_range_str(player_name, str)
	local p1, p2
	local args = str:split(" ")

	if args[1] == "here" then
		p1, p2 = core.get_player_radius_area(player_name, tonumber(args[2]))
		if p1 == nil then
			return false, S("Unable to get position of player @1.", player_name)
		end
	else
		p1, p2 = core.string_to_area(str)
		if p1 == nil then
			return false, S("Incorrect area format. "
				.. "Expected: (x1,y1,z1) (x2,y2,z2)")
		end
	end

	return p1, p2
end

--
-- Chat commands
--
core.register_chatcommand("me", {
	params = S("<action>"),
	description = S("Show chat action (e.g., '/me orders a pizza' "
		.. "displays '<player name> orders a pizza')"),
	privs = {shout=true},
	func = function(name, param)
		core.chat_send_all("* " .. name .. " " .. param)
		return true
	end,
})

core.register_chatcommand("admin", {
	description = S("Show the name of the server owner"),
	func = function(name)
		local admin = core.settings:get("name")
		if admin then
			return true, S("The administrator of this server is @1.", admin)
		else
			return false, S("There's no administrator named "
				.. "in the config file.")
		end
	end,
})

local function privileges_of(name, privs)
	if not privs then
		privs = core.get_player_privs(name)
	end
	local privstr = core.privs_to_string(privs, ", ")
	if privstr == "" then
		return S("@1 does not have any privileges.", name)
	else
		return S("Privileges of @1: @2", name, privstr)
	end
end

core.register_chatcommand("privs", {
	params = S("[<name>]"),
	description = S("Show privileges of yourself or another player"),
	func = function(caller, param)
		param = param:trim()
		local name = (param ~= "" and param or caller)
		if not core.player_exists(name) then
			return false, S("Player @1 does not exist.", name)
		end
		return true, privileges_of(name)
	end,
})

core.register_chatcommand("haspriv", {
	params = S("<privilege>"),
	description = S("Return list of all online players with privilege"),
	privs = {basic_privs = true},
	func = function(caller, param)
		param = param:trim()
		if param == "" then
			return false, S("Invalid parameters (see /help haspriv).")
		end
		if not core.registered_privileges[param] then
			return false, S("Unknown privilege!")
		end
		local privs = core.string_to_privs(param)
		local players_with_priv = {}
		for _, player in pairs(core.get_connected_players()) do
			local player_name = player:get_player_name()
			if core.check_player_privs(player_name, privs) then
				table.insert(players_with_priv, player_name)
			end
		end
		if #players_with_priv == 0 then
			return true, S("No online player has the \"@1\" privilege.",
					param)
		else
			return true, S("Players online with the \"@1\" privilege: @2",
					param,
					table.concat(players_with_priv, ", "))
		end
	end
})

local function handle_grant_command(caller, grantname, grantprivstr)
	local caller_privs = core.get_player_privs(caller)
	if not (caller_privs.privs or caller_privs.basic_privs) then
		return false, S("Your privileges are insufficient.")
	end

	if not core.get_auth_handler().get_auth(grantname) then
		return false, S("Player @1 does not exist.", grantname)
	end
	local grantprivs = core.string_to_privs(grantprivstr)
	if grantprivstr == "all" then
		grantprivs = core.registered_privileges
	end
	local privs = core.get_player_privs(grantname)
	local privs_unknown = ""
	local basic_privs =
		core.string_to_privs(core.settings:get("basic_privs") or "interact,shout")
	for priv, _ in pairs(grantprivs) do
		if not basic_privs[priv] and not caller_privs.privs then
			return false, S("Your privileges are insufficient. "..
					"'@1' only allows you to grant: @2",
					"basic_privs",
					core.privs_to_string(basic_privs, ', '))
		end
		if not core.registered_privileges[priv] then
			privs_unknown = privs_unknown .. S("Unknown privilege: @1", priv) .. "\n"
		end
		privs[priv] = true
	end
	if privs_unknown ~= "" then
		return false, privs_unknown
	end
	for priv, _ in pairs(grantprivs) do
		-- call the on_grant callbacks
		core.run_priv_callbacks(grantname, priv, caller, "grant")
	end
	core.set_player_privs(grantname, privs)
	core.log("action", caller..' granted ('..core.privs_to_string(grantprivs, ', ')..') privileges to '..grantname)
	if grantname ~= caller then
		core.chat_send_player(grantname,
				S("@1 granted you privileges: @2", caller,
				core.privs_to_string(grantprivs, ', ')))
	end
	return true, privileges_of(grantname)
end

core.register_chatcommand("grant", {
	params = S("<name> (<privilege> [, <privilege2> [<...>]] | all)"),
	description = S("Give privileges to player"),
	func = function(name, param)
		local grantname, grantprivstr = string.match(param, "([^ ]+) (.+)")
		if not grantname or not grantprivstr then
			return false, S("Invalid parameters (see /help grant).")
		end
		return handle_grant_command(name, grantname, grantprivstr)
	end,
})

core.register_chatcommand("grantme", {
	params = S("<privilege> [, <privilege2> [<...>]] | all"),
	description = S("Grant privileges to yourself"),
	func = function(name, param)
		if param == "" then
			return false, S("Invalid parameters (see /help grantme).")
		end
		return handle_grant_command(name, name, param)
	end,
})

local function handle_revoke_command(caller, revokename, revokeprivstr)
	local caller_privs = core.get_player_privs(caller)
	if not (caller_privs.privs or caller_privs.basic_privs) then
		return false, S("Your privileges are insufficient.")
	end

	if not core.get_auth_handler().get_auth(revokename) then
		return false, S("Player @1 does not exist.", revokename)
	end

	local privs = core.get_player_privs(revokename)

	local revokeprivs = core.string_to_privs(revokeprivstr)
	local is_singleplayer = core.is_singleplayer()
	local is_admin = not is_singleplayer
			and revokename == core.settings:get("name")
			and revokename ~= ""
	if revokeprivstr == "all" then
		revokeprivs = privs
		privs = {}
	else
		for priv, _ in pairs(revokeprivs) do
			privs[priv] = nil
		end
	end

	local privs_unknown = ""
	local basic_privs =
		core.string_to_privs(core.settings:get("basic_privs") or "interact,shout")
	local irrevokable = {}
	local has_irrevokable_priv = false
	for priv, _ in pairs(revokeprivs) do
		if not basic_privs[priv] and not caller_privs.privs then
			return false, S("Your privileges are insufficient. "..
					"'@1' only allows you to revoke: @2",
					"basic_privs",
					core.privs_to_string(basic_privs, ', '))
		end
		local def = core.registered_privileges[priv]
		if not def then
			privs_unknown = privs_unknown .. S("Unknown privilege: @1", priv) .. "\n"
		elseif is_singleplayer and def.give_to_singleplayer then
			irrevokable[priv] = true
		elseif is_admin and def.give_to_admin then
			irrevokable[priv] = true
		end
	end
	for priv, _ in pairs(irrevokable) do
		revokeprivs[priv] = nil
		has_irrevokable_priv = true
	end
	if privs_unknown ~= "" then
		return false, privs_unknown
	end
	if has_irrevokable_priv then
		if is_singleplayer then
			core.chat_send_player(caller,
					S("Note: Cannot revoke in singleplayer: @1",
					core.privs_to_string(irrevokable, ', ')))
		elseif is_admin then
			core.chat_send_player(caller,
					S("Note: Cannot revoke from admin: @1",
					core.privs_to_string(irrevokable, ', ')))
		end
	end

	local revokecount = 0
	for priv, _ in pairs(revokeprivs) do
		-- call the on_revoke callbacks
		core.run_priv_callbacks(revokename, priv, caller, "revoke")
		revokecount = revokecount + 1
	end

	core.set_player_privs(revokename, privs)
	local new_privs = core.get_player_privs(revokename)

	if revokecount == 0 then
		return false, S("No privileges were revoked.")
	end

	core.log("action", caller..' revoked ('
			..core.privs_to_string(revokeprivs, ', ')
			..') privileges from '..revokename)
	if revokename ~= caller then
		core.chat_send_player(revokename,
			S("@1 revoked privileges from you: @2", caller,
			core.privs_to_string(revokeprivs, ', ')))
	end
	return true, privileges_of(revokename, new_privs)
end

core.register_chatcommand("revoke", {
	params = S("<name> (<privilege> [, <privilege2> [<...>]] | all)"),
	description = S("Remove privileges from player"),
	privs = {},
	func = function(name, param)
		local revokename, revokeprivstr = string.match(param, "([^ ]+) (.+)")
		if not revokename or not revokeprivstr then
			return false, S("Invalid parameters (see /help revoke).")
		end
		return handle_revoke_command(name, revokename, revokeprivstr)
	end,
})

core.register_chatcommand("revokeme", {
	params = S("<privilege> [, <privilege2> [<...>]] | all"),
	description = S("Revoke privileges from yourself"),
	privs = {},
	func = function(name, param)
		if param == "" then
			return false, S("Invalid parameters (see /help revokeme).")
		end
		return handle_revoke_command(name, name, param)
	end,
})

core.register_chatcommand("setpassword", {
	params = S("<name> <password>"),
	description = S("Set player's password"),
	privs = {password=true},
	func = function(name, param)
		local toname, raw_password = string.match(param, "^([^ ]+) +(.+)$")
		if not toname then
			toname = param:match("^([^ ]+) *$")
			raw_password = nil
		end

		if not toname then
			return false, S("Name field required.")
		end

		local msg_chat, msg_log, msg_ret
		if not raw_password then
			core.set_player_password(toname, "")
			msg_chat = S("Your password was cleared by @1.", name)
			msg_log = name .. " clears password of " .. toname .. "."
			msg_ret = S("Password of player \"@1\" cleared.", toname)
		else
			core.set_player_password(toname,
					core.get_password_hash(toname,
							raw_password))
			msg_chat = S("Your password was set by @1.", name)
			msg_log = name .. " sets password of " .. toname .. "."
			msg_ret = S("Password of player \"@1\" set.", toname)
		end

		if toname ~= name then
			core.chat_send_player(toname, msg_chat)
		end

		core.log("action", msg_log)

		return true, msg_ret
	end,
})

core.register_chatcommand("clearpassword", {
	params = S("<name>"),
	description = S("Set empty password for a player"),
	privs = {password=true},
	func = function(name, param)
		local toname = param
		if toname == "" then
			return false, S("Name field required.")
		end
		core.set_player_password(toname, '')

		core.log("action", name .. " clears password of " .. toname .. ".")

		return true, S("Password of player \"@1\" cleared.", toname)
	end,
})

core.register_chatcommand("auth_reload", {
	params = "",
	description = S("Reload authentication data"),
	privs = {server=true},
	func = function(name, param)
		local done = core.auth_reload()
		return done, (done and S("Done.") or S("Failed."))
	end,
})

core.register_chatcommand("remove_player", {
	params = S("<name>"),
	description = S("Remove a player's data"),
	privs = {server=true},
	func = function(name, param)
		local toname = param
		if toname == "" then
			return false, S("Name field required.")
		end

		local rc = core.remove_player(toname)

		if rc == 0 then
			core.log("action", name .. " removed player data of " .. toname .. ".")
			return true, S("Player \"@1\" removed.", toname)
		elseif rc == 1 then
			return true, S("No such player \"@1\" to remove.", toname)
		elseif rc == 2 then
			return true, S("Player \"@1\" is connected, cannot remove.", toname)
		end

		return false, S("Unhandled remove_player return code @1.", tostring(rc))
	end,
})


-- pos may be a non-integer position
local function find_free_position_near(pos)
	local tries = {
		vector.new( 1, 0,  0),
		vector.new(-1, 0,  0),
		vector.new( 0, 0,  1),
		vector.new( 0, 0, -1),
	}
	for _, d in ipairs(tries) do
		local p = vector.add(pos, d)
		local n = core.get_node_or_nil(p)
		if n then
			local def = core.registered_nodes[n.name]
			if def and not def.walkable then
				return p
			end
		end
	end
	return pos
end

-- Teleports player <name> to <p> if possible
local function teleport_to_pos(name, 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, S("Cannot teleport out of map bounds!")
	end
	local teleportee = core.get_player_by_name(name)
	if not teleportee then
		return false, S("Cannot get player with name @1.", name)
	end
	if teleportee:get_attach() then
		return false, S("Cannot teleport, @1 " ..
			"is attached to an object!", name)
	end
	teleportee:set_pos(p)
	return true, S("Teleporting @1 to @2.", name, core.pos_to_string(p, 1))
end

-- Teleports player <name> next to player <target_name> if possible
local function teleport_to_player(name, target_name)
	if name == target_name then
		return false, S("One does not teleport to oneself.")
	end
	local teleportee = core.get_player_by_name(name)
	if not teleportee then
		return false, S("Cannot get teleportee with name @1.", name)
	end
	if teleportee:get_attach() then
		return false, S("Cannot teleport, @1 " ..
			"is attached to an object!", name)
	end
	local target = core.get_player_by_name(target_name)
	if not target then
		return false, S("Cannot get target player with name @1.", target_name)
	end
	local p = find_free_position_near(target:get_pos())
	teleportee:set_pos(p)
	return true, S("Teleporting @1 to @2 at @3.", name, target_name,
		core.pos_to_string(p, 1))
end

core.register_chatcommand("teleport", {
	params = S("<X>,<Y>,<Z> | <to_name> | <name> <X>,<Y>,<Z> | <name> <to_name>"),
	description = S("Teleport to position or player"),
	privs = {teleport=true},
	func = function(name, param)
		local p = {}
		p.x, p.y, p.z = param:match("^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
		p = vector.apply(p, tonumber)
		if p.x and p.y and p.z then
			return teleport_to_pos(name, p)
		end

		local target_name = param:match("^([^ ]+)$")
		if target_name then
			return teleport_to_player(name, target_name)
		end

		local has_bring_priv = core.check_player_privs(name, {bring=true})
		local missing_bring_msg = S("You don't have permission to teleport " ..
			"other players (missing privilege: @1).", "bring")

		local teleportee_name
		teleportee_name, p.x, p.y, p.z = param:match(
				"^([^ ]+) +([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
		p = vector.apply(p, tonumber)
		if teleportee_name and p.x and p.y and p.z then
			if not has_bring_priv then
				return false, missing_bring_msg
			end
			return teleport_to_pos(teleportee_name, p)
		end

		teleportee_name, target_name = string.match(param, "^([^ ]+) +([^ ]+)$")
		if teleportee_name and target_name then
			if not has_bring_priv then
				return false, missing_bring_msg
			end
			return teleport_to_player(teleportee_name, target_name)
		end

		return false
	end,
})

core.register_chatcommand("set", {
	params = S("([-n] <name> <value>) | <name>"),
	description = S("Set or read server configuration setting"),
	privs = {server=true},
	func = function(name, param)
		local arg, setname, setvalue = string.match(param, "(-[n]) ([^ ]+) (.+)")
		if arg and arg == "-n" and setname and setvalue then
			core.settings:set(setname, setvalue)
			return true, setname .. " = " .. setvalue
		end

		setname, setvalue = string.match(param, "([^ ]+) (.+)")
		if setname and setvalue then
			if not core.settings:get(setname) then
				return false, S("Failed. Use '/set -n <name> <value>' "
					.. "to create a new setting.")
			end
			core.settings:set(setname, setvalue)
			return true, S("@1 = @2", setname, setvalue)
		end

		setname = string.match(param, "([^ ]+)")
		if setname then
			setvalue = core.settings:get(setname)
			if not setvalue then
				setvalue = S("<not set>")
			end
			return true, S("@1 = @2", setname, setvalue)
		end

		return false, S("Invalid parameters (see /help set).")
	end,
})

local function emergeblocks_callback(pos, action, num_calls_remaining, ctx)
	if ctx.total_blocks == 0 then
		ctx.total_blocks   = num_calls_remaining + 1
		ctx.current_blocks = 0
	end
	ctx.current_blocks = ctx.current_blocks + 1

	if ctx.current_blocks == ctx.total_blocks then
		core.chat_send_player(ctx.requestor_name,
			S("Finished emerging @1 blocks in @2ms.",
				ctx.total_blocks,
				string.format("%.2f", (os.clock() - ctx.start_time) * 1000)))
	end
end

local function emergeblocks_progress_update(ctx)
	if ctx.current_blocks ~= ctx.total_blocks then
		core.chat_send_player(ctx.requestor_name,
			S("emergeblocks update: @1/@2 blocks emerged (@3%)",
			ctx.current_blocks, ctx.total_blocks,
			string.format("%.1f", (ctx.current_blocks / ctx.total_blocks) * 100)))

		core.after(2, emergeblocks_progress_update, ctx)
	end
end

core.register_chatcommand("emergeblocks", {
	params = S("(here [<radius>]) | (<pos1> <pos2>)"),
	description = S("Load (or, if nonexistent, generate) map blocks contained in "
		.. "area pos1 to pos2 (<pos1> and <pos2> must be in parentheses)"),
	privs = {server=true},
	func = function(name, param)
		local p1, p2 = parse_range_str(name, param)
		if p1 == false then
			return false, p2
		end

		local context = {
			current_blocks = 0,
			total_blocks   = 0,
			start_time     = os.clock(),
			requestor_name = name
		}

		core.emerge_area(p1, p2, emergeblocks_callback, context)
		core.after(2, emergeblocks_progress_update, context)

		return true, S("Started emerge of area ranging from @1 to @2.",
			core.pos_to_string(p1, 1), core.pos_to_string(p2, 1))
	end,
})

core.register_chatcommand("deleteblocks", {
	params = S("(here [<radius>]) | (<pos1> <pos2>)"),
	description = S("Delete map blocks contained in area pos1 to pos2 "
		.. "(<pos1> and <pos2> must be in parentheses)"),
	privs = {server=true},
	func = function(name, param)
		local p1, p2 = parse_range_str(name, param)
		if p1 == false then
			return false, p2
		end

		if core.delete_area(p1, p2) then
			return true, S("Successfully cleared area "
				.. "ranging from @1 to @2.",
				core.pos_to_string(p1, 1), core.pos_to_string(p2, 1))
		else
			return false, S("Failed to clear one or more "
				.. "blocks in area.")
		end
	end,
})

core.register_chatcommand("fixlight", {
	params = S("(here [<radius>]) | (<pos1> <pos2>)"),
	description = S("Resets lighting in the area between pos1 and pos2 "
		.. "(<pos1> and <pos2> must be in parentheses)"),
	privs = {server = true},
	func = function(name, param)
		local p1, p2 = parse_range_str(name, param)
		if p1 == false then
			return false, p2
		end

		if core.fix_light(p1, p2) then
			return true, S("Successfully reset light in the area "
				.. "ranging from @1 to @2.",
				core.pos_to_string(p1, 1), core.pos_to_string(p2, 1))
		else
			return false, S("Failed to load one or more blocks in area.")
		end
	end,
})

core.register_chatcommand("mods", {
	params = "",
	description = S("List mods installed on the server"),
	privs = {},
	func = function(name, param)
		local mods = core.get_modnames()
		if #mods == 0 then
			return true, S("No mods installed.")
		else
			return true, table.concat(core.get_modnames(), ", ")
		end
	end,
})

local function handle_give_command(cmd, giver, receiver, stackstring)
	core.log("action", giver .. " invoked " .. cmd
			.. ', stackstring="' .. stackstring .. '"')
	local itemstack = ItemStack(stackstring)
	if itemstack:is_empty() then
		return false, S("Cannot give an empty item.")
	elseif (not itemstack:is_known()) or (itemstack:get_name() == "unknown") then
		return false, S("Cannot give an unknown item.")
	-- Forbid giving 'ignore' due to unwanted side effects
	elseif itemstack:get_name() == "ignore" then
		return false, S("Giving 'ignore' is not allowed.")
	end
	local receiverref = core.get_player_by_name(receiver)
	if receiverref == nil then
		return false, S("@1 is not a known player.", receiver)
	end
	local leftover = receiverref:get_inventory():add_item("main", itemstack)
	local partiality
	if leftover:is_empty() then
		partiality = nil
	elseif leftover:get_count() == itemstack:get_count() then
		partiality = false
	else
		partiality = true
	end
	-- The actual item stack string may be different from what the "giver"
	-- entered (e.g. big numbers are always interpreted as 2^16-1).
	stackstring = itemstack:to_string()
	local msg
	if partiality == true then
		msg = S("@1 partially added to inventory.", stackstring)
	elseif partiality == false then
		msg = S("@1 could not be added to inventory.", stackstring)
	else
		msg = S("@1 added to inventory.", stackstring)
	end
	if giver == receiver then
		return true, msg
	else
		core.chat_send_player(receiver, msg)
		local msg_other
		if partiality == true then
			msg_other = S("@1 partially added to inventory of @2.",
					stackstring, receiver)
		elseif partiality == false then
			msg_other = S("@1 could not be added to inventory of @2.",
					stackstring, receiver)
		else
			msg_other = S("@1 added to inventory of @2.",
					stackstring, receiver)
		end
		return true, msg_other
	end
end

core.register_chatcommand("give", {
	params = S("<name> <ItemString> [<count> [<wear>]]"),
	description = S("Give item to player"),
	privs = {give=true},
	func = function(name, param)
		local toname, itemstring = string.match(param, "^([^ ]+) +(.+)$")
		if not toname or not itemstring then
			return false, S("Name and ItemString required.")
		end
		return handle_give_command("/give", name, toname, itemstring)
	end,
})

core.register_chatcommand("giveme", {
	params = S("<ItemString> [<count> [<wear>]]"),
	description = S("Give item to yourself"),
	privs = {give=true},
	func = function(name, param)
		local itemstring = string.match(param, "(.+)$")
		if not itemstring then
			return false, S("ItemString required.")
		end
		return handle_give_command("/giveme", name, name, itemstring)
	end,
})

core.register_chatcommand("spawnentity", {
	params = S("<EntityName> [<X>,<Y>,<Z>]"),
	description = S("Spawn entity at given (or your) position"),
	privs = {give=true, interact=true},
	func = function(name, param)
		local entityname, p = string.match(param, "^([^ ]+) *(.*)$")
		if not entityname then
			return false, S("EntityName required.")
		end
		core.log("action", ("%s invokes /spawnentity, entityname=%q")
				:format(name, entityname))
		local player = core.get_player_by_name(name)
		if player == nil then
			core.log("error", "Unable to spawn entity, player is nil")
			return false, S("Unable to spawn entity, player is nil.")
		end
		if not core.registered_entities[entityname] then
			return false, S("Cannot spawn an unknown entity.")
		end
		if p == "" then
			p = player:get_pos()
		else
			p = core.string_to_pos(p)
			if p == nil then
				return false, S("Invalid parameters (@1).", param)
			end
		end
		p.y = p.y + 1
		local obj = core.add_entity(p, entityname)
		if obj then
			return true, S("@1 spawned.", entityname)
		else
			return true, S("@1 failed to spawn.", entityname)
		end
	end,
})

core.register_chatcommand("pulverize", {
	params = "",
	description = S("Destroy item in hand"),
	func = function(name, param)
		local player = core.get_player_by_name(name)
		if not player then
			core.log("error", "Unable to pulverize, no player.")
			return false, S("Unable to pulverize, no player.")
		end
		local wielded_item = player:get_wielded_item()
		if wielded_item:is_empty() then
			return false, S("Unable to pulverize, no item in hand.")
		end
		core.log("action", name .. " pulverized \"" ..
			wielded_item:get_name() .. " " .. wielded_item:get_count() .. "\"")
		player:set_wielded_item(nil)
		return true, S("An item was pulverized.")
	end,
})

-- Key = player name
core.rollback_punch_callbacks = {}

core.register_on_punchnode(function(pos, node, puncher)
	local name = puncher and puncher:get_player_name()
	if name and core.rollback_punch_callbacks[name] then
		core.rollback_punch_callbacks[name](pos, node, puncher)
		core.rollback_punch_callbacks[name] = nil
	end
end)

core.register_chatcommand("rollback_check", {
	params = S("[<range>] [<seconds>] [<limit>]"),
	description = S("Check who last touched a node or a node near it "
		.. "within the time specified by <seconds>. "
		.. "Default: range = 0, seconds = 86400 = 24h, limit = 5. "
		.. "Set <seconds> to inf for no time limit"),
	privs = {rollback=true},
	func = function(name, param)
		if not core.settings:get_bool("enable_rollback_recording") then
			return false, S("Rollback functions are disabled.")
		end
		local range, seconds, limit =
			param:match("(%d+) *(%d*) *(%d*)")
		range = tonumber(range) or 0
		seconds = tonumber(seconds) or 86400
		limit = tonumber(limit) or 5
		if limit > 100 then
			return false, S("That limit is too high!")
		end

		core.rollback_punch_callbacks[name] = function(pos, node, puncher)
			local name = puncher:get_player_name()
			core.chat_send_player(name, S("Checking @1 ...", core.pos_to_string(pos)))
			local actions = core.rollback_get_node_actions(pos, range, seconds, limit)
			if not actions then
				core.chat_send_player(name, S("Rollback functions are disabled."))
				return
			end
			local num_actions = #actions
			if num_actions == 0 then
				core.chat_send_player(name,
						S("Nobody has touched the specified "
						.. "location in @1 seconds.",
						seconds))
				return
			end
			local time = os.time()
			for i = num_actions, 1, -1 do
				local action = actions[i]
				core.chat_send_player(name,
					S("@1 @2 @3 -> @4 @5 seconds ago.",
							core.pos_to_string(action.pos),
							action.actor,
							action.oldnode.name,
							action.newnode.name,
							time - action.time))
			end
		end

		return true, S("Punch a node (range=@1, seconds=@2, limit=@3).",
				range, seconds, limit)
	end,
})

core.register_chatcommand("rollback", {
	params = S("(<name> [<seconds>]) | (:<actor> [<seconds>])"),
	description = S("Revert actions of a player. "
		.. "Default for <seconds> is 60. "
		.. "Set <seconds> to inf for no time limit"),
	privs = {rollback=true},
	func = function(name, param)
		if not core.settings:get_bool("enable_rollback_recording") then
			return false, S("Rollback functions are disabled.")
		end
		local target_name, seconds = string.match(param, ":([^ ]+) *(%d*)")
		local rev_msg
		if not target_name then
			local player_name
			player_name, seconds = string.match(param, "([^ ]+) *(%d*)")
			if not player_name then
				return false, S("Invalid parameters. "
					.. "See /help rollback and "
					.. "/help rollback_check.")
			end
			seconds = tonumber(seconds) or 60
			target_name = "player:"..player_name
			rev_msg = S("Reverting actions of player '@1' since @2 seconds.",
				player_name, seconds)
		else
			seconds = tonumber(seconds) or 60
			rev_msg = S("Reverting actions of @1 since @2 seconds.",
				target_name, seconds)
		end
		core.chat_send_player(name, rev_msg)
		local success, log = core.rollback_revert_actions_by(
				target_name, seconds)
		local response = ""
		if #log > 100 then
			response = S("(log is too long to show)").."\n"
		else
			for _, line in pairs(log) do
				response = response .. line .. "\n"
			end
		end
		if success then
			response = response .. S("Reverting actions succeeded.")
		else
			response = response .. S("Reverting actions FAILED.")
		end
		return success, response
	end,
})

core.register_chatcommand("status", {
	description = S("Show server status"),
	func = function(name, param)
		local status = core.get_server_status(name, false)
		if status and status ~= "" then
			return true, status
		end
		return false, S("This command was disabled by a mod or game.")
	end,
})

core.register_chatcommand("time", {
	params = S("[<0..23>:<0..59> | <0..24000>]"),
	description = S("Show or set time of day"),
	privs = {},
	func = function(name, param)
		if param == "" then
			local current_time = math.floor(core.get_timeofday() * 1440)
			local minutes = current_time % 60
			local hour = (current_time - minutes) / 60
			return true, S("Current time is @1:@2.",
					string.format("%d", hour),
					string.format("%02d", minutes))
		end
		local player_privs = core.get_player_privs(name)
		if not player_privs.settime then
			return false, S("You don't have permission to run "
				.. "this command (missing privilege: @1).", "settime")
		end
		local hour, minute = param:match("^(%d+):(%d+)$")
		if not hour then
			local new_time = tonumber(param)
			if not new_time then
				return false, S("Invalid time.")
			end
			-- Backward compatibility.
			core.set_timeofday((new_time % 24000) / 24000)
			core.log("action", name .. " sets time to " .. new_time)
			return true, S("Time of day changed.")
		end
		hour = tonumber(hour)
		minute = tonumber(minute)
		if hour < 0 or hour > 23 then
			return false, S("Invalid hour (must be between 0 and 23 inclusive).")
		elseif minute < 0 or minute > 59 then
			return false, S("Invalid minute (must be between 0 and 59 inclusive).")
		end
		core.set_timeofday((hour * 60 + minute) / 1440)
		core.log("action", ("%s sets time to %d:%02d"):format(name, hour, minute))
		return true, S("Time of day changed.")
	end,
})

core.register_chatcommand("days", {
	description = S("Show day count since world creation"),
	func = function(name, param)
		return true, S("Current day is @1.", core.get_day_count())
	end
})

local function parse_shutdown_param(param)
	local delay, reconnect, message
	local one, two, three
	one, two, three = param:match("^(%S+) +(%-r) +(.*)")
	if one and two and three then
		-- 3 arguments: delay, reconnect and message
		return one, two, three
	end
	-- 2 arguments
	one, two = param:match("^(%S+) +(.*)")
	if one and two then
		if tonumber(one) then
			delay = one
			if two == "-r" then
				reconnect = two
			else
				message = two
			end
		elseif one == "-r" then
			reconnect, message = one, two
		end
		return delay, reconnect, message
	end
	-- 1 argument
	one = param:match("(.*)")
	if tonumber(one) then
		delay = one
	elseif one == "-r" then
		reconnect = one
	else
		message = one
	end
	return delay, reconnect, message
end

core.register_chatcommand("shutdown", {
	params = S("[<delay_in_seconds> | -1] [-r] [<message>]"),
	description = S("Shutdown server (-1 cancels a delayed shutdown, -r allows players to reconnect)"),
	privs = {server=true},
	func = function(name, param)
		local delay, reconnect, message = parse_shutdown_param(param)
		local bool_reconnect = reconnect == "-r"
		if not message then
			message = ""
		end
		delay = tonumber(delay) or 0

		if delay == 0 then
			core.log("action", name .. " shuts down server")
			core.chat_send_all("*** "..S("Server shutting down (operator request)."))
		end
		core.request_shutdown(message:trim(), bool_reconnect, delay)
		return true
	end,
})

core.register_chatcommand("ban", {
	params = S("[<name>]"),
	description = S("Ban the IP of a player or show the ban list"),
	privs = {ban=true},
	func = function(name, param)
		if param == "" then
			local ban_list = core.get_ban_list()
			if ban_list == "" then
				return true, S("The ban list is empty.")
			else
				return true, S("Ban list: @1", ban_list)
			end
		end
		if not core.get_player_by_name(param) then
			return false, S("Player is not online.")
		end
		if not core.ban_player(param) then
			return false, S("Failed to ban player.")
		end
		local desc = core.get_ban_description(param)
		core.log("action", name .. " bans " .. desc .. ".")
		return true, S("Banned @1.", desc)
	end,
})

core.register_chatcommand("unban", {
	params = S("<name> | <IP_address>"),
	description = S("Remove IP ban belonging to a player/IP"),
	privs = {ban=true},
	func = function(name, param)
		if not core.unban_player_or_ip(param) then
			return false, S("Failed to unban player/IP.")
		end
		core.log("action", name .. " unbans " .. param)
		return true, S("Unbanned @1.", param)
	end,
})

core.register_chatcommand("kick", {
	params = S("<name> [<reason>]"),
	description = S("Kick a player"),
	privs = {kick=true},
	func = function(name, param)
		local tokick, reason = param:match("([^ ]+) (.+)")
		tokick = tokick or param
		if not core.kick_player(tokick, reason) then
			return false, S("Failed to kick player @1.", tokick)
		end
		local log_reason = ""
		if reason then
			log_reason = " with reason \"" .. reason .. "\""
		end
		core.log("action", name .. " kicks " .. tokick .. log_reason)
		return true, S("Kicked @1.", tokick)
	end,
})

core.register_chatcommand("clearobjects", {
	params = S("[full | quick]"),
	description = S("Clear all objects in world"),
	privs = {server=true},
	func = function(name, param)
		local options = {}
		if param == "" or param == "quick" then
			options.mode = "quick"
		elseif param == "full" then
			options.mode = "full"
		else
			return false, S("Invalid usage, see /help clearobjects.")
		end

		core.log("action", name .. " clears objects ("
				.. options.mode .. " mode).")
		if options.mode == "full" then
			core.chat_send_all(S("Clearing all objects. This may take a long time. "
				.. "You may experience a timeout. (by @1)", name))
		end
		core.clear_objects(options)
		core.log("action", "Object clearing done.")
		core.chat_send_all("*** "..S("Cleared all objects."))
		return true
	end,
})

core.register_chatcommand("msg", {
	params = S("<name> <message>"),
	description = S("Send a direct message to a player"),
	privs = {shout=true},
	func = function(name, param)
		local sendto, message = param:match("^(%S+)%s(.+)$")
		if not sendto then
			return false, S("Invalid usage, see /help msg.")
		end
		if not core.get_player_by_name(sendto) then
			return false, S("The player @1 is not online.", sendto)
		end
		core.log("action", "DM from " .. name .. " to " .. sendto
				.. ": " .. message)
		core.chat_send_player(sendto, S("DM from @1: @2", name, message))
		return true, S("Message sent.")
	end,
})

core.register_chatcommand("last-login", {
	params = S("[<name>]"),
	description = S("Get the last login time of a player or yourself"),
	func = function(name, param)
		if param == "" then
			param = name
		end
		local pauth = core.get_auth_handler().get_auth(param)
		if pauth and pauth.last_login and pauth.last_login ~= -1 then
			-- Time in UTC, ISO 8601 format
			return true, S("@1's last login time was @2.",
				param,
				os.date("!%Y-%m-%dT%H:%M:%SZ", pauth.last_login))
		end
		return false, S("@1's last login time is unknown.", param)
	end,
})

core.register_chatcommand("clearinv", {
	params = S("[<name>]"),
	description = S("Clear the inventory of yourself or another player"),
	func = function(name, param)
		local player
		if param and param ~= "" and param ~= name then
			if not core.check_player_privs(name, {server=true}) then
				return false, S("You don't have permission to "
					.. "clear another player's inventory "
					.. "(missing privilege: @1).", "server")
			end
			player = core.get_player_by_name(param)
			core.chat_send_player(param, S("@1 cleared your inventory.", name))
		else
			player = core.get_player_by_name(name)
		end

		if player then
			player:get_inventory():set_list("main", {})
			player:get_inventory():set_list("craft", {})
			player:get_inventory():set_list("craftpreview", {})
			core.log("action", name.." clears "..player:get_player_name().."'s inventory")
			return true, S("Cleared @1's inventory.", player:get_player_name())
		else
			return false, S("Player must be online to clear inventory!")
		end
	end,
})

local function handle_kill_command(killer, victim)
	if core.settings:get_bool("enable_damage") == false then
		return false, S("Players can't be killed, damage has been disabled.")
	end
	local victimref = core.get_player_by_name(victim)
	if victimref == nil then
		return false, S("Player @1 is not online.", victim)
	elseif victimref:get_hp() <= 0 then
		if killer == victim then
			return false, S("You are already dead.")
		else
			return false, S("@1 is already dead.", victim)
		end
	end
	if not killer == victim then
		core.log("action", string.format("%s killed %s", killer, victim))
	end
	-- Kill victim
	victimref:set_hp(0)
	return true, S("@1 has been killed.", victim)
end

core.register_chatcommand("kill", {
	params = S("[<name>]"),
	description = S("Kill player or yourself"),
	privs = {server=true},
	func = function(name, param)
		return handle_kill_command(name, param == "" and name or param)
	end,
})
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 40 00 00 00 40 08 06 00 00 00 aa 69 71	.PNG........IHDR...@...@......iq
0020	de 00 00 00 09 70 48 59 73 00 00 0b 13 00 00 0b 13 01 00 9a 9c 18 00 00 00 2e 74 45 58 74 46 69	.....pHYs.................tEXtFi
0040	6c 65 00 2f 68 6f 6d 65 2f 76 69 74 75 73 2f 53 63 68 72 65 69 62 74 69 73 63 68 2f 67 6c 65 69	le./home/vitus/Schreibtisch/glei
0060	73 2f 72 61 69 6c 2e 62 6c 65 6e 64 63 07 ce b0 00 00 00 18 74 45 58 74 44 61 74 65 00 32 30 31	s/rail.blendc.......tEXtDate.201
0080	36 2f 30 36 2f 31 31 20 31 30 3a 32 36 3a 34 38 fa 09 be 4b 00 00 00 10 74 45 58 74 54 69 6d 65	6/06/11.10:26:48...K....tEXtTime
00a0	00 30 30 3a 30 30 3a 30 30 3a 30 31 ec c3 26 c2 00 00 00 07 74 45 58 74 46 72 61 6d 65 00 31 af	.00:00:00:01..&.....tEXtFrame.1.
00c0	92 b4 26 00 00 00 12 74 45 58 74 43 61 6d 65 72 61 00 75 76 5f 74 65 6d 70 5f 63 61 6d 71 4e bb	..&....tEXtCamera.uv_temp_camqN.
00e0	ca 00 00 00 0d 74 45 58 74 53 63 65 6e 65 00 75 76 5f 74 65 6d 70 d8 0d 1b 8f 00 00 00 13 74 45	.....tEXtScene.uv_temp........tE
0100	58 74 52 65 6e 64 65 72 54 69 6d 65 00 30 30 3a 30 30 2e 30 33 39 3e 0f fb 00 00 07 f6 49 44 41	XtRenderTime.00:00.039>......IDA
0120	54 78 01 ed 5b 7b 4c 53 67 14 ef 6d cb 43 2a 04 54 c4 07 4e 66 59 0c 14 99 60 5c ac 26 3a 37 41	Tx..[{LSg..m.C*.T..NfY...`\.&:7A
0140	0b 62 20 b8 21 8b 32 32 cc b2 60 96 fd b1 2d db 12 e2 fc 47 32 ff 58 96 11 cc 48 9c 41 45 c0 2c	.b..!.22..`...-....G2.X...H.AE.,
0160	38 95 10 c8 8c 0e 96 a1 bc e5 11 96 c1 10 91 08 0c c1 f0 12 c4 42 1f fb 1d d2 5b 0b d2 f2 75 5c	8....................B....[...u\
0180	7a 63 e1 26 27 bd f7 7b 9d ef fc be f3 9d 73 be 47 25 92 45 fe 70 8c f2 bb a3 5c 34 c8 05 c4 5a	zc.&'..{......s.G%.E.p....\4...Z
01a0	87 b1 69 fb 8a 6d df be 5d 9b 91 91 51 a4 56 ab 27 ec ab 39 7b 69 f9 ec c9 2f a5 6e 58 bf 7e 7d	..i..m..]...Q.V.'..9{i.../.nX.~}
01c0	76 74 74 74 97 54 2a 35 be 94 eb a0 04 8e e3 8c 55 55 55 8a ac ac ac 0a b0 fc 57 08 b6 ac 00 18	vttt.T*5........UUU.......W.....
01e0	83 82 82 06 d2 d2 d2 ce b9 bb bb 1b 84 60 fc 7f da 18 1f 1f 97 26 25 25 a5 5c bc 78 51 30 2d 64	.............`.......&%%.\.xQ0-d
0200	05 40 a2 d7 eb a5 d4 69 fc 0a c6 dc 5e 10 0c 06 03 a7 d3 e9 64 f6 d6 b3 55 9e 19 00 b9 5c 0e d9	.@.....i....^.......d...U....\..
0220	f5 1c 7e 45 9b 02 c4 df c5 c5 45 6f 4b 20 7b f3 58 47 53 b9 6c d9 b2 86 98 98 98 fe c9 c9 49 41	..~E......EoK.{.XGS.l.........IA
0240	47 c0 9e 0e 93 f0 37 6e dc f0 d1 6a b5 2a d4 eb b1 a7 ae b5 b2 cc 1a 10 16 16 36 72 ec d8 b1 62	G.....7n...j.*............6r...b
0260	00 a1 b5 d6 d8 42 a7 8f 8c 8c 28 ee df bf 1f 71 ef de 3d c1 58 b1 02 c0 c1 f8 e9 b6 6e dd da 8e	.....B....(....q..=.X.......n...
0280	51 10 cd 08 3e 7f fe 5c 86 01 d8 23 98 f4 68 88 15 00 89 4c 26 33 92 0b c4 af 90 fc ed 6a cb c4	Q...>..\...#..h....L&3.......j..
02a0	5f d0 01 60 05 c0 d8 de de ee 71 e1 c2 05 0d 34 40 67 57 af 05 2c 4c 5e a0 bf bf df 4b c0 26 d9	_..`......q....4@gW..,L^....K.&.
02c0	35 c0 cb cb 4b 32 31 31 e1 42 24 64 07 ec 69 8b 78 3f 7b f6 4c 50 fe bc 06 ac 45 47 c6 40 23 d6	5...K211.B$d..i.x?{.LP....EG.@#.
02e0	3a a4 50 28 86 03 02 02 7a 5c 5d 5d 27 ad 95 59 e8 f4 a7 4f 9f 7a 60 20 36 cc c1 c7 0f f9 64 a8	:.P(....z\]]'..Y...O.z`.6.....d.
0300	87 e6 28 37 95 cd 03 90 b6 7b f7 6e b7 96 96 96 e3 7d 7d 7d b3 d5 33 74 74 74 ac ae ae ae 0e 99	..(7.....{.n.....}}}..3ttt......
0320	2d d3 51 69 b0 01 86 a1 a1 21 37 f0 b3 15 0b a4 9a fa f3 2d 4b bf 78 00 64 83 83 83 31 a9 a9 a9	-.Qi.....!7........-K.x.d...1...
0340	ca 53 a7 4e b5 5b 54 5c 8e f7 30 d0 1a 8c 7e ef be 7d fb 2a 3d 3d 3d c7 2d f2 1d fa 4a 1a 50 5b	.S.N.[T\..0...~..}.*===.-...J.P[
0360	5b fb f6 a3 47 8f d4 60 dc 77 f6 ec d9 ba 13 27 4e 58 ba 65 7f a4 7f 0c ca 65 ed 18 0f 80 11 cf	[...G..`.w.....'NX.e.....e......
0380	0a a0 4b 2b be 0c 8b ca 7b b0 fa ca c1 42 68 a8 b8 b8 f8 f5 ab 57 af 4a 11 08 f1 75 2c 8a 39 e6	..K+....{....Bh......W.J...u,.9.
03a0	95 a2 51 2c 86 94 71 71 71 df 43 23 7d ba bb bb 8f 82 73 b1 05 f7 77 f1 be 06 c4 ec 29 cc c2 84	..Q,..qqq.C#}.....s...w.....)...
03c0	87 87 77 8f 8e 8e 6a 92 93 93 7f 83 b5 a7 79 4e 6a a6 3e 78 f0 60 d3 fe fd fb cb f1 9e 74 fa f4	..w...j.......yNj.>x.`.......t..
03e0	e9 9f c4 5c 0c 8d 8d 8d c9 b0 20 4a 4e 4f 4f bf 94 9b 9b 1b db dc dc 4c 31 c1 5f 20 f2 cd 5c 68	...\.......JNOO........L1._...\h
0400	68 e8 a1 e0 e0 e0 be 2b 57 ae b0 46 b8 66 2f 20 47 e5 96 ca ca 4a 15 6c 40 09 04 36 02 6d 5d 43	h......+W..F.f/.G....J.l@..6.m]C
0420	43 c3 ea 95 2b 57 96 c1 f0 e9 60 81 e5 14 0b 80 91 68 0f f1 47 18 ec 82 fe e8 03 03 03 3b 30 50	C...+W....`......h..G........;0P
0440	9f 1d 38 70 20 16 1d 22 60 b4 18 1c df 90 90 90 bf e9 9b b5 93 bc 06 70 6e 6e 6e 13 e4 e3 f7 ee	..8p..."`..............pnnn.....
0460	dd db e5 ef ef df 87 29 21 01 23 35 d6 e0 a4 0d cc 88 b2 32 9e 4f 39 f4 8d 23 83 b8 65 cb 96 e1	.......)!.#5.......2.O9..#..e...
0480	d8 d8 d8 66 0a 90 10 1f 78 57 54 54 c8 4c 53 94 b9 bf 3c 00 86 81 81 01 9f 07 0f 1e 48 f2 f3 f3	...f....xWTT.LS...<.........H...
04a0	07 d1 39 42 90 04 1f dc b6 6d 1b 45 80 06 62 c2 d3 7c 3a 3f 9f ba c4 9f b4 80 08 f1 80 a2 a4 a4	..9B.....m.E..b..\|:?............
04c0	64 10 44 f3 9d e4 18 f2 f5 f5 dd 08 8d 25 23 cd ac a9 3c 00 ba fa fa 7a 55 63 63 e3 2f a8 fc 09	d.D..........%#...<....zUcc./...
04e0	88 7f 8e 62 1a 7c 09 0f 30 06 d5 1b c7 14 09 f2 f0 f0 b0 b4 ba 7c 39 87 fc c2 06 b8 63 3d e0 0a	...b.\|..0............\|9.....c=..
0500	77 ac 82 31 0c 05 d3 af 40 bf f2 cc a1 05 3f e4 e4 e4 bc 8f 6f e6 d5 12 0f 80 ac b0 b0 d0 0d a1	w..1....@.....?.....o...........
0520	e6 39 be 31 d3 6f 5b 41 41 c1 c0 dd bb 77 55 c3 c3 c3 4a 3f 3f 3f 03 d9 82 19 65 1c f6 49 5e e0	.9.1.o[AA....wU...J???....e..I^.
0540	d6 ad 5b 9b da da da 7a 3b 3b 3b 1f 83 f1 3f 33 98 e7 63 cf e0 d3 19 69 36 3f 79 61 e4 10 be 1a	..[....z;;;...?3..c....i6?ya....
0560	25 1b 66 94 ae c2 f7 3b 3d 3d 3d 9b 61 1b 0a c8 43 88 19 07 60 9a 7a 62 4d 12 81 d1 ff 00 fd a2	%.f....;===.a...C...`.zbM.......
0580	fd 00 9a a6 96 0f 8d 3c 79 05 5e 2e cb bc 59 df f9 82 5d c8 ad 03 cd 16 61 d1 7c 9a 84 da 05 64	.......<y.^...Y...].....a.\|....d
05a0	66 66 be 27 a6 06 90 37 aa ab ab f3 a4 fe 98 08 3f d3 1e 5a a8 5d 02 29 a6 a5 da f8 e0 01 48 47	ff.'...7........?..Z.].)......HG
05c0	19 5b ae 83 43 a8 fc f8 e4 c9 93 e7 b0 26 10 6d 35 88 0d 11 17 c4 2a 09 98 06 36 44 92 fc 88 4c	.[..C........&.m5.....*...6D...L
05e0	da c6 67 7a 78 00 e6 32 6c c6 db b7 6f fb 61 33 22 11 c6 d0 95 a9 e5 05 28 44 ae 1a c2 6f 9c a3	..gzx..2l...o.a3".......(D...o..
0600	69 1a a0 d1 39 ca 98 b3 79 00 cc 09 d6 5e 10 12 0f 63 5b 3c 1f 20 cc 36 4d ac 55 13 34 1d a3 2f	i...9...y....^...c[<...6M.U.4../
0620	c7 3a e0 a3 9a 9a 1a c1 da 65 05 80 a3 e8 6b d5 aa 55 5a 04 4b cc 3e 56 b0 5e 9a 1a 42 a4 a7 27	.:.......e....k..UZ.K.>V.^..B..'
0640	3b 20 64 bb ac 00 50 54 a8 47 54 38 b5 35 26 64 07 ec 69 8b f8 c3 15 32 2f 74 58 da 66 0d 19 95	;.d...PT.GT8.5&d..i....2/tX.f...
0660	08 8f ab 35 1a 4d 8f 98 db e2 04 00 22 d5 35 08 86 68 5f 82 dc e0 bc 1f 66 0d 80 fa eb 71 20 d9	...5.M......".5..h_.....f....q..
0680	04 35 9c cb 60 ce bb 53 d6 1a 20 03 dc d4 d4 a4 86 2b b4 56 c4 ee 74 56 00 38 8a b1 23 23 23 6b	.5..`..S.........+.V..tV.8..###k
06a0	c4 b4 01 18 79 e9 f9 f3 e7 c3 ed 96 d2 46 05 56 00 24 b4 3a a4 55 18 48 34 23 68 62 cd 3a 6d 6d	....y........F.V.$.:.U.H4#hb.:mm
06c0	88 fd 22 8b 15 00 23 22 40 2d 4e 65 d6 22 10 12 6d 0a 60 c7 4a 81 55 a0 a0 71 08 2b 9a 4a 08 de	.."...#"@-Ne."..m.`.J.U..q.+.J..
06e0	18 11 11 31 20 76 28 5c 54 54 e4 89 13 62 87 9f 0d 72 30 80 4f ce 9c 39 93 49 be f8 85 02 39 f6	...1.v(\TT...b...r0.O..9.I....9.
0700	0d a3 2f 87 16 7c 58 56 56 26 18 63 d6 29 30 75 3f 80 a2 40 31 8d 20 56 ac 7a a1 dd f0 d4 a5 07	../..\|XVV&.c.)0u?..@1..V.z......
0720	c1 e0 7c 05 1b 5a 02 e0 15 1c 34 41 bb bc a4 01 82 c2 f9 0a 36 b6 e8 35 80 d9 0d d2 8e ec 62 be	..\|..Z....4A........6..5......b.
0740	25 b6 19 5b e2 7f ee dc b9 73 0c be 58 34 ad a1 41 b8 73 e7 8e 7b 6f 6f af 1a b3 ad 53 88 19 c7	%..[.....s..X4..A.s..{oo....S...
0760	1a 0a 53 fc fd 26 48 b4 85 90 85 b0 b4 79 5b 0f 12 e4 ae b0 45 bb 4b af 4b 08 2c 46 04 78 1b 40	..S..&H......y[.....E.K.K.,F.x.@
0780	f3 3b 78 91 00 40 46 bc 16 d4 4a f2 f2 00 fc 1c 15 15 15 8f 53 e0 2e 31 ad 3c 75 68 21 1f 1c ab	.;x..@F...J.........S..1.<uh!...
07a0	1b 70 11 6c 13 0e 79 b2 c0 e7 73 e2 c5 c7 01 46 fc 19 e2 8f 84 84 84 df 01 00 0f ca 42 f6 45 94	.p.l..y...s....F............B.E.
07c0	b6 e9 5e 41 76 76 76 34 00 30 f3 e7 01 a0 bd 3e 8e 84 a7 60 c7 9c eb 64 2f b4 ad 4e 72 42 2c 73	..^Avvv4.0.....>...`...d/..NrB,s
07e0	2c c3 03 30 75 d8 40 08 39 99 cc d3 c4 b1 b8 e1 62 3e 5c e1 01 e0 ae 5f bf be 07 b7 44 94 d0 00	,..0u.@.9.......b>\...._....D...
0800	33 3a d3 6a 3b c1 07 9d 2a e1 7e c1 6b 10 85 ee 10 4c 3d 3c 00 3a 1c 7e b6 e0 3e 50 a3 93 03 a0	3:.j;...*.~.k....L=<.:.~..>P....
0820	2f 2f 2f df 51 5a 5a 6a be 58 41 00 bc 05 a2 5d df 31 6f 6f ef 51 27 07 c0 00 2d a0 10 da 1f b4	///.QZZj.XA....].1oo.Q'...-.....
0840	03 a7 dd a3 dc e1 c3 87 db 1e 3e 7c b8 16 f3 5f 0f 37 f8 c4 99 dd 20 2d a6 70 b7 c8 17 17 2d a4	..........>\|..._.7.....-.p....-.
0860	2a 95 aa 17 20 0c 73 ad ad ad 5f e0 b8 29 6e dd ba 75 fd 89 89 89 a5 ce ee 06 71 b9 32 92 fe 7a	*.....s..._..)n..u........q.2..z
0880	93 92 92 52 88 bf e0 1d 97 92 61 80 da cb c8 42 92 9b 70 e6 87 e4 33 69 f8 d4 bf df 68 b0 e9 fa	...R......a....B..p...3i....h...
08a0	2b 9d f9 1b 68 0a 00 0c a7 06 81 e4 23 39 4d 44 ef 06 f9 e5 cb 97 0f e1 d2 b1 92 d4 02 f7 6d e9	+...h.......#9MD..............m.
08c0	ae a0 d3 ba 41 12 18 b2 06 e2 c2 a5 22 2f 2f 4f 83 bf 08 f8 90 ce 7f 07 d2 c4 c7 c7 af c0 4d eb	....A......."//O..............M.
08e0	76 67 f6 02 34 f2 00 e0 8d 6b d7 ae f5 43 e6 9b 20 8e dc e0 d7 a0 e5 bb 76 ed da 74 e4 c8 91 9b	vg..4....k...C..........v..t....
0900	00 c0 69 0d 01 00 30 42 e3 a3 00 00 dd b0 f8 06 24 f9 0f 59 b7 26 ab dc 78 e0 fd 00 00 00 00 49	..i...0B........$..Y.&..x......I
0920	45 4e 44 ae 42 60 82	END.B`.