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

Sparkle · Sparkle » 21 ноя 2011 14:05

Vertigo, Странно... сейчас она не появляется, интересно...

can't unset "game(dex)": no such element in array while executing "unset game(dex) "

Только это

invalid locale '.cp1251': empty language partwhile executing"ConvertLocale $::env($varName)"

Sparkle · Sparkle » 21 ноя 2011 15:33

can't unset "game(dex)": no such element in array while executing "unset game(dex) "

Sparkle · Sparkle » 22 ноя 2011 12:18

Не выводит подсказку!

Млекопитающее отряда насекомоядных (2 буквы)
Никто не ответил на вопрос, правильный ответ - еж.

tvrsh · tvrsh » 22 ноя 2011 12:39

Смени тип подсказок.

Sparkle · Sparkle » 22 ноя 2011 12:52

Не показывает!

tvrsh · tvrsh » 22 ноя 2011 13:32

Я тонко намекаю на то, что было бы неплохо узнать какой тип подсказок ты используешь.
Еще на то, что если сообщения вроде

Sparkle писал(а):tvrsh, Ничего страшного не будет? если заменю?

и

Sparkle писал(а):Не показывает!

продолжат появляться и дальше, то это значительно уменьшит шансы на получение тобой ответов на вопросы.

Форум в какой-то степени технический и посвященный программирования, если так можно выразиться. По-этому подразумевается, что тут общаются люди которые умеют четко и понятно ставить вопросы и давать такие же ответы на них. Это не "чятик", ты задаешь вопрос с максимумом полезной для его решения информации, и ждешь ответа. Не надо переспрашивать то, что написано в нескольких сообщениях выше только потому, что лень поскроллить страницу. Так же не надо дублировать сообщения. Если у кого-то есть решение и он пожелает им поделиться, то хорошо. В противном случае, либо не достаточно информации либо, решение проблемы пока отсутствует. Всякие "UP"`ы тут тем более не приветствуются.

И почему я все это должен объяснять? Ты первый раз в интернете?

Sparkle · Sparkle » 22 ноя 2011 21:36

Проблему решила.
Теперь как можно сделать чтобы вопросы не начинались сначала? пример: вопросы дошли до 100+ потом викторина останавливается, при команде !старт, начинаются вопросы с 100+ а не сначала. Спасибо.

tvrsh · tvrsh » 24 ноя 2011 17:01

Чтобы номер вопроса не прерывался надо где-то сохранять его после остановки игры чтобы потом продолжить счет. Можно это делать в файл? а можно создать юзера в боте и писать в него всякую служебную информацию. Где-то я уже писал про это. Вроде.
Добавляешь юзера командой .adduser даешь ему флаг друга чтобы не удалился. Потом добавляешь ему поле XTRA quiz и пишешь туда нужную инфу. И потом достаешь. Вот так это должно быть, вкратце.

tvrsh · tvrsh » 26 ноя 2011 17:07

Вот так сделал добавление юзера quizbase. Командой можно было и не делать, а добавить через патилайн. Ему добавляется хост и переменная long в которой будет храниться количество вопросов в самом длинном раунде.

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

### добавляем юзера в котором будет храниться разная игровая статистика

bind pub n|n !addbase ::tpub::pub_addbase

proc ::tpub::pub_addbase {nick uhost hand chan text} { global botnick

adduser quizbase

addhost quizbase quizbase@quizbase.dat

setuser quizbase XTRA long 0

}

И теперь в процедуре остановки игры, после вывода сообщения со статистикой закончившегося раунда, добавил сравнение количества вопросов в раунде и сохраненной переменной:

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

      if {$game(qid) > [getuser quizbase XTRA long]} {

          setuser quizbase XTRA long $game(qid)

          putmsg $game(chan) "\00312Это был рекордный по продолжительности раунд.\003"

      }

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

Sparkle · Sparkle » 29 ноя 2011 12:59

Помогите сделать в статистике html чтобы титул был отдельно написан
Ник | Титул
----------------
nick | Гость

Vertigo · Vertigo » 29 ноя 2011 13:13

Замени процедуру записи статистики на эту (не забудь бекап.)

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

# запись топ

proc top_write {minute hour day month year} { 

        global server network

        variable game

        variable conf

        set maxtop $conf(maxtop)

        incr maxtop -1

        set place 0

        set writefile [open $conf(topfile) w]

        puts $writefile "<html><head><title>Статистика игры \"Викторина\"</title><meta http-equiv=\"content-type\" content=\"text/html;charset=windows-1251\"><meta\ http-equiv=\"Expires\" content=\"0\"><\/head><body>"

        puts $writefile "<p align=\"center\"><i><font size=\"2\">Игра \"Викторина\"</i><br>$conf(network)</font><br><font size=\"2\">(<a href=irc://$server/[string range $conf(channels) 1 end]>$conf(networkaddr)<\/a>, канал [lindex $conf(channels) 0])<br><br>статистика игроков по<br>( <a href=$conf(linkscore)><b>очкам<\/b><\/a> \| <a href=$conf(linkanswers)>ответам<\/a> )<\/font><\/p>"

        puts $writefile "<p align=\"center\"><b><font size=\"2\">(Обновляется каждые полчаса)</b></font></p>"

        puts $writefile "<center><table>"       

        puts $writefile "<html><head><meta http-equiv=\"content-type\" content=\"text/html;charset=windows-1251\"><meta\ http-equiv=\"Expires\" content=\"0\"><\/head><body><table>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Место</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Ник</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Титул</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Очки</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Количество<br>ответов</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Самый быстрый <br>ответ в секундах</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Лучшая цепь<br>ответов</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Побед в<br>супериграх</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Побед в<br>аукционах</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Разгадано<br>анаграмм</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Средний<br>балл</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Последняя игра<br>\(назад\)</b><tr>"

      foreach item [lrange [users list] 0 $maxtop] {

                   array set user [users get [lindex $item 0]] 

                         if {[expr {$place % 2}]} {

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[incr place]"

                set honor "";set ko 0

                foreach item1 $conf(drank) { 

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

                incr ko }

                if {$honor==""} {set honor $conf(dmax)}

                if {[info exists user(tremort)]} { set honor $user(tremort) }  

                   puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[lindex $item 0]"

                   puts $writefile "<td align=Center bgcolor=#c8d2df nowrap><font color=red>$honor<\/font>"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[lindex $item 1]"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(answers)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(quick)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(cont)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(supergames)"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(augames)"

                        puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(anwins)" 

        if {$user(score)!=0 && $user(answers) != 0} {

        set sball [expr 1.0 * $user(score) / $user(answers)]

        if {[info exists user(remort)]} {set sball [expr ( 1.0 * $user(score) + $conf(rscore)*$user(remort) ) / $user(answers)]}

        if {[regexp -nocase -- {^(\d+)\.(\d{1,3})} $sball a sbal b] } { set sbal "$sbal.$b"     }

        } else {set sbal 0}

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$sbal"   

puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[join [lrange [duration [expr [clock seconds] -$user(last)]] 0 3]]<tr>"

} else {

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[incr place]"

                         set honor "";set ko 0

                                foreach item1 $conf(drank) { 

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

                                incr ko } 

                                if {$honor==""} {set honor $conf(dmax)}

                if {[info exists user(tremort)]} { set honor $user(tremort) }

                   puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[lindex $item 0]"

                   puts $writefile "<td align=Center bgcolor=#ffffff nowrap><font color=green>$honor<\/font>"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[lindex $item 1]"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(answers)" 

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(quick)" 

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(cont)"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(supergames)"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(augames)"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(anwins)" 

        if {$user(score)!=0 && $user(answers) != 0} {

        set sball [expr 1.0 * $user(score) / $user(answers)]

        if {[info exists user(remort)]} {set sball [expr ( 1.0 * $user(score) + $conf(rscore)*$user(remort) ) / $user(answers)]}

        if {[regexp -nocase -- {^(\d+)\.(\d{1,3})} $sball a sbal b] } { set sbal "$sbal.$b"     }

        } else {set sbal 0}

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$sbal"         

puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[join [lrange [duration [expr [clock seconds] -$user(last)]] 0 3]]<tr>"

        }

                array unset user

        }

        puts $writefile "</TABLE></center><br>"

        puts $writefile "<center>Сгенерировано [ctime [unixtime]] ботом $::botnick v.[lindex $::version 0], Tcl v.[info patchlevel]</center>"

        puts $writefile "<center>$conf(game_info)</center>"

        puts $writefile "<center>Всего пользователей: [countusers], лимит вывода: $conf(maxtop).</center>"

        puts $writefile "</center></body></html>"

        close $writefile

        set place 0

        set writefile [open $conf(topfile2) w]

        puts $writefile "<html><head><title>Статистика игры \"Викторина\"</title><meta http-equiv=\"content-type\" content=\"text/html;charset=windows-1251\"><meta\ http-equiv=\"Expires\" content=\"0\"><\/head><body>"

        puts $writefile "<p align=\"center\"><b><font size=\"2\">(Обновляется каждые полчаса)</b></font></p>"

        puts $writefile "<p align=\"center\"><i><font size=\"2\">Игра \"Викторина\"</i><br>$conf(network)<br></font><font size=\"2\">(<a href=irc://$server/[string range $conf(channels) 1 end]>$conf(networkaddr)<\/a>, канал [lindex $conf(channels) 0])<br><br>статистика игроков по<br>( <a href=$conf(linkscore)>очкам<\/a> \| <a href=$conf(linkanswers)><b>ответам<\/b><\/a> )<\/font><\/p>"

        puts $writefile "<center><table>"       

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Место</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Ник</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Титул</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Количество<br>ответов</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Очки</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Самый быстрый <br>ответ в секундах</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Лучшая цепь<br>ответов</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Побед в<br>супериграх</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Побед в<br>аукционах</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Разгадано<br>анаграмм</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Средний<br>балл</b>"

        puts $writefile "<td bgcolor=black style=color:#ffffff align=Center><b>Последняя игра<br>\(назад\)</b><tr>"

      foreach item [lrange [users list1] 0 $maxtop] {

                   array set user [users get [lindex $item 0]] 

                         if {[expr {$place % 2}]} {

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[incr place]"

                set honor "";set ko 0

                foreach item1 $conf(drank) { 

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

                incr ko }

                if {$honor==""} {set honor $conf(dmax)}

                if {[info exists user(tremort)]} { set honor $user(tremort) }  

                   puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[lindex $item 0]"

                   puts $writefile "<td align=Center bgcolor=#c8d2df nowrap><font color=red>$honor<\/font>"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[lindex $item 1]"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(score)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(quick)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(cont)" 

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(supergames)"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(augames)"

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$user(anwins)" 

        if {$user(score)!=0 && $user(answers) != 0} {

        set sball [expr 1.0 * $user(score) / $user(answers)]

        if {[info exists user(remort)]} {set sball [expr ( 1.0 * $user(score) + $conf(rscore)*$user(remort) ) / $user(answers)]}

        if {[regexp -nocase -- {^(\d+)\.(\d{1,3})} $sball a sbal b] } { set sbal "$sbal.$b"     }

        } else {set sbal 0}

                         puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>$sbal"   

puts $writefile "<td align=Center bgcolor=#c8d2df nowrap>[join [lrange [duration [expr [clock seconds] -$user(last)]] 0 3]]<tr>"

} else {

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[incr place]"

                         set honor "";set ko 0

                                foreach item1 $conf(drank) { 

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

                                incr ko } 

                                if {$honor==""} {set honor $conf(dmax)}

                if {[info exists user(tremort)]} { set honor $user(tremort) }

                   puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[lindex $item 0]"

                   puts $writefile "<td align=Center bgcolor=#ffffff nowrap><font color=green>$honor<\/font>"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[lindex $item 1]"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(score)" 

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(quick)" 

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(cont)" 

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(supergames)"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(augames)"

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$user(anwins)" 

        if {$user(score)!=0 && $user(answers) != 0} {

        set sball [expr 1.0 * $user(score) / $user(answers)]

        if {[info exists user(remort)]} {set sball [expr ( 1.0 * $user(score) + $conf(rscore)*$user(remort) ) / $user(answers)]}

        if {[regexp -nocase -- {^(\d+)\.(\d{1,3})} $sball a sbal b] } { set sbal "$sbal.$b"     }

        } else {set sbal 0}

                         puts $writefile "<td align=Center bgcolor=#ffffff nowrap>$sbal"         

puts $writefile "<td align=Center bgcolor=#ffffff nowrap>[join [lrange [duration [expr [clock seconds] -$user(last)]] 0 3]]<tr>"

}

                array unset user

        }

        puts $writefile "</TABLE></center><br>"

        puts $writefile "<center>Сгенерировано [ctime [unixtime]] ботом $::botnick v.[lindex $::version 0], Tcl v.[info patchlevel]</center>"

        puts $writefile "<center>$conf(game_info)</center>"

        puts $writefile "<center>Всего пользователей: [countusers], лимит: $conf(maxtop).</center>"

        puts $writefile "</center></body></html>"

        close $writefile        

        unset maxtop

        #sendftp                                                

}

P.S. не проверял.

Sparkle · Sparkle » 29 ноя 2011 13:31

Tcl error [::tpub::top_write]: invalid command name "::tpub::top_write"

tvrsh · tvrsh » 29 ноя 2011 13:46

Тоже тролль какой-то. Никотин смешнее.

Vertigo · Vertigo » 29 ноя 2011 13:47

Sparkle писал(а):Tcl error [::tpub::top_write]: invalid command name "::tpub::top_write"

Ну неймспейс добавь. proc ::tpub::top_write
У меня скрипт переписан под неймспейс в нормальном виде, в самих процедурах его указывать не обязательно.

Sparkle · Sparkle » 01 дек 2011 15:24

Как уменьшить число "999" в аукционе?

tvrsh · tvrsh » 01 дек 2011 16:23

Заменить

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

        if {$lnarg >3} {putserv "NOTICE $nick :\00310Ставка слишком высока. Вводите в диапазоне 1-999"; return}

на

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

        if {$args > 100} {putserv "NOTICE $nick :\00310Ставка слишком высока. Вводите в диапазоне 1-100"; return}

Sparkle · Sparkle » 01 дек 2011 17:28

Как можно сделать чтобы не в один текст было написано, а с новой строчки?
До:

Супер, nick! Верный ответ -> ответ <-, был получен за 17.36 секунд. у тебя теперь 20 очков (20 ответа) (20 (20)) (бонус +5 очко) и это твой 5 ответ подряд!

После:

<bot> Супер, nick! Верный ответ -> ответ <-, был получен за 17.36 секунд.
<bot> nick у тебя теперь 20 очков (20 ответа) (20 (20)) (бонус +5 очко) и это твой 5 ответ подряд!

kucc · kucc » 10 дек 2011 15:42

какая же она глючная

tvrsh · tvrsh » 10 дек 2011 19:58

kucc писал(а):какая же она глючная

Напиши свою неглючную викторину.

Sparkle · Sparkle » 14 дек 2011 15:17

Убедительная просьба, помощь сделать!
До:

<bot> Супер, nick! Верный ответ -> ответ <-, был получен за 17.36 секунд. у тебя теперь 20 очков (20 ответа) (20 (20)) (бонус +5 очко) и это твой 5 ответ подряд!

После:

<bot> Супер, nick! Верный ответ -> ответ <-, был получен за 17.36 секунд.
С новой строки!
<bot> nick у тебя теперь 20 очков (20 ответа) (20 (20)) (бонус +5 очко) и это твой 5 ответ подряд!

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

Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

Re: Проблемы с викториной v1.8 by Sergio + new addons.

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