partSystem(integer on)
    {
   list ps= [
            PSYS_SRC_PATTERN,PSYS_SRC_PATTERN_ANGLE_CONE,
            PSYS_SRC_BURST_RADIUS,.25,
            PSYS_SRC_ANGLE_BEGIN,0.0,
            PSYS_SRC_ANGLE_END,3,
            PSYS_SRC_TARGET_KEY,llGetKey(),
            PSYS_PART_START_COLOR,<.941,.071,.745>,
            PSYS_PART_END_COLOR,<.941,.071,.745>,
            PSYS_PART_START_ALPHA,1,
            PSYS_PART_END_ALPHA,0.25,
            PSYS_PART_START_GLOW,1.0,
            PSYS_PART_END_GLOW,0.25,
            PSYS_PART_BLEND_FUNC_SOURCE,PSYS_PART_BF_SOURCE_ALPHA,
            PSYS_PART_BLEND_FUNC_DEST,PSYS_PART_BF_ONE_MINUS_SOURCE_ALPHA,
            PSYS_PART_START_SCALE,<0.15,7.0 ,0.000000>,
            PSYS_PART_END_SCALE,<0.1250000,1.000000,0.000000>,
            PSYS_SRC_TEXTURE,"",
            PSYS_SRC_MAX_AGE,20,
            PSYS_PART_MAX_AGE,2.5,
            PSYS_SRC_BURST_RATE,0.1,
            PSYS_SRC_BURST_PART_COUNT,6,
            PSYS_SRC_ACCEL,<0,0,0.00001>,
            PSYS_SRC_OMEGA,<0,0,.0001>,
            PSYS_SRC_BURST_SPEED_MIN,0,
            PSYS_SRC_BURST_SPEED_MAX,.5,
            PSYS_PART_FLAGS,
                0 |
                 PSYS_PART_BOUNCE_MASK |
                PSYS_PART_EMISSIVE_MASK |
                PSYS_PART_INTERP_COLOR_MASK |
                PSYS_PART_INTERP_SCALE_MASK
        ];
        llParticleSystem(ps);
    llSleep(3);
    llParticleSystem([]);

}


default
{
    state_entry()
    {
        llSay(0, "Ok");
    }
    
    changed(integer c)
    {
        if (c & CHANGED_REGION)
        {
            partSystem(1);
        }
        else if (c & CHANGED_TELEPORT)
        {
            partSystem(1);
        }
        else if (c & CHANGED_OWNER)
        {
            llResetScript();
        }
    }
}