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

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

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

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

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

[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 мегабайт ) Кол-во скачиваний: 346