Форум о ботах Eggdrop/Windrop

[team]

Привет ребят,у меня такая проблемма,поставил anekdot.tcl v0.9 вот он http://www.everfall.com/paste/id.php?1a4lr8qobcvh Закинул базу анекдотов все как надо вот база http://www.everfall.com/paste/id.php?jnczj672dgm7 все работает,все хорошо.
Затем решил поменять базу,вот даже 3 анекдота вписал например вот так http://www.everfall.com/paste/id.php?ap9jje1f1cw2 уже пишет так

23:28:49™ <team> !анекдот
23:28:49™ <Statistic> team: Использование команд невозможно, идет обработка базы.

Пробовал перезапускал,удалял файлы которые создаються в data,все равно,стандартная база работает,а моя уже нет,хотя уверен что базу делаю правильно,что такое может быть,подскажите пожалуйста За ранее спасибо!!!

[tvrsh]

Выгрузи скрипт, сделай боту .restart а лучше .die Потом заново подключи скрипт со своей базой. И проверь ее на наличие символов []{}| и тд. Они могут некорректно обрабатываться скриптом.

[team]

Сделал все как ты сказал,загрузил свою базу там около 200 стишков,загрузил скрипт пишу

20:15:10™ <team> !ankmode channel
20:15:10™ <Statistic> team: Использование команд невозможно, идет обработка базы.

Но помню что у меня раньше работало с базой 857 стихов,ладно не в этом проблема,я опять выгрузил скрипт,удалил все файлы которые создал бот в папке "data" включил бота без скрипта,затем загрузил базу с 3 стихами,загрузил скрипт,перезагрузил бота,теперь смотри,пишу

20:18:48™ <team> !ankmode channel
20:18:48™ <Statistic> team: Вывод анекдотов установлен в режим: channel

И вот гламная проблема,пишу !анекдот бот молчит и в патилайне выдает ошибку,вот код ошибки

pub:anekdot [#joy: team]
.: uafs dbg|::uafs::isflood| :. function called with params: 1 team ~team@irc-vichuga.ru #joy
.: uafs dbg|::uafs::isflood| :. function called from: ::anekdot::outanekdot
.: uafs dbg|createmask| :. function called with params: team ~team@irc-vichuga.ru 4
.: uafs dbg|createmask| :. function called from: ::uafs::isflood
.: uafs dbg|createmask| :. masktype is host
.: uafs dbg|createmask| :. return value:*!*@irc-vichuga.ru
.: uafs dbg|::uafs::isflood| :. creating channel record for handle 1, channel #joy,mask *!*@irc-vichuga.ru
.: uafs dbg|addstats| :. function called with params: 1 *!*@irc-vichuga.ru #joy
.: uafs dbg|addstats| :. function called from: ::uafs::isflood
.: uafs dbg|addstats| :. hello,adding channel record "#joy" ...keke,me wanna sleep - 1:51 AM already...
.: uafs dbg|addstats| :. value is: {#joy} {*!*@irc-vichuga.ru {1 0 0 0}}
Tcl error [::anekdot::pubanekdot]: expected integer but got "err1"

Менял uafs.tcl все равно,uafs.tcl стоит с сайта http://egghelp.ru
Бот работает: кодировка: cp1251; locale: ru_RU.CP1251;

[tvrsh]

После

Tcl error [::anekdot::pubanekdot]: expected integer but got "err1"

сделай .set errorInfo

[team]

.set errorInfo
.-[лЮЯЙЮ: errorInfo*]------- -
`-[ оЕПЕЛЕММШУ МЕ МЮИДЕМН. ]-------

Там все "---" В цвете

[tvrsh]

Из-за чпоклибы у тебя занято .set
Делай .tcl set errorInfo

[team]

Tcl: can't read "::autorehash::detected": no such variable
Tcl: while executing
Tcl: "set ::autorehash::detected"
Tcl: can't unset "tflt": no such variable
Tcl: while executing
Tcl: "unset tflt"

[tvrsh]

Ну ты что, не видишь, что эти ошибки не имеют отношения к указанной тобой. В твоей, как минимум, должно встречаться слово err1. Вводи .tcl set errorInfo сразу после появления

Tcl error [::anekdot::pubanekdot]: expected integer but got "err1"

[team]

.tcl set errorInfo
Tcl: expected integer but got "err1"
Tcl: while executing
Tcl: "seek $tmp_anekdot_file $anekdotseek"
Tcl: (procedure "::anekdot::getanekdot" line 6)
Tcl: invoked from within
Tcl: "::anekdot::getanekdot $anekdotseek"
Tcl: (procedure "::anekdot::anekdot" line 45)
Tcl: invoked from within
Tcl: "::anekdot::anekdot $text"
Tcl: (procedure "::anekdot::outanekdot" line 62)
Tcl: invoked from within
Tcl: "::anekdot::outanekdot $nick $uhost $hand $chan [::egglib::strip_special $args] [::anekdot::noticeanekdot $chan]"
Tcl: (procedure "::anekdot::pubanekdot" line 3)
Tcl: invoked from within
Tcl: "::anekdot::pubanekdot $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Добавлено спустя 7 минут 10 секунд:
Я разобрался походу,просто в базе в конце,ну в самом низу должна быть пустая строка, спасибо тебе tvrsh за неоднократную помощь

[tvrsh]

Ошибка из-за того, что в процедуре ::anekdot::intdoublesearch не выполняется условие

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

                if { $matched == [lindex $getline $in] } {
#                       putloglev d * "\[anekdot\] anekdot was founded: $i iterations"
                        set found 1
                        break
                }

Из-за этого возвращается err1 вместо чего-то нужного.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

        if { $found } {
#               putloglev d * "\[anekdot\] seek found: [lindex $getline $out]"
                return [lindex $getline $out]
        } else {
                return "err1"
        }

Как исправить не знаю. Надо ставить скрипт, снабжать его путлогами и смотреть что там и как. Как вариант попробуй заменить

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

return "err1"

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

return [lindex $getline $out]

, вдруг прокатит.

[team]

Работал,работал и перестал, пишу !анекдот,он молчит,в патилайне следующяя ошибка

[16:05:31] Tcl error [::anekdot::pubanekdot]: expected integer but got ""
.tcl set errorInfo
Tcl: expected integer but got ""
Tcl: while executing
Tcl: "seek $tmp_anekdot_file $anekdotseek"
Tcl: (procedure "::anekdot::getanekdot" line 5)
Tcl: invoked from within
Tcl: "::anekdot::getanekdot $anekdotseek"
Tcl: (procedure "::anekdot::anekdot" line 45)
Tcl: invoked from within
Tcl: "::anekdot::anekdot $text"
Tcl: (procedure "::anekdot::outanekdot" line 51)
Tcl: invoked from within
Tcl: "::anekdot::outanekdot $nick $uhost $hand $chan [::egglib::strip_special $args] [::anekdot::noticeanekdot $chan]"
Tcl: (procedure "::anekdot::pubanekdot" line 3)
Tcl: invoked from within
Tcl: "::anekdot::pubanekdot $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

что случилось такое

[tvrsh]

Я не знаю что с этим делать. Пару сообщений вверх ты вроде решил эту проблему?

[team]

Ну там была ошибка другая, а эта появилась хз от куда,ладно спасиб