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

[tvrsh]

Название: fpalyers.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт забирает с сайта http://footballplayers.ru/ информацию о игроках. При входе на канал сообщает о том, кто родился и умер в этот день. Из списка рождений и смертей берет случайно по одной строке. По команде показывает легенду футбола или действующего игрока или завершившего карьеру.
Поддержка Suzi: Да
Пример работы:

# Нотис при входе на канал.
* Attempting to rejoin channel #football
* Rejoined channel #football
-NOTICE- <bionic> В этот день родился В 1967 г. лучший футболист Бельгии 1992 года Филипп Альбер.
-NOTICE- <bionic> В этот день умер В 1984 г. легендарный советский вратарь Анатолий Акимов.
-NOTICE- <bionic> Интересный факт: 1982 г. Завершилась двухлетняя дисквалификация Паоло Росси, связанная с участием в "договорных" матчах. Спустя считанные недели, не имевший столь продолжительной игровой практики Росси стал лучшим снайпером и лучшим игроком чемпионата мира.
# Команда на канале.
<@tvrsh> !игрок
<@bionic> Завершивший карьеру - Сами Аль-Джабер - Один из лучших нападающих в истории азиатского футбола. На чемпионате мира 2006 года ветеран сборной Саудовской Аравии вновь отметился забитым голом. До этого Аль-Джабер забивал по голу на мундиалях 1994 и 1998 годов.

Дополнительная информация: Позже сделаю поиск по базе игроков.
Ссылка на скрипт: fplayers.tcl

[tvrsh]

Обновил скрипт. При входе на канал добавился показ интересного факта.

[wr`]

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

•(21:32:09)• <(Paul> [21:30:13] Tcl error [::fplayers::fplayers_onjoin]: random limit must be greater than zero
•(21:32:21)• <ban> .set errorInfo
•(21:32:21)• <(Paul> [21:30:26] #ban# set errorInfo
•(21:32:22)• <(Paul> Currently: random limit must be greater than zero
•(21:32:22)• <(Paul> Currently: while executing
•(21:32:22)• <(Paul> Currently: "rand [llength $dead]"
•(21:32:22)• <(Paul> Currently: (procedure "::fplayers::fplayers_proc" line 42)
•(21:32:22)• <(Paul> Currently: invoked from within
•(21:32:22)• <(Paul> Currently: "::fplayers::fplayers_proc $nick $uhost $hand $chan 0"
•(21:32:22)• <(Paul> Currently: (procedure "::fplayers::fplayers_onjoin" line 8)
•(21:32:22)• <(Paul> Currently: invoked from within
•(21:32:22)• <(Paul> Currently: "::fplayers::fplayers_onjoin $_jp1 $_jp2 $_jp3 $_jp4"

[tvrsh]

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

[tvrsh]

а как сделать чтобы этот скрипт выводил текст в кодировке cp1251 ? а то кракозябры выдаёт (
я так понял нужно в скрипте удалить эти строки:

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

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

if {[info exists ::sp_version]} {
        set data [encoding convertfrom cp1251 $data]
    } else {
        set data [encoding convertto utf-8 [encoding convertfrom cp1251 $data]]
    }

верно ?

закомментил эти строчки:

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

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

set data [encoding convertfrom cp1251 $data]

и

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

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

set data [encoding convertto utf-8 [encoding convertfrom cp1251 $data]]

вроде заработало ....