Своё радио, Нативное (скриптовое) радио для людей с безлимитным интернетом) Поделиться Опции

[Programmer-tm(Мотофан.)]

Скрипт прослушивания радиостанции: "Свое радио"
В стадии разработки...

SvoeRadio.mgx   ( 7.85 килобайт ) Кол-во скачиваний: 985

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

[Programmer-tm(Мотофан.)]

Изменённый код программы.

#!/bin/bash
# Programmer-tm: "Не удалять эту строку!"
# Желательно не модифицировать код)

# Списки станций, качеств и т.п.:
station()
{
Zaycev.FM()
{
showRadio "Зайцев.FM" "" "POP" "Disco" "Club" "Alternative" "RnB"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
showRadio "Качество" "" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"2")
showRadio "Качество" "" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"3")
showRadio "Качество" "" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"4")
showRadio "Качество" "" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"5")
showRadio "Качество" "" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
esac
}
showRadio "Станции" "" "Зайцев.FM" "Avril Lavine (128)"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим в основное меню..." 1 2
menu
;;
"1")
Zaycev.FM
;;
"2")
mediaplayer -d "http://radioavril.moeradio.ru:9000/radioavril"
station
;;
esac
}
# Списки станций, качеств и т.п.:

# Главное меню:
menu()
{
showRadio "RadioPlus" "" "Радиостанции" "Информация"
RADIORES=$?
case "$RADIORES" in
"0")
exit
;;
"1")
station
;;
"2")
showQ "Информация" "Внимание! Стандартный плеер работает при любом настроенном в нем профиле соединения. Будьте внимательны!" 2
menu
;;
esac
}
# Запустим эту соляночку)
menu

[close]

Код

Такой код получился на текущий момент.

Жду ваших предложений и пожеланий.

Сообщение отредактировал Programmer-tm(Мотофан.) - 19.7.2011, 6:53

[igoripp]

Programmer-tm(Мотофан.), в общем, на е8 приложение запустилось, выбрал станцию "зайцев" с качеством "32", стандартный плеер запустился проиграл 1,5 секунды музыки и закрылся( И так происходит каждый раз, если выбрать частоту больше, чем 32, то плеер запускается и сразу вылетает, в меню этой программы. Говорит ли это о том, что слабая скорость передачи трафика? Если да, то сделай какую-нибудь станцию с маленьким битрейтом, можно и не мп3, это мне для теста. Или напиши какие на какие строчки надо заменить)

[Programmer-tm(Мотофан.)]

igoripp,
А через что слушать пытаемся? (профиль инета) может в нем проблема порылась...

[Programmer-tm(Мотофан.)]

igoripp,
Такого лично не наблюдал. хотя сейчас ради теста посмотрю один момент.

Сообщение отредактировал Programmer-tm(Мотофан.) - 19.7.2011, 13:28

[VINRARUS]

скрипт не запустился...
Но если выполнить
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(96)"
то удалося послушать 1 минуту радио через жпрс!
Больше не стал, из за тогп шо оно в минуту берет метр трафика.

[Programmer-tm(Мотофан.)]

VINRARUS,
Нехило) а че скрипт не сработал? странно...
А вторую версию, что во втором посте пробовал?

либо через chmod ему права дать, и писать в туксовом текстовом редакторе.

Сообщение отредактировал Programmer-tm(Мотофан.) - 19.7.2011, 15:21

[VINRARUS]

выложы скрипт со второго поста файлом, ато я без компа.
А с первого я запускал как шел, так как баша в Z6 нету , вернее есть уже, но я его еще не успел добавить в мод.
Терминал выдал ошыбку
bad function name

[igoripp]

VINRARUS, держи, думаю автор не против) .zip убрать

Сообщение отредактировал igoripp - 19.7.2011, 18:39

[Programmer-tm(Мотофан.)]

igoripp,
Не против, ибо OpenSource и каждый делает как умеет. Может у кого лучше реализация пройдет.

Добавлено позже (19.7.2011, 21:47):
Сейчас допишу и выложу версийку 1.02 (С подробными описаниями процессов в коментариях. как исходным текстом, так и файлом)

Исходник версии 1.02 (бета)

#!/bin/bash
# OpenSource проэкт RadioPlus

# Списки станций, качеств и т.п.:
station()
{

# Список Зайцев фм
Zaycev.FM()
{

# Откроем список с пунктами:
showRadio "Зайцев.FM" "" "POP" "Disco" "Club" "Alternative" "RnB"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
showRadio "POP" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"2")
showRadio "Disco" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"3")
showRadio "Club" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"4")
showRadio "Alternative" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
"5")
showRadio "RnB" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "RadioPlus (1.02)" "Отменено... Переходим к списку станций..." 1 2
station
;;
"1")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(32)"
Zaycev.FM
;;
"2")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(96)"
Zaycev.FM
;;
"3")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(128)"
Zaycev.FM
;;
"4")
mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(256)"
Zaycev.FM
;;
esac
;;
esac
}
showRadio "Станции" "" "Зайцев.FM" "Avril Lavine (128)"
RADIORES=$?
case "$RADIORES" in
"0")
showNotify "Отмена" "Отменено... Переходим в основное меню..." 1 2
menu
;;
"1")
Zaycev.FM
;;
"2")
mediaplayer -d "http://radioavril.moeradio.ru:9000/radioavril"
station
;;
esac
}
# Списки станций, качеств и т.п.:

# Главное меню:
menu()
{
showRadio "RadioPlus (1.02)" "" "Радиостанции" "About"
RADIORES=$?
case "$RADIORES" in
"0")
exit
;;
"1")
station
;;
"2")
showQ "RadioPlus (1.02)" "Скрипт RadioPlus для прослушивания интернет радиостанций версии 1.02 (beta)" 2
menu
;;
esac
}

# Запустим меню:
menu
#/Запустим меню:

[close]

Файл скрипта в архиве:

run.zip   ( 976 байт ) Кол-во скачиваний: 497

Сообщение отредактировал Programmer-tm(Мотофан.) - 19.7.2011, 18:59

[VINRARUS]

Programmer-tm(Мотофан.),
ну из второго поста скрипт пошол на урА, но нада вместо #!/bin/bash
написать
#!/bin/sh
и везде в коде слово zaycev.FM заменить на zaycevFM
А так получилася полезная, прикольная и главное рабочая програмка для всех магксов.


Добавлено позже (19.7.2011, 22:12):
пс: удалося без сбоев прослушать 2 минуты радио на 32 кб/с, можна и больше было бы, но у меня трафика не так и много.

[Programmer-tm(Мотофан.)]

VINRARUS,
Ну тут для владельцев ZN5 изначально рассчитывал. (себя в частности) Через WiFi слушать. (Лень мне иногда ноут включать, а тут роутер врубил, законектился и начал гонять песенки)

Пока в задумках:
*Состряпать меню на отмену (Тут пишем будет ли удобно сие чудо.)
*Возможно создать бд для радиостанций отдельную... Хотя толку от этого будет не много и лучше оставить одним скриптом.

Подумаю над твоими замечаниями.

А вот по замечанию: #!/bin/sh не согласен. Если идет запуск бинарника внутри скрипта, то по всем правилам Shell (коим скрипт и есть) пишется как раз #!/bin/bash

Сообщение отредактировал Programmer-tm(Мотофан.) - 19.7.2011, 19:56

[VINRARUS]

главное чтобы в названиях функций не было точок, наподобе 'zaytsev.FM', чтобы не редачить код для Z6

Ну в основе bash лежит sh.
И вообще bash ето переделанный sh.
А код ты написал на шеле, хотя как баш он тоже запуститься.
Просто я не понимаю зачем шел скрипт выполнять как баш, может я чегото не понимаю ведь я не програмист?
На Z6 всю жизнь пишется /bin/sh

Когдато видел скрипт на баше, так у шела совсем другой синтаксис.

Сообщение отредактировал VINRARUS - 20.7.2011, 3:05

[Programmer-tm(Мотофан.)]

VINRARUS,
Ну не знаю... я ведь то же пока не профи в этом деле. Будем писать, пробовать, экспериментировать.

Вот такая версия получилась:

run.sh.zip   ( 5.34 килобайт ) Кол-во скачиваний: 619

Исходник:

Код

#!/bin/sh
# OpenSource проэкт RadioPlus

# Списки станций, качеств и т.п.:
station()
{

# Список Зайцев фм
ZaycevFM()
{

# pop
pop()
{
showRadio "POP" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.03)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                pop
        ;;
            "1")
                ZaycevFM
        ;;
            "2")
                station
        ;;
            "3")
                menu
        ;;
            "4")
                exit
        ;;
        esac
;;
    "1")
        mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(32)"
        pop
;;
    "2")
        mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(96)"
        pop
;;
    "3")
        mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(128)"
        pop
;;
    "4")
        mediaplayer -d "http://zaycev.fm:9001/ZaycevFM(256)"
        pop
;;
esac
}

# disco
disco()
{
showRadio "Disco" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.03)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                disco
        ;;
            "1")
                ZaycevFM
        ;;
            "2")
                station
        ;;
            "3")
                menu
        ;;
            "4")
                exit
        ;;
        esac
;;
    "1")
        mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(32)"
        disco
;;
    "2")
        mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(96)"
        disco
;;
    "3")
        mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(128)"
        disco
;;
    "4")
        mediaplayer -d "http://zaycev.fm:9001/disco/ZaycevFM(256)"
        disco
;;
esac
}

# club
club()
{
showRadio "Club" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.03)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                club
        ;;
            "1")
                ZaycevFM
        ;;
            "2")
                station
        ;;
            "3")
                menu
        ;;
            "4")
                exit
        ;;
        esac
;;
    "1")
        mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(32)"
        club
;;
    "2")
        mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(96)"
        club
;;
    "3")
        mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(128)"
        club
;;
    "4")
        mediaplayer -d "http://zaycev.fm:9001/electronic/ZaycevFM(256)"
        club
;;
esac
}

# alternetive
alternative()
{
showRadio "Alternative" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.03)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                alternetive
        ;;
            "1")
                ZaycevFM
        ;;
            "2")
                station
        ;;
            "3")
                menu
        ;;
            "4")
                exit
        ;;
        esac
;;
    "1")
        mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(32)"
        alternetive
;;
    "2")
        mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(96)"
        alternetive
;;
    "3")
        mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(128)"
        alternetive
;;
    "4")
        mediaplayer -d "http://zaycev.fm:9001/alternative/ZaycevFM(256)"
        alternetive
;;
esac
}

# rnb
rnb()
{
showRadio "RnB" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.03)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                rnb
        ;;
            "1")
                ZaycevFM
        ;;
            "2")
                station
        ;;
            "3")
                menu
        ;;
            "4")
                exit
        ;;
        esac
;;
    "1")
        mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(32)"
        rnb
;;
    "2")
        mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(96)"
        rnb
;;
    "3")
        mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(128)"
        rnb
;;
    "4")
        mediaplayer -d "http://zaycev.fm:9001/rnb/ZaycevFM(256)"
        rnb
;;
esac
}

# Откроем список с пунктами:
showRadio "Зайцев.FM" "Выбор канала:" "POP" "Disco" "Club" "Alternative" "RnB"
RADIORES=$?
case "$RADIORES" in
        "0")
        showNotify "RadioPlus (1.03)" "Отменено... Переходим к списку станций..." 1 2
        station
;;
    "1")
        pop
              ;;
    "2")
        disco
              ;;
    "3")
        club
              ;;
    "4")
        alternative
              ;;
    "5")
        rnb
              ;;
esac
}

showRadio "Станции" "" "Зайцев.FM" "Avril Lavine (128)"
RADIORES=$?
case "$RADIORES" in
        "0")
        showNotify "RadioPlus (1.03)" "Отменено... Переходим в основное меню..." 1 2
        menu
;;
    "1")
        ZaycevFM
              ;;
    "2")
        mediaplayer -d "http://radioavril.moeradio.ru:9000/radioavril"
        station
;;
esac
}
# Списки станций, качеств и т.п.:

# Главное меню:
menu()
{
showRadio "RadioPlus (1.03)" "Выбор пункта" "Радиостанции" "About"
RADIORES=$?
case "$RADIORES" in
        "0")
        exit
              ;;
    "1")
        station
              ;;
    "2")
        showQ "RadioPlus (1.03)" "Скрипт RadioPlus для прослушивания интернет радиостанций версии 1.03 (beta)" 2
        menu
;;
esac
}
# Главное меню:

# Запустим меню:
menu
#/Запустим меню:

[close]

Ну кому какие станции ещё нужны? может какие фичи к коду?
Думайте, пишите. Буду пробовать реализовать.

Сообщение отредактировал Programmer-tm(Мотофан.) - 21.7.2011, 7:56

[Programmer-tm(Мотофан.)]

Собрал версию 1.04

Проходит тест...
Дальше 1.05 будет с вшитым Mplayer`ом для ZN5 и идти паком в mgx (мне проще будет тестить и работать с ней) Так как никто откликаться и не думает.

[Programmer-tm(Мотофан.)]

Готова версия 1.05 (beta)
Итак, нововведения:
* Добавил два новых пункта: Разработчику, и Только для ZN5
* Добавлен Mplayer (Zn5 Only!) + ip editor (Для работы все того же Mplayer)
То есть если у вас не Zn5 Просто не заходите в этот пункт.
* Расширил раздел радиостанций
краткая справка:
Если название идет как: station, то далее последует выбор качества воспроизведения.
Если название идет как: station (128(цифры могут быть любыми, в зависимости от качества)), то при выборе пункта пойдет воспроизведение станции. (Будьте бдительны!)
В планах ввести сообщение о возможном потере денежных средств при выполнении воспроизведения...

Список станций:
Зайцев.FM
Avril Lavine
Наше радио
EvropaPlus
Радио Дача
Радио Рандеву

По старинке: исходник основного скрипта...

Код

#!/bin/sh
# OpenSource проэкт RadioPlus

# Плеер по умолчанию
player="mediaplayer -d" # Плеер и команда к открытию ссылок
# Плеер по умолчанию

# Процедура выхода (Применимо к версии для ZN5+Mplayer)
cloze()
{
# Чистимся и покидаем прогу...
if [ "$player" = "$mypath/bin/zMPlayerGUI -u" ]
    then
        route delete default
        showNotify "Выход" "Почистили хвосты, всего хорошего)" 1 2
        exit
    else
        showNotify "Выход" "Чистить ничего не пришлось, значит просто выходим. Всего хорошего)" 1 2
        exit
fi
}
# Процедура выхода (Применимо к версии для ZN5+Mplayer)

# Списки станций, качеств и т.п.:
station()
{

# Радио дача
dacha()
{
showRadio "Радио Дача" "Качество" "32 Kb/s" "96 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                dacha
            ;;
            "1")
                station
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://stream.loveradio.ru:8000/radiodacha_low.mp3"
        dacha
    ;;
    "2")
        $player "http://stream.loveradio.ru:8000/radiodacha_high.mp3"
        dacha
    ;;
esac
}

# наше радио
nashe()
{
showRadio "Наше радио" "Качество" "32 Kb/s" "48 Kb/s" "64 Kb/s" "96 Kb/s" "128 Kb/s" "192 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                nashe
            ;;
            "1")
                station
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://188.127.243.169:80/nashe-32"
        nashe
    ;;
    "2")
        $player "http://188.127.243.169:80/nashe-48"
        nashe
    ;;
    "3")
        $player "http://188.127.243.169:80/nashe-64"
        nashe
    ;;
    "4")
        $player "http://188.127.243.169:80/nashe-96"
        nashe
    ;;
    "5")
        $player "http://188.127.243.169:80/nashe-128"
        nashe
    ;;
    "6")
        $player "http://188.127.243.169:80/nashe-192"
        nashe
    ;;
esac
}

# Список Зайцев фм
ZaycevFM()
{

# pop
pop()
{
showRadio "POP" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                pop
            ;;
            "1")
                ZaycevFM
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://zaycev.fm:9001/ZaycevFM(32)"
        pop
    ;;
    "2")
        $player "http://zaycev.fm:9001/ZaycevFM(96)"
        pop
    ;;
    "3")
        $player "http://zaycev.fm:9001/ZaycevFM(128)"
        pop
    ;;
    "4")
        $player "http://zaycev.fm:9001/ZaycevFM(256)"
        pop
    ;;
esac
}

# disco
disco()
{
showRadio "Disco" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                disco
            ;;
            "1")
                ZaycevFM
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://zaycev.fm:9001/disco/ZaycevFM(32)"
        disco
    ;;
    "2")
        $player "http://zaycev.fm:9001/disco/ZaycevFM(96)"
        disco
    ;;
    "3")
        $player "http://zaycev.fm:9001/disco/ZaycevFM(128)"
        disco
    ;;
    "4")
        $player "http://zaycev.fm:9001/disco/ZaycevFM(256)"
        disco
    ;;
esac
}

# club
club()
{
showRadio "Club" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                club
            ;;
            "1")
                ZaycevFM
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://zaycev.fm:9001/electronic/ZaycevFM(32)"
        club
    ;;
    "2")
        $player "http://zaycev.fm:9001/electronic/ZaycevFM(96)"
        club
    ;;
    "3")
        $player "http://zaycev.fm:9001/electronic/ZaycevFM(128)"
        club
    ;;
    "4")
        $player "http://zaycev.fm:9001/electronic/ZaycevFM(256)"
        club
    ;;
esac
}

# alternetive
alternative()
{
showRadio "Alternative" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                alternetive
            ;;
            "1")
                ZaycevFM
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://zaycev.fm:9001/alternative/ZaycevFM(32)"
        alternetive
    ;;
    "2")
        $player "http://zaycev.fm:9001/alternative/ZaycevFM(96)"
        alternetive
    ;;
    "3")
        $player "http://zaycev.fm:9001/alternative/ZaycevFM(128)"
        alternetive
    ;;
    "4")
        $player "http://zaycev.fm:9001/alternative/ZaycevFM(256)"
        alternetive
    ;;
esac
}

# rnb
rnb()
{
showRadio "RnB" "Качество" "32 Kb/s" "96 Kb/s" "128 Kb/s" "256 Kb/s"
RADIORES=$?
case "$RADIORES" in
    "0")
        showRadio "RadioPlus (1.05)" "Меню отмены" "Назад" "Список станций" "Главное меню" "Выход"
        RADIORES=$?
        case "$RADIORES" in
            "0")
                rnb
            ;;
            "1")
                ZaycevFM
            ;;
            "2")
                station
            ;;
            "3")
                menu
            ;;
            "4")
                cloze
            ;;
        esac
    ;;
    "1")
        $player "http://zaycev.fm:9001/rnb/ZaycevFM(32)"
        rnb
    ;;
    "2")
        $player "http://zaycev.fm:9001/rnb/ZaycevFM(96)"
        rnb
    ;;
    "3")
        $player "http://zaycev.fm:9001/rnb/ZaycevFM(128)"
        rnb
    ;;
    "4")
        $player "http://zaycev.fm:9001/rnb/ZaycevFM(256)"
        rnb
    ;;
esac
}

# Откроем список с пунктами:
showRadio "Зайцев.FM" "Выбор канала:" "POP" "Disco" "Club" "Alternative" "RnB"
RADIORES=$?
case "$RADIORES" in
        "0")
        showNotify "RadioPlus (1.05)" "Отменено... Переходим к списку станций..." 1 2
        station
    ;;
    "1")
        pop
               ;;
    "2")
        disco
               ;;
    "3")
        club
               ;;
    "4")
        alternative
               ;;
    "5")
        rnb
               ;;
esac
}

showRadio "Станции" "Выбор пункта:" "Зайцев.FM" "Avril Lavine (128)" "Наше радио" "EvropaPlus (128)" "Радио Дача" "Радио Рандеву (128)"
RADIORES=$?
case "$RADIORES" in
        "0")
        showNotify "RadioPlus (1.05)" "Отменено... Переходим в основное меню..." 1 2
        menu
    ;;
    "1")
        ZaycevFM
               ;;
    "2")
        $player "http://radioavril.moeradio.ru:9000/radioavril"
        station
    ;;
    "3")
        nashe
    ;;
    "4")
        $player "http://webcast.emg.fm:55655/europaplus128.mp3"
        station
    ;;
    "5")
        dacha
    ;;
    "6")
        $player "http://212.92.183.74:8370/"
        station
    ;;
esac
}
# Списки станций, качеств и т.п.:

# zn5
zn5()
{

# Ставим патч на директорию:
mypath=${0%/*} # Важно и нужно для Mplayer`а
# Ставим патч на директорию:

# ip роутера
service()
{
showRadio "RadioPlus (1.05)" "ip роутера:" "Показать" "Изменить"
RADIORES=$?
case "$RADIORES" in
    "0")
        # Если жмакнута отмена, то говорим что происходит переход в главное меню...
        showNotify "RadioPlus (1.05)" "Отменено... Переходим в основное меню..." 1 2
        menu
    ;;
    "1")
        # Либо показываем ему ip
        showQ "ip:" "`cat $mypath/config`" 2
        service
    ;;
    "2")
        # Или просим ввести и запихиваем в файлик...
        ip="`$mypath/showTextEntry 'ip роутера' 'Введите новый ip'`"
        if [ "$ip" = "" ]
            then
                showNotify "Внимание!" "ip не должен быть пустым! Возврат к конфигурированию!" 1 2
                service
            else
                echo $ip > $mypath/config
                showNotify "Внимание!" "ip роутера успешно изменён! Возврат в меню..." 1 2
                menu
        fi
    ;;
esac
}
# ip роутера

# Выбор плеера:
pleer()
{
showRadio "RadioPlus (1.05)" "Выбор плеера:" "Стандарт" "Mplayer"
        RADIORES=$?
        case "$RADIORES" in
        "0")
            showNotify "RadioPlus (1.05)" "Отменено... Переходим в основное меню..." 1 2
            menu
        ;;
        "1")
            route delete default
            player="mediaplayer -d"
            showNotify "RadioPlus (1.05)" "Выбран стандартный плеер... Переходим в главное меню..." 1 2
            menu
        ;;
        "2")
            route delete default
            route add default gw `cat $mypath/config`
            player="$mypath/bin/zMPlayerGUI -u"
            showNotify "RadioPlus (1.05)" "Выбран Mplayer... Переходим в главное меню..." 1 2
            menu
        ;;
        esac
}

# Выбор плеера:
showRadio "RadioPlus (1.05)" "Выбор пункта:" "Выбрать пелеер" "Настройка ip"
RADIORES=$?
case "$RADIORES" in
        "0")
        showNotify "RadioPlus (1.05)" "Отменено... Переходим в основное меню..." 1 2
        menu
               ;;
    "1")
        pleer
               ;;
    "2")
        service
               ;;
esac
}

# Главное меню:
menu()
{
showRadio "RadioPlus (1.05)" "Выбор пункта:" "Радиостанции" "Только для ZN5" "Разработчику" "About"
RADIORES=$?
case "$RADIORES" in
        "0")
        cloze
               ;;
    "1")
        station
               ;;
    "2")
        zn5
    ;;
    "3")    
        showQ "Информация:" "Разработка проэкта ведется: Programmer-tm(Мотофан) сайт: forum.motofan.ru Всю информацию по коду вы можете получить по Icq: 388333495 или на нашем форуме. Изменения в коде, улучшайзеры и дополняйзеры, приветствуются. Удачных вам разработок, господа и дамы) Буду рад помочь, чем смогу..." 2
        menu
    ;;
    "4")
        showQ "RadioPlus (1.05)" "Скрипт RadioPlus для прослушивания интернет радиостанций версии 1.05 (beta)" 2
        menu
    ;;
esac
}
# Главное меню:

# Запустим меню:
menu
#/Запустим меню:

[close]

Итак, MagX пакет:

RadioPlus_1.05_beta.mgx   ( 1.95 мегабайт ) Кол-во скачиваний: 409

[Programmer-tm(Мотофан.)]

Проэкт стух едва начавшись... Жаль...
Подумаю над новой прогой...

[Programmer-tm(Мотофан.)]

2.0 финал собрал... кому нужно, пишем

[IlluminatI]

Если бы вафля не только в зинке была, то думаю много кто твоим чудом заинтересовался бы... У меня 1мб трафика стоит примерно 1$, думаю обьяснять больше ничего не надо...

Впринципе через бт можно организовать, но там мороки будет... очень много

[Programmer-tm(Мотофан.)]

IlluminatI,
Ну да... Ну да... Просто для зинок самое оно)

Кстати, ввел автозаполняемую базу случайных ссылок, аналогов которой я ещё нигде не видел (идея и реализация авторские) Теперь, думаю сниму проэкт с OpenSource раз никто не проявляет активности в разработках или идеях...

Текущая версия: 2.5 (Test)
Выложена не будет до отладки БД.

Для тестеров: личка и аська.
Ответ анти спам боту: Нет

Сообщение отредактировал Programmer-tm(Мотофан.) - 1.8.2011, 19:46

[igoripp]

Можешь версию 2,0 выложить? Мне надо проверить её у себя на телефоне, на состояние работоспособность. Далее, буду помогать с тестами на е8)

[Programmer-tm(Мотофан.)]

igoripp,
Не могу... ибо её попросту не осталось... а для e8 там надо поправки в коде делать...
Так что не знаю, ибо пока буду допиливать новые идеи...

Добавлено позже (2.8.2011, 11:14):
Снимаю проэкт с OpenSource... Ибо появилось много авторского кода. Разработку буду вести по мере появления желания и времени...
Последующие версии целиком авторские. Изменять код или использовать где либо запрещено. (исключение пункты, позаимствованные у других авторов.)

Последняя версия: 4.0
Проходит обкатку на Zn5 Станции добавляться больше не будут. Ибо введена пользовательская БД. и открытие любых ссылок.

Скачать:

RadioPlus_4.0_Final_ZN5.mgx   ( 1.95 мегабайт ) Кол-во скачиваний: 391

Сообщение отредактировал Programmer-tm(Мотофан.) - 2.8.2011, 15:29

[Claus398]

Изменять код или использовать где либо запрещено. (исключение пункты, позаимствованные у других авторов.)

тоесть доработать её уже нельзя будет? глупо как то звучит, тебе не кажется так?

[Programmer-tm(Мотофан.)]

Claus398,
А что там дорабатывать? Все сделано...

[Claus398]

А что там дорабатывать? Все сделано...

ну вот я например захочу как то переработать все, возможно сделать лучше\хуже, переделать на другие модели, а ты всех рубанул, хотите делайте, но сами с 0.

[Programmer-tm(Мотофан.)]

Claus398,
Ну против портации я ничего против не имею... Только вот найдется ли тот, кому сие надо будет без wifi...

[Claus398]

Programmer-tm(Мотофан.),
может у меня z6w и я захочу её переделать или кто то из моих знакомых, и захочется мне по другому это реализовать, но вот это не реализуется так как ты не разрешаешь...

[Programmer-tm(Мотофан.)]

Claus398,
я не разрешаю переделывать только то, где привязан жесткий копирайт. остальное - ради бога. Делайте, мне не жалко. Да и с привязкой можете делать. Все одно права тут мало кто соблюдает. Если конечно поймете что и откуда она берёт.

[Claus398]

Programmer-tm(Мотофан.),
лично я даже если что то использую, то указываю авторов, другое дело когда уже не понятно кто автор так как уже 150 раз перекрутили под себя.

[Programmer-tm(Мотофан.)]

Claus398,
Согласен с тобой. Если что не понятно по коду будет - стучи в аську...

[rex]

Вот вопрос на Z6 все пашет отлично даже в 128кбит! Только вот есть станция хит фм украина, там такая проблема что розшерения файла у нее не acc а пишется hitfm_32 вот и не хочет открыватся, как можно это вылечить?

[Programmer-tm(Мотофан.)]

rex,
Кинь полную ссылку на поток, который читается компом.
И, кстати, регистр соблюдаешь при вводе ссылки. Это то же важно!

[rex]

http://online-hitfm.tavrmedia.ua/HitFM_32.m3u Вот ссылка для компа! Регистр соблюдаю! Вот радио с таким же качеством http://www.lux.fm/listen-1.pls но играет прекрасно!

[Programmer-tm(Мотофан.)]

rex,
Что-то у меня не то и не то не играет) странно...

[rex]

это для винампа! Открой эти файли текстовым редактором и там будет прямая ссылка на поток!

[Programmer-tm(Мотофан.)]

ну так эту ссылку и подсунь проге...

[rex]

ну так её и подсуваю! Но там передается расшерения не аас а hit_fm32 и телефон думает что это левак какойто!

[Programmer-tm(Мотофан.)]

rex,
Ну так aac телефон не понимает

[rex]

понимает! Еще как понимает! Люкс в аас играет! А если скачать часть потока и изменить росшерения то играет и хит фм! Так-что надо придумать как обойти эту проблему!

[Programmer-tm(Мотофан.)]

rex,
http://stream1.lux.fm:8000/
Из второго плейлиста завелось...
первый проще альтернативный поток поискать...