1. cand postezi un cod pune-l intre tagurile [code] pt a il face mai lizibil
2. incearca codul acesta:
Code:
bind pub - !idle pub:idle
proc pub:idle {nick host hand chan txt} {
foreach nick [chanlist $chan] {
set idle([getchanidle $nick $chan]) "$nick"
}
set values [lrange [lsort -decreasing [array names idle]] 0 4]
set i 1
foreach value $values {
if {![info exists idletop]} { set idletop "\002${i}.\002 $idle($value) $value" }
else { lappend idletop "\002,${i}.\002 $idle($value) $value" }
incr i
}
puthelp "PRIVMSG $chan :Top 5 idlers: [join $idletop]"
}
this should work just fine. Enjoy!