// This script is from http://xahlee.org/sl/ . Copyright © 2007 Xah Lee. Permission is granted for use or modification provided this note is intact and the script has permissions for copy, mod, and resell.

// A blinking red beacon, using particle system

partyOn(){
 llParticleSystem([

 PSYS_PART_FLAGS
 , 0
 | PSYS_PART_EMISSIVE_MASK
 | PSYS_PART_INTERP_COLOR_MASK
 | PSYS_PART_INTERP_SCALE_MASK
 | PSYS_PART_FOLLOW_SRC_MASK
 ,

 PSYS_SRC_PATTERN, PSYS_SRC_PATTERN_DROP,

 PSYS_SRC_MAX_AGE, 0.,
 PSYS_SRC_BURST_RATE, 2.,
 PSYS_SRC_BURST_PART_COUNT, 3,

 PSYS_SRC_ACCEL, <0.0,0.0,-0.01>,

 PSYS_PART_MAX_AGE, 3.,
 PSYS_PART_START_COLOR, <1,0,0>,
 PSYS_PART_END_COLOR, <1,1,1>,
 PSYS_PART_START_ALPHA, 0.8,
 PSYS_PART_END_ALPHA, 0.,

 PSYS_PART_START_SCALE, <1,1,0>,
 PSYS_PART_END_SCALE, <.01,.01,0>
 ]);
}

default { state_entry() {partyOn();}}