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.g_timers = {["real"] = {}, ["nether"] = {}}
home.s_timers = {["real"] = {}, ["nether"] = {}}

home.GET_HOME_INTERVAL = 20*60
home.SET_HOME_INTERVAL = 20*60

home.sethome = function(name)
	local player = minetest.get_player_by_name(name)
	local pos = player:getpos()
	local p_status = "real"
	if pos.y < -19600 then
		p_status = "nether"
	end
	if home.s_timers[p_status][name] ~= nil then
		local timer_player = os.difftime(os.time(),home.s_timers[p_status][name])
		if timer_player < home.SET_HOME_INTERVAL then -- less than x minutes
			minetest.chat_send_player(name, "Please retry later, you used sethome last time less than ".. home.SET_HOME_INTERVAL .." seconds ago.")
			minetest.chat_send_player(name, "Retry in: ".. home.SET_HOME_INTERVAL-timer_player .." seconds.")
			minetest.log("action","Player ".. name .." tried to sethome within forbidden interval.")
			return false
		end
	end
	if home.homepos[p_status][player:get_player_name()] ~= pos then
		home.s_timers[p_status][name] = os.time()
		home.homepos[p_status][player:get_player_name()] = pos
		minetest.chat_send_player(name, "Home set!")
		local output = io.open(home.homes_file[p_status], "w")
		--for i, v in pairs(home.homepos[p_status]) do
		--	output:write(v.x.." "..v.y.." "..v.z.." "..i.."\n")
		--end
		output:write(minetest.serialize(home.homepos[p_status]))
		io.close(output)
		return true
	end
	return false
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
		if home.g_timers[p_status][name] ~= nil then
			local timer_player = os.difftime(os.time(),home.g_timers[p_status][name])
			if timer_player < home.GET_HOME_INTERVAL then -- less than x minutes
				minetest.chat_send_player(name, "Please retry later, you used home last time less than ".. home.GET_HOME_INTERVAL .." seconds ago.")
				minetest.chat_send_player(name, "Retry in: ".. home.GET_HOME_INTERVAL-timer_player .." seconds.")
				minetest.log("action","Player ".. name .." tried to teleport home within forbidden interval.")
				return false
			end
		end
        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. Last teleportation allowed in ".. home.GET_HOME_INTERVAL .." seconds.")
        home.g_timers[p_status][name] = os.time()
        return true
    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.")