From aa933a71dc09afc5d8bd01cc2e252aa032dea378 Mon Sep 17 00:00:00 2001
From: Sean <AlbinoDrought@users.noreply.github.com>
Date: Fri, 18 Sep 2015 23:54:07 -0700
Subject: [PATCH] RANDOM-TP: Check PERMISSION_TELEPORT

Only requests PERMISSION_TELEPORT if it is not yet given - prevents excess dialogs and slower travel.
---
 RANDOM-TP/LP-RANDOM-TP-v2.lsl | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/RANDOM-TP/LP-RANDOM-TP-v2.lsl b/RANDOM-TP/LP-RANDOM-TP-v2.lsl
index 1419b4b..6c7047d 100644
--- a/RANDOM-TP/LP-RANDOM-TP-v2.lsl
+++ b/RANDOM-TP/LP-RANDOM-TP-v2.lsl
@@ -41,6 +41,13 @@ roll ( )
     HttpRequestID = llHTTPRequest ( url, [], "" );
 }
 
+teleport ( )
+{
+    Hovertext = "Teleporting to " + RegionName;
+            llSetText ( Hovertext, BLUE, 1.0 );
+            llTeleportAgentGlobalCoords ( Toucher, RegionCoordinates, LocalCoordinates, LookAt );   
+}
+
 default
 {
     state_entry ( )
@@ -113,9 +120,7 @@ default
     {
         if ( PERMISSION_TELEPORT & perm )
         {
-            Hovertext = "Teleporting to " + RegionName;
-            llSetText ( Hovertext, BLUE, 1.0 );
-            llTeleportAgentGlobalCoords ( Toucher, RegionCoordinates, LocalCoordinates, LookAt );
+            teleport();
         }
     }
 
@@ -155,7 +160,16 @@ default
             LookAt = ZERO_VECTOR;
             Hovertext = "Requesting permission to teleport to " + RegionName + "...";
             llSetText ( Hovertext, RED, 1.0 );
-            llRequestPermissions ( Toucher, PERMISSION_TELEPORT );
+            
+            integer perms = llGetPermissions();
+            if(perms & PERMISSION_TELEPORT)
+            {
+                teleport();
+            }
+            else
+            {
+                llRequestPermissions ( Toucher, PERMISSION_TELEPORT );
+            }
         }
     }