Bored with uninspired "Zap" or "Blast" scripts.  Want to reek havoc from 
above.  
Here is a little script that creates three totally random bolts of 
lightening to 
rain down on unexpecting guests.  The first bolt is thicker and goes 
relatively 
straight down.  The two others are on the sides and should proceed out 
toward either 
side (they have a 75% chance of doing so which means they should most of 
the time, 
but they are still random).

Improvements to this script would include removal of all of the "new" 
variables.  
Creative stack manipulation would render these 6 variables unncecessary.  
They are 
left in here for clarity.

Also, some thoughtful recursion could make some great effects letting the 
bolt 
branch off at certain places (suggested by Jim - not implemented yet).

Not as much of a screen/lag hog as the Scanner, but you should use the 
same caution 
with this script.  Use sparingly, and it will only work in Paint-Enabled 
rooms.

{
      POSX x = POSY 15 + y =
      POSX 15 + x2 = POSY y2 =
      POSX 20 - x3 = POSY y3 =

          255 255 100 PENCOLOR
     { i ++

       7 i - 3 * PENSIZE
       y 40 + ynew =
       x 50 - 100 RANDOM + xnew =
       x y xnew ynew LINE
       xnew x = ynew y =

       7 i - PENSIZE
       y2 30 + y2new =
       x2 25 - 100 RANDOM + x2new =
       x2 y2 x2new y2new LINE
       x2new x2 = y2new y2 =

       7 i - PENSIZE
       y3 30 + y3new =
       x3 25 + 100 RANDOM - x3new =
       x3 y3 x3new y3new LINE
       x3new x3 = y3new y3 =

     } { i 7 < } WHILE
      "boom" SOUND 
      { j ++ PAINTUNDO } { j 21 < } WHILE 
} CHATSTR "bolt" == IF

Bruce