; Zap MULTICOLOR 

;Here is ZOOP II kiddos....have phun! Myotis 

; Script Name : ZOOP version 2.0 

; Author : Myotis Dragonious (Alan Bean) 

; Last Revised: 10 FEB 1996 

{ 

1 PENSIZE 

; 

;First Spread - Red Spectrum ( 5-steps ) 

; 

{ [50 100 150 200 255] Index1 GET 

Green 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS Index1 - Index1 - LINE 

Index1++ } { Index1 4 <= } WHILE 

; 

;Second Spread - Yellow Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index2 GET 

[50 100 150 200] Index2 GET 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS Index2 + Index2 + LINE 

Index2++ } { Index2 3 <= } WHILE 

; 

;Third Spread - Green Spectrum ( 4-steps ) 

; 

{ Red 

[50 100 150 200] Index3 GET 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS [5 6 7 8] Index3 Get - [5 6 7 8] Index3 GET - LINE 

Index3++ } { Index3 3 <= } WHILE 

; 

;Fourth Spread - Purple Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index4 GET 

Green 

[50 100 150 200] Index4 GET 

PENCOLOR 

POSX POSY MOUSEPOS [5 6 7 8] Index4 Get + [5 6 7 8] Index4 GET + LINE 

Index4++ } { Index4 3 <= } WHILE 

; 

;Fifth Spread - Cyan Spectrum ( 4-steps ) 

; 

{ Red 

Green 

[50 100 150 200] Index5 GET 

PENCOLOR 

POSX POSY MOUSEPOS [9 10 11 12] Index5 Get - [9 10 11 12] Index5 GET - 

LINE 

Index5++ } { Index5 3 <= } WHILE 

; 

;Sixth Spread - Blue Spectrum ( 4-steps ) 

; 

{ Red 

[50 100 150 200] Index6 GET 

[50 100 150 200] Index6 GET 

PENCOLOR 

POSX POSY MOUSEPOS [9 10 11 12] Index6 Get + [9 10 11 12] Index6 GET + 

LINE 

Index6++ } { Index6 3 <= } WHILE 

{ PAINTUNDO LineNumberIndex++} 

{ LineNumberIndex 25 <= } WHILE 

"" CHATSTR = 

} 

CHATSTR "zoop" == IF 

; 

; ********************************
     Source: geocities.com/siliconvalley/network/8524/scripts
               ( geocities.com/siliconvalley/network/8524)                   ( geocities.com/siliconvalley/network)                   ( geocities.com/siliconvalley)