; 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 ; ; ********************************