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

[tvrsh]

Название: etv.tcl
Версия: 1.3
Автор: tvrsh
Описание: Скрипт показа тв-программы.
Поддержка Suzi: Да
Пример работы:

# Команда без параметров - помощь.
[19:50:28] <tvrsh> !тв
[19:50:28] <@bionic> 1. Используйте !тв <канал> для просмотра текущих передач на выбранном канале.
[19:50:28] <@bionic> Например: !тв discovery - покажет программу на канале Discovery Channel.
[19:50:28] <@bionic> 2. Вы можете смотреть программу на следующие дни. Для этого к запросу добавьте опцию +<дни>.
[19:50:28] <@bionic> Например: !тв Discovery +2 - покажет программу на послезавтра для канала Discovery Channel.

# Смотрим программу.
[19:52:40] <tvrsh> !тв di
[19:52:41] <@bionic> По вашему запросу "di" найдено 6 телеканалов. Первые 5 найденных: Discovery Channel, Discovery Science, Discovery World, DIVA Universal, Discovery HD Showcase.
[19:52:46] <@bionic> Программа передач на 30 марта: Discovery Channel.
[19:52:46] <@bionic> 19.05 - Золотая лихорадка. Аляска. Серия 11 [16+]
[19:52:46] <@bionic> 20.00 - Охотники за реликвиями. Бостонские аукционеры [12+]

# Смотрим программу на завтра.
[19:53:22] <tvrsh> !тв 2 +1
[19:53:23] <@bionic> По вашему запросу "2" найдено 3 телеканала: 2х2, 24 Техно, 24 ДОК.
[19:53:26] <@bionic> Программа передач на 31 марта: 2х2.
[19:53:26] <@bionic> 20.30 - Гриффины [16+]
[19:53:26] <@bionic> 21.00 - Футурама [16+]

Ссылка на скрипт: etv.tcl

[tvrsh]

[11:01:31] <Barman> 18:00 - 5G5@=85 =>2>AB8 A AC1B8B@0<8.
[11:01:31] <Barman> 18:25 - 564C =0<8, 452>G:0<8.
[11:01:31] <Barman> 19:00 - >;5 GC45A.
[11:01:32] <Barman> 20:00 - "CABL 3>2>@OB" A =4@55< 0;0E>2K<.
[11:01:32] <Barman> 21:00 - @5<O.
[11:01:32] <Barman> 21:30 - >< >1@07F>2>3> A>45@60=8O (10-O A5@8O).
[11:01:32] <Barman> 22:30 - @83>@89 5?A. >=F5@B 2 45=L @>645=8O.

абракадабру выводить, как починить, и куда что прописать, что бы вывод на кнаал был?

[tvrsh]

Zub, чтобы починить абракадабру поковыряй строку

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

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

        set data [encoding convertfrom cp1251 $data]

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

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

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

      # Способ ответа пользователю (PRIVMSG/NOTICE).
      set etv(reptype) "PRIVMSG"

И в выводе сообщений замени $nick на $chan. Например

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

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

        putserv "$etv(reptype) $nick :$etv(color1)По вашему запросу $etv(color2)\"$tchna\" $etv(color1)не найден ни один телеканал.\003"

замени на

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

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

        putserv "$etv(reptype) $chan :$etv(color1)По вашему запросу $etv(color2)\"$tchna\" $etv(color1)не найден ни один телеканал.\003"

В следующей версии сделаю нормальный способ вывода сообщений.

[tvrsh]

Скрипт обновил, добавил расширенный поиск. Смотрите первый пост.

[Jake]

Расширенный поиск ничего не находит:
[10:41:10] «Jake» !тв ??музыка
[10:41:11] «@HappyBot» Jake, По Вашему запросу ничего не найдено.
[10:41:21] «Jake» !тв ??вести
[10:41:23] «@HappyBot» Jake, По Вашему запросу ничего не найдено.
[10:42:02] «Jake» !тв ??сегодня
[10:42:03] «@HappyBot» Jake, По Вашему запросу ничего не найдено.
[10:45:26] «Jake» !тв ??убийство
[10:45:27] «@HappyBot» Jake, По Вашему запросу ничего не найдено.
P.S. строки с кодировками encoding все закомментированы, потому что выдавал кракозябры вместо нормального текста

[tvrsh]

У меня находит. Потрудись хотя бы в своем профиле указать версию бота.

[Jake]

Потрудись хотя бы в своем профиле указать версию бота.

Eggdrop 1.6.21 + SP V0011 + TCL 8.5.11

[Radiosignal]

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

[tvrsh]

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

Все строки с кодировкой encoding закомментированы. Новая команда так и не работает, а !тв канал и !тв ?ключ выводятся.
Хотя когда написал !тв ?фильм, то бот вывел всего один фильм:

[23:21:53 23/07/2012 Monday] <Jake> !тв ?фильм
[23:21:56 23/07/2012 Monday] <@HappyBot> Телевизионная программа на 23 июля, понедельник: Фильмы
[23:21:56 23/07/2012 Monday] <@HappyBot> RTV-международный.
[23:21:56 23/07/2012 Monday] <@HappyBot> 12:00 - Игра в браслетах.

выходит не до конца чтоли выводит ? В предыдущей версии скрипта по несколько каналов с фильмами выводило на день
А вот с !тв ?наука вроде всё нормально:

[23:26:46 23/07/2012 Monday] <Jake> !тв ?наука
[23:26:47 23/07/2012 Monday] <@HappyBot> Телевизионная программа на 23 июля, понедельник: Познавательные
[23:26:47 23/07/2012 Monday] <@HappyBot> Россия-Планета.
[23:26:47 23/07/2012 Monday] <@HappyBot> 13:05 - О самом главном.
[23:26:47 23/07/2012 Monday] <@HappyBot> 16:55 - Aсademia (Владимир Воеводин. "Суперкомпьютеры: незаметные гиганты". 1-я лекция).
[23:26:47 23/07/2012 Monday] <@HappyBot> 18:25 - Петр Столыпин. Выстрел в Россию. ХХ век.
[23:26:47 23/07/2012 Monday] <@HappyBot> Первый.
[23:26:47 23/07/2012 Monday] <@HappyBot> 15:50 - ЖКХ.
[23:26:49 23/07/2012 Monday] <@HappyBot> 16:45 - "Хочу знать" с Михаилом Ширвиндтом.
[23:26:49 23/07/2012 Monday] <@HappyBot> НТВ-Мир.
[23:26:51 23/07/2012 Monday] <@HappyBot> 12:30 - Суд присяжных.
[23:26:51 23/07/2012 Monday] <@HappyBot> ТВ Центр-International.
[23:26:53 23/07/2012 Monday] <@HappyBot> 13:50 - Породы собак.
[23:26:53 23/07/2012 Monday] <@HappyBot> 14:45 - Гении от природы.
[23:26:55 23/07/2012 Monday] <@HappyBot> 15:35 - Русский след.
[23:26:55 23/07/2012 Monday] <@HappyBot> 16:20 - Энциклопедия.
[23:26:57 23/07/2012 Monday] <@HappyBot> 16:50 - История государства Российского.

[tvrsh]

Кстати у вас программа выводится для вашего региона? Местоположение бота автоматически определяется сайтом? А то я собирался с следующей версии сделать возможность указывать для какого региона выводить программу. Кажется это не пригодится.

[tvrsh]

Обновил скрипт, теперь забирает программу с другого сайта. База городов для работы больше не нужна. Пример в первом сообщении темы.

[tvrsh]

Обновил скрипт после изменений на сайте. Снова работает.

[tvrsh]

[20:07:14] Tcl error [::etv::etv_pub]: can't read "channelbase": no such variable

Вот что выдает:(

[tvrsh]

LuXe, в строке

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

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

     catch {set etv_tok [::http::geturl "http://www.s-tv.ru/old/tv/" -timeout "20000"]} error

замени адрес на http://www.s-tv.ru/tv/