Страница 1 из 1
radio.tcl
Добавлено:
12 дек 2009 20:01 tvrsh
Скрипт собирает с сайта
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
Re: radio.tcl
Добавлено:
12 дек 2009 20:25 wr`
при запросе !радио выдает Tcl error [::radio::pub]: can't read "radio(time)": no such element in array
Re: radio.tcl
Добавлено:
12 дек 2009 20:35 tvrsh
Удали строчку
- Код: Выделить всё
set radio(timer,$uhost) [utimer $radio(time) [list ::radio::reset $uhost ] ]
Обновил скрипт в архиве.
Re: radio.tcl
Добавлено:
12 дек 2009 20:41 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).
что сделать ?
Re: radio.tcl
Добавлено:
12 дек 2009 20:48 tvrsh
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]
Re: radio.tcl
Добавлено:
12 дек 2009 20:51 wr`
за комментировал set data [encoding convertfrom utf-8 $data],все работает,спасибо
Re: radio.tcl
Добавлено:
13 дек 2009 18:55 tvrsh
Этот вариант скрипта переписал ув. тов. Adium.
Правильное использование пространства имен, настройка флагов для использования команды, полный список радиостанций и настройка скорости вывода сообщений.
Re: radio.tcl
Добавлено:
13 дек 2009 19:46 tvrsh
Чтобы исправиль ошибку
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.
Re: radio.tcl
Добавлено:
13 дек 2009 23:52 tvrsh
Новая версия:
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.
Re: radio.tcl
Добавлено:
14 дек 2009 18:45 wr`
поставил этот скрипт и столкнулся с такой ошибкой при в вводе !радио,!radio
Tcl error [::radionow::pub]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent
Re: radio.tcl
Добавлено:
15 дек 2009 00:45 tvrsh
wr` писал(а):поставил этот скрипт и столкнулся с такой ошибкой при в вводе !радио,!radio
Tcl error [::radionow::pub]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent
Обнови свой скрипт
http.tcl.
Re: radio.tcl
Добавлено:
14 сен 2010 14:36 nksp
Как можно добавить нужное мне радио ?
Re: radio.tcl
Добавлено:
14 сен 2010 22:26 tvrsh
Никак, список радиостанций берется с сайта.
Скажи какую станцию хочешь добавить. По идее там все есть, прост не все прописаны в скрипте.
Re: radio.tcl
Добавлено:
15 сен 2010 14:58 nksp
Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )
Re: radio.tcl
Добавлено:
15 сен 2010 15:41 tvrsh
nksp писал(а):Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )
На сайте нет такой радиостанции, ничего не выйдет.
Re: radio.tcl
Добавлено:
18 сен 2010 20:17 tvrsh
nksp писал(а):Я хочу добавить HitFM.ua ( точнее я бы хотел что бы было добавлено т.к. радио суперское часто скачиваю лжбимые треки что бы если что можно было послушать но каждый раз на сайт заходить не вариант )
На, пробуй:
viewtopic.php?p=1026#p1026