1 // CATEGORY:Flight Assist
  2 // DESCRIPTION:Final Flight 2.lsl
  3 // ARCHIVED BY:Ferd Frederix
  4 
  5 float speed=10000;
  6 
  7 default
  8 { 
  9     attach(key on)
 10     {
 11         if (on != NULL_KEY)
 12         {
 13             llListen(0,"",llGetOwner(),"");
 14             integer perm = llGetPermissions();
 15             if (perm != (PERMISSION_TAKE_CONTROLS))
 16             {
 17                 llRequestPermissions(on, PERMISSION_TAKE_CONTROLS);
 18             }
 19             else
 20             {
 21                 llTakeControls(CONTROL_FWD , TRUE, TRUE);
 22             }
 23         }
 24     }
 25     
 26     listen(integer channel, string name, key id, string m)
 27     {
 28         list test = llCSV2List(m);
 29         if(llGetListLength(test)==2&&llList2String(test,0)=="speed")
 30             speed=llList2Float(test,1);
 31     }
 32 
 33     run_time_permissions(integer perm)
 34     {
 35         if (perm)
 36         {
 37             llTakeControls(CONTROL_FWD, TRUE, TRUE);
 38         }
 39     }
 40     
 41     control(key owner, integer level, integer edge)
 42     {
 43         if (!(level & CONTROL_FWD) || !(llGetAgentInfo(llGetOwner())&AGENT_FLYING))
 44         {
 45             llSetForce(<0,0,0>, FALSE);
 46         }
 47         else
 48         {
 49             vector fwd= llRot2Fwd(llGetRot());
 50             fwd = llVecNorm(fwd);
 51             fwd *= speed;
 52             llSetForce(fwd, FALSE);
 53         }
 54     }
 55 
 56 }// END //