From cef291faba26357e576b8779fc123528866df56e Mon Sep 17 00:00:00 2001
From: Jessica Pixel <liftedpixel@gmail.com>
Date: Mon, 17 Nov 2014 14:29:07 -0500
Subject: [PATCH] Create mover 0.2.1.lsl

---
 General/mover 0.2.1.lsl | 42 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 General/mover 0.2.1.lsl

diff --git a/General/mover 0.2.1.lsl b/General/mover 0.2.1.lsl
new file mode 100644
index 0000000..eae763b
--- /dev/null
+++ b/General/mover 0.2.1.lsl	
@@ -0,0 +1,42 @@
+vector moveTo;
+
+//// Good ole warpPos ////
+// http://lslwiki.net/lslwiki/wakka.php?wakka=LibraryWarpPos
+
+warp(vector pos)
+{
+    list rules;
+    integer num = llCeil(llVecDist(llGetPos(),pos)/10);
+    // while(num--)rules=(rules=[])+rules+[PRIM_POSITION,pos]; // this helps with memory in Second Life?
+    while(num--)rules=rules+[PRIM_POSITION,pos]; // but gives a warning in Open Sim, so I changed it
+    llSetPrimitiveParams(rules);
+}
+//// End Good ole warpPos ////
+
+default
+{
+    state_entry()
+    {
+        llListen( 1, "", NULL_KEY, "come here" );
+        llListen( 2, "", NULL_KEY, "" );
+    }
+    
+    listen(integer channel, string name, key id, string message)
+    {
+        if ( channel == 1 )
+        {
+            llOwnerSay ( "heard you" );
+        }
+        
+        if ( channel == 2 )
+        {
+            moveTo = (vector)message;
+            llOwnerSay ( "moving to " + (string)moveTo );
+            //warp( moveTo ); // incase we want to move further than 10m :[
+            
+            llMoveToTarget( moveTo, 0.05 ); //Movement
+            llSleep(0.25); //Prevents you from flying.
+            llStopMoveToTarget(); //Stops the movement
+        }
+    }
+}