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

[tvrsh]

на команду !старт бот пишет "к сожалению, в базе данных нет ни одного вопроса, запуск викторины невозможен..." хотя база с вопросами есть...
а в патлайне пишет эту ошибку
[13:43:14] <ChertuJIo> [13:43:14] Warning! putdccraw is deprecated. Use putnow instead!
[13:43:14] <ChertuJIo> [13:43:14] %Skarabei_% st
что делать?

Положить файл с вопросами в корень бота.

viewtopic.php?p=1065#p1065

[Eugine-x]

В этом коде бот смотрит, если ник не войс и не оп на канале и если он в пятерке лучше и его очки больше ста или он ремортер, то выдает войс и сообщает об этом в канал.
Ну а у тебя при каждом ответе он это говорит из-за того, видимо, что не может дать ему войс. Либо дай боту опа или хопа либо закомментируй просто строку с выводом сообщения.

Спасибо, прописал hop, вроде помогло)

[Eugine-x]

Придется задокументировать) бот дает войс, а сервисы сети снимают)

[tvrsh]

Придется задокументировать) бот дает войс, а сервисы сети снимают)

Чтобы этого не было включи на канале режим nodesynch.

[00:22:48] <@tvrsh> man nodesynch
[00:22:49] <@lamestbot> * nodesynch = Если на канале установлен режим +nodesynch то бот будет позволять изменять моды канала неоператорам. Такой режим позволяет предотвратить войну бота с сервисами, например с ChanServ или с IRC операторами которые могут изменять моды канала не имея на нем статуса op(@). [tvrsh]

[nksp]

Можете ссылочку дать на последнюю версию без глюков ? Буду очень благодарен ! Полистал станицы, не очень ясно откуда качать.

[tvrsh]

Можете ссылочку дать на последнюю версию без глюков ? Буду очень благодарен ! Полистал станицы, не очень ясно откуда качать.

Пока нет такой версии, все обновления на последних страницах.

[nksp]

Люди, можно ссылочку на рабочую викторину, очень прошу !

[CyibX]

tvrsh можешь помочь? когда пишу .set errorInfo вот что бот выдает

[13:39:09] <ChertuJIo> Currently: can't read "conf(topfile2)": no such element in array
[13:39:09] <ChertuJIo> Currently: while executing
[13:39:09] <ChertuJIo> Currently: "open $conf(topfile2) w"
[13:39:09] <ChertuJIo> Currently: (procedure "::tpub::top_write" line 93)
[13:39:09] <ChertuJIo> Currently: invoked from within
[13:39:09] <ChertuJIo> Currently: "::tpub::top_write $_time1 $_time2 $_time3 $_time4 $_time5"

что делать?

[tvrsh]

Проверь, есть ли в конфиге викторины строки

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

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

# куда будет генерится хтмл страница
        set conf(topfile) "quiz/stats/index.htm"
        set conf(topfile2) "quiz/stats/index2.htm"

[CyibX]

Есть

[tvrsh]

Тогда не знаю в чем дело. Массив conf задается. Переменная topfile нормально срабатывает, по идее и topfile2 тоже должна без ошибок фунциклировать.

[CyibX]

Бот задал не сколько вопросов и завис...в патлайне такая ошыбка...

[20:27:08] <LegioN> [20:27:08] supergame_podr - 8
[20:27:23] <LegioN> [20:27:23] Tcl error in script for 'timer1998':

[tvrsh]

Бот задал не сколько вопросов и завис...в патлайне такая ошыбка...

[20:27:08] <LegioN> [20:27:08] supergame_podr - 8
[20:27:23] <LegioN> [20:27:23] Tcl error in script for 'timer1998':

Читай Правила оформления топиков. особенно второй пункт.

[Teppopucm]

как сделать так, чтобы бот принимал ответ при букве ё и большими буквами?
например: подъём, Колдун.

[tvrsh]

Большими буквами все и так должно работать, так как перед сравнением происходит преобразование к одному регистру. Может не работать преобразование с буквами ё я ч в боте без сузи. Замени

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

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

proc ::tpub::toupper {t} {
return [string toupper $t]
}

proc ::tpub::tolower {t} {
return [string tolower $t]
}

на

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

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

proc ::tpub::tolower {text} { return [string map {Ё е Я я Ч ч} [string tolower $text]] }

proc ::tpub::toupper {text} { return [string map {ё Е я Я ч Ч} [string toupper $text]] }

[Teppopucm]

давно хотел решить ещё такой вопрос:
что нужно поправить, чтобы реморт работал?
установлено, к примеру, 50000 максимальное количество очков и чтобы после 50000 набранных очков автоматически с нуля набирать очки, но при этом реморт 1 и т.д.

[tvrsh]

Найди строку

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

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

                                utimer $conf(nextq) ::tpub::tmr_ask

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

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

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

                                if {[info exists conf(rscore)] && $usr(score)>=$conf(rscore)} { ::tpub::remort $nick $uhost $hand $chan}

таких строк в скрипте несколько, тебе нужна та, которая перед

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

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

                # ответ неопознан

Потом добавь процедуру

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

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

proc ::tpub::remort {nick uhost hand chan} {
        variable game
        variable conf
array set usr [users get $hand]
putmsg $chan "\00310$nick набирает \002\00304РЕМОРТ\00310\002.\003"
putmsg $chan "\00310$nick получает свой [expr {![info exists usr(remort)] ? "\00304ПЕРВЫЙ\003" : "\00304[expr $usr(remort) + 1]-й\003"}] \00310реморт! \00304$nick\00310, ты мой бог!\003"
set usr(score) 0
if {![info exist usr(remort)]} { set usr(remort) 1 } else {
incr usr(remort)
}
set usr(score) 0

users set [list $hand [array get usr]]
}

в любое место скрипта, например перед строкой

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

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

proc killtm { } {

Вроде все, не забудь забэкапиться перед проверкой.

[Teppopucm]

как можно сделать так, чтобы бот принял ответ за анаграмму второму игроку и дал очки в два раза меньше, чем у первого игрока?

[Vertigo]

Ввести проверку в скрипт по времени ответа. Если поступил еще ответ скажем за 3 секунды - поделить игровые очки пополам. Интерес к скрипту у меня давно пропал, так что я точно его править не буду
Пример можно взять из секции где бот сообщает что кто-то отстает всего на сколько-то секунд.

[HuKoTuH]

пишу !старт
p'(18:44:59) «. @Winbot» 'e' Игра запущена! В базе данных 134153 вопроса, еще не задано 134144. Успехов!
в питу пишет [18:45:04] !bgerror! wrong # args: should be "putout handle text"
p'(18:45:04) <Winbot> [18:45:04] !bgerror! NONE
p'(18:45:04) <Winbot> [18:45:04] !bgerror! wrong # args: should be "putout handle text"
p'(18:45:04) <Winbot> while executing
p'(18:45:04) <Winbot> "putout PRIVMSG $nick $msg "
p'(18:45:04) <Winbot> (procedure "putmsg" line 1)
p'(18:45:04) <Winbot> invoked from within
p'(18:45:04) <Winbot> "putmsg $game(chan) "\00302Bonpoc #$game(qid): \00312[anticheat [lindex $game(question) 0]] \00307\($ln\)\003""
p'(18:45:04) <Winbot> (procedure "::tpub::tmr_ask" line 111)
p'(18:45:04) <Winbot> invoked from within
p'(18:45:04) <Winbot> "::tpub::tmr_ask"
p'(18:45:04) <Winbot> ("after" script)