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

Решение вопросов при работе с TCL скриптами.

Модератор: Модераторы

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

Сообщение tvrsh » 18 июл 2012 21:29

Название: 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
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
Jake (19 июл 2012 09:26)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение Zub » 20 июл 2012 11:04

[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 20 июл 2012 15:18, всего редактировалось 1 раз.
Причина: Используйте кнопку Quote для показа цитаты.
Zub
 
Сообщения: 2
Зарегистрирован: 08 фев 2011 16:28
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

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

Сообщение tvrsh » 20 июл 2012 15:23

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"


В следующей версии сделаю нормальный способ вывода сообщений.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
Zub (20 июл 2012 16:25)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение tvrsh » 21 июл 2012 21:06

Скрипт обновил, добавил расширенный поиск. Смотрите первый пост.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение Jake » 23 июл 2012 02:46

Расширенный поиск ничего не находит:
[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 все закомментированы, потому что выдавал кракозябры вместо нормального текста
Jake
 
Сообщения: 26
Зарегистрирован: 21 май 2012 11:17
Благодарил (а): 3 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

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

Сообщение tvrsh » 23 июл 2012 10:16

У меня находит. Потрудись хотя бы в своем профиле указать версию бота.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение Jake » 23 июл 2012 13:58

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


Eggdrop 1.6.21 + SP V0011 + TCL 8.5.11
Jake
 
Сообщения: 26
Зарегистрирован: 21 май 2012 11:17
Благодарил (а): 3 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

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

Сообщение Radiosignal » 23 июл 2012 14:41

Jake, там появилась третья строка с кодировкой, исправь как тебе советовали выше, и бот будет показывать ответы на новую команду.
Radiosignal
 
Сообщения: 87
Зарегистрирован: 17 июн 2009 18:01
Благодарил (а): 0 раз.
Поблагодарили: 1 раз.

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

Сообщение Jake » 23 июл 2012 15:19

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 - История государства Российского.
Последний раз редактировалось tvrsh 23 июл 2012 15:43, всего редактировалось 4 раз(а).
Причина: Пользуйтесь кнопкой Quote при вставке цитаты.
Jake
 
Сообщения: 26
Зарегистрирован: 21 май 2012 11:17
Благодарил (а): 3 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

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

Сообщение tvrsh » 23 июл 2012 18:21

Кстати у вас программа выводится для вашего региона? Местоположение бота автоматически определяется сайтом? А то я собирался с следующей версии сделать возможность указывать для какого региона выводить программу. Кажется это не пригодится.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение tvrsh » 30 мар 2013 19:58

Обновил скрипт, теперь забирает программу с другого сайта. База городов для работы больше не нужна. Пример в первом сообщении темы.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение tvrsh » 01 июн 2013 17:09

Обновил скрипт после изменений на сайте. Снова работает.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

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

Сообщение LuXe » 14 июн 2013 20:10

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

Вот что выдает:(
Последний раз редактировалось tvrsh 15 июн 2013 14:29, всего редактировалось 1 раз.
Причина: Тэги [quote]
LuXe
 
Сообщения: 38
Зарегистрирован: 18 ноя 2010 17:43
Благодарил (а): 8 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

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

Сообщение tvrsh » 15 июн 2013 14:28

LuXe, в строке
     catch {set etv_tok [::http::geturl "http://www.s-tv.ru/old/tv/" -timeout "20000"]} error
замени адрес на http://www.s-tv.ru/tv/
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
LuXe (15 июн 2013 15:14)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi


Вернуться в TCL скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

cron