What's the meaning of this code? - 29/02/20 03:29 AM
What's doing that?
Code
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