From 4c98df1b074aba1946ee744303f414ee2f40a21e Mon Sep 17 00:00:00 2001
From: Joel Leclerc <lkjoel@ubuntu.com>
Date: Wed, 18 Apr 2012 17:49:27 -0600
Subject: [PATCH] Sort of fixed the multiple teleportation issue. The rest of
 this issue is a bug in minetest

---
 nether/init.lua  |  9 +++++++--
 nether/init.lua~ | 12 +++++++++---
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/nether/init.lua b/nether/init.lua
index 4f71a3f..4a60c43 100644
--- a/nether/init.lua
+++ b/nether/init.lua
@@ -786,9 +786,14 @@ minetest.register_abm({
 		local objs = minetest.env:get_objects_inside_radius(pos, 1)
 		if objs[1] ~= nil then
 			for k, obj in pairs(objs) do
-				local objpos=obj:getpos()
+				local objpos = obj:getpos()
+				local objmeta = minetest.env:get_meta(objpos)
 				if objpos.y>pos.y-1 and objpos.y<pos.y and obj:get_player_name() ~= nil and obj:get_player_name() ~= "" then
-					nether:teleport_player(nether:inside_nether(obj:getpos()), obj)
+					if objmeta:get_string("teleporting") == "" or objmeta:get_string("teleporting") == nil then
+						objmeta:set_string("teleporting", "true")
+						nether:teleport_player(nether:inside_nether(obj:getpos()), obj)
+						objmeta:set_string("teleporting", "")
+					end
 				end
 			end
 		end
diff --git a/nether/init.lua~ b/nether/init.lua~
index 2604cdb..db30492 100644
--- a/nether/init.lua~
+++ b/nether/init.lua~
@@ -532,7 +532,7 @@ function table_count(tt, item)
 end
 
 
--- Remove duplicates from table
+-- Remove duplicate positions from table
 function table_unique(tt)
 	local newtable
 	newtable = {}
@@ -726,6 +726,7 @@ function nether:teleport_player(from_nether, player)
 		teleportpos = {x=portalpos.x + coin2, y=portalpos.y + 1, z=portalpos.z + coin}
 	end
 	player:setpos(teleportpos)
+	objmeta:set_string("teleporting", "")
 end
 
 -- Portal Creator
@@ -786,9 +787,14 @@ minetest.register_abm({
 		local objs = minetest.env:get_objects_inside_radius(pos, 1)
 		if objs[1] ~= nil then
 			for k, obj in pairs(objs) do
-				local objpos=obj:getpos()
+				local objpos = obj:getpos()
+				local objmeta = minetest.env:get_meta(objpos)
 				if objpos.y>pos.y-1 and objpos.y<pos.y and obj:get_player_name() ~= nil and obj:get_player_name() ~= "" then
-					nether:teleport_player(nether:inside_nether(obj:getpos()), obj)
+					if objmeta:get_string("teleporting") == "" or objmeta:get_string("teleporting") == nil then
+						objmeta:set_string("teleporting", "true")
+						nether:teleport_player(nether:inside_nether(obj:getpos()), obj)
+						objmeta:set_string("teleporting", "")
+					end
 				end
 			end
 		end