OpenSim-Test/bin/assets/ScriptsAssetSet/KanEd-Test09.lsl

vector startPos;
vector curPos;
vector curForce;
integer second;

default
{
   state_entry()
   {
       llSay( 0, "Hello, Avatar! Touch to launch me straight up.");
       llSetStatus( 1, TRUE );
       startPos = < 0, 0, 0 >;
   }
 
   touch_start(integer total_number)
   {
       startPos = llGetPos();
       curPos = startPos;
       curForce = < 0, 0, 0 >;
       second = 0;
        
       llSetColor( < 1.0, 0.0, 0.0 > , ALL_SIDES ); // set color to red.
        
       float objMass = llGetMass();
       float Z_force = 10.2 * objMass;
        
       llSetForce( < 0.0, 0.0, Z_force >, FALSE );
        
       llSay( 0, "Force of " + (string)Z_force + " being applied." );
       llSetTimerEvent(1);
   }
    
   timer()
   {
       second++;
       curPos = llGetPos();
       float curDisplacement = llVecMag( curPos - startPos );
       
       if( ( curDisplacement > 30. ) &&  // then object is too far away, and
         ( llGetForce() != < 0.0, 0.0, 0.0 > ) ) // force not already zero, 
       {   // then let gravity take over, and change color to green.
           llSetForce( < 0.0, 0.0, 0.0 >, FALSE ); 
           llSetColor( < 0, 1.0, 0 >, ALL_SIDES ); 
           llSay( 0, "Force removed; object in free flight." );
       } 
        
       if ( second > 19 )  // then time to wrap this up.
       {
           // turn object blue and zero force to be safe....
           llSetColor( < 0, 0, 1.0 >, ALL_SIDES ); // change color to blue.
           llSetForce( < 0, 0, 0 >, FALSE );

           // ...move object back to starting position...
           // ...after saving current status of Physics attribute.
           integer savedStatus = llGetStatus( 1 );
           llSetStatus( 1, FALSE );  // turn physics off.
           while ( llVecDist( llGetPos(), startPos ) > 0.001) 
           {
               llSetPos( startPos );
           }
           llSetStatus( 1, savedStatus );  // restore Physics status.
           
           //...and then turn color to black and Reset the script.          
           llSetColor( < 1, 1, 1 >, ALL_SIDES );
           llSetTimerEvent( 0 );  // turn off timer events.
           llSay( 0, "Done and resetting script." );
           llResetScript();  // return object to ready state.
       }
   }
}