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

[Corund]

Благодарю.

[Radiosignal]

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

[Corund]

Помогите, пожалуйста, раньше работало, когда были в другой сети, а теперь не работает вот это:

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

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

if {[lsearch -exact $game(question) "3333"]>0} {
                                set time [expr [clock seconds].[string range [clock clicks -milliseconds] [expr [string length [clock clicks -milliseconds]] - 3] end] - $game(asktime)]
                                set time [expr $time - $game(ptime)]
                                array set usr [users get $hand]
                                if {$hand==$game(lst_user)} {putfast "privmsg $chan :\00304[expr {[users isintop $hand] ? "\002$nick\002" : $nick}]\00310 не нужно повторять ответ несколько раз, я не глухой!"
                        } else {

 if {[okr $time] != "0" } {
                         if { $time < 5 } {
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}] отстаёт всего на \00304[okr $time]\00310 секунды." }
                } else {
                   if {$game(creator)!=$hand && ![users isintopmonth $hand] && ![users isintop $hand] && [string first o [chattr [nick2hand $nick]]] == -1} {
                        if {[info exists game(bn,$hand)]} {
                                incr game(bn,$hand)
                                 } else {
                                 set game(bn,$hand) 1
                                 }
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}], твой ответ был очень близко! За это тебе дается право \00304$game(bn,$hand)\00310 [lindex {. раз раза раз} [numgrp $game(bn,$hand)]] сделать \00305!дальше\00313."
                         array set usr [users get $hand]
                         incr usr(score) "1"
                         incr usr(scoremonth) "1"
                         putmsg $chan "\00306[expr {[users isremort $hand] ? "\002$nick\002" : $nick}] отстаёт на [okr $time] секунды, и получает 1 очко за старания."
                         users set [list $hand [array get usr]]
                         array set usr [users get $hand]
                   } else {
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}] отчаянно близко "
                         }    
 

Бот не дает несколько раз !дальше, не дает 1 очко за старания (за незначительное отставание) и не пишет "такой-то отстаёт на столько-то..."
А это работает: "не нужно повторять ответ несколько раз, я не глухой"

[tvrsh]

В коде нет зависимости от сети. Скорее просто изменился пинг до бота и не получаются незначительные отставания в ответах.

[Corund]

Пинг до бота стал меньше, то есть лучше, но незначительно. Сейчас он от меня например 0,06 сек. В другой сети были самые быстрые ответы игроков в топе быстр. в районе 0,5-1 сек. Сейчас в районе 0,9-1,5 сек. То есть пинг в целом вообще отличный... Я даже мало таких викторин встречал, где молниеносно ответ принимает.

Но он же реагирует на правильный ответ, который дан одним игроком 2 раза. Пишет же "не надо повторять..."
А так же пишет "Такой то игрок ... отстаёт всего на 0.13 секунды" (Я неправильно написал в предыдущем посте - время отставания он считает и показывает на канале!)

Не работает все, что ниже этих строк -

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

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

if {$hand==$game(lst_user)} {putfast "privmsg $chan :\00304[expr {[users isintop $hand] ? "\002$nick\002" : $nick}]\00310 не нужно повторять ответ несколько раз, я не глухой!"
                        } else {

 if {[okr $time] != "0" } {
                         if { $time < 5 } {

То есть вот это всё не работает -

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

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

putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}] отстаёт всего на \00304[okr $time]\00310 секунды." }
                } else {
                   if {$game(creator)!=$hand && ![users isintopmonth $hand] && ![users isintop $hand] && [string first o [chattr [nick2hand $nick]]] == -1} {
                        if {[info exists game(bn,$hand)]} {
                                incr game(bn,$hand)
                                 } else {
                                 set game(bn,$hand) 1
                                 }
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}], твой ответ был очень близко! За это тебе дается право \00304$game(bn,$hand)\00310 [lindex {. раз раза раз} [numgrp $game(bn,$hand)]] сделать \00305!дальше\00313."
                         array set usr [users get $hand]
                         incr usr(score) "1"
                         incr usr(scoremonth) "1"
                         putmsg $chan "\00306[expr {[users isremort $hand] ? "\002$nick\002" : $nick}] отстаёт на [okr $time] секунды, и получает 1 очко за старания."
                         users set [list $hand [array get usr]]
                         array set usr [users get $hand]
                   } else {
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}] отчаянно близко "

[tvrsh]

С твоих слов не работает все, что находится в else в условии

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

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

if { $time < 5 } {

Внутри этого else находится условие

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

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

if {$game(creator)!=$hand && ![users isintopmonth $hand] && ![users isintop $hand] && [string first o [chattr [nick2hand $nick]]] == -1} {

Если ответивший не начал эту игру($game(creator)!=$hand), не в месячном топе(![users isintopmonth $hand]), не в общем топе(![users isintop $hand]) и если не оп на боте([string first o [chattr [nick2hand $nick]]] == -1), то выполнится эта часть кода:

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

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

if {[info exists game(bn,$hand)]} {
                                incr game(bn,$hand)
                                 } else {
                                 set game(bn,$hand) 1
                                 }
                         putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}], твой ответ был очень близко! За это тебе дается право \00304$game(bn,$hand)\00310 [lindex {. раз раза раз} [numgrp $game(bn,$hand)]] сделать \00305!дальше\00313."
                         array set usr [users get $hand]
                         incr usr(score) "1"
                         incr usr(scoremonth) "1"
                         putmsg $chan "\00306[expr {[users isremort $hand] ? "\002$nick\002" : $nick}] отстаёт на [okr $time] секунды, и получает 1 очко за старания."
                         users set [list $hand [array get usr]]
                         array set usr [users get $hand]

А если хоть какие-то из условий выше выполняются, то напишет

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

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

putfast "privmsg $chan :\00310[expr {[users isintop $hand] ? "\002$nick\002" : $nick}] отчаянно близко "

Что-то точно должно написаться. Тут нет никакой зависимости от сети. Попробуй уменьшить число в условии if { $time < 5 } {
А то что-то оно большое, новый вопрос наверно уже через 5 секунд задаваться должен.