Push All Scripts

Set_and_Move/Set_and_Move.sol

@@ -0,0 +1,3 @@
+<Solution name="Set_and_Move">
+<Project name="Set_and_Move" path="Set_and_Move\Set_and_Move.prj" active="true"/>
+</Solution>

Set_and_Move/Set_and_Move/Object/Set_and_Move_1.lsl

@@ -0,0 +1,72 @@
+// :CATEGORY:Building
+// :NAME:Set_and_Move
+// :AUTHOR:Anonymous
+// :CREATED:2010-01-10 05:20:56.000
+// :EDITED:2013-09-18 15:39:02
+// :ID:741
+// :NUM:1024
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// Set and Move.lsl
+// :CODE:
+
+integer lkey;
+
+init()
+{
+    llOwnerSay ( "Touch the object and set to store its current position" );
+    llOwnerSay ( "choose 'move 2' to return to its stored position" );
+    llOwnerSay ( "rm script to remove the script from the object" );
+    llOwnerSay ( "Position is stored in object desc if you want to change it manually" );
+}   
+
+default
+{
+    state_entry()
+    {
+        init();
+    }
+    on_rez( integer param )
+    {
+        init();
+    }
+
+    touch_start(integer total_number)
+    {
+        if ( llDetectedKey(0) == llGetOwner() )
+        {
+            lkey = llListen( 8192, "",llGetOwner(),"" );
+            llSetTimerEvent( 60 );
+            llDialog( llGetOwner(), "Object Options:",
+                     [ "set pos", "move 2 pos", "rm script" ],8192);
+        }
+    }
+    listen ( integer ch, string nm, key id, string message )
+    {
+        llListenRemove( lkey );
+        if ( message == "set pos" )
+        {
+            llSetObjectDesc( (string)llGetRootPosition() );
+            llOwnerSay ( "Position stored as " + llGetObjectDesc() );
+        }
+        if ( message == "move 2 pos" )
+        {
+            vector pos = (vector)llGetObjectDesc();
+            do {
+                llSetPos( pos ) ;
+            } while ( llVecDist( llGetRootPosition(), pos ) > 0.01 );
+            llOwnerSay ( "Object moved to " + (string)pos );
+        }
+        if ( message == "rm script" )
+        {
+            llRemoveInventory( llGetScriptName() );
+        }
+    }
+    timer()
+    {
+        llListenRemove( lkey );
+        llSetTimerEvent( 0 );
+    }
+}
+// END //

Set_and_Move/Set_and_Move/Object/_vti_cnf/Set_and_Move_1.lsl

@@ -0,0 +1,7 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|08 Sep 2013 03:49:06 -0000
+vti_extenderversion:SR|12.0.0.6211
+vti_backlinkinfo:VX|
+vti_author:SR|alien\\fred
+vti_modifiedby:SR|alien\\fred
+vti_timecreated:TR|18 Sep 2013 20:39:02 -0000

Set_and_Move/Set_and_Move/Set_and_Move.prj

@@ -0,0 +1,6 @@
+<Project name="Set_and_Move" guid="D7953518-6C00-1014-B904-200204C60A89">
+	<Object name="Object" guid="D7953603-6C00-1014-B904-200204C60A89">
+		<Script name="Set_and_Move_1.lsl" guid="D796437F-6C00-1014-B904-200204C60A89">
+		</Script>
+	</Object>
+</Project>

Set_and_Move/Set_and_Move/_vti_cnf/Set_and_Move.prj

@@ -0,0 +1,6 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|17 Aug 2013 23:32:32 -0000
+vti_extenderversion:SR|12.0.0.0
+vti_cacheddtm:TX|17 Aug 2013 23:32:32 -0000
+vti_filesize:IR|263
+vti_backlinkinfo:VX|

Set_and_Move/_vti_cnf/Set_and_Move.sol

@@ -0,0 +1,6 @@
+vti_encoding:SR|utf8-nl
+vti_timelastmodified:TR|17 Aug 2013 23:32:32 -0000
+vti_extenderversion:SR|12.0.0.0
+vti_cacheddtm:TX|17 Aug 2013 23:32:32 -0000
+vti_filesize:IR|128
+vti_backlinkinfo:VX|