PicWin Intro animation

mIRC Snippet that creates a picwin intro based on some texts. In the background there are swirl colors with some rotatingg animations.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	zool	games	Cod testat	512	2023-12-17 00:40:57

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