Titlebar text player

alias tbar {
write -c titlebar.anim
var %tbr $1-
  var %ctr 1
  var %len $len(%tbr)
  while (%ctr <= %len) {
    write titlebar.anim titlebar $left(%tbr,%ctr)
  inc %ctr
  }
 .play -cs titlebar.anim 60
}

on *:start: {
  .play -cs titlebar.anim 60
}