Rain Control Code : Second Life

integer channel_stars = 30;

// Set the Size and Count for Particles...

particles(float size, integer count){

        llParticleSystem([PSYS_PART_FLAGS, PSYS_PART_FOLLOW_SRC_MASK | PSYS_PART_EMISSIVE_MASK,     PSYS_SRC_PATTERN, PSYS_SRC_PATTERN_ANGLE | PSYS_SRC_BURST_RADIUS,     PSYS_PART_START_COLOR, <1,1,1>,PSYS_SRC_ANGLE_BEGIN,1.57,PSYS_SRC_BURST_RADIUS,110.0,PSYS_PART_START_SCALE,,PSYS_PART_END_SCALE,,PSYS_SRC_BURST_PART_COUNT,count]);

    }

default

{

    state_entry()

    {

        // listen on channel zero for any chat spoken by the object owner.

        llListen(channel_stars,"",llGetOwner(),"");

    }

    

    

    

    listen(integer channel, string name, key id, string message)

    {

        

        list meglist  = llParseString2List(message,[" "],[]);

        integer i=0;

        integer length = llGetListLength(meglist);

        

        if(length <>2)

        {

            llSay(0,"Wrong Input: ");

        }

        

        if (length == 1)

        {

            if (llToLower(message) == "start ")  

            {             

                particles(0.1, 100);         

            }

        

            else if (llToLower(message) == "stop")       

            {             

                llParticleSystem([]);         

            }

            else

            {

                llSay(0,"Wrong Command");

            }

        }

        

        if(length == 3)

        {

            if(llList2String(meglist,0) == "start"){

                particles(llList2Float(meglist,1), llList2Integer(meglist,2));        

            }

        }

        //for (i = 0; i <>

        //    llSay(0,llList2String(meglist,i));

        

        

        if (llToLower(message) == "hello")

        {

            // if the message from the owner is "hello", respond with "Hello.".

            llSay(0,"Hello.");

        }

        

         

        

        

    }

}