// 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.

// Description: simulate a beacon.
// using a timer to periodically toggle the prim's point light

integer onoff=FALSE;
default
{
  state_entry() { llSetTimerEvent(2); }

    timer()
    {
      if (onoff==FALSE)
        { llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, <1,0,0>, 1, 10, 1.] ); onoff=TRUE; }
      else
        { llSetPrimitiveParams([PRIM_POINT_LIGHT, FALSE, <1, 1, 1>, 1.0, 10.0, 0.75] ); onoff=FALSE;}
    }
}

// that's: color, intensity, radius, falloff rate