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

Обсуждение вопросов установки и настройки, помощь в написании TCL скриптов, настройка модулей, базы знаний и другая документация.
https://forum.egghelp.ru/

etv.tcl - ТВ-программа и поиск тематических передач.

https://forum.egghelp.ru/tcl-skripti/etv-tcl-programma-poisk-tematicheskih-peredach-t532.html

Страница 1 из 1

etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 18 июл 2012 21:29
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

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 20 июл 2012 11:04
Zub
[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.

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

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 20 июл 2012 15:23
tvrsh
Zub, чтобы починить абракадабру поковыряй строку
        set data [encoding convertfrom cp1251 $data]

Попробуй закомментировать ее.
А чтобы в канал выводились сообщения, то в настройке оставь
      # Способ ответа пользователю (PRIVMSG/NOTICE).
      set etv(reptype) "PRIVMSG"


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


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

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 21 июл 2012 21:06
tvrsh
Скрипт обновил, добавил расширенный поиск. Смотрите первый пост.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 23 июл 2012 02:46
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 все закомментированы, потому что выдавал кракозябры вместо нормального текста

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 23 июл 2012 10:16
tvrsh
У меня находит. Потрудись хотя бы в своем профиле указать версию бота.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 23 июл 2012 13:58
Jake
tvrsh писал(а): Потрудись хотя бы в своем профиле указать версию бота.


Eggdrop 1.6.21 + SP V0011 + TCL 8.5.11

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 23 июл 2012 14:41
Radiosignal
Jake, там появилась третья строка с кодировкой, исправь как тебе советовали выше, и бот будет показывать ответы на новую команду.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 23 июл 2012 15:19
Jake
Radiosignal писал(а):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 - История государства Российского.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

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

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 30 мар 2013 19:58
tvrsh
Обновил скрипт, теперь забирает программу с другого сайта. База городов для работы больше не нужна. Пример в первом сообщении темы.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 01 июн 2013 17:09
tvrsh
Обновил скрипт после изменений на сайте. Снова работает.

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 14 июн 2013 20:10
LuXe
[20:07:14] Tcl error [::etv::etv_pub]: can't read "channelbase": no such variable

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

Re: etv.tcl - ТВ-программа и поиск тематических передач.

СообщениеДобавлено: 15 июн 2013 14:28
tvrsh
LuXe, в строке
     catch {set etv_tok [::http::geturl "http://www.s-tv.ru/old/tv/" -timeout "20000"]} error
замени адрес на http://www.s-tv.ru/tv/
Часовой пояс: UTC + 3 часа [ Летнее время ]
Страница 1 из 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/