# Скрипт выводит список наиболее используемых публичных команд. # http://70region.ru # miniscript by Deniska # сколько команд выводить в топе. По умолчанию 5 set topcomlimit 5 bind pub o|o !topcmd pub:topcommands proc pub:topcommands { nick uhost hand chan text } { set comlist [binds pub] lsort -index 3 $comlist if { [lindex [lindex $comlist 0] 3] == 0 } { putserv "privmsg $chan :\00314Командами не пользуются.. Похоже я никому не нужен.. ):" return } putserv "privmsg $chan :\00314Наиболее используемые команды:" if { [llength $comlist] < $::topcomlimit } { set limit [llength $comlist] } else { set limit $::topcomlimit } set i 0 foreach b $comlist { if { [lindex $b 2] == "!topcmd" } { continue } if { $i == $limit } { return } if { [lindex $b 3] == 0 } { return } if { [lindex $b 1] == "-|-" } { putserv "privmsg $chan :\00303\[\00304[lindex $b 3]\00303\] \00307[lindex $b 2]" incr i } } } putlog "topcommands.tcl v1.0 by Deniska loaded"
Немного подкрасил скрипт.