radio.tcl

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

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

radio.tcl

Сообщение tvrsh » 12 дек 2009 20:01

Скрипт собирает с сайта http://radionow.ru информацию о проигрываемых в данный момент треках и выдет ее по запросу. Скрипт сырой, надо красиво дописать бинды для станций, да и все остальное тоже.
Простенький антфлуд и раскраска в скрипте уже присутствуют.

Пример работы:
<tvrsh> !радио энержи
<@bionic> В последний раз (18:34 MSK) на радио «NRJ» звучала песня: Rihanna - Don't Stop The Music А до нее играла: Eric Prydz - Pjanoo (Radio Edit).
<tvrsh> !радио наше
<@bionic> В последний раз (18:51 MSK) на радио «Наше Радио» звучала песня: Аукцыон - Дорога А до нее играла: Океан Ельзи - Я Так Хочу.


Информация о станциях выдется по ссылке http://radionow.ru/?radio=[число], где [число] это номер радиостанции. Надо сделать так, чтобы вместо !радио 1 или !радио 29 писать !радио эхо москвы например, местами это уже выполнено, но не до конца.

Скачать: radio.tcl
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: radio.tcl

Сообщение wr` » 12 дек 2009 20:25

при запросе !радио выдает Tcl error [::radio::pub]: can't read "radio(time)": no such element in array
Аватара пользователя
wr`
 
Сообщения: 121
Зарегистрирован: 26 май 2009 21:17
Благодарил (а): 19 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: radio.tcl

Сообщение tvrsh » 12 дек 2009 20:35

Удали строчку
Код: Выделить всё
   set radio(timer,$uhost) [utimer $radio(time) [list ::radio::reset $uhost ] ]

Обновил скрипт в архиве.
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: radio.tcl

Сообщение wr` » 12 дек 2009 20:41

вывод появился,только что то с кодировкой,вот пример:
!радио дфм
•(19:40:47)• <|emanuel|`>  ?>A;54=89 @07 (19:34 MSK) =0 @048> «DFM» 72CG0;0 ?5A=O: 5?5; >70 - 0G>  4> =55 83@0;0: .;8O !028G520 - 8:0: (Alex Astero Remix).
что сделать ?
Аватара пользователя
wr`
 
Сообщения: 121
Зарегистрирован: 26 май 2009 21:17
Благодарил (а): 19 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: radio.tcl

Сообщение tvrsh » 12 дек 2009 20:48

wr` писал(а):вывод появился,только что то с кодировкой,вот пример:
!радио дфм
•(19:40:47)• <|emanuel|`>  ?>A;54=89 @07 (19:34 MSK) =0 @048> «DFM» 72CG0;0 ?5A=O: 5?5; >70 - 0G>  4> =55 83@0;0: .;8O !028G520 - 8:0: (Alex Astero Remix).
что сделать ?

Попробуй покомментировать эти строчки:
Код: Выделить всё
           set data [encoding convertfrom utf-8 $data]
           set data [encoding convertto cp1251 $data]           
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: radio.tcl

Сообщение wr` » 12 дек 2009 20:51

за комментировал set data [encoding convertfrom utf-8 $data],все работает,спасибо
Аватара пользователя
wr`
 
Сообщения: 121
Зарегистрирован: 26 май 2009 21:17
Благодарил (а): 19 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: radio.tcl

Сообщение tvrsh » 13 дек 2009 18:55

Этот вариант скрипта переписал ув. тов. Adium.
Правильное использование пространства имен, настройка флагов для использования команды, полный список радиостанций и настройка скорости вывода сообщений.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
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: radio.tcl

Сообщение tvrsh » 13 дек 2009 19:46

Чтобы исправиль ошибку
Tcl error [::radionow::pub]: wrong # args: should be "output target str"
в строке
Код: Выделить всё
output "PRIVMSG $target :[lindex $colors 0]Используйте [lindex $colors 1]${prefix}radio [lindex $colors 0]<[lindex $colors 1]радиостанция[lindex $colors 0]>[lindex $colors end]"
замените output на puthelp.
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: radio.tcl

Сообщение tvrsh » 13 дек 2009 23:52

Новая версия: radionow.tcl
В этой версии реализован "интеллектуальный" поиск радиостанций.
Пример:
<Adium> !radio динамит
<+darkis> В последний раз (22:38 MSK) на радио <<DFM>> звучала песня: Катя First - Ветром Вернусь (Dj Ivan Scratchin' Radio Cut) | А до нее играла: Ali Payami Vs Aquagen & Warp Brothers - Blade (Ali Payami Original Edit)
<Adium> !radio fm
<+darkis> По вашему запросу найдены следующие радиостанции: DFM, Радио 95.2 FM, Relax FM, Хит FM, Финам FM, Мегаполис FM, Best FM, Ретро FM, Кекс FM, Newtone FM, X-FM, Кино FM, NEXT FM, Юмор FM, ЮFM, Вести FM, Бизнес FM, Сити-FM.
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: radio.tcl

Сообщение wr` » 14 дек 2009 18:45

поставил этот скрипт и столкнулся с такой ошибкой при в вводе !радио,!radio
Tcl error [::radionow::pub]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent
Аватара пользователя
wr`
 
Сообщения: 121
Зарегистрирован: 26 май 2009 21:17
Благодарил (а): 19 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: radio.tcl

Сообщение tvrsh » 15 дек 2009 00:45

wr` писал(а):поставил этот скрипт и столкнулся с такой ошибкой при в вводе !радио,!radio
Tcl error [::radionow::pub]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent

Обнови свой скрипт http.tcl.
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: radio.tcl

Сообщение nksp » 14 сен 2010 14:36

Как можно добавить нужное мне радио ? :)
Аватара пользователя
nksp
 
Сообщения: 10
Зарегистрирован: 11 сен 2010 04:05
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота:

Re: radio.tcl

Сообщение tvrsh » 14 сен 2010 22:26

Никак, список радиостанций берется с сайта.
Скажи какую станцию хочешь добавить. По идее там все есть, прост не все прописаны в скрипте.
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: radio.tcl

Сообщение nksp » 15 сен 2010 14:58

Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )
Аватара пользователя
nksp
 
Сообщения: 10
Зарегистрирован: 11 сен 2010 04:05
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота:

Re: radio.tcl

Сообщение tvrsh » 15 сен 2010 15:41

nksp писал(а):Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )

На сайте нет такой радиостанции, ничего не выйдет.
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: radio.tcl

Сообщение tvrsh » 18 сен 2010 20:17

nksp писал(а):Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )

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


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

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

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

cron