1 // CATEGORY:Vehicles
  2 // DESCRIPTION:Car Script (Rear Wheel).lsl
  3 // ARCHIVED BY:Ferd Frederix
  4 
  5 rotation Inverse(rotation r)
  6 {
  7     r.x = -r.x;
  8     r.y = -r.y;
  9     r.z = -r.z;
 10     return r;
 11 }
 12 rotation GetParentRot()
 13 {
 14     return Inverse(llGetLocalRot())*llGetRot(); 
 15 }
 16 SetLocalRot(rotation x)
 17 {
 18     llSetRot(x*Inverse(GetParentRot()));
 19 }
 20 
 21 default
 22 {
 23     state_entry()
 24     {
 25     }
 26 
 27    link_message(integer sender_num, integer num, string str, key id)
 28     {
 29         
 30         if(str == "WHEEL_DRIVING")
 31         {
 32             state driving;
 33         }
 34                                                       
 35     }
 36         
 37 }
 38 
 39 state driving
 40 
 41 {
 42     state_entry()
 43     {
 44         SetLocalRot(llEuler2Rot(<-1 * PI_BY_TWO,0,0> ));
 45         llSetTimerEvent(0.5);
 46     }
 47 
 48     timer()
 49     {
 50         vector vel = llGetVel();
 51         float speed = llVecMag(vel);
 52          llSetTextureAnim(ANIM_ON|LOOP|SMOOTH|ROTATE,ALL_SIDES,0,0,0,0,speed);
 53     }
 54 
 55    link_message(integer sender_num, integer num, string str, key id)
 56     {
 57         if(str == "WHEEL_DEFAULT")
 58         {
 59             state default;
 60         }
 61                    
 62     }
 63     
 64     state_exit()
 65     {
 66         SetLocalRot(llEuler2Rot(<-1 * PI_BY_TWO,0,0> ));
 67         llSetTextureAnim(0,ALL_SIDES,0,0,0,0,0);
 68     }
 69     
 70 }
 71 // END //