// Lani_Physical_Vehicle_Flight_Engine_v3_for_ODE.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// Basil Sosides: early phys proto functions demo.
// Vegaslon Plutonian: development of OpenSim ODE phys vehicle banking/tilt.
//  
// ===================================================================================
// This engine is designed for use with OpenSim physics Open Dynamics Engine ODE only.
// ===================================================================================
//
// GLOBAL VARIABLES 
//
string sit_message = "Fly"; //Sit message
string not_owner_message = "Sorry. You are not the owner."; //Not owner message
string PILOTANIM ="LaniPilotSit8"; // Anim for pilot
string TITLE=""; //floating text
string SOUND1 = "HOVER"; //sound for engine
string SOUND2 = "AirHiss";// sound for turning
//
// GLOBAL VARIABLES FOR PILOT SEATING AND CAMERA VIEWPOINT
//
vector SIT_POSITION = <-0.0,0.0,-0.21>; // position of pilot on sit prim
vector SIT_ROTATION_B = <0,0,90>; // rotation of pilot on sit prim
integer Private = 1;    // 1 = Owner Only Pilot. 0= Anyone can be Pilot.
float CAM_ZOOM = 17.0; // How far back the pilot's camera follows (default = 17.0 meters)
float CAM_ANGLE = 20.0; // Vertical angle pilot's camera follows (defaul - 20.0 degrees)
//
// GLOBAL VARIABLES FOR SPECIAL EFFECTS LINK MESSAGES
//
// Link Comms Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
integer CHANNEL_NUMBER = 1;  // initial link comms channel number to send on
integer ON_STATUS1 = FALSE; // set up the status so it starts in the OFF condition
string OFF_MESSAGE = "STATUS_OFF"; // status off message to send to other prims
string ON_MESSAGE = "STATUS_ON";   // status on message to send to other prims
string RIGHT_MESSAGE = "STATUS_RIGHT"; // status right message to send to other prims
string LEFT_MESSAGE = "STATUS_LEFT"; // status left message to send to other prims
string FORWARD_MESSAGE = "STATUS_FORWARD"; // status forward message to send to other prims
string REVERSE_MESSAGE = "STATUS_REVERSE"; // status reverse message to send to other prims
string ONSAY1 = " ON"; // text to announce the on status
string OFFSAY1 = " OFF"; // text to announce the off status
//
// GLOBAL VARIABLES FOR VEHICLE MOTION
 
float POWER_FORWARD = 12; //Power for forward (1 to 30)
float POWER_REVERSE = 12; //Power for reverse (-1 to -30)
integer hr = 2; // initial climb rate
integer hrm = 8; // Maximum climb rate
float angz = 1.0; // Sharpness of turns/curves (practical values 0.5 to 1.0)
float ALTITUDE;
float THRUST;
integer RUN;
rotation SIT_ROTATION;
key AVATAR_B;
key AVATAR;
float SPEED;
integer OFFSET;
integer HELD;
 
//----------------------------------------------------------------------------------------------   
 
SETUP_CAMERA(float degrees)
{
    rotation sitRot = llAxisAngle2Rot(<0, 0, 1>, degrees * PI); 
    llSetCameraParams([
        CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
        CAMERA_BEHINDNESS_ANGLE, 0, // (0 to 180) degrees
        CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
        CAMERA_DISTANCE, CAM_ZOOM, // ( 1 to 30) meters
        CAMERA_FOCUS_LAG, 0.0 , // (0 to 3) seconds
        CAMERA_FOCUS_LOCKED,FALSE, // (FALSE)
        CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
        CAMERA_PITCH, CAM_ANGLE, // (-45 to 80) degrees
        CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
        CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
        CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
        CAMERA_FOCUS_OFFSET, <0,0,3> // <-10,-10,-10> to <10,10,10> meters
    ]);
}
 
SETUP_VEHICLE()
{
        //Type
        llSetVehicleType(VEHICLE_TYPE_BOAT);
 
        //Float
        llSetVehicleFloatParam(VEHICLE_HOVER_HEIGHT, ALTITUDE);
        llSetVehicleFloatParam(VEHICLE_LINEAR_MOTOR_DECAY_TIMESCALE, 0.1);
        llSetVehicleFloatParam(VEHICLE_ANGULAR_MOTOR_TIMESCALE, 2.0);
 
        //Vector
        llSetVehicleVectorParam(VEHICLE_ANGULAR_FRICTION_TIMESCALE, <0.01, 0.01, angz>);
        llSetVehicleVectorParam(VEHICLE_LINEAR_FRICTION_TIMESCALE, <100.0, 2.0, 1000.0>);
 
}
 
INITIALIZE()
{
    RUN = 0;
    vector posv = llGetPos();
    ALTITUDE = posv.z - 19.75;
    llSetVehicleType(VEHICLE_TYPE_BOAT);
    llSetStatus(STATUS_PHANTOM, FALSE);
    llSetLinkPrimitiveParams(LINK_ALL_OTHERS, [PRIM_PHANTOM,FALSE]); 
    llSetStatus(STATUS_PHYSICS, FALSE);
 
    vector rotv = llRot2Euler(llGetRot());
    rotation rot = llEuler2Rot(<0,0,rotv.z>);
    llSetRot(rot);
 
    SIT_ROTATION = llEuler2Rot(DEG_TO_RAD * SIT_ROTATION_B);
 
}
 
 
default
{
    state_entry()
    {
        INITIALIZE();
        llSetSitText(sit_message);
        llSetText(TITLE, <0.5, 0.5, 0.5>, 0.3);
        llSitTarget(SIT_POSITION, SIT_ROTATION);
        SETUP_CAMERA(0.01);
        llSetTimerEvent(0.3);
        llMessageLinked(LINK_ALL_OTHERS, 1, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
        llMessageLinked(LINK_ALL_OTHERS, 2, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
        llMessageLinked(LINK_ALL_OTHERS, 3, ON_MESSAGE, NULL_KEY); //send off message to linked prims
    }
 
 
   on_rez(integer rn)
    {
        llResetScript();
        llSetPos(llGetPos() + <0,0,0.5>);
        llSetLinkPrimitiveParams(LINK_ALL_OTHERS, [PRIM_PHANTOM,FALSE]); 
        llMessageLinked(LINK_ALL_OTHERS, 1, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
        llMessageLinked(LINK_ALL_OTHERS, 2, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
        llMessageLinked(LINK_ALL_OTHERS, 3, ON_MESSAGE, NULL_KEY); //send off message to linked prims
    }
 
 
 
    changed(integer change)
    {
        if ((change & CHANGED_LINK) == CHANGED_LINK)
        {
            AVATAR = llAvatarOnSitTarget();
            if (AVATAR != NULL_KEY)
            {                
                if( (AVATAR != llGetOwner()) & (Private == 1))
                {
                    llSay(0, not_owner_message);
                    llUnSit(AVATAR);    
                    llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, OFF_MESSAGE, NULL_KEY); //send off message to linked prims        
                    llMessageLinked(LINK_ALL_OTHERS, 4, ON_MESSAGE, NULL_KEY); //send on message to allow canopy
                }
                else
                {
                    llSetLinkPrimitiveParams(LINK_ALL_OTHERS, [PRIM_PHANTOM,FALSE]);
                    llSetStatus(STATUS_PHYSICS, TRUE);
                    llSetLinkPrimitiveParams(LINK_ALL_OTHERS, [PRIM_PHYSICS,TRUE]);
                    AVATAR_B = AVATAR;
                    SETUP_VEHICLE();
                    llSetTimerEvent(0.3);
                    llRequestPermissions(AVATAR, PERMISSION_TRIGGER_ANIMATION | PERMISSION_TAKE_CONTROLS | PERMISSION_CONTROL_CAMERA);
                    RUN = 1;
                    OFFSET=0;
                    llSetTimerEvent(0.001);
                }
            }
            else
            {
                RUN = 0;
                llReleaseControls();
                llStopAnimation(PILOTANIM);
                INITIALIZE();
 
                llSetPos(llGetPos() + <0,0,0.0>);
                llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
                llMessageLinked(LINK_ALL_OTHERS, 1, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
                llMessageLinked(LINK_ALL_OTHERS, 2, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
                llMessageLinked(LINK_ALL_OTHERS, 3, ON_MESSAGE, NULL_KEY); //send off message to linked prims
                llMessageLinked(LINK_ALL_OTHERS, 4, ON_MESSAGE, NULL_KEY); //send on message to allow canopy
            }
        }
    }
 
    run_time_permissions(integer perm)
    {
        if (perm)
        {
            llTakeControls(CONTROL_FWD | CONTROL_BACK | CONTROL_DOWN | CONTROL_UP | CONTROL_RIGHT | CONTROL_LEFT | CONTROL_ROT_RIGHT | CONTROL_ROT_LEFT, TRUE, FALSE);
            THRUST = POWER_FORWARD;
            llPlaySound(SOUND1,1.0);
            llSetPos(llGetPos() + <0,0,0.1>);
            llStartAnimation(PILOTANIM); 
            llOwnerSay("You are flying! use arrows Up/Down/Left/Right.\nAlt-Click on vehicle to adjust camera.\nStand up to stop.");
            SETUP_CAMERA(0.5);
            llSetTimerEvent(0.3);
            llMessageLinked(LINK_ALL_OTHERS, 1, ON_MESSAGE, NULL_KEY); //send off message to linked prims
            llMessageLinked(LINK_ALL_OTHERS, 3, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
            llMessageLinked(LINK_ALL_OTHERS, 4, OFF_MESSAGE, NULL_KEY); //send off message to not allow canopy
        }
        else
        {
            llReleaseControls();
            llSetTimerEvent(0.3);
            llMessageLinked(LINK_ALL_OTHERS, 1, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
            llMessageLinked(LINK_ALL_OTHERS, 2, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
            llMessageLinked(LINK_ALL_OTHERS, 3, ON_MESSAGE, NULL_KEY); //send on message to linked prims
            llMessageLinked(LINK_ALL_OTHERS, 4, ON_MESSAGE, NULL_KEY); //send on message to allow canopy
        }
    }
 
    control(key id, integer level, integer edge)
    {
        if(RUN == 0)
        {
            return;
        }
        vector ANGLE_MOTOR; 
        vector vel = llGetVel(); // Current velocity
        SPEED = llVecMag(vel); // Speed
 
        // MOVEMENT DIRECTION CONTROLS
        if ((level & edge & CONTROL_UP) || ((level & CONTROL_UP)))
        {
            ALTITUDE = ALTITUDE + hr;
            if(ALTITUDE > 8500) {ALTITUDE = 8500;}
            llSetVehicleFloatParam( VEHICLE_HOVER_HEIGHT, ALTITUDE);
            llMessageLinked(LINK_ALL_OTHERS, 1, FORWARD_MESSAGE, NULL_KEY); //send forward message to linked prims
        }
 
        if ((level & edge & CONTROL_DOWN) || ((level & CONTROL_DOWN)))
        {
            ALTITUDE = ALTITUDE - hr;
            if(ALTITUDE < 2) {ALTITUDE = 2;}
            llSetVehicleFloatParam( VEHICLE_HOVER_HEIGHT, ALTITUDE);
            llMessageLinked(LINK_ALL_OTHERS, 1, REVERSE_MESSAGE, NULL_KEY); //send reverse message to linked prims
        }
 
        if(level & CONTROL_FWD)
 
        {
            THRUST = POWER_FORWARD;
            llSetVehicleVectorParam(VEHICLE_LINEAR_MOTOR_DIRECTION, <0,THRUST,0>); 
            llMessageLinked(LINK_ALL_OTHERS, 1, FORWARD_MESSAGE, NULL_KEY); //send forward message to linked prims
        }
 
        if(level & CONTROL_BACK)
        {
            THRUST = POWER_REVERSE;
            llSetVehicleVectorParam(VEHICLE_LINEAR_MOTOR_DIRECTION, <0,-THRUST,0>);
            llMessageLinked(LINK_ALL_OTHERS, 1, REVERSE_MESSAGE, NULL_KEY); //send reverse message to linked prims
        }
 
// right/left  
 
        if(level & CONTROL_ROT_RIGHT)
        {
            ANGLE_MOTOR.z -= 0.5 + SPEED / (8 * THRUST); 
            OFFSET=10; 
            HELD=1;
         llMessageLinked(LINK_ALL_OTHERS, 1, RIGHT_MESSAGE, NULL_KEY); //send on message to linked prims
        }
 
        if(level & CONTROL_ROT_LEFT)
        {
            ANGLE_MOTOR.z += 0.5 + SPEED / (8 * THRUST); 
            OFFSET=-10;
            HELD=1; 
            llMessageLinked(LINK_ALL_OTHERS, 1, LEFT_MESSAGE, NULL_KEY); //send on message to linked prims
        }
 
 
 
 
// Params for angular
 
        llSetVehicleVectorParam(VEHICLE_ANGULAR_MOTOR_DIRECTION, ANGLE_MOTOR);
 
 
 
    }   
    timer()
    { 
        if(HELD==0)
        OFFSET=0;
        HELD=0; 
        rotation angl = llGetRot(); 
        vector rotv1 = llRot2Euler(angl);
        rotation rot1 =llEuler2Rot(<0,DEG_TO_RAD*OFFSET,0>)* llEuler2Rot(<0,0,rotv1.z>) ; 
        llRotLookAt(rot1,0.02, 0.8); 
    }  
 
 
}

// Lani_Vehicle_Lights_v3.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// SPECIAL EFFECT: VEHICLE LIGHTS
// GLOBAL VARIABLES FOR SPECIAL EFFECTS (SFX) 
float LIGHT_GLOW = 0.05; // level of glow (default = 0.15 ; practical range = 0.02 to 0.3)
float LIGHT_INTENSITY = 1.0;// intensity of light when on (default = 1.0; practical range = 0.1 to 1.0)
float LIGHT_DISTANCE = 20.0;// distance of light when on (default = 20.0; practical range = 4.0 to 20.0)
vector LIGHT_COLOR = <0.7, 0.7, 1.0> ; // color of the light emitted <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
vector ON_COLOR_PRIM = <0.7, 0.7, 1.0> ; // color of the prim when on <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
vector OFF_COLOR_PRIM = <0.7, 0.7, 1.0> ; // color of the prim when off <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
float ON_ALPHA = 0.1; // transparency of prim when on (default = 0.2 ; practical range = 0.1 to 1.0)
float OFF_ALPHA = 0.0; // transparency of prim when off (default = 0.0 ; practical range = 0.1 to 1.0)
 
// 
// GLOBAL STANDARD Link Message Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
// 8 = Lights
integer CHANNEL_NUMBER = 8;  // link comms channel number  
string OFF_MESSAGE = "STATUS_OFF"; // status off message 
string ON_MESSAGE = "STATUS_ON";   // status on message 
 
 
default
{
 
    state_entry()
    {
 
    }    
 
 
    link_message(integer SENDER, integer CHANNEL, string MESSAGE, key ID)
    {
        if ( CHANNEL== CHANNEL_NUMBER ) // check the channel number 
        {
            if ( MESSAGE == OFF_MESSAGE ) // check for message 
            {     
                llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, LIGHT_COLOR, 0.0, LIGHT_DISTANCE, 0.75]); //<R,G,B>,INTENSITY,RADIUS,FALLOFF
                llSetPrimitiveParams( [ PRIM_GLOW, ALL_SIDES, 0.0 ] ); // sets no glow of the prim
                llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, OFF_COLOR_PRIM,OFF_ALPHA]); //sets the off color of the prim
            } // end of check for message
 
            if ( MESSAGE == ON_MESSAGE ) // check for message 
            {     
                llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, LIGHT_COLOR, LIGHT_INTENSITY, LIGHT_DISTANCE, 0.75]); //<R,G,B>,INTENSITY,RADIUS,FALLOFF
                llSetPrimitiveParams( [ PRIM_GLOW, ALL_SIDES, LIGHT_GLOW ] ); // sets the on glow of the prim
                llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, ON_COLOR_PRIM,ON_ALPHA]); //sets the on color of the prim
            } // end of check for message
        } // end of check the channel number
    }   // end of link_message 
}// end of default state 
// end of script

// Lani_Vehicle_Running_Lights_v3.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// 
// SPECIAL EFFECT: VEHICLE RUNNING LIGHTS - RED COLOR
// GLOBAL VARIABLES FOR SPECIAL EFFECTS (SFX) 
float LIGHT_GLOW = 1.0; // level of glow (default = 0.15 ; practical range = 0.02 to 0.3)
float LIGHT_INTENSITY = 1.0;// intensity of light when on (default = 1.0; practical range = 0.1 to 1.0)
float LIGHT_DISTANCE = 5.0;// distance of light when on (default = 20.0; practical range = 4.0 to 20.0)
vector LIGHT_COLOR = <1.0, 0.0, 0.0> ; // color of the light emitted <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
vector ON_COLOR_PRIM = <1.0, 0.0, 0.0>; // color of the prim when on <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
vector OFF_COLOR_PRIM = <1.0, 0.0, 0.0> ; // color of the prim when off <RED,GREEN,BLUE> (black = <0.0,0.0,0.0>; white =<1.0,1.0,1.0>)
float ON_ALPHA = 1.0; // transparency of prim when on (default = 0.2 ; practical range = 0.1 to 1.0)
float OFF_ALPHA = 0.0; // transparency of prim when off (default = 0.0 ; practical range = 0.1 to 1.0)
 
// 
// GLOBAL STANDARD Link Message Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
// 8 = Lights
integer CHANNEL_NUMBER = 8;  // link comms channel number  
string OFF_MESSAGE = "STATUS_OFF"; // status off message 
string ON_MESSAGE = "STATUS_ON";   // status on message 
 
 
default
{
 
    state_entry()
    {
 
    }    
 
 
    link_message(integer SENDER, integer CHANNEL, string MESSAGE, key ID)
    {
        if ( CHANNEL== CHANNEL_NUMBER ) // check the channel number 
        {
            if ( MESSAGE == OFF_MESSAGE ) // check for message 
            {     
                llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, LIGHT_COLOR, 0.0, LIGHT_DISTANCE, 0.75]); //<R,G,B>,INTENSITY,RADIUS,FALLOFF
                llSetPrimitiveParams( [ PRIM_GLOW, ALL_SIDES, 0.0 ] ); // sets no glow of the prim
                llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, OFF_COLOR_PRIM,OFF_ALPHA]); //sets the off color of the prim
            } // end of check for message
 
            if ( MESSAGE == ON_MESSAGE ) // check for message 
            {     
                llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, LIGHT_COLOR, LIGHT_INTENSITY, LIGHT_DISTANCE, 0.75]); //<R,G,B>,INTENSITY,RADIUS,FALLOFF
                llSetPrimitiveParams( [ PRIM_GLOW, ALL_SIDES, LIGHT_GLOW ] ); // sets the on glow of the prim
                llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, ON_COLOR_PRIM,ON_ALPHA]); //sets the on color of the prim
            } // end of check for message
        } // end of check the channel number
    }   // end of link_message 
}// end of default state 
// end of script

// Lani_Vehicle_Lighting_Touch_Switch_v3.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// GLOBAL VARIABLES
integer CHAT_CHANNEL = 0; // command chat channel
string CHAT_ON_COMMAND = "lights on"; // command for on
string CHAT_OFF_COMMAND = "lights off"; // command for OFF
integer CHANNEL_NUMBER = 8;  // link comms channel number to send on
integer ON_STATUS = FALSE; // set up the status so it starts in the OFF condition
string OFF_MESSAGE = "STATUS_OFF"; // status off message to send to other prims
string ON_MESSAGE = "STATUS_ON";   // status on message to send to other prims
string ONSAY = " ON"; // text to announce the on status
string OFFSAY = " OFF"; // text to announce the off status
vector ON_COLOR = <0.5, 0.5, 1.0>; // color when on
vector OFF_COLOR = <0.2, 0.0, 0.0>; // color when off
 
// GLOBAL STANDARD LINK MESSAGE CHANNELS
// 1 = CENTER Thruster SFX
// 2 = Wing Thrusters SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
// 8 = Lights
// 9 = Weapons
// 10= Other Stuff
 
// STATUS MODES
 
STATUS_ON()
{
    llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, ON_MESSAGE, NULL_KEY); //send on message to linked prims
    llOwnerSay(ONSAY + " by "+ llDetectedName(0)+ "."  ); // announce the on status
    llSetPrimitiveParams([ PRIM_COLOR, ALL_SIDES, ON_COLOR,1.0, PRIM_GLOW, ALL_SIDES, 0.15 ]); //sets the prim glow on and the on color
}  
 
STATUS_OFF()
{
    llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, OFF_MESSAGE, NULL_KEY); //send on message to linked prims
    llOwnerSay(OFFSAY + " by "+ llDetectedName(0)+ "."  ); // announce the on status
    llSetPrimitiveParams([ PRIM_COLOR, ALL_SIDES, OFF_COLOR,1.0, PRIM_GLOW, ALL_SIDES, 0.0 ]); //sets the prim glow off and the prim off color 
}
 
 
default
{ 
    on_rez(integer start_param) 
    {
        STATUS_OFF();
    }
 
    state_entry()
    {
        llListen( CHAT_CHANNEL, "", NULL_KEY, "" ); 
    }
 
    touch_start(integer nullvar)
    {
        if ( ON_STATUS ) // if status is on 
        {   
            ON_STATUS = FALSE; // turn status off
           // llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, OFF_MESSAGE, NULL_KEY); //send off message to linked prims
           // llSay(0,OFFSAY1); // announce the off status
            STATUS_OFF();
        } // end the on status false if
        else // else turn status off
        {    
            ON_STATUS = TRUE; // turn status on
          //  llMessageLinked(LINK_ALL_OTHERS, CHANNEL_NUMBER, ON_MESSAGE, NULL_KEY); //send on message to linked prims
           // llSay(0,ONSAY1); // announce the on status
           STATUS_ON();
        } // end the on status true else
    }   // end of touch_start 
 
    listen( integer CHANNEL, string NAME, key ID, string MESSAGE )
    {
 
        if (CHANNEL == CHAT_CHANNEL )
        {
            //llSay(0," received a message on channel " + (string)CHAT_CHANNEL);
            if (MESSAGE == CHAT_ON_COMMAND)
            {
            ON_STATUS = TRUE; // turn status on
            STATUS_ON();
            } 
 
            if (MESSAGE == CHAT_OFF_COMMAND)
            {
            ON_STATUS = FALSE; // turn status off
            STATUS_OFF();
            } 
        }
 
    } // end listen state
} // end default state

// Lani_Vehicle_Landing_Gear_v3.lsl  
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// Special Effects Link Message Receiver Slave for Link Sets.
// Used in LANI GLOBAL SYSTEMS vehicles and gear.
// See attached license. 
// Developed by LANI GLOBAL SYSTEMS LABORATORIES in Lani and ixi regions OSGrid. 
// 
// SPECIAL EFFECT: VEHICLE LANDING GEAR
// GLOBAL VARIABLES FOR SPECIAL EFFECTS (SFX)
string ONSAY1 = " ON"; // text to announce the flip status
string OFFSAY1 = " OFF"; // text to announce the flop status
string SOUND_EFFECT1 = "HOVER"; // sound triggered for sound effect 1
string SOUND_EFFECT2 = "AirHiss"; // sound triggered for sound effect 2
float ANIM_SPEED = 0.10; // animated texture speed
//
// GLOBAL VARIABLES FOR LINK MESSAGES
//
// Link Comms Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
integer CHANNEL_NUMBER = 3;  // initial link comms channel number 
integer ON_STATUS1 = FALSE; // status flag starts flop (flip=TRUE flop=FALSE)
integer ON_STATUS2 = FALSE; // status2 flag starts flop (flip=TRUE flop=FALSE)
string OFF_MESSAGE = "STATUS_OFF"; // status off message 
string ON_MESSAGE = "STATUS_ON";   // status on message 
string RIGHT_MESSAGE = "STATUS_RIGHT"; // status right message 
string LEFT_MESSAGE = "STATUS_LEFT"; // status left message 
string FORWARD_MESSAGE = "STATUS_FORWARD"; // status forward message 
string REVERSE_MESSAGE = "STATUS_REVERSE"; // status reverse message 
 
 
 
default
{
 
    on_rez(integer start_param) 
    {
        llResetScript(); // reset to initialize
    }
    state_entry()
    {
       llSetAlpha(1.0, ALL_SIDES); // perform action on the prim 100% visible  
    }    
 
 
    link_message(integer SENDER, integer CHANNEL, string MESSAGE, key ID)
    {
        if ( CHANNEL== CHANNEL_NUMBER ) // check the channel number 
        {
            if ( MESSAGE == ON_MESSAGE ) // check for message 
            {      
                llSetAlpha(1.0, ALL_SIDES); // perform action on the prim 100% visible 
                llTriggerSound(SOUND_EFFECT2,0.5); // trigger the sfx sound2
            } // end of check for message
 
            if ( MESSAGE == OFF_MESSAGE ) // check for message
            {  
                llSetAlpha(0.0, ALL_SIDES); // perform action on the prim 0% visible          
            } // end of check for message 
        } // end of check the channel number
    }   // end of link_message 
}// end of default state 
// end of script

// Lani_Vehicle_Propeller_Thruster_v3.lsl 
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// Special Effects Link Message Receiver Slave for Link Sets.
// Used in LANI GLOBAL SYSTEMS vehicles and gear.
// 
// SPECIAL EFFECT: VEHICLE RIGHT THRUSTER
// GLOBAL VARIABLES FOR SPECIAL EFFECTS (SFX)
string ONSAY1 = " ON"; // text to announce the flip status
string OFFSAY1 = " OFF"; // text to announce the flop status
string SOUND_EFFECT1 = "HOVER"; // sound triggered for sound effect 1
string SOUND_EFFECT2 = "AirHiss"; // sound triggered for sound effect 2
float ANIM_SPEED = 0.1; // animated texture speed (default = 0.1 ; practical range = 0.01 to 2.0)
//
// GLOBAL VARIABLES FOR LINK MESSAGES
//
// Link Comms Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
integer CHANNEL_NUMBER = 1;  // initial link comms channel number 
integer ON_STATUS1 = FALSE; // status flag starts flop (flip=TRUE flop=FALSE)
integer ON_STATUS2 = FALSE; // status2 flag starts flop (flip=TRUE flop=FALSE)
string OFF_MESSAGE = "STATUS_OFF"; // status off message 
string ON_MESSAGE = "STATUS_ON";   // status on message 
string RIGHT_MESSAGE = "STATUS_RIGHT"; // status right message 
string LEFT_MESSAGE = "STATUS_LEFT"; // status left message 
string FORWARD_MESSAGE = "STATUS_FORWARD"; // status forward message 
string REVERSE_MESSAGE = "STATUS_REVERSE"; // status reverse message 
 
 
 
default
{
 
    on_rez(integer start_param) 
    {
        llResetScript(); // reset to initialize
    }
    state_entry()
    {
 
    }    
 
 
    link_message(integer SENDER, integer CHANNEL, string MESSAGE, key ID)
    {
        if ( CHANNEL== CHANNEL_NUMBER ) // check the channel number 
        {
 
            if ( MESSAGE == FORWARD_MESSAGE ) // check for message 
            {      
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, ANIM_SPEED*TWO_PI); // perform action on the prim
            } // end of check for message
 
            if ( MESSAGE == REVERSE_MESSAGE ) // check for message 
            {      
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, -ANIM_SPEED*TWO_PI); // perform action on the prim
            } // end of check for message
 
            if ( MESSAGE == RIGHT_MESSAGE ) // check for message
            {  
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, ANIM_SPEED*TWO_PI); // perform action on the prim
              //  llTriggerSound(SOUND_EFFECT2,0.5); // trigger the sfx sound2 
 
            } // end of check for message
            if ( MESSAGE == LEFT_MESSAGE ) // check for message 
            {      
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, ANIM_SPEED*TWO_PI); // perform action on the prim
               // llTriggerSound(SOUND_EFFECT2,0.5); // trigger the sfx sound2
            } // end of check for message
 
            if ( MESSAGE == OFF_MESSAGE ) // check for message 
            {     
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, 0.0*TWO_PI); // perform off message action on the prim
                llStopSound(); // stop all sounds
            } // end of check for message
 
            if ( MESSAGE == ON_MESSAGE ) // check for message 
            {     
                llSetTextureAnim(ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, 0.0*TWO_PI); // perform on message action on the prim
                llLoopSound(SOUND_EFFECT1,1.0); // loop the sfx sound1
            } // end of check for message
        } // end of check the channel number
    }   // end of link_message 
}// end of default state 
// end of script

// Lani_Vehicle_Brake_v3.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// Special Effects Link Message Receiver Slave for Link Sets.
// Used in LANI GLOBAL SYSTEMS vehicles and gear.
// Put this in a small child prim as a button on the dashboard or control console of the vehicle.
// Touch it after the flight to stop the vehicle just before the pilot un-sits. 
// This will stabilize the vehicle.
 
string SOUND1 = "hydraulic_air_door_LANI_GLOBAL"; // Action sound name
float VOLUME1 = 0.5; // Volume level of action sound (0.0~1.0) default=0.5
integer is_open = FALSE; // assume brake state
default
{
 
    state_entry()
    {
        llSetPrimitiveParams ([PRIM_TYPE, PRIM_TYPE_SPHERE, 0, <0.001, 1.0, 0.0>, 9.5, <0.0, 0.0, 0.1>, <0.0, 1.0, 0.0>]);
        llSetStatus(STATUS_PHANTOM,FALSE );
        llSetText("Brake\nTouch",<1,0,0>,0.2);
    }   // end of state_entry state
 
    touch_start(integer nullvar)
    {
        if ( is_open )
        {   // it's open, so close it
            is_open = FALSE; 
            llTriggerSound(SOUND1, VOLUME1);
            llSetPrimitiveParams ([PRIM_TYPE, PRIM_TYPE_SPHERE, 0, <0.001, 1.0, 0.0>, 9.5, <0.0, 0.0, 0.1>, <0.0, 1.0, 0.0>]);
            llSay(0,"Engaged");
            //llSetStatus(STATUS_PHANTOM,FALSE );
           // llSetStatus(STATUS_PHYSICS,TRUE );
        }
        else
        {   // it's closed so open it
            is_open = TRUE; 
            llTriggerSound(SOUND1, VOLUME1);
            llSetPrimitiveParams ([PRIM_TYPE, PRIM_TYPE_SPHERE, 0, <0.003, 1.0, 0.0>, 9.5, <0.0, 0.0, 0.1>, <0.0, 1.0, 0.0>]);
            llSay(0,"Engaged"); 
            //llSetStatus(STATUS_PHANTOM,FALSE );
          // llSetStatus(STATUS_PHYSICS,TRUE );
       }
    }   // end of touch_start state
 
}// END //

// Lani_Vehicle_Spherical_Touch_Canopy_v3.lsl 
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// Special Effects Link Message Receiver Slave for Link Sets.
// Used in LANI GLOBAL SYSTEMS vehicles and gear.
// See attached license. 
// Developed by LANI GLOBAL SYSTEMS LABORATORIES in Lani and ixi regions OSGrid. 
// 
// GLOBAL VARIABLES FOR SPECIAL EFFECTS (SFX)
string OPENSAY1 = " OPEN"; // text to announce the flip status
string CLOSEDSAY1 = " CLOSED"; // text to announce the flop status
string SOUND_EFFECT1 = "hydraulic_air_door_LANI_GLOBAL"; // Action sound name
float VOLUME1 = 0.5; // Volume level of action sound (0.0~1.0) default=0.5
integer IS_OPEN = FALSE; // assume sphere hatch starts out closed (default:FALSE)
//
// GLOBAL VARIABLES FOR LINK MESSAGES
//
// Link Comms Channels
// 1 = Thrusters SFX
// 2 = Lights SFX
// 3 = Landing Gear SFX
// 4 = Canopy SFX
// 5 = Brake SFX
// 6 = Instrument Panel SFX
// 7 = Auxiliary SFX
integer CHANNEL_NUMBER = 4;  // initial link comms channel number 
integer CANOPY_ALLOW = TRUE; // allow canopy operation status flag starts flop (default=TRUE) 
string OFF_MESSAGE = "STATUS_OFF"; // status off message 
string ON_MESSAGE = "STATUS_ON";   // status on message  
 
default
{
 
    on_rez(integer start_param) 
    {
        llResetScript(); // reset to initialize
    }
    state_entry()
    {
        CANOPY_ALLOW = TRUE; // status flag starts flop (flip=TRUE  
        llSay(0," initialized & unlocked.");
    }    
 
 
    link_message(integer SENDER, integer CHANNEL, string MESSAGE, key ID)
    {
        if ( CHANNEL== CHANNEL_NUMBER ) // check the channel number 
        {
            if ( MESSAGE == ON_MESSAGE ) // check for message 
            {    
                    CANOPY_ALLOW = TRUE; // flip the canopy allow flag 
                    llSay(0," unlocked.");
            } // end of check for message
 
            if ( MESSAGE == OFF_MESSAGE ) // check for message
            {   
                    CANOPY_ALLOW = FALSE; // flop the canopy allow flag 
                  //  llSay(0," is locked due to: Pilot is seated.");
            } // end of check for message
 
        } // end of check the channel number
    }   // end of link_message 
    touch_end(integer num_detected)
    {
        if ( CANOPY_ALLOW ) // if canopy touch action is allowed
        {
 
            if (IS_OPEN)
            {   // already open so do this stuff
                llTriggerSound(SOUND_EFFECT1, VOLUME1);
                llSetPrimitiveParams ([PRIM_TYPE, PRIM_TYPE_SPHERE, 0, <0.001, 1.0, 0.0>, 9.5, <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>]); // close the canopy prim
                llSay(0," CLOSED. by "+ llDetectedName(0) + ".");
                llSetStatus(STATUS_PHANTOM,FALSE ); // be sure prim stays non phantom
                IS_OPEN = FALSE; // flip is open flag
            } // end of if is open
 
            else // already closed so do this stuff
            {   
                llTriggerSound(SOUND_EFFECT1, VOLUME1);
                llSetPrimitiveParams ([PRIM_TYPE, PRIM_TYPE_SPHERE, 0, <0.3, 0.92, 0.0>, 9.5, <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>]); // open the canopy prim
                llSay(0," OPENED. by "+ llDetectedName(0)+ ".");
                llSetStatus(STATUS_PHANTOM,FALSE ); // be sure prim stays non phantom
                IS_OPEN = TRUE; // flop is open flag
               // llSleep(0.5);
                //  llSetStatus(STATUS_PHYSICS,TRUE );
            } // end of else already closed
        } // end of if canopy allowed 
 
        if ( ! CANOPY_ALLOW )
        {
            llSay(0," touched by "+ llDetectedName(0)+". Sorry, canopy locked while pilot seated.");
        } // end of touch canopy touch action not allowed
    }   // end of touch_start state
}// end of default state 
// end of script

// Lani_Vehicle_Passenger_Seat v3.lsl
// (c)2014 LANI GLOBAL SYSTEMS. All rights reserved.
// ===============================================================
// Offered under license:
// Atribution-NonCommercial CC BY-NC 
// ===============================================================
// Developed by LANI GLOBAL SYSTEMS in Lani and ixi regions OSGrid.
// HyperGrid hg.osgrid.org:80:lani
// Images http://gallery.osgrid.org/
// Website http://opensimulator.org/wiki/User:LaniGlobal
// Twitter https://twitter.com/LaniGlobal
// Inspiration for this script is from various sources.
// Script Credits: 
// Lani Global: implementation in OpenSim of physical vehicle, linked controls, and FX.
// GLOBALS
key avatar; 
vector pos = <1.35,0.0,-0.5>;  //position offset. note: must not be <0,0,0> 
rotation rot = <1,1,1,1>; //rotation offset. note: 1=90 degrees
string anim = "SitCommandChair2aZero"; //name of the anim. note: must be in Contents of the prim
 
default
{
    state_entry()
    {
        llSitTarget(pos, rot); // set the sit target position/rotation
    }
    changed(integer change) //trigger on change
    {
        avatar = llAvatarOnSitTarget(); //get the avatar's key
       if(change & CHANGED_LINK) // is avatar sitting on prim?
       {
           if(avatar == NULL_KEY) // avatar is not sitting on prim
           { 
                llStopAnimation(anim); //stop the animation
                llReleaseControls(); //release anim control
                llSleep(0.05);//sleep to allow release of control
                llStopAnimation(anim); //stop the animation again in case of lag
                llReleaseControls(); //release anim control again in case of lag
                llResetScript(); //reset the script
           }
           else if(avatar == llAvatarOnSitTarget()) //avatar is sitting on prim
           {
                llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION ); //get permission and run the anim
                llInstantMessage(llAvatarOnSitTarget(),"Use SubSpace Communicator for local chat");
                llOwnerSay(llKey2Name(llAvatarOnSitTarget()) + " is sitting.\n Use SubSpace Communicator to text chat with "+ llKey2Name(llAvatarOnSitTarget()) +"." ); // announce 
           }
        }
    }
        run_time_permissions(integer perms) // permissions to animate
        {
        if(perms) //assume permissions to animate
        {
            llStopAnimation("sit"); //stop normal sit anim
            llStartAnimation(anim); //start running the anim
            llSleep(0.05);//sleep to allow anim to start
            llStartAnimation(anim); //start running the anim again in case of lag
        }
        else
        {
            llUnSit(avatar); //if permissions not granted to animate then unsit the avatar
        }
    }
}