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