;Script:  Rainbow beam
;Author:  Sweden here (Hampus Ström)
;Date  :  1996-05-12
;Desc  :  Makes a rainbow colored zap and puts a POW prop at end
{
"laser" SOUND 0 0 255 PENCOLOR 1 PENSIZE PENFRONT
POSX POSY MOUSEPOS 0 + 4 -  LINE
0 128 255 PENCOLOR
POSX POSY MOUSEPOS 0 + 3 -  LINE
0 255 255 PENCOLOR
POSX POSY MOUSEPOS 0 + 2 -  LINE
0 255 128 PENCOLOR
POSX POSY MOUSEPOS 0 + 1 -  LINE
0 255 0 PENCOLOR
POSX POSY MOUSEPOS 0 + 0 +  LINE
128 255 0 PENCOLOR
POSX POSY MOUSEPOS 0 + 1 +  LINE
255 255 0 PENCOLOR
POSX POSY MOUSEPOS 0 + 2 +  LINE
255 128 0 PENCOLOR
POSX POSY MOUSEPOS 0 + 3 +  LINE
255 0 0 PENCOLOR
POSX POSY MOUSEPOS 0 + 4 +  LINE
")boom" SAY PAINTCLEAR 3 PENSIZE
MOUSEPOS y = x =
"pow" x 22 - y 22 - ADDLOOSEPROP
"" CHATSTR =
} CHATSTR "beam" == IF