integer switch;

float time = 20;
float startred = 0;
float startgreen = 0;
float startblue = 0;
float startx = .1;
float starty = 1;
float starttrans = 0;

float endred = .8;
float endgreen = .8;
float endblue = 0;
float endx = .1;
float endy = 1;
float endtrans = 1;

float count = 5;
float burstrate = .01;
float maxage = 10;
float radius = 2;
float accelx = 0;
float accely = 0;
float accelz = 0;

string dialog;

string  CONTROLLER_ID = "A";
integer AUTO_START = TRUE;

list particle_parameters1=[];
list particle_parameters2=[];
list target_parameters=[];

integer globalChannel = -12;

integer localChannel;
integer localHandle;

float timeOut = 20;

integer Key2Channel(key id)
{
    list temp = llParseString2List((string)id, ["-"], []);
    string hex = "0x" + llList2String(temp, 0);
    integer channel = (integer)hex * -1;
    return(channel);
}
default
{
    touch_start(integer num)
    {
        if(switch==2)
        {
            //llParticleSystem( particle_parameters1 );
            llParticleSystem([  ]);

            switch=0;
        }
        else if(switch==0)
        {
            switch=1;
            llParticleSystem( particle_parameters1 );
        }
        else if(switch==1)
        {
            switch=2;
            llParticleSystem( particle_parameters2 );
        }
    }
    timer()
    {
        llParticleSystem([  ]);
        llSetTimerEvent(0);
    }
    listen(integer channel, string name, key id, string msg)
    {
        if(channel==3)
        {
            if (id == llGetOwner() && msg == "menu")
            {
                localChannel = Key2Channel(id);
                localHandle = llListen(localChannel, "", id, "");
                llDialog(id, "Main Menu", ["Start Color","End Color"], localChannel);
            }
        }
        if (channel == localChannel)
        {
            if (msg == "Start Color")
            {
                llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "End Color")
            {
                llDialog(id, "End Color", ["Main Menu","TestEC","Done","EndRed-","EndGreen-","EndBlue-","EndRed+","EndGreen+","EndBlue+","Start Color"," "," "], localChannel);
            }
            else if (msg == "Main Menu")
            {
                llDialog(id, "Main Menu", ["Start Color","End Color"], localChannel);
            }
            else if (msg == "StartRed+")
            {
                 startred+.1;
                 llOwnerSay((string)startred);
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "StartGreen+")
            {
                 startgreen+.1;
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "StartBlue+")
            {
                 startblue+.1;
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "StartRed-")
            {
                 startred-.1;
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "StartGreen-")
            {
                 startgreen-.1;
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
            else if (msg == "StartBlue-")
            {
                 startblue-.1;
                 llDialog(id, "Start Color", ["Main Menu","TestSC","Done","StartRed-","StartGreen-","StartBlue-","StartRed+","StartGreen+","StartBlue+"," "," ","End Color"], localChannel);
            }
        }
    }

    state_entry() {llListen(3,"","","");
    particle_parameters1 = [  // start of particle settings
           // Texture Parameters:
           PSYS_SRC_TEXTURE, llGetInventoryName(INVENTORY_TEXTURE, 0),
           PSYS_PART_START_SCALE, <startx,starty,0>,
           PSYS_PART_END_SCALE, <.3,2, 0>,
           PSYS_PART_START_COLOR, <startred,startgreen,startblue>,
           PSYS_PART_END_COLOR, <endred,endgreen,endblue>,
           PSYS_PART_START_ALPHA, (float) starttrans,
           PSYS_PART_END_ALPHA, (float)endtrans,

           // Production Parameters:
           PSYS_SRC_BURST_PART_COUNT, (integer)5,
           PSYS_SRC_BURST_RATE, (float) 0.01,
           PSYS_PART_MAX_AGE, (float)3,
           PSYS_SRC_MAX_AGE, (float)0.0,

           // Placement Parameters:
           PSYS_SRC_PATTERN, (integer)2, // 1=DROP, 2=EXPLODE, 4=ANGLE, 8=ANGLE_CONE,

           // Placement Parameters (for any non-DROP pattern):
           PSYS_SRC_BURST_SPEED_MIN, (float).01,   PSYS_SRC_BURST_SPEED_MAX, (float).01,
           PSYS_SRC_BURST_RADIUS, 10,

           // Placement Parameters (only for ANGLE & CONE patterns):
           //PSYS_SRC_ANGLE_BEGIN,  (float)0.05*PI,       PSYS_SRC_ANGLE_END, (float)0.0*PI,
        // PSYS_SRC_OMEGA, <0,0,0>,

           // After-Effect & Influence Parameters:
           PSYS_SRC_ACCEL, <0.0,0.0,0>,
        // PSYS_SRC_TARGET_KEY,      llGetLinkKey(llGetLinkNum() + 1),

           PSYS_PART_FLAGS, (integer)( 0            // Texture Options:
                                | PSYS_PART_INTERP_COLOR_MASK
                                | PSYS_PART_INTERP_SCALE_MASK
                                | PSYS_PART_EMISSIVE_MASK
                                | PSYS_PART_FOLLOW_VELOCITY_MASK
                                                  // After-effect & Influence Options:
                             // | PSYS_PART_WIND_MASK
                                | PSYS_PART_BOUNCE_MASK
                             // | PSYS_PART_FOLLOW_SRC_MASK
                              | PSYS_PART_TARGET_POS_MASK
                             // | PSYS_PART_TARGET_LINEAR_MASK
                            )
            //end of particle settings
        ];

        //if ( AUTO_START ) llParticleSystem( particle_parameters );
   particle_parameters2 =
      [  // start of particle settings
           // Texture Parameters:
           PSYS_SRC_TEXTURE, llGetInventoryName(INVENTORY_TEXTURE, 0),
           PSYS_PART_START_SCALE, <.5, .5, 0>,  PSYS_PART_END_SCALE, <1,1, 0>,
           PSYS_PART_START_COLOR, <.8,.8,0>,    PSYS_PART_END_COLOR, <1,1,1>,
           PSYS_PART_START_ALPHA, (float) 1,            PSYS_PART_END_ALPHA, (float)0.0,

           // Production Parameters:
           PSYS_SRC_BURST_PART_COUNT, (integer)5,
           PSYS_SRC_BURST_RATE, (float) 0.01,
           PSYS_PART_MAX_AGE, (float)3.0,
           PSYS_SRC_MAX_AGE, (float)0.0,

           // Placement Parameters:
           PSYS_SRC_PATTERN, (integer)2, // 1=DROP, 2=EXPLODE, 4=ANGLE, 8=ANGLE_CONE,

           // Placement Parameters (for any non-DROP pattern):
           PSYS_SRC_BURST_SPEED_MIN, (float)5,   PSYS_SRC_BURST_SPEED_MAX, (float)0.2,
        // PSYS_SRC_BURST_RADIUS, 0.0,

           // Placement Parameters (only for ANGLE & CONE patterns):
           PSYS_SRC_ANGLE_BEGIN,  (float)0.05*PI,       PSYS_SRC_ANGLE_END, (float)0.0*PI,
        // PSYS_SRC_OMEGA, <0,0,0>,

           // After-Effect & Influence Parameters:
           PSYS_SRC_ACCEL, <0.0,0.0,0>,
        // PSYS_SRC_TARGET_KEY,      llGetLinkKey(llGetLinkNum() + 1),

           PSYS_PART_FLAGS, (integer)( 0            // Texture Options:
                                | PSYS_PART_INTERP_COLOR_MASK
                                | PSYS_PART_INTERP_SCALE_MASK
                                | PSYS_PART_EMISSIVE_MASK
                                | PSYS_PART_FOLLOW_VELOCITY_MASK
                                                  // After-effect & Influence Options:
                               // | PSYS_PART_WIND_MASK
                                | PSYS_PART_BOUNCE_MASK
                             // | PSYS_PART_FOLLOW_SRC_MASK
                             // | PSYS_PART_TARGET_POS_MASK
                             // | PSYS_PART_TARGET_LINEAR_MASK
                            )
            //end of particle settings
        ];
    }


}