Перейти к содержимому


Фотография

topcommands.tcl


  • Авторизуйтесь для ответа в теме
В этой теме нет ответов

#1 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 14 июля 2008 - 19:26

# Скрипт выводит список наиболее используемых публичных команд.
# 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"

Немного подкрасил скрипт.
http://ircnet.su/
#egghelp @ IrcNet.Ru




Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных