By StanZ on Nov 29, 2003A kind of plasma effect.
-> /zool -> trashcan haha
I had nice feed back on this so here more coders/dutch colors :)
Thank's for watching!
alias zool {
%a = 2 | %b = 0
%c = drawtext -nor @-
%d = drawline -nr @-
%j = 0 0 690 567
%e = drawcopy -nm @- 16 16 658 535 @- %j
window -pCBdokf +t @- %j
drawrect -nrf @- 65535 0 %j
titlebar @- http://www.hawkee.com - | a
}
alias -l a {
inc %b .1 | var %z 660,%n 16,%q $sin(%b),%2 .04 * $cos($calc(.1*%b))
if %b < 60 {
set %i 255 * $cos(%b)
if %b > 5 && %b < 10 { %c $rgb(%i,%i,%i) tahoma 225 20 160 StanZ | %a = .6 }
elseif %b > 15 && %b < 20 { %c $rgb(0,0,%i) arial 150 65 195 present | %a = 1.8 }
elseif %b > 24 && %b < 35 { %c $rgb(0,%i,0) arial 80 90 160 A NEW INTRO | %c $rgb(%i,0,%i) arial 80 200 310 CALLED | %a = 2.5 }
elseif %b > 40 { %c $rgb(0,%i,%i) impact 350 20 90 ZOOL | %c $rgb(%i,%i,%i) impact 350 23 87 ZOOL | %a = $r(4,9) }
}
elseif %b = 60 { %a = 2 | .timera2 0 8 set %a $!r(1,3) }
elseif (%b = 130) set %d drawline -nri @-
else {
while %n {
set %f 255 - %n | set %g 700 - %n | set %h 562 - %n | dec %n 4
%d $rgb(0,$calc(170000-10000*$cos($calc(.01*%n +%b)).deg),%f) 8 0 %n 700 %n
if (%b > 65) %d $rgb(%f,$calc(100-100*$sin(%b)),%n) 8 %n 0 %n 600
if (%b > 70) %d $rgb(99,%n,99) 8 %g 0 %g 600
if (%b > 75) %d $rgb($calc(1700+10000*$sin($calc(.2*%n -%b)).deg),%f,%n) 8 0 %h 700 %h
}
}
while %z { drawscroll -n @- $calc(17*$sin($calc(%2 *%z +%b))) 0 0 %z 694 5 | drawscroll -n @- 0 $calc(8*$cos($calc(%a *%2 *%z +%b))) %z 0 5 590 | dec %z 5 }
drawrect -nr @- $iif(%b > 8,0,$calc(155+100*%q)) 16 %j
if (%b > 7 && %b < 60) %e
elseif (%b > 94 && $calc(%b % 7) > 6) %e
drawdot @- | .timera1 1 0 a
}
on *:close:@-:.timera* off | unset %a %b %c %d %e %f %g %h %i %j
