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

[tvrsh]

Название: ekarma.tcl
Версия: 1.2
Автор: tvrsh, Vertigo
Описание: Скрипт позволяет увеличивать или уменьшать "карму" для каждого пользователя.
Поддержка Suzi: Да
Пример работы:

# Добавление кармы пользователю.
[20:47:13] <tvrsh> ++ a
[20:47:13] <@bionic> a получает первое очко кармы.
[20:47:18] <tvrsh> ++ b
[20:47:18] <@bionic> b получает первое очко кармы.
[20:48:03] <tvrsh> ++ a
[20:48:03] <@bionic> a получает одно очко кармы. Всего: 2.

# Топ кармы.
[20:48:37] <tvrsh> !ekmax
[20:48:37] <@bionic> Пользователи с максимальной кармой: 1 - a(2), 2 - b(1).

# Антитоп кармы.
[20:49:12] <tvrsh> !ekmin
[20:49:12] <@bionic> Пользователи с минимальной кармой: 1 - b(1), 2 - a(2).

# Удаление пользователя.
[20:49:42] <tvrsh> !ekdel b
[20:49:42] <@bionic> b удален из базы.
[20:49:46] <tvrsh> !ekmax
[20:49:46] <@bionic> Пользователи с максимальной кармой: 1 - a(2).

Дополнительная информация:
Ссылка на скрипт: ekarma.tcl

[Волк]

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

[Vertigo]

Скрипт неплох. Есть, конечно недостатки, в основном при работе со специальными символами. Решил его немного изменить (мне не совсем понравилось, что база пишется в chanfile боту). Ну и маленько упростил сам код скрипта. В места правок добавил комментов.
У меня правильно работает с любыми никами. Пример:

<Sergio> ++{[\
<Juliana> {[\ получает первое очко кармы.
<Sergio> ++{[\
<Juliana> {[\ получает одно очко кармы. Всего: 2.
<Sergio> --Sergio
<Juliana> Sergio теряет первое очко кармы.
<Sergio> --Juliana
<Juliana> Juliana теряет первое очко кармы. Всего: -1.
<Sergio> --Juliana
<Juliana> Juliana теряет одно очко кармы. Всего: -2.
<Sergio> !ekarmatop
<Juliana> Пользователи с максимальной кармой: 1 - [\x65ie](3), 2 - {[\(2), 3 - E}|{uk(2), 4 - Sergio(-1), 5 - Juliana(-2).

[Волк]

да, идея с отрицательной кармой тоже хороша))

[tvrsh]

Обновил скрипт.

# + суммирование кармы двух пользователей(первый удаляется).
# + удаление пользователя из базы.
# + возможность выбора работы или только с пользователями или с любыми терминами.
# + топ и антитоп кармы.

Пример в первом посте.

[Волк]

фрх. перестал работать

[17:47:18] Tcl error [::ekarma::ekarma_pubm]: bad option "-index": must be -all, -ascii, -decreasing, -dictionary, -exact, -glob, -increasing, -inline, -integer , -not, -real, -regexp, -sorted, or -start

[tvrsh]

Да не перестал он работать. Все дело в старости твоего тикля. В 8.4 у lsearch нет опции -index. А она как раз используется в скрипте.

Что тебе мешает обновиться?

[Волк]

несогласие на это хозяина хоста))
там мол, дофига пересобирать из-за этого придется

[Vertigo]

несогласие на это хозяина хоста))

Всегда можно поставить TCL непосредственно к себе в каталог, не трогая системный. И при пересборке бота указать путь к "своему" тиклю уже.

[tvrsh]

Вот, даже инструкция есть: faq-howto/ustanovka-tcl-lokalno-shell-t205.html

[Волк]

хм, благодарствую, может и правда впилю

[tvrsh]

Обновил скрипт. Поправил работу со списками/строками. Добавил показ кармы при входе на канал.