Викторина (Quiz.tcl) v1.19 Lite Options

[Farhod]

Всем привет. Креон есть вопрос возможно ли акктивизировать команды !add, !del. которая являеться для добавление новых вопросов от юзеров, не добавляеться в основную пока сам Админ не просмотрит.
Если да , то как не подскажешьли? А модификация просто замечательная. Раньше пользовался модификацей Moss. перешел на твою очень понравилась. Спасибо за твой труд.

[Ale-x]

Подскажите пожалуйста, как очистить таблицу результатов для всех пользователей. Поиск ни к чему не привел.

Добавлено спустя 5 часов 35 минут 4 секунды:

Вобщем в нете ничего толковее как создать новый user file не нашел - короче так и сделал.
P.S. Автору респект и биг сенк за скрипт.

[muxa]

А у меня посто не запускается викторина. В конфиге канал прописал. Ботвыдаетна канале:
[17:25] -Tolob- Добро пожаловать на канал игры "Викторина", intel! Игра пока не запущена, для начала наберите !старт.

Пишу !старт - в патилайн [17:32] <Tolob> [13:32] %muxa% старт

и все. Дальше дело не идет.

[Kreon]

А у меня посто не запускается викторина. В конфиге канал прописал. Ботвыдаетна канале:  
[17:25] -Tolob- Добро пожаловать на канал игры "Викторина", intel! Игра пока не запущена, для начала наберите !старт.

Пишу !старт - в патилайн [17:32] <Tolob> [13:32] %muxa% старт  

и все. Дальше дело не идет.

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

Добавлено спустя 52 секунды:

Подскажите пожалуйста, как очистить таблицу результатов для всех пользователей. Поиск ни к чему не привел.

Есть необходимость такой функции? Если да, в будущем добавлю соответствующую DCC-команду.

Добавлено спустя 3 минуты 10 секунд:

возможно ли акктивизировать команды !add, !del. которая являеться для добавление новых вопросов от юзеров, не добавляеться в основную пока сам Админ не просмотрит.
Если да , то как не подскажешьли?

Активировать никак, их там нет.) Могу попробовать дописать, но, как мне кажется, без rehash'a, то есть полного повторного прочтения, как добавлять вопросы в текстовую базу "на лету", так и удалять их оттуда не получится. Это достаточно просто сделать только для SQL-версии.

[Ale-x]

Kreon, да очень полезная функция, например при смене базы вопросов, сбросить стату - интерес к викторине выростает так как у каждого появляется шанс быть лидером, а не догонять тех у кого по 10000-15000 очков

[muxa]

Kreon, зарегили канал прописными буквами. Все равно не пашет.

[Scorpion2]

когда пишиш ответ причем он правильный бот на него всёравно не реагирует
сделал как в посте выше
.tcl tpub::usersfix
пропала
 [12:03:00]  (Turbio) [12:03] Tcl error [::tpub::stats_write]: can't read "user(scoremonth)": no such element in array
Но толку нет он не реагирует на правильный ответ

[username]

Халоу ув. тов. Kreon
Почему эта процедура выглядит так:

### список пользователей
proc ::tpub::cmd_list {nick chan text} {
if {$text == "?help?"} { return [usage $nick $chan list "" "получение полного списка пользователей, в порядке убывания очков."] }

if {[string first o [chattr [nick2hand $nick] [expr {[validchan $chan] ? $chan : ""}]]] == -1} { return deny }

if {![llength [set users [users list]]]} {
putpvt $nick $chan "информация о пользователях отсутствует."
} else {
set lst "([llength $users])"
foreach item $users { append lst " [lindex $item 0]" }

putpvt $nick $chan "$lst."
}
}

а не вот так, к примеру:

### список пользователей
proc ::tpub::cmd_list {nick chan text} {
if {$text == "?help?"} { return [usage $nick $chan list "" "получение полного списка пользователей, в порядке убывания очков."] }

if {[string first o [chattr [nick2hand $nick] [expr {[validchan $chan] ? $chan : ""}]]] == -1} { return deny }

if {![llength [set users [users list]]]} {
putpvt $nick $chan "информация о пользователях отсутствует."
} else {
set lols [split [userlist]]
set lst "([llength $lols])"
foreach item $lols { append lst " [lindex $item 0]" }
putpvt $nick $chan "$lst."
}
}

Это я к чему клоню собсно, к тому что пишу в патилайне .usersfix в ответ получаю

Usersfix done! 1223 users have been checked.

а по команде !стат или !топ везде только я один, так и должно быть? Или что-то не работает? Раньше у меня была версия 1.13.4 теперь 1.18 из первого поста. И как тут теги [code] писать? Или их нет?

И в чем суть этого .usersfix я как-то не очень понял рассматривая процедуру ::tpub::usersfix
просто идет проверка на XTRA поле quiz в юзерфайле. Или я ошибаюсь? Объясни пожалуйста.

[Kreon]

Почему эта процедура выглядит так

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

Это я к чему клоню собсно, к тому что пишу в патилайне .usersfix <...>
а по команде !стат или !топ везде только я один, так и должно быть? Или что-то не работает?

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

И как тут теги ['code'] писать? Или их нет?

Вручную. Правда все равно они код не раскрашивают.

И в чем суть этого .usersfix я как-то не очень понял рассматривая процедуру ::tpub::usersfix
просто идет проверка на XTRA поле quiz в юзерфайле. Или я ошибаюсь? Объясни пожалуйста.

Проверяет всех пользователей и добавляет им нехватающие поля. Например, usr(scoremonth), usr(answersmonth) для статистики месяца. Если этого не делать, то будут ошибки, описанные в посте выше ^:

CODE

can't read "user(scoremonth)": no such element in array

[username]

Спасибо, ситуация прояснилась.

А проблема с обнулением месячной статистики не решилась? Надо запускать бота в первую минуту месяца? А то я дописал статистику за текущий день, вот не знаю будет она обнуляться или нет.

[username]

Еще в некоторых местах в коде встречается упоминание о ремортах, а их как я понял нету, вместо них топ за месяц. Почему ты решил удалить реморты? Считаешь что без них лучше?

[Kreon]

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

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

[username]

Предлагаю заменить в скрипте фразу про текущий месяц на процедуру

proc ::tpub::monthget {} {
set data [clock format [unixtime] -format "%B %Y"]
regsub -all -- {January} $data {Январь} data
regsub -all -- {February} $data {Февраль} data
regsub -all -- {March} $data {Март} data
regsub -all -- {April} $data {Апрель} data
regsub -all -- {May} $data {Май} data
regsub -all -- {June} $data {Июнь} data
regsub -all -- {July} $data {Июль} data
regsub -all -- {August} $data {Август} data
regsub -all -- {September} $data {Сентябрь} data
regsub -all -- {October} $data {Октябрь} data
regsub -all -- {November} $data {Ноябрь} data
regsub -all -- {December} $data {Декабрь} data
return $data
}

и будет красивенько писаться месяц года.

[Kreon]

Согласен, идея неплохая. Менять названия месяцев, правда, на мой взгляд лучше не regsub'ами, а одним string map'ом, либо так:

CODE

proc ::tpub::monthget {} {
set list {нулябрь январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь}
return [lindex $list [clock format [clock seconds] -format %m]]
}

[jdvu]

ничего не могу понять
.tcl tpub::usersfix
Tcl error: No such user.

как запустить то? в патилайне говорит не знаю такю команду

[maksimov]

Как всетаки сделать, чтоб кто то ответил и бот сохранил... а то !играю не все набирают , играют играют а потом вопить начинают
Пожалуйста помогите мне. выложите плиз готовый скрипт окончательно.

[Kreon]

ничего не могу понять
.tcl tpub::usersfix
Tcl error: No such user.

как запустить то? в патилайне говорит не знаю такю команду

В версии 1.18 данная команда для патилайна существует точно, и для её запуска необходимы права m на боте:

CODE

bind dcc m usersfix ::tpub::usersfix

Также по коду данная команда не может вызывать описываемую вами ошибку. Проверьте, что у вас действительно последняя версия скрипта, либо используйте следующий код для usersfix:

CODE

bind dcc m usersfix ::tpub::usersfix
proc ::tpub::usersfix {hand idx text} {
    set i 0
    foreach q [userlist] {
        if {![validuser $q]} {continue}
        if {[getuser $q xtra quiz] != ""} {
             users check [list $q $q]
             incr i
        }            
    }
    putlog "Usersfix done! $i users have been checked."
}

2maksimov: Выложена окончательно готовая последняя бесплатная версия скрипта. У многих она работает нормально. В программировании нет мистики, - ищите у себя ошибки в настройках и учитесь более внятно формулировать вопросы.
Команда !играю требуется только тогда, когда включено ограничение на минимально необходимое для игры число активных игроков. Всех пользователей бот сразу заносит в userfile, который сохраняется раз в час eggdrop'ом вне зависимости от игрового скрипта.

[maksimov]

т.е. люди поиграли и через час они будут в статистике ? даже если игра будет обновлена ?

[Kreon]

Они сразу будут в статистике. Только бота нужно правильно выключать. Через команду .die с патилайна, а не диспетчером задач.

[maksimov]

куда сохраняются очки ???