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

[tvrsh]

Это не должно вызывать никаких неудобств, так как catch "глушит" ошибку, и не происходит прерывание выполнения процедуры.

Замени

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

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

if {[info exists ::tpub::conf(mpeople)]} {
   bind nick - * ::tpub::tchgnick
} else { catch {unbind nick - * ::tpub::tchgnick}}

на

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

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

if {[info exists ::tpub::conf(mpeople)]} {
   bind nick - * ::tpub::tchgnick
}

[Sparkle]

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

[Sparkle]

Ещё одна!

unknown namespace "::tpub::" in namespace delete command
while executing
"namespace delete ::tpub::"

[tvrsh]

Тоже самое что и предыдущая. Удаление пространства имен при загрузке конфига скрипта. Оставь ее в покое.

[Sparkle]

Вообщем как можно сделать на подобии +v на определенное количество очков дает войс.. Но и ещё нужно чтобы допустим за определенное количество очков давался флаг +h ? пример. чтобы получить +v нужно 300 очков, чтобы получить +h нужно 600 очков... вот.. на +v уже есть, но теперь нужно как-то +h сделать...

[Vertigo]

Вообщем как можно сделать на подобии +v на определенное количество очков дает войс.. Но и ещё нужно чтобы допустим за определенное количество очков давался флаг +h ? пример. чтобы получить +v нужно 300 очков, чтобы получить +h нужно 600 очков... вот.. на +v уже есть, но теперь нужно как-то +h сделать...

В процедуре ::tpub::on_join уже есть такое или близкое по функции. Там права даются в зависимости от места. Не думаю, что будет трудно поменять, заменив проверку места, на проверку кол-ва очков.

[Sparkle]

В процедуре ::tpub::on_join уже есть такое или близкое по функции. Там права даются в зависимости от места. Не думаю, что будет трудно поменять, заменив проверку места, на проверку кол-ва очков.

Нашла только это

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

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

if {[place $handle] == 3} { putquick "MODE $chan +h $nick" }

Но это дается за место войса, я его закомментировала, чтобы давался войс на определенное кол-во очков, теперь нужно чтобы +h давался за определенное кол-во очков!

Вообщем нашла....

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

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

if {(![isvoice $nick $chan] && ![isop $nick $chan]) && (([users isintop $hand] && $usr(score) > 300) || [users isremort $hand])} {
putquick "MODE $chan +v $nick"

Добавить после..?

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

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

if {(![isvoice $nick $chan] && ![isop $nick $chan]) && (([users isintop $hand] && $usr(score) > 600) || [users isremort $hand])} {
putquick "MODE $chan +h $nick"

И....

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

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

                if {$usr(score) > 300} { putquick "MODE $chan +v $nick" }
        }
        if {[users isremort $handle]} {
                putquick "MODE $chan +v $nick"
        }

Добавить после...?

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

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

                if {$usr(score) > 600} { putquick "MODE $chan +h $nick" }
        }
        if {[users isremort $handle]} {
                putquick "MODE $chan +h $nick"
        }

[Vertigo]

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

[Sparkle]

Помогите как сделать чтобы после 1 реморта бот давал +h а не +v ? а то у меня не получается, все сделала, бот дает после 1 реморта +h, но когда перезайду на канал, отвечу на вопрос, мне бот сразу же дает +v а должен +h давать, после 1 реморта.... как так сделать? чтобы после 1 реморта и т.д давался +h ?
Пример: Перед ремортом у меня +v, как только получаю 1 реморт, бот дает +h и далее 2, 3 , 4 реморт +h...

[Sparkle]

Когда начинается игра!

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

Когда отвечаешь на первый вопрос, потом перезаходишь на канал, в патилайне пишешь .set errorInfo и вот такое вот...

Tcl error [::tpub::on_join]: can't read "::isau": no such variable

can't read "::isau": no such variable
while executing
"if {[info exists game(question)] && [lsearch -exact $game(question) "3333"]<0 && ![info exists anagrgame(slovo)] && $::isa !=1 && $::auisa !=1 && $::q..."
(procedure "::tpub::on_join" line 73)
invoked from within
"::tpub::on_join $_jp1 $_jp2 $_jp3 $_jp4"

[tvrsh]

Судя по всему, ты окончательно доломала свой скрипт. Переставь его и не мешай ему работать.

[Sparkle]

tvrsh, Я ничего не делала, скрипт чистый стоит. И в нем ничего не меняла, и тому подобного.....
Попробуй получить первый реморт, потом останови викторину, запусти, ответь на несколько вопросов, перезайди, и в патилайне напиши .set errorInfo ... покажет ошибку.

[Sparkle]

Есть какие нибудь решения убрать данную ошибку????????

[kut]

Да!Поставить другую викторину.

[Sparkle]

Да!Поставить другую викторину.

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

[Vertigo]

Есть какие нибудь решения убрать данную ошибку????????

Воткнуть проверку на существование переменных. Например так

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

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

                if {[info exists game(question)] && [lsearch -exact $game(question) "3333"]<0 && ![info exists anagrgame(slovo)] && ([info exists ::isa] && $::isa !=1) && ([info exists ::auisa] && $::auisa !=1) && ([info exists ::qidanswer] && $::qidanswer == 123) && ([info exists ::isau] &&  $::isau !=1)} {
                        append not ". Вопрос: \"[lindex $game(question) 0] \($ln\)\""
                }

Хотя странно, что оно стало ругаться. Эти переменные глобальные и объявляются в конфиге скрипта.

[Sparkle]

Есть какие нибудь решения убрать данную ошибку????????

Воткнуть проверку на существование переменных. Например так

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

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

                if {[info exists game(question)] && [lsearch -exact $game(question) "3333"]<0 && ![info exists anagrgame(slovo)] && ([info exists ::isa] && $::isa !=1) && ([info exists ::auisa] && $::auisa !=1) && ([info exists ::qidanswer] && $::qidanswer == 123) && ([info exists ::isau] &&  $::isau !=1)} {
                        append not ". Вопрос: \"[lindex $game(question) 0] \($ln\)\""
                }

Хотя странно, что оно стало ругаться. Эти переменные глобальные и объявляются в конфиге скрипта.

Заменила в двух местах, и вроде бы сейчас нормально, не вылазит эта ошибка!
И ещё одна!
Когда начинается викторина.

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

И...

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

[Vertigo]

И ещё одна!Когда начинается викторина.

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

И...

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

Насчет локали хз, впервые такую ошибку вижу. Насчет второго, если беспокоит, поменяй на unset -nocomplain game(dex)

[Sparkle]

И ещё одна!Когда начинается викторина.

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

И...

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

Насчет локали хз, впервые такую ошибку вижу. Насчет второго, если беспокоит, поменяй на unset -nocomplain game(dex)

А ничего страшного не будет если поменяю? Она просто иногда появляется, иногда нет. )

Есть

set game(extra) 0
catch { unset game(extra) }
catch { unset game(dex) }

И....

set game(extra) 0
catch { unset game(extra) };catch { unset game(dex) }

Мб где-то ошибка?
или просто сделать также и во второй

set game(extra) 0
catch { unset game(extra) }
catch { unset game(dex) }

?

[Vertigo]

Ну раз оно уже в catch'e, то это не должно приводить к сбоям в работе скрипта.