From a12e3f1bdf6ce71696c61a7531303f29987c9dc0 Mon Sep 17 00:00:00 2001
From: Victor Hackeridze <hackeridze@gmail.com>
Date: Tue, 3 Apr 2012 05:09:56 +0600
Subject: [PATCH] sethome adapted

---
 new_api/sethome/.gitignore  |  1 +
 new_api/sethome/depends.txt |  1 +
 new_api/sethome/init.lua    | 99 +++++++++++++++++++++++++++++++++++++
 3 files changed, 101 insertions(+)
 create mode 100644 new_api/sethome/.gitignore
 create mode 100644 new_api/sethome/depends.txt
 create mode 100644 new_api/sethome/init.lua

diff --git a/new_api/sethome/.gitignore b/new_api/sethome/.gitignore
new file mode 100644
index 0000000..d49a6fd
--- /dev/null
+++ b/new_api/sethome/.gitignore
@@ -0,0 +1 @@
+homes
diff --git a/new_api/sethome/depends.txt b/new_api/sethome/depends.txt
new file mode 100644
index 0000000..4ad96d5
--- /dev/null
+++ b/new_api/sethome/depends.txt
@@ -0,0 +1 @@
+default
diff --git a/new_api/sethome/init.lua b/new_api/sethome/init.lua
new file mode 100644
index 0000000..3af2a5c
--- /dev/null
+++ b/new_api/sethome/init.lua
@@ -0,0 +1,99 @@
+-- Some variables you can change
+
+-- How often (in seconds) homes file saves
+local save_delta = 10
+-- How often (in seconds) player can teleport
+-- Set it to 0 to disable
+local cooldown = 0
+-- Max distance player can teleport, otherwise he will see error messsage
+-- Set it to 0 to disable
+local max_distance = 0
+----------------------------------
+
+local homes_file = minetest.get_modpath('sethome')..'/homes'
+local homepos = {}
+local last_moved = {}
+
+local function loadhomes()
+	local input = io.open(homes_file, "r")
+	while true do
+		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")
+		homepos[name:sub(2)] = {x = x, y = y, z = z}
+	end
+	io.close(input)
+end
+
+loadhomes()
+
+local function get_time()
+	return os.time()
+end
+
+local function distance(a, b)
+	return math.sqrt(math.pow(a.x-b.x, 2) + math.pow(a.y-b.y, 2) + math.pow(a.z-b.z, 2))
+end
+
+local function round(num, idp)
+	local mult = 10^(idp or 0)
+	return math.floor(num * mult + 0.5) / mult
+end
+
+local changed = false
+
+minetest.register_on_chat_message(function(name, message)
+	if message == '/sethome' then
+		local player = minetest.env:get_player_by_name(name)
+		local pos = player:getpos()
+		homepos[name] = pos
+		minetest.chat_send_player(name, "Home set!")
+		changed = true
+		return true
+	elseif message == "/home" then
+		local player = minetest.env:get_player_by_name(name)
+		if player == nil then
+			-- just a check to prevent server death
+			return false
+		end
+		if homepos[name] then
+			local time = get_time()
+			if cooldown ~= 0 and last_moved[name] ~= nil and time - last_moved[name] < cooldown then
+				minetest.chat_send_player(name, "You can teleport only once in "..cooldown.." seconds. Wait another "..round(cooldown - (time - last_moved[name]), 3).." secs...")
+				return true
+			end
+			local pos = player:getpos()
+			local dst = distance(pos, homepos[name])
+			if max_distance ~= 0 and distance(pos, homepos[name]) > max_distance then
+				minetest.chat_send_player(name, "You are too far away from your home. You must be "..round(dst - max_distance, 3).." meters closer to teleport to your home.")
+				return true
+			end
+			last_moved[name] = time
+			player:setpos(homepos[name])
+			minetest.chat_send_player(name, "Teleported to home!")
+		else
+			minetest.chat_send_player(name, "You don't have a home now! Set it using /sethome")
+		end
+		return true
+	end
+end)
+
+local delta = 0
+minetest.register_globalstep(function(dtime)
+	delta = delta + dtime
+	-- save it every <save_delta> seconds
+	if delta > save_delta then
+		delta = delta - save_delta
+		if changed then
+			local output = io.open(homes_file, "w")
+			for i, v in pairs(homepos) do
+				output:write(v.x.." "..v.y.." "..v.z.." "..i.."\n")
+			end
+			io.close(output)
+		end
+	end
+end)