Страница 1 из 1

проблема stichok.tcl

СообщениеДобавлено: 23 фев 2011 16:54
LuXe
Здравствуйте. Скажите как сделать чтоб этот скрипт работал у меня?!

.chanset #империя -nopubstichok
Error trying to set -nopubstichok for #империя, invalid mode.
:((

Re: проблема stichok.tcl

СообщениеДобавлено: 23 фев 2011 17:09
tvrsh
Телепаты в отпуске.

Добавлено спустя 9 минут 55 секунд:
Хотя скорее всего дело в русском названии канала.
В следующий раз оставляй ссылку на скрипт, чтобы не рыскать в поисках его. И когда постишь куски кода или лог то используй подсветку синтаксиса и тэги quote.

Добавлено спустя 10 минут 12 секунд:
Удали строку
setudef flag nopubstichok

После строки
set stichok(info) [::egglib::readdata scripts/stichki.txt]

добавь
set stichok(channel) "#egghelp #faq"

И в процедуре строку
        if {[channel get $chan nopubstichok]} { notice $nick "\00303На этом канале скрипт \00310!стишок (!stichok) \00303отключен"; return }

замени на
    if {[string range $chan 0 0] == "#" && [lsearch -exact [split [string tolower $stichok(channel)]] [string tolower $chan]] == -1} {
        notice $nick "\00303На этом канале скрипт \00310!стишок (!stichok) \00303отключен"
        return 0
    }

Re: проблема stichok.tcl

СообщениеДобавлено: 23 фев 2011 17:32
LuXe
спс