From c4fbc4b2f74b173d1ddf2572e8e4647b6f157fa1 Mon Sep 17 00:00:00 2001
From: AndrejIT <AndrejIT@rambler.ru>
Date: Sun, 2 Oct 2016 10:36:45 +0300
Subject: [PATCH] Included rnd improvement - teleport to facing direction

---
 README.txt |  2 ++
 init.lua   | 19 +++++++++++++++----
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/README.txt b/README.txt
index e9761f5..785ad63 100644
--- a/README.txt
+++ b/README.txt
@@ -6,6 +6,8 @@ Mod "teleports" for minetest 4.9+ game.
 Allows players to create teleports, by placing 8+1 diamond blocks on the ground.
 Teleport move player who stand on it to any other nearby teleport.
 
+rnd changes: Teleports to target teleporter within radius that best matches your viewing direction ( teleport where you go )
+
 This mod code is licensed under the GNU LGPLv2.
 
 Texture license:
diff --git a/init.lua b/init.lua
index 09a9058..5748e5a 100644
--- a/init.lua
+++ b/init.lua
@@ -43,12 +43,12 @@ end
 teleports.set_formspec = function(pos)
 	local meta = minetest.get_meta(pos)
 	local node = minetest.get_node(pos)
-    
+
     local buttons = "";
     for i, EachTeleport in ipairs( teleports:find_nearby(pos, 5) ) do
         buttons = buttons.."button_exit[3,"..(i)..";2,0.5;tp"..i..";GO>"..EachTeleport.pos.x..","..EachTeleport.pos.y..","..EachTeleport.pos.z.."]";
     end
-    
+
 	meta:set_string("formspec", "size[8,10;]"
 		.."label[0,0;" .. 'Go to available teleports! Use mossy cobble as fuel!' .. "]"
         .."list[current_name;price;0,1;1,1;]"
@@ -87,7 +87,7 @@ teleports.on_receive_fields = function(pos, formname, fields, player)
                     teleports.lastplayername = player:get_player_name()
                 end
             end
-            
+
             teleports.set_formspec(pos)
         end
     end
@@ -184,6 +184,18 @@ minetest.register_abm({
 				local positions = teleports:find_nearby(pos, 10)
 				if #positions>0 then
 					local key = math.random(1, #positions)
+                    local dir, dirmag;
+                    local view = player:get_look_dir();
+                    local dist, distmin; distmin = 99;
+                    for i=1,#positions do -- find teleport closest to where player is looking
+                    	dir = {x=positions[i].pos.x-pos.x,y=positions[i].pos.y-pos.y,z=positions[i].pos.z-pos.z};
+                    	dirmag = math.sqrt(dir.x*dir.x+dir.y*dir.y+dir.z*dir.z); if dirmag == 0 then dirmag = 1 end
+                    	dir.x=dir.x/dirmag;dir.y=dir.y/dirmag;dir.z=dir.z/dirmag;
+                    	dir.x = view.x-dir.x;dir.y = view.y-dir.y;dir.z = view.z-dir.z;
+                    	dist = math.sqrt(dir.x*dir.x+dir.y*dir.y+dir.z*dir.z);
+                    	if dist<distmin then distmin = dist; key = i end
+                    end
+                    
                     local pos2 = positions[key].pos
                     teleports.lastplayername = player:get_player_name()
                     if math.random(1, 100) > 5 then
@@ -198,4 +210,3 @@ minetest.register_abm({
 		end
 	end,
 })
-