* Apply http://opensimulator.org/mantis/view.php?id=2913

* Add the KanEd scripts to the standard library
* Thanks Fly-Man-

1 files changed, 46 insertions, 0 deletions

diff --git a/bin/assets/ScriptsAssetSet/KanEd-Test12.lsl b/bin/assets/ScriptsAssetSet/KanEd-Test12.lsl
new file mode 100644
index 0000000..eaa885b
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/KanEd-Test12.lsl
@@ -0,0 +1,46 @@
+vector startPosition;
+float groundLevel;
+
+default 
+{
+   state_entry() 
+   { 
+      // get permission to take over the avatar's control inputs.
+      llRequestPermissions( llGetOwner(), PERMISSION_TAKE_CONTROLS );
+      
+      startPosition = llGetPos();
+      groundLevel = llGround( startPosition );
+   }
+
+   run_time_permissions( integer perm )  // event for processing 
+                                          // permission dialog.
+   {
+       if ( perm & PERMISSION_TAKE_CONTROLS )  // permission has been given.
+       { 
+           // go ahead and take over the forward and backward controls.
+           llTakeControls( CONTROL_FWD | CONTROL_BACK, TRUE, FALSE ); 
+       }
+   }
+    
+   control( key id, integer held, integer change )  // event for processing 
+                                                     // key press.
+   { 
+       vector position = llGetPos();
+       
+       if ( change & held & CONTROL_FWD ) 
+       {   // the "move forward" control has been activated.
+           if( position.z < (startPosition.z + 10.0) )
+           {
+              llSetPos( llGetPos() + < 0, 0, 1.0 >); // move up
+           }
+       } 
+       else if ( change & held & CONTROL_BACK ) 
+       {   // the "move backward" key has been activated.
+           if( position.z > groundLevel + 1.0 ) 
+           {
+              llSetPos( llGetPos() + < 0, 0, -1.0 >); // move down
+           }
+       }
+   }
+}
+