Forums Scripts & Popups Scrolling topic line

on *:active:#:{
  if $server {
    set %nick.count $nickcount($chan)
    set %chan.mode $chan($chan).mode
    set %topic $chan($chan).topic
    .timertitlebar 0 2 titlebar $channelbar($chan)
  }
}
alias -l channelbar {
  set %topic.display $iif(!%topic.display || %topic.display > $len(%topic),1,$calc(%topic.display + %topic.display.length))
  set %display.length $calc($len($me) + $len(%chan.mode) + $len(%nick.count))
  set %topic.display.length $calc(100 - %display.length)
  return $me %chan.mode %nick.count %topic
}
alias -l nickcount { return $+($nick($1,0,a,hvr) Ops,$chr(44),$nick($1,0,a,ovr) Half-ops,$chr(44),$nick($1,0,a,ohr) Voices,$chr(44),$nick($1,0,a,ohv) Regular) }

alias sb.title {
  ;*** The text to scroll in the titlebar
  return This is my titlebar text
}

alias sb.break {
  ;*** Characters to divide the scrolling text
  return ***
}

alias sb.pre {
  ;*** Text to put before the scrolling text
  return -
}

alias sb.suf {
  ;*** Text to put after the scrolling text
  return 
}

alias sb.start {
  ;*** Call to start the scrolling
  unset %sb.*
  set %sb.point 0
  .timer.sb -m 0 500 sb.disp
}

alias sb.stop {
  ;*** Call to stop the scrolling
  unset %sb.*
  .timer.sb off
  titlebar $sb.pre $sb.title $sb.suf
}

alias sb.disp {
  ;*** Updates the titlebar
  ;*** Scrolls one character for each call (chr(32) ignored)
  var %sb.title = $sb.break $sb.title
  inc %sb.point 1
  if (%sb.point > $len(%sb.title)) set %sb.point 1
  if ($mid(%sb.title,%sb.point,1) == $chr(32)) inc %sb.point 1
  var %sb.disp = $right(%sb.title,$calc($len(%sb.title) - %sb.point)) $left(%sb.title,%sb.point)
  titlebar $sb.pre %sb.disp $sb.suf
}

alias sb.title {
  ;*** The text to scroll in the titlebar
  return $chan($1).topic
}
alias sb.break {
  ;*** Characters to divide the scrolling text
  return ***
}
alias sb.pre {
  ;*** Text to put before the scrolling text
  return $me $chan($1).mode $nickcount($1)
}
alias sb.suf {
  ;*** Text to put after the scrolling text
  return 
}
alias sb.start {
  ;*** Call to start the scrolling
  unset %sb.*
  set %sb.point 0
  .timer.sb -m 0 500 sb.disp $1
}
alias sb.stop {
  ;*** Call to stop the scrolling
  unset %sb.*
  .timer.sb off
  titlebar $sb.pre $sb.title $sb.suf
}
alias sb.disp {
  ;*** Updates the titlebar
  ;*** Scrolls one character for each call (chr(32) ignored)
  var %sb.title = $sb.break $sb.title
  inc %sb.point 1
  if (%sb.point > $len(%sb.title)) set %sb.point 1
  if ($mid(%sb.title,%sb.point,1) == $chr(32)) inc %sb.point 1
  var %sb.disp = $right(%sb.title,$calc($len(%sb.title) - %sb.point)) $left(%sb.title,%sb.point)
  titlebar $sb.pre($1) %sb.disp $sb.suf
}
on *:active:#:{
  if $server {
    sb.start $chan
  }
}
alias -l nickcount { return $+($nick($1,0,a,hvr) Ops,$chr(44),$nick($1,0,a,ovr) Half-ops,$chr(44),$nick($1,0,a,ohr) Voices,$chr(44),$nick($1,0,a,ohv) Regular) }