; Titlebar Animator
; by ch1zra
; ch1zra@gmail.com
; http://ch1zra.com/mirc/
; #Scripters @ irc.krstarica.com
; Copyright © 2005 Up The Irons ! inc. Scripting team 

alias tbar {
  write -c titlebar.anim
  var %tbr $1-
  if (%tbr == $null) { 
    echo -a  $+ $color(info) $+ No titlebar text was entered, animating active titlebar text... 
    var %tbr $titlebar 
  }
  var %ctr 1
  var %len $len(%tbr)
  while (%ctr <= %len) {
    write titlebar.anim titlebar $right(%tbr,%ctr)
    inc %ctr
  }
  while (%ctr >= 0) {
    write titlebar.anim titlebar $right(%tbr,%ctr)
    dec %ctr
  }
  while (%ctr <= %len) {
    write titlebar.anim titlebar $left(%tbr,%ctr)
    inc %ctr
  }
  set %timer.pause 400 ;pause between scrolls for timer
  set %tmr $calc($lines(titlebar.anim) * 30 + %timer.pause)
  .timer -m 0 %tmr .play -cs titlebar.anim 30
}

on *:start: {
  .timer -m 0 %tmr .play -cs titlebar.anim 30
}