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

[Teppopucm]

Всё вроде работает.
Есть одно но:

ошибка при выполнении !место: can't read "usr(duels)": no such element in array

Подскажите пожалуйста, где нужна поправка?

[tvrsh]

Всё вроде работает.
Есть одно но:

ошибка при выполнении !место: can't read "usr(duels)": no such element in array

Подскажите пожалуйста, где нужна поправка?

Вот это точно сделал?
В процедуре ::tpub::users найти

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

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

                        if {![info exists data(score)]} { set data(score) 0 }

добавить после

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

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

                        if {![info exists data(duels)]} { set data(duels) 0 }

В патилайне введи команду

.tcl getuser хэндл_игрока_чье_место_смотришь XTRA

и покажи что на нее ответит.

[Teppopucm]

Всё вроде работает.
Есть одно но:

ошибка при выполнении !место: can't read "usr(duels)": no such element in array

Подскажите пожалуйста, где нужна поправка?

Вот это точно сделал?
В процедуре ::tpub::users найти

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

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

                        if {![info exists data(score)]} { set data(score) 0 }

добавить после

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

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

                        if {![info exists data(duels)]} { set data(duels) 0 }

В патилайне введи команду

.tcl getuser хэндл_игрока_чье_место_смотришь XTRA

и покажи что на нее ответит.

Да, в процедуре ::tpub::users точно прописал вышеуказанное.

В патилайне пишет следующее:
(21:14:55) <Яр> .tcl getuser Respekt XTRA
(21:14:55) (Teppopucm) Tcl: {quiz {anwins 31 answersmonth 0 scoremonth 0 score 1708 supergames 0 answersday 0 wins 0 scoreday 0 answers 432 augames 0 last 1365750551 cont 7 quick 1.97}} {created 1351886592} {TMPTIME 1365750551} {ATIME 5238.653999090195} {TIME 6446}

[Radiosignal]

tvrsh, добавил все, что выше ты описал, но бот ошибку выдает.

.tcl set errorInfo
Tcl: can't read "::tpub::qcount": no such variable
Tcl: while executing
Tcl: "set ::tpub::qcount"
Tcl: (procedure "cmd_start" line 13)
Tcl: invoked from within
Tcl: "cmd_start $nick $chan $text"
Tcl: (procedure "::tpub::cmd_ЯР" line 1)
Tcl: invoked from within
Tcl: "::tpub::cmd_$cmd $nick $chan $text"

Не добавлял только

::tpub::stats_write

, так в этой версии нету ее.
А в процедурах z_quit и z_part нету вот этой строки

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

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

 set nick [nick2hand $nick]

, но я ее добавил сам, так как указано у тебя.

[tvrsh]

Этот человек ничего не ответил за этот месяц. Покажи активного игрока. В строке должна быть запись duels 0.
Ошибка

can't read "::tpub::qcount": no such variable

к дуэлям не имеет отношения. Мои изменения не затрагивали указанную часть кода.

[Teppopucm]

Этот человек ничего не ответил за этот месяц. Покажи активного игрока. В строке должна быть запись duels 0.

(21:44:18) <Яр> .tcl getuser Denalla XTRA
(21:44:19) (Teppopucm) Tcl: {TMPTIME 1382015822} {ATIME 673680.935002327} {TIME 8924121} {created 1337184244} {quiz {anwins 2339 remort 2 answersmonth 3112 scoremonth 9060 score 46964 supergames 62 answersday 0 wins 0 scoreday 0 augames 231 answers 44763 last 1382015536 cont 26 quick 2.35}}

После команды !место выводит следующее:
(21:41:30) <Яр> .tcl set errorInfo
(21:41:30) (Teppopucm) Tcl: can't read "usr(duels)": no such element in array
(21:41:30) (Teppopucm) Tcl: while executing
(21:41:30) (Teppopucm) Tcl: "list $hand $usr(duels) [format %d.%08d $usr(score) [expr 999999 - $usr(answers)]]"
(21:41:30) (Teppopucm) Tcl: (procedure "users" line 212)
(21:41:30) (Teppopucm) Tcl: invoked from within
(21:41:30) (Teppopucm) Tcl: "users list8"
(21:41:30) (Teppopucm) Tcl: (procedure "place5" line 3)
(21:41:30) (Teppopucm) Tcl: invoked from within
(21:41:30) (Teppopucm) Tcl: "place5 $hand"
(21:41:30) (Teppopucm) Tcl: (procedure "cmd_place" line 43)
(21:41:30) (Teppopucm) Tcl: invoked from within
(21:41:30) (Teppopucm) Tcl: "cmd_place $nick $chan $text"
(21:41:30) (Teppopucm) Tcl: (procedure "::tpub::cmd_место" line 1)
(21:41:30) (Teppopucm) Tcl: invoked from within
(21:41:30) (Teppopucm) Tcl: "::tpub::cmd_$cmd $nick $chan $text"

[Radiosignal]

Может быть это из за того, что бот Windrop, пробовал на разных версиях, а у тебя Eggdrop, потому что у Teppopucma все нормально, но кроме того незначительного бага у него.

[Teppopucm]

При команде !ок выводит следущее:

(21:49:08) (Teppopucm) [21:49:09] can't read "begduel": no such variable
(21:49:08) (Teppopucm) [21:49:09] %TRUPP% ок -- ERROR

[Radiosignal]

Наверно из-за разных версий викторин. У Sergio она отличается.

[tvrsh]

При команде !ок выводит следущее:

(21:49:08) (Teppopucm) [21:49:09] can't read "begduel": no such variable
(21:49:08) (Teppopucm) [21:49:09] %TRUPP% ок -- ERROR

Часть кода с переменной begduel закомментирована в приведенной мною инструкции, и работать не должна вообще. Значит ты ее как-то раскомментировал если происходит обращение к переменной.

В блоке

# коррекция возможно повреждённых записей

в XTRA quiz прописываются все переменные пользователя в которых хранятся его игровые данные. И если там прописана строка

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

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

                        if {![info exists data(duels)]} { set data(duels) 0 }

и пользователь отвечал на вопросы, то параметр duels 0 должен быть в .tcl getuser handl XTRA quiz.

Смотрим на то, что ты мне показал про деналлу. У нее last 1382015536.

<tvrsh> $$ return [clock format 1382015536 -format %d.%m.%Y]
<@bionic> Return: 17.10.2013 - 0.544 ms.

Это активный игрок? Я прошу игрока который хоть на что-то ответил после того как были внесены изменения.

[Teppopucm]

При команде !ок выводит следущее:

(21:49:08) (Teppopucm) [21:49:09] can't read "begduel": no such variable
(21:49:08) (Teppopucm) [21:49:09] %TRUPP% ок -- ERROR

Часть кода с переменной begduel закомментирована в приведенной мною инструкции, и работать не должна вообще. Значит ты ее как-то раскомментировал если происходит обращение к переменной.

Закомментировал - теперь в порядке.

Это активный игрок? Я прошу игрока который хоть на что-то ответил после того как были внесены изменения.

(22:45:26) <Яр> .tcl getuser TRUPP XTRA
(22:45:26) (Teppopucm) Tcl: {quiz {anwins 1659 remort 2 answersmonth 11 scoremonth 56 score 19540 supergames 65 duels 1 tremort Еврэй answersday 11 wins 0 scoreday 57 answers 18270 augames 270 cont 26 last 1384109093 quick 0.83 memo {So Fucking What?}}} {ATIME 290466.6370139122} {TMPTIME 1384109093} {TIME 3051399} {created 1337182743} {LASTMOD Яр} {LMT DELHOST}
В этом плане работает.
в процедуре ::tpub::users где "list8" еще раз скопировал и заменил там - при этом следующая картина:
при команде !место выводит:

ошибка при выполнении !место: can't read "usr(duels)": no such element in array

и вылетает бот. В партилайне пишет:

(22:48:22) (Teppopucm) [22:48:24] can't read "usr(duels)": no such element in array
(22:48:22) (Teppopucm) [22:48:24] * Last context: tclhash.c/710 [Tcl proc: ::tpub::msg_pub, param: $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5]
(22:48:22) (Teppopucm) [22:48:24] * Please REPORT this BUG!
(22:48:22) (Teppopucm) [22:48:24] * Check doc/BUG-REPORT on how to do so.
(22:48:23) (Teppopucm) [22:48:24] * Wrote DEBUG
(22:48:23) (Teppopucm) [22:48:24] * SEGMENT VIOLATION -- CRASHING!

И на этом разрывается соединение.

[tvrsh]

Teppopucm, в конец строки

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

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

    if {$user(duels) != 0} { append msgs "; \00305Дуэли\00310: \00307$place5-е\00310 (\00303$user(duels) [lindex {. дуэль дуэли дуэлей} [numgrp $user(duels)]]\00310)"}

Допиши закрывающую фигурную скобку.

[Teppopucm]

Teppopucm, в конец строки

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

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

    if {$user(duels) != 0} { append msgs "; \00305Дуэли\00310: \00307$place5-е\00310 (\00303$user(duels) [lindex {. дуэль дуэли дуэлей} [numgrp $user(duels)]]\00310)"}

Допиши закрывающую фигурную скобку.

Была дописана мною ранее. Ошибка в другом месте - не могу определить где и что именно.
Что-то мне подсказывает в процедуре ::tpub::users где "list8" не так..

[tvrsh]

В list8 после строки

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

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

                                array set usr $xtra

Допиши

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

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

if {![info exists usr(duels)]} {continue}

Проблему не решит, но от падений избавит.

[Teppopucm]

это в "list8"

if {[info exists usr(last)] && [expr {[clock seconds] - $usr(last)}] < 32140800 && ![info exists usr(link)]} {
lappend users [list $hand $usr(duels) [format %d.%08d $usr(score) [expr {999999 - $usr(answers)}]]]

Убрал фигурные скобки, выделенные жирными - по скольку у меня так везде в "list1" "list2" и т.д.
Бот при этом не вылетает, имея в патилайне смс:
(21:53:47) (Teppopucm) [21:53:47] can't read "usr(duels)": no such element in array
(21:53:47) (Teppopucm) [21:53:47] %Яр% место -- ERROR

Добавлено спустя 4 минуты 57 секунд:

В list8 после строки

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

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

                                array set usr $xtra

Допиши

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

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

if {![info exists usr(duels)]} {continue}

Проблему не решит, но от падений избавит.

Оу! Проблема решена!
Респект и уважуха!

[Radiosignal]

Teppopucm, после какой строки ты добавлял лист восемь?

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

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

 return $sorted

после этой, когда заканчивается лист шестой или какой-то другой.

[Teppopucm]

Teppopucm, после какой строки ты добавлял лист восемь?

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

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

 return $sorted

после этой, когда заканчивается лист шестой или какой-то другой.

Да, после шестого.

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

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

 return $sorted
}

Фигурную скобку не забудь добавить. Далее лист8.

[Radiosignal]

Ок. Скобку я добавил сразу. Teppopucm, а ты добавлял строки

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

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

putmsg $chan "$msg\00310.\003"

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

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

puts $writefile "[incr place]#[lindex $item 0]#$honor#[lindex $item 1]#$user(scoremonth)#$user(answers)#$user(answersmonth)#$user(quick)#$user(cont)#$user(remort)#$user(

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

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

set hand1 [nick2hand $targ]

ну еще некоторые, все перечислять не буду. Просто, в скрипте у Sergio их нету, а вот в Kreonовском они остались. Что ты с этим делал.

[Teppopucm]

Ок. Скобку я добавил сразу. Teppopucm, а ты добавлял строки

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

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

putmsg $chan "$msg\00310.\003"

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

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

puts $writefile "[incr place]#[lindex $item 0]#$honor#[lindex $item 1]#$user(scoremonth)#$user(answers)#$user(answersmonth)#$user(quick)#$user(cont)#$user(remort)#$user(

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

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

set hand1 [nick2hand $targ]

ну еще некоторые, все перечислять не буду. Просто, в скрипте у Sergio их нету, а вот в Kreonовском они остались. Что ты с этим делал.

Где в процедуре ::tpub::won:

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

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

        if {[info exist user(remort)] && $user(remort) > 0} {
                set msgs "\00303$hand\00310 имеет за своими плечами \00307$user(remort)\00310 реморт."
 

Дописано:

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

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

        if {[info exists user(duels)] && ($user(duels)!=0)} {
                append msgs " \00310Побеждено в \00306$user(duels)\00310 [lindex {. дуэли дуэлях дуэлях} [numgrp $user(duels)]]."
        }
 

[Radiosignal]

Ок. Попробую.Teppopucm, а строки все у тебя были, которые писал tvrsh или ты брал их из другого скрипта.