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

[ABATAP4uk]

Итакс.... Подскажите как реморт делать?? Я даже этой команды в скрипте не вижу)

[tvrsh]

Реморт делается когда набираешь необходимое для него количество очков. Чтобы восстановить реморты в этом скрипте смотри предыдущую страницу.

[qwadmin]

<qw> пишу на канале !ст викторина запускаеться но вопросов нет.В патлайне такая ошыбка
<boot> [19:35:35] %qw% ст
<boot> [19:35:40] !bgerror! wrong # args: should be "putout handle text"
<boot> [19:35:40] !bgerror! NONE
<boot> [19:35:40] !bgerror! wrong # args: should be "putout handle text"
<boot> while executing
<boot> "putout PRIVMSG $nick $msg "
<boot> (procedure "putmsg" line 1)
<boot> invoked from within
<boot> "putmsg $game(chan) "\00302Bonpoc #$game(qid): \00312[anticheat [lindex $game(question) 0]] \00307\($ln\)\003""
<boot> (procedure "::tpub::tmr_ask" line 111)
<boot> invoked from within
<boot> "::tpub::tmr_ask"
<boot> ("after" script)

[tvrsh]

qwadmin, замени putout на putout_ и научись пользоваться тэгами.

[CyibX]

после нескольких вопросов должна быть "Супер игра" но ее нет.а в патлайне такая ошибка

[08:50:56] <ChertuJIo> [08:50:56] supergame_podr - 8
[08:51:11] <ChertuJIo> [08:51:11] Tcl error in script for 'timer755':
[08:51:11] <ChertuJIo> [08:51:11] can't read "conf(modset)": no such variable
[08:52:52] <Skarabei_> .set errorInfo
[08:52:52] <ChertuJIo> [08:52:52] #Skarabei_# set errorInfo
[08:52:52] <ChertuJIo> Currently: can't read "conf(modset)": no such variable
[08:52:52] <ChertuJIo> Currently: while executing
[08:52:52] <ChertuJIo> Currently: "if {$conf(modset) eq 1} {putfast "MODE $chan1 -c"}"
[08:52:52] <ChertuJIo> Currently: (procedure "supergame_off" line 5)
[08:52:52] <ChertuJIo> Currently: invoked from within
[08:52:52] <ChertuJIo> Currently: "supergame_off Skarabei_ #eleventh_class 5 15"

[tvrsh]

CyibX, post379.html#p379

[Corund]

Подскажите, как подправить аукционы, чтобы бот случайным образом выбирал того, кто будет отвечать, невзирая на сделанную ставку. Наверное, в этом куске надо что-то переделать?

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

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

if {$conf(modset) eq 1} {putfast "MODE $chan -c"}
putfast "PRIVMSG $game(chan) :\00310Ставки сделаны! Ставки больше не принимаются!"
       
         
       
         
         set winners {}
         foreach lines $::tpub::auusers {
         
         set stavka_ [lindex [split $lines " "] 0]
         set st_nick [lindex [split $lines " "] 1]
         
         if {[info exists lines]} {
         lappend winners [list $lines $stavka_]
         putlog "stavka_ - $stavka_ && st_nick - $st_nick"
         putlog "winners_list=$winners"
         }
         }

                        # sort
                        set sorted {}
                        foreach item [lsort -decreasing -index 1 $winners] {
                                lappend sorted [lrange $item 0 1]
                        }
                        set winnerrr_points [lindex [split $sorted " "] 0]
                        set winnerrr_user [lindex [split $sorted " "] 1]
                        regsub -all -- {\{} $winnerrr_points "" winnerrr_points
                        regsub -all -- {\}} $winnerrr_user "" winnerrr_user

         putlog "winnerrr - $winnerrr_user"
         set win_nick $winnerrr_user
 

Если заменить в строке

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

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

foreach item [lsort -decreasing -index 1 $winners] {

decreasing на increasing, например, то отвечает первый минимально поставивший... А вот чтоб отвечал любой, кто успеет поставить любую ставку (у нас от 1 до 999)? Хотелось бы самому переделать аукционы в "Рандом-вопрос", как-то так. А то получается, что лупят !да 999 скриптами в мирке и играют одни и те же люди в аукционы. Ещё и читерят. А торговаться никто не хочет в аукционе.

[tvrsh]

Как я понимаю в $winners будет список всех участников аукциона, элементы этого списка имеют вид "ставка ник". То-есть, чтобы получить случайный элемент надо сделать

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

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

[lindex $winners [rand [llength $winners]]]

Попробуй заменить

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

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

                        # sort
                        set sorted {}
                        foreach item [lsort -decreasing -index 1 $winners] {
                                lappend sorted [lrange $item 0 1]
                        }
                        set winnerrr_points [lindex [split $sorted " "] 0]
                        set winnerrr_user [lindex [split $sorted " "] 1]
                        regsub -all -- {\{} $winnerrr_points "" winnerrr_points
                        regsub -all -- {\}} $winnerrr_user "" winnerrr_user

         putlog "winnerrr - $winnerrr_user"
         set win_nick $winnerrr_user

на

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

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

                        set winnerrr [lindex $winners [rand [llength $winners]]]
                        set winnerrr_points [lindex [split $winnerrr " "] 0]
                        set winnerrr_user [lindex [split $winnerrr " "] 1]
                        regsub -all -- {\{} $winnerrr_points "" winnerrr_points
                        regsub -all -- {\}} $winnerrr_user "" winnerrr_user

         putlog "winnerrr - $winnerrr_user"
         set win_nick $winnerrr_user

Пробуй.

[Corund]

Спасибо, tvrsh сделали. Нормально всё работает.

[rig]

(22:03:55)• <BoT> Currently: can't read "conf(modset)": no such variable
•(22:03:55)• <BoT> Currently: while executing
•(22:03:55)• <BoT> Currently: "if {$conf(modset) eq 1} {putserv "MODE $chan1 -c"}"
•(22:03:55)• <BoT> Currently: (procedure "supergame_off" line 5)
•(22:03:55)• <BoT> Currently: invoked from within
•(22:03:55)• <BoT> Currently: "supergame_off либор #викторина 2 16"

[tvrsh]

rig, я конечно понимаю, что поиск это слишком сложно для тебя, но хотя бы прочитать последнюю станицу этой темы у тебя получится?

[UnInViTeD]

А не подскажете в чем проблема ? Вот такую штуку выдает бот в патилайне при загрузке скрипта
::Quiz:: ERROR. User 'UnInViTeD' doesn't exists! Please set directive conf(owner) correctly.

[kut]

смотри 5-6 страницу.

[UnInViTeD]

Благодарю.

[maks]

где можна взять стат. викторины index.html и index2.html ?

[tvrsh]

Страницы статистики генерируются автоматически при условии правильной настройки скрипта.

[maks]

вот у меня бот на двох каналах,один с каких идет игра викторина на обох каналах бот кидает нотисом
" -BoT- 10На нашем канале праздник: 0410! 03Начальная цена вопросов равняется 065 03очкам и другие подарки ждут вас!"можно както сделать чтоб он показывал на том где идет викторина?
И в патлайне выскочила вот эта ошибка
•(01:02:14)• <BoT> Currently: invalid command name "nick2suser"
•(01:02:14)• <BoT> Currently: while executing
•(01:02:14)• <BoT> Currently: "nick2suser $nick $chan"
•(01:02:14)• <BoT> Currently: (procedure "join_count" line 9)
•(01:02:14)• <BoT> Currently: invoked from within
•(01:02:14)• <BoT> Currently: "join_count $_jp1 $_jp2 $_jp3 $_jp4"
И ещё как сделать чтоб все имели права на команду !дальше не зависмости новенький или уже получил ремонт

[tvrsh]

maks, если ты добавлял праздники так, как написано в этом посте: post337.html#p337 то замени строку

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

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

if {[info exists game(h)] && $game(h) == 1} {

на

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

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

if {[info exists game(h)] && $game(h) == 1 && $chan == $game(chan)} {

Как сделать команду !дальше доступной всем можно легко догадаться из этого поста: post359.html#p359
Ошибка invalid command name "nick2suser" говорит о том, что бот не знает команду nick2suser. Это команда из stats.mod, какой-то скрипт ее использует. Или удали скрипт или включи модуль.
В следующий раз, перед тем как нажать кнопку "Отправить", внимательно перечитай написанное и исправь ошибки. Также пользуйся кнопками "подсветка синтаксиса" и "Quote".

[maks]

здравствуйте!
бот при вопрос-аукцион,когда набираешь !да 666 стал выбевать вот такую ошибку,юзерам которые не устоновили пол.

•(12:52:33)• <BoT> Currently: no such user - *
•(12:52:33)• <BoT> Currently: while executing
•(12:52:33)• <BoT> Currently: "error "no such user - $text""
•(12:52:33)• <BoT> Currently: (procedure "users" line 245)
•(12:52:33)• <BoT> Currently: invoked from within
•(12:52:33)• <BoT> Currently: "users get $winnerhand"
•(12:52:33)• <BoT> Currently: (procedure "cmd_yes" line 14)
•(12:52:33)• <BoT> Currently: invoked from within
•(12:52:33)• <BoT> Currently: "cmd_yes $nick $chan $text"
•(12:52:33)• <BoT> Currently: (procedure "::tpub::cmd_да" line 1)
•(12:52:33)• <BoT> Currently: invoked from within
•(12:52:33)• <BoT> Currently: "::tpub::cmd_$cmd $nick $chan $text"

[tvrsh]

Скорее ошибка не из-за пола а из-за того что в аукционе пытаются участвовать юзеры не давшие ни одного ответа и не имеющие записи о себе в юзерфайле бота. Попробуй в процедуре cmd_yes заменить строку

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

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

        if {![info exists game] || $game(chan) != $chan} {
 

на

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

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

        if {![info exists game] || $game(chan) != $chan || [nick2hand $nick] == "*"} {

Тогда бот будет игнорировать ответы !да таких игроков.

Добавлено спустя 7 минут 44 секунды:
То есть на

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

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

... [nick2hand $nick] == ""