Casing-Node.lsl

float     AGE = 4.00;
float    RATE = 0.05;
integer auto = 1;
integer            WIND = FALSE;
vector   START_SCALE = < 0.05, 0.5, 0.0 >;
vector     END_SCALE = < 0.05, 0.5, 0.0 >;
integer   PATTERN = PSYS_SRC_PATTERN_ANGLE;
vector   START_COLOR = < 1, 1.0, 1.0 >;
vector     END_COLOR = < 1, 1.0, 1.0 >;
float    LIFE = 0.0;
////////////////////////////////////////////////////////////////
mySetParticles() {
    if(auto == 1)
    {


    float    START_ALPHA = 1.0; // 1.00
    float      END_ALPHA = 0.0; // 1.00
    integer INTERP_COLOR = TRUE; // FALSE
    integer INTERP_SCALE = TRUE; // FALSE
    integer     EMISSIVE = TRUE; // FALSE
    string       TEXTURE = "2ec2cfad-1e82-8c04-6169-f0347f0d89dc"; // ""
    integer COUNT = 1;    // 1
    float    LIFE = 0.0;  // 0.0
    float       RADIUS = 0.00; // 0.00
    float       ANGLE_BEGIN = 0.10; // 0.00
    float       ANGLE_END = 0.10; // 0.00
    float       IANGLE = 0.10; // 0.00
    float       OANGLE = 45; // 0.00
    vector      OMEGA = < 0.00, 0.00, 0.00 >; // < 0.00, 0.00, 0.00 >
    integer     FOLLOW_SRC = FALSE; // FALSE
    integer     FOLLOW_VELOCITY = TRUE; // FALSE
    integer            WIND = FALSE; // FALSE-----------------------------------------
    integer     BOUNCE = FALSE; // FALSE
    float       SPEED_MIN = 2.00; // 1.00
    float       SPEED_MAX = 2.00; // 1.00
    vector      ACCEL = < 0.00, 0.00, -3 >; // < 0.00, 0.00, 0.00 >
    integer     TARGET_POS = FALSE; // FALSE
    key         TARGET = llGetKey(); // llGetKey();
       list particle_parameters = [
            PSYS_PART_FLAGS,(


                ( EMISSIVE * PSYS_PART_EMISSIVE_MASK ) |
                ( BOUNCE * PSYS_PART_BOUNCE_MASK ) |
                ( INTERP_COLOR * PSYS_PART_INTERP_COLOR_MASK ) |
                ( INTERP_SCALE * PSYS_PART_INTERP_SCALE_MASK ) |
                ( WIND * PSYS_PART_WIND_MASK ) |
                ( FOLLOW_SRC * PSYS_PART_FOLLOW_SRC_MASK ) |
                ( FOLLOW_VELOCITY * PSYS_PART_FOLLOW_VELOCITY_MASK ) |
                ( TARGET_POS * PSYS_PART_TARGET_POS_MASK ) ),
            PSYS_PART_START_COLOR, START_COLOR,
            PSYS_PART_END_COLOR, END_COLOR,
            PSYS_PART_START_ALPHA, START_ALPHA,
            PSYS_PART_END_ALPHA, END_ALPHA,
            PSYS_PART_START_SCALE, START_SCALE,
            PSYS_PART_END_SCALE, END_SCALE,
            PSYS_SRC_PATTERN, PATTERN,
            PSYS_SRC_BURST_PART_COUNT, COUNT,
            PSYS_SRC_BURST_RATE, RATE,
            PSYS_PART_MAX_AGE, AGE,
             PSYS_SRC_MAX_AGE, LIFE,
            PSYS_SRC_ACCEL, ACCEL,
            PSYS_SRC_BURST_RADIUS, RADIUS,




            PSYS_SRC_BURST_SPEED_MIN, SPEED_MIN,
            PSYS_SRC_BURST_SPEED_MAX, SPEED_MAX,
            PSYS_SRC_TARGET_KEY, TARGET,
            PSYS_SRC_ANGLE_BEGIN, ANGLE_BEGIN,
            PSYS_SRC_ANGLE_END, ANGLE_END,
            PSYS_SRC_INNERANGLE,IANGLE,
            PSYS_SRC_OUTERANGLE,OANGLE,


            PSYS_SRC_OMEGA, OMEGA,

            PSYS_SRC_TEXTURE, TEXTURE
        ];

        llParticleSystem( particle_parameters );
}
 else
    {
    float    START_ALPHA = 1.0; // 1.00
    float      END_ALPHA = 0.0; // 1.00
    integer INTERP_COLOR = TRUE; // FALSE
    integer INTERP_SCALE = TRUE; // FALSE
    integer     EMISSIVE = TRUE; // FALSE
    string       TEXTURE = "890da767-9183-f1f9-0214-b26e01fc76ab"; // ""
    integer COUNT = 1;    // 1
    float    LIFE = 0.1;  // 0.0
    float       RADIUS = 0.00; // 0.00
    float       ANGLE_BEGIN = 0.10; // 0.00
    float       ANGLE_END = 0.10; // 0.00
    float       IANGLE = 0.10; // 0.00
    float       OANGLE = 45; // 0.00
    vector      OMEGA = < 0.00, 0.00, 0.00 >; // < 0.00, 0.00, 0.00 >
    integer     FOLLOW_SRC = FALSE; // FALSE
    integer     FOLLOW_VELOCITY = TRUE; // FALSE
    integer            WIND = FALSE; // FALSE-----------------------------------------
    integer     BOUNCE = FALSE; // FALSE
    float       SPEED_MIN = 2.00; // 1.00
    float       SPEED_MAX = 2.00; // 1.00
    vector      ACCEL = < 0.00, 0.00, -3 >; // < 0.00, 0.00, 0.00 >
    integer     TARGET_POS = FALSE; // FALSE
    key         TARGET = llGetKey(); // llGetKey();
       list particle_parameters = [
            PSYS_PART_FLAGS,(


                ( EMISSIVE * PSYS_PART_EMISSIVE_MASK ) |
                ( BOUNCE * PSYS_PART_BOUNCE_MASK ) |
                ( INTERP_COLOR * PSYS_PART_INTERP_COLOR_MASK ) |
                ( INTERP_SCALE * PSYS_PART_INTERP_SCALE_MASK ) |
                ( WIND * PSYS_PART_WIND_MASK ) |
                ( FOLLOW_SRC * PSYS_PART_FOLLOW_SRC_MASK ) |
                ( FOLLOW_VELOCITY * PSYS_PART_FOLLOW_VELOCITY_MASK ) |
                ( TARGET_POS * PSYS_PART_TARGET_POS_MASK ) ),
            PSYS_PART_START_COLOR, START_COLOR,
            PSYS_PART_END_COLOR, END_COLOR,
            PSYS_PART_START_ALPHA, START_ALPHA,
            PSYS_PART_END_ALPHA, END_ALPHA,
            PSYS_PART_START_SCALE, START_SCALE,
            PSYS_PART_END_SCALE, END_SCALE,
            PSYS_SRC_PATTERN, PATTERN,
            PSYS_SRC_BURST_PART_COUNT, COUNT,
            PSYS_SRC_BURST_RATE, RATE,
            PSYS_PART_MAX_AGE, AGE,
             PSYS_SRC_MAX_AGE, LIFE,
            PSYS_SRC_ACCEL, ACCEL,
            PSYS_SRC_BURST_RADIUS, RADIUS,




            PSYS_SRC_BURST_SPEED_MIN, SPEED_MIN,
            PSYS_SRC_BURST_SPEED_MAX, SPEED_MAX,
            PSYS_SRC_TARGET_KEY, TARGET,
            PSYS_SRC_ANGLE_BEGIN, ANGLE_BEGIN,
            PSYS_SRC_ANGLE_END, ANGLE_END,
            PSYS_SRC_INNERANGLE,IANGLE,
            PSYS_SRC_OUTERANGLE,OANGLE,


            PSYS_SRC_OMEGA, OMEGA,

            PSYS_SRC_TEXTURE, TEXTURE
        ];

        llParticleSystem( particle_parameters );
}

  // Turns on the particle hose!
}


integer gnum = 1;
float spray = .01;
casingloop()
{ @a;
 vector e = llRot2Euler(llGetCameraRot());
             rotation rot = llEuler2Rot(<0,0,e.z>);

            rotation your_mom=<0,0,rot.z,rot.s>;
                    vector v = llGetAgentSize(llGetOwner());
         llRezAtRoot("7.62 Bullet Casing",llGetPos()+<.32,-.3,v.z*.45>*rot,<-.5,-2.54,llFrand(spray * 2) - spray>*your_mom,llGetRot(),1);
jump a;
}
foff()
{
      integer mf2 = llGetNumberOfPrims();
           for (; mf2 >= 0; --mf2)
    {
        if(llGetLinkName(mf2) == "Mflash")
        {


        llSetLinkPrimitiveParamsFast(mf2,[PRIM_TEXTURE,ALL_SIDES,"8dcd4a48-2d37-4909-9f78-f7a9eb4ef903",<1,1,1>,<0,0,0>,0]);
        }
    }}
  fon()
{
      integer mf2 = llGetNumberOfPrims();
           for (; mf2 >= 0; --mf2)
    {
        if(llGetLinkName(mf2) == "Mflash")
        {


        llSetLinkPrimitiveParamsFast(mf2,[PRIM_TEXTURE,ALL_SIDES,"e61c896b-3f7f-4b54-bc33-7e8011d32e25",<1,1,1>,<0,0,0>,0]);
        }
    }}

fcycle()
{ integer mf2 = llGetNumberOfPrims();
           for (; mf2 >= 0; --mf2)
    {
        if(llGetLinkName(mf2) == "Mflash")
        {

            llSetLinkPrimitiveParamsFast(mf2,[PRIM_TEXTURE,ALL_SIDES,"e61c896b-3f7f-4b54-bc33-7e8011d32e25",<1,1,1>,<0,0,0>,0]);
     llSleep(.05);
        llSetLinkPrimitiveParamsFast(mf2,[PRIM_TEXTURE,ALL_SIDES,"8dcd4a48-2d37-4909-9f78-f7a9eb4ef903",<1,1,1>,<0,0,0>,0]);
        }
    }
        }
default
{
    on_rez(integer rez)
    {
        llRequestPermissions(llGetOwner(), PERMISSION_TRACK_CAMERA);
    }
    state_entry()
    {foff();
    llParticleSystem([]);
        llRequestPermissions(llGetOwner(), PERMISSION_TRACK_CAMERA);
    }
    link_message(integer snum, integer num, string str, key id)
    {


            if(str == "nsf1")
            {

              !auto;
                WIND = TRUE;
                AGE = 2;
                LIFE = .1;
                RATE = 1;
                 START_SCALE = < 0.13, 0.04, 5 >;
                END_SCALE = < 0.12, 0.04, 5 >;
                PATTERN = PSYS_SRC_PATTERN_ANGLE_CONE;
                START_COLOR = < 1.0, 1.0, 1.0 >;
                END_COLOR = < 1.0, 1.0, 1.0 >;
                mySetParticles();
                llSleep(.1);
               llParticleSystem([]);



            }
          else  if(str == "sf1")
            {fcycle();

              !auto;
                WIND = TRUE;
                AGE = 2;
                LIFE = .1;
                RATE = 1;
                START_SCALE = < 0.13, 0.04, 5 >;
                END_SCALE = < 0.12, 0.04, 5 >;
                PATTERN = PSYS_SRC_PATTERN_ANGLE_CONE;
                START_COLOR = < 1.0, 1.0, 1.0 >;
                END_COLOR = < 1.0, 1.0, 1.0 >;
                mySetParticles();
                llSleep(.1);
               llParticleSystem([]);




            }
        else  if(str == "nf1")
            {
            auto;

                WIND = TRUE;
                AGE = 2;
                RATE = 0.15;
                START_SCALE = < 0.13, 0.04, 5 >;
                END_SCALE = < 0.13, 0.04, 5 >;
                PATTERN = PSYS_SRC_PATTERN_ANGLE_CONE;
                START_COLOR = < 1.0, 1.0, 1.0 >;
                END_COLOR = < 1.0, 1.0, 1.0 >;
                mySetParticles();
            }
           else if(str == "f1")
            {fon();

            auto;

                WIND = TRUE;
                AGE = 2;
                RATE = 0.15;
                START_SCALE = < 0.13, 0.04, 5 >;
                END_SCALE = < 0.13, 0.04, 5 >;
                PATTERN = PSYS_SRC_PATTERN_ANGLE_CONE;
                START_COLOR = < 1.0, 1.0, 1.0 >;
                END_COLOR = < 1.0, 1.0, 1.0 >;
                mySetParticles();
            }


        }


}