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

Sparkle · Sparkle » 06 ноя 2011 23:22

Сделала. теперь при команде !стоп не пишет что игра остановлена! вообще не реагирует на команду !стоп

!стоп

<bot> nick, Quiz not running - use !старт

а игра продолжается.

Vertigo · Vertigo » 06 ноя 2011 23:28

По поводу формата статистики при входе. Все это меняется в процедуре z_join
Попробуй такой код

proc z_join { nick host hand chan } {

        variable conf

        variable game

        global lock

                if {[info exists lock] && $lock eq 1} {return}

        #if {$hand == "*"} { return }

        if {$nick == $hand} { set nick1 $nick }

        if {$nick != $hand} { set nick1 "$nick \00310aka \00304$hand\003" }

        #if {$chan != $conf(channels)} { return }

        if {[lsearch -exact [split [string tolower $conf(channels)]] [string tolower $chan]] == -1 || $hand == "*"} { return }

        setuser $hand XTRA TMPTIME [clock seconds]

        array set usr [users get $hand]

        if {![info exists usr(score)]} {return}

                                set ko 0

                                foreach item $conf(drank) { 

                                if {$usr(score)<=$item} { set honor [lindex $conf(rank) $ko]; break}

                                incr ko

                                } 

                                if {![info exists honor]} {set honor $conf(dmax)}

        set place [place $hand]

        set place1 [place1 $hand]

        set place2 [place2 $hand]

        if {$place <= 0} {putlog 0; return }

        append msg "место: $place, всего очков: $usr(score)[expr {[info exists usr(scoremonth)] && $usr(scoremonth) != 0 ? "место за этот месяц: $place1, очков за этот месяц: $usr(scoremonth)" : ""}][expr {[info exists usr(scoreday)] && $usr(scoreday) != 0 ? "место за сегодня: $place2, очков за сегодня: $usr(scoreday)" : ""}] [expr {[users isintop $hand] || [users isremort $hand] ? "\002+\002" : ""}][expr {[users isremort $hand] ? "\002$nick1\002" : $nick1}]  [expr {[info exists usr(tremort)] ? $usr(tremort) : $honor}]"        if  {[info exists usr(memo)]} {

                if {[users isintop $hand] || [string first o [chattr [nick2hand $nick]]] != -1} {

                        append msg "\00310\[ \00305\002\002$usr(memo)\002\002\00310 \]"

                        }

        }

        if {[info exists conf(modset)] && $conf(modset) eq 1} {putfast "MODE $chan -c"}

putfast "privmsg $chan :$msg" 

if {[info exists conf(modset)] && $conf(modset) eq 1} {putfast "MODE $chan +c"}

}

Sparkle · Sparkle » 06 ноя 2011 23:31

<bot> Я загадала число от 0 до 100. Угадайте. Награда - 205 очков
<nick> !стоп
<bot> nick, Quiz not running - use !старт
<bot> Никто не угадал число, правильный ответ был 30.
<bot> Вопрос: №7: “Битва об заклаg” (4 буквы)
<bot> Подсказка: п***
<bot> Подсказка: па**

Vertigo · Vertigo » 06 ноя 2011 23:37

Чето ты не так делаешь. У меня все работает. Бот просто игнорит !стоп, если активна суперигра.

|06.11.2011 / 23:34:10| <Vertigo> !tcl uplevel #0 source quiz/quiz_conf.tcl
|06.11.2011 / 23:34:10| <Melissa> Tcl (10.00ms): [no error]
|06.11.2011 / 23:34:18| <Vertigo> !tcl set ::tpub::conf(channels) $chan
|06.11.2011 / 23:34:19| <Melissa> Tcl (0.03ms): #gornet
|06.11.2011 / 23:34:27| <Vertigo> !tcl set ::tpub::conf(supergame_cnt) 2
|06.11.2011 / 23:34:27| <Melissa> Tcl (0.03ms): 2
|06.11.2011 / 23:34:31| <Vertigo> .стоп
|06.11.2011 / 23:34:32| <Melissa> Vertigo, Quiz not running - use .старт
|06.11.2011 / 23:34:38| <Vertigo> .старт
|06.11.2011 / 23:34:39| <Melissa> Игра запущена! В базе данных 200000 вопросов, еще не задано 199823. Успехов!
|06.11.2011 / 23:34:44| <Melissa> Bonpoc #1: Событuя, обычaи, поpядkи давних врeмен. (7 букв)
|06.11.2011 / 23:34:50| <Vertigo> старина
|06.11.2011 / 23:34:51| <Melissa> Действительно, Vertigo! Точный ответ -> "старина" <-, был получен за 6.90 секунд. У тебя теперь 18 очков (42 ответа) (10 (5))
|06.11.2011 / 23:34:51| <Melissa> Vertigo поднимается на [ 28 ] место в общей рейтинговой таблице и обходит kr|inthbthrm! Так держать!
|06.11.2011 / 23:34:55| <Melissa> Bonpoc #2: "{Птuцa;} poмaнc A. {Aлябьeвa;} ckaзka Г. X. Aнgepceнa." (7 букв)
|06.11.2011 / 23:34:59| <Vertigo> соловей
|06.11.2011 / 23:34:59| <Melissa> Превосходно, Vertigo! Верный ответ -> "соловей" <-, был получен за 3.71 секунд. У тебя теперь 21 очко (43 ответа) (13 (6)) и это твой 2 ответ подряд!
|06.11.2011 / 23:35:00| <Melissa> Vertigo получает право на супер-игру! Введите .да <ставка>, чтобы играть или !нет, чтобы отказаться. Ставка от 10 до 30 очков (по умолчанию 10 очков). На принятие решения у Вас 15 секунд.
|06.11.2011 / 23:35:02| <Vertigo> .стоп
|06.11.2011 / 23:35:14| <Melissa> Vertigo, вы не успели запустить призовую игру за отведенные 15 секунд. Продолжаем.
|06.11.2011 / 23:35:18| <Melissa> Bonpoc #3: Пoвтopяющаяcя puтмuчeckая еguнuца cтиха, cocтоящая из опpеgеленного сочетания ygаpных и безygаpных или gолгих и kpатkих слогов (в стихосложении). (5 букв)
|06.11.2011 / 23:35:20| <Vertigo> .стоп
|06.11.2011 / 23:35:21| <Melissa> Викторина остановлена. Было задано 3 вопроса, из которых на 2 был дан правильный ответ. Игра длилась очень немного.

Sparkle · Sparkle » 06 ноя 2011 23:41

Все сделала, просто не дописала proc ::tpub::cmd_stop сейчас все нормально, когда супер игра началась, пишу стоп, не реагирует, как только напишет "вы не успели запустить призовую игру за отведенные 15 секунд. Продолжаем." и потом сразу пишет "Викторина остановлена. Было задано 5 вопросов, из которых на 5 был дан правильный ответ. Игра длилась 1 минуту." Спасибо за помощь. ) на счет статистики, сейчас проверю.

Добавлено спустя 7 минут 26 секунд:
И ещё хотела спросить, нужно заменять

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

Кто сейчас на конференции