server-nalc/minetestforfun_game/mods/sethome/init.lua

home = {}

home.homes_file = {["real"] = minetest.get_worldpath() .. "/realhomes",
		["nether"] = minetest.get_worldpath() .. "/netherhomes"}
home.homepos = {["real"] = {}, ["nether"] = {}}
home.time = 20 * 60

home.sethome = function(name)
	local player = minetest.get_player_by_name(name)
	local pos = player:getpos()
	pos.y = pos.y+1
	local p_status = "real"
	if pos.y < -19600 then
		p_status = "nether"
	end

	local function assign_home()
			home.homepos[p_status][name] = pos
			minetest.chat_send_player(name, "Home set!")
			local output = io.open(home.homes_file[p_status], "w")
			output:write(minetest.serialize(home.homepos[p_status]))
			io.close(output)
			return true
	end

	if not action_timers.api.get_timer("sethome_" .. name) then
		if home.homepos[p_status][name] ~= pos then
			home.homepos[p_status][name] = pos
		end
		action_timers.api.register_timer("sethome_" .. name, home.time)
		return assign_home()
	else
		local res = action_timers.api.do_action("sethome_" .. name, assign_home)
		if tonumber(res) then
			minetest.chat_send_player(name, "Please retry later, you used sethome last time less than ".. home.time .." seconds ago.")
			minetest.chat_send_player(name, "Retry in: ".. math.floor(res) .." seconds.")
			minetest.log("action","Player ".. name .." tried to sethome within forbidden interval.")
			return false
		elseif res == true then
			return res
		end
	end
end

home.tohome = function(name)
    local player = minetest.get_player_by_name(name)
    if player == nil then
        -- just a check to prevent the server crashing
        return false
    end
	local p_status = "real"
	if player:getpos().y < -19600 then
		p_status = "nether"
	end
	if home.homepos[p_status][name] then

		local function go_to_home()
        		player:setpos(home.homepos[p_status][player:get_player_name()])
        		minetest.chat_send_player(name, "Teleported to home!")
        		minetest.log("action","Player ".. name .." teleported to home. Next teleportation allowed in ".. home.time .." seconds.")
		        return true
		end

		if not action_timers.api.get_timer("home_" .. name) then
			action_timers.api.register_timer("home_" .. name, home.time)
			return go_to_home()
		else
			local res = action_timers.api.do_action("home_" .. name, go_to_home)
			if tonumber(res) then
				minetest.chat_send_player(name, "Please retry later, you used home last time less than ".. home.time .." seconds ago.")
				minetest.chat_send_player(name, "Retry in: ".. math.floor(res) .." seconds.")
				minetest.log("action","Player ".. name .." tried to teleport home within forbidden interval.")
				return false
			elseif res == true then
				return res
			end
		end
    else
		minetest.chat_send_player(name, "Set a home using /sethome")
		return false
    end
end

local function loadhomes()
    for key,_ in pairs(home.homes_file) do
		local input = io.open(home.homes_file[key], "r")
		if input then
			-- Old format handler
			local line = input:read()
			input:seek("set",0)
			if line == nil then return end
			if not line:match("return {") then
				repeat
					local x = input:read("*n")
					if x == nil then
						break
					end
					local y = input:read("*n")
					local z = input:read("*n")
					local name = input:read("*l")
					home.homepos[key][name:sub(2)] = {x = x, y = y, z = z}
				until input:read(0) == nil
			else
				home.homepos[key] = minetest.deserialize(input:read())
			end
			io.close(input)
		else
			home.homepos[key] = {}
		end
	end
end

loadhomes()

minetest.register_privilege("home", "Can use /sethome and /home")

minetest.register_chatcommand("home", {
    description = "Teleport you to your home point",
    privs = {home=true},
    func = home.tohome,
})

minetest.register_chatcommand("sethome", {
    description = "Set your home point",
    privs = {home=true},
    func = home.sethome,
})

minetest.log("action","[sethome] Loaded.")