;---------------------------------------BEGIN SCRIPT---------------------------- 

; Script Name: Zoop 3 (Zoop Version 3.0) 

; Author : Myotis Dragonious 

; Last Modify: 03/24/96 

{ 

2 PENSIZE 

; 

;First Spread - Cyan Spectrum ( 4-steps ) 

; 

{ Red 

Green 

[50 100 150 200] Index1 GET 

PENCOLOR 

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

Index1++ } { Index1 3 <= } WHILE 

; 

;Second Spread - Green Spectrum ( 4-steps ) 

; 

{ Red 

[50 100 150 200] Index2 GET 

Blue 

PENCOLOR 

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

Index2++ } { Index2 3 <= } WHILE 

; 

;Third Spread - Red Spectrum ( 5-steps ) 

; 

{ [50 100 150 200 255] Index3 GET 

Green 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS [4 3 2 1] Index3 Get- [4 3 2 1] Index3 Get - LINE 

Index3++ } { Index3 4 <= } WHILE 

; 

;Fourth Spread - Yellow Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index4 GET 

[50 100 150 200] Index4 GET 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS [1 2 3 4] Index4 Get + [1 2 3 4] Index4 Get + LINE 

Index4++ } { Index4 3 <= } WHILE 

; 

;Fifth Spread - Purple Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index5 GET 

Green 

[50 100 150 200] Index5 GET 

PENCOLOR 

POSX POSY MOUSEPOS [5 6 7 8] Index5 Get + [5 6 7 8] 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 

; 

;Seventh Spread - Blue Spectrum ( 4-steps ) 

; 

{ Red 

[50 100 150 200] Index7 GET 

[50 100 150 200] Index7 GET 

PENCOLOR 

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

Index7++ } { Index7 3 <= } WHILE 

; 

;Eigth Spread - Purple Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index8 GET 

Green 

[50 100 150 200] Index8 GET 

PENCOLOR 

POSX POSY MOUSEPOS [8 6 5 4] Index8 Get + [8 6 5 4] Index8 GET + LINE 

Index8++ } { Index8 3 <= } WHILE 

; 

;Ninth Spread - Yellow Spectrum ( 4-steps ) 

; 

{ [50 100 150 200] Index9 GET 

[50 100 150 200] Index9 GET 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS [4 3 2 1] Index9 Get + [4 3 2 1] Index9 Get + LINE 

Index9++ } { Index9 3 <= } WHILE 

; 

;Tenth Spread - Red Spectrum ( 5-steps ) 

; 

{ [50 100 150 200 255] Index10 GET 

Green 

Blue 

PENCOLOR 

POSX POSY MOUSEPOS [1 2 3 4] Index10 Get - [1 2 3 4] Index10 Get - LINE 

Index10++ } { Index10 4 <= } WHILE 

; 

;Eleventh Spread - Green Spectrum ( 4-steps ) 

; 

{ Red 

[50 100 150 200] Index11 GET 

Blue 

PENCOLOR 

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

Index11++ } { Index11 3 <= } WHILE 

; 

;Twelfth Spread - Cyan Spectrum ( 4-steps ) 

; 

{ Red 

Green 

[50 100 150 200] Index12 GET 

PENCOLOR 

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

Index12++ } { Index12 3 <= } WHILE 

{ PAINTUNDO LineNumberIndex2++} 

{ LineNumberIndex2 25 <= } WHILE 

"" CHATSTR = 

} 

CHATSTR "zoop3" == IF 

;---------------------------------------END SCRIPT---------------------------- 

;Myotis Dragonious...