Welcome Guest | RSSMain | Scrolling Title Bar - Forum | Registration | Login
[ New messages · Members · Forum rules · Search · RSS ]
  • Page 1 of 1
  • 1
Forum » IRC » Snippet » Scrolling Title Bar (Title Bar pada mIRC bergerak)
Scrolling Title Bar
theotzDate: Sunday, 2010-01-24, 1:21 AM | Message # 1
Major
Group: Administrators
Messages: 88
Reputation: 0
Status: Offline
nih aq pnya script sederhana yg lumayan bagus sob...
ne gunax membuat title bar di mIRC qt bisa bergerak...yah lumayan,biar gag jenuh liat app km gt gt ja...kl bisa pelototin trus tuh title barx mpe bosen...ahsuhasuhauhsuhs... happy

neh scriptNa. .

Code

****************************
theotz's scrolling title-Bar
****************************

menu menubar {
     -
     Scrolling Titlebar $iif($group(#Scroll_Titlebar) == On,Off,On) : scroll_titlebar $group(#Scroll_Titlebar)
     $iif($group(#Scroll_TitleBar) == On,Titlebar scrolling speed) : set %scroll $$input(Scrolling Speed,e,number of milliseconds,$iif(%scroll,$v1,250)) |  .timer.sb -m 0 $iif(%scroll,$v1,250) sb.disp $chan
}
on *:start:{
     .titlebar $me
}
alias scroll_titlebar {
     if $1 == On {
       sb.stop
       .disable #Scroll_Titlebar
     }
     else {
       .enable #Scroll_TitleBar
       sb.start
     }
}

#Scroll_TitleBar on
alias sb.title {
     return $chan($1).topic
}
alias sb.break {
     return ***
}
alias sb.pre {
     return $me $network $1 $chan($1).mode $nickcount($1)
}
alias sb.suf {
     return    
}
alias sb.stop {
     unset %sb.*
     .timer.sb off
}
alias sb.start {
     unset %sb.*
     set %sb.point 0
     .timer.sb -m 0 $iif(%scroll,$v1,250) sb.disp $1
}
alias sb.disp {
     if $1 ischan {
       var %sb.title = $sb.break $strip($sb.title($1))
       inc %sb.point 1
       if (%sb.point > $len(%sb.title)) set %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
     }
     else {
       titlebar $pm.time($network,$1)
     }
}
alias -l nickcount {
     var %a = 1, %b = $len($prefix), %nick.count
     while %a <= %b {
       %nick.count = $+(%nick.count,$nick($1,0,$mid($prefix,%a,1)),$mid($prefix,%a,1),$chr(44))
       inc %a
     }
     return $replace(%nick.count $+ $nick($1,0,r) $+ ?,$chr(44),$+($chr(44),$chr(32)))
}
on *:active:*:{
     sb.start $active
}
on *:close:?:{
     unset $+(%,time,.,$network,.,$nick)
}
on *:open:?:*:{
     set $+(%,time,.,$network,.,$nick) $ticks
}
alias -l pm.time {
     if !$($+(%,time,.,$1,.,$2),2) {
       set $+(%,time,.,$1,.,$2) $ticks
     }
     return $1 $2 $elapsed($($+(%,time,.,$1,.,$2),2))
}
alias -l elapsed {
     var %elapsed = $calc($ticks - $1), %frac = $calc(%elapsed % 1000)
     %elapsed = $duration($int($calc(%elapsed / 1000)))
     %elapsed = $iif($numtok(%elapsed,32) < 4,$duration($duration(%elapsed),3),$+($gettok(%elapsed,1--3,32),$chr(32),$duration($duration($gettok(%elapsed,-3-,32)),3)))
     return $+(%elapsed,.,%frac)
}
#Scroll_TitleBar end



 
Forum » IRC » Snippet » Scrolling Title Bar (Title Bar pada mIRC bergerak)
  • Page 1 of 1
  • 1
Search:

TeenZ Community © 2018
Free web hostinguCoz