Script para la radio

Hola a todos,

Entre ayer y hoy, para poder escuchar algunas emisoras de radio o canales de música de DI más comodamente con el mplayer, he confeccionado un script que adjunto a continuación. ¿Qué os parece? Alguna sugerencia? He reinventado la rueda?

Muchas gracias a todos

#!/bin/bash
function play () {
	clear
	
	echo " "
	echo "Recuerda que para parar la reproduccion y volver al"
	echo "menu deberas pulsar Ctrl+C."
	echo " "
	
	sleep 2
	
	mplayer -playlist $1
}

function menu () {
	clear

	echo "1. Radios"
	echo "2. Musica"
	echo "3. Salir"

	read -p "Opcion? " menuop	
}

function menu_radio () {

	clear


	echo "1. RNE 1"
	echo "2. RNE 3"
	echo "3. RNE 5"
	echo "4. RNE Clasica"
	echo "5. Ondacero"
	echo "6. Cadena Ser"
	echo "7. Cadena Cope"
	echo "8. M80 Radio"
	echo "9. Cadena 100"
	echo "10. Maxima FM"
	echo "11. 40 Principales"
	echo "12. BBC"
	echo " "
	echo "0. ATRAS"
	echo " "

	read -p "Opcion? " menura
}

function menu_bbc () {
	clear


	echo "1. BBC 1"
	echo "2. BBC 2"
	echo "3. BBC 3"
	echo "4. BBC 4"
	echo "5. BBC 5"
	echo "6. BBC 6"
	echo "7. BBC 7"
	echo " "
	echo "0. ATRAS"
	echo " "

	read -p "Radio? " opbbc
}

function menu_candielc () {
	clear

	echo "1. Trance"
	echo "2. Hard Trance"
	echo "3. Vocal Trance"
	echo "4. Progressive"
	echo "5. Euro Dance"
	echo "6. Goa-Psy Trance"
	echo "7. Deep House"
	echo "8. Hard House"
	echo "9. Hard Core"
	echo "10. Classic Techo Trance"
	echo "11. Chillout"
	echo "12. DJ Mixes"
	echo " "
	echo "0. ATRAS"
	echo " "

	read -p "Canal? " opcandielc
}

function playel () {
	clear
	
	echo " "
	echo "Recuerda que para parar la reproduccion y volver al"
	echo "menu deberas pulsar Ctrl+C."
	echo " "

	sleep 2

	mplayer -playlist http://www.di.fm/mp3/$1.pls
}

function nfunc () {
	echo " "
	echo "Esta emisora no funciona por el momento"
	echo " "
	
	sleep 2
}

function opinc () {
	echo " "
	echo "Opcion incorrecta"
	echo " "
	
	sleep 2
}
	

### Ejecución ###

while [ true ]; do
menu
	case $menuop in
		"1")
			while [ true ]; do
			menu_radio
			case $menura in
				"0")
					break
					;;
				"1")
					play http://www.rtve.es/rne/audio/RNE1.ram
					;;
				"2")
					play http://www.rtve.es/rne/audio/RNE3.ram
					;;
				"3")
					play http://www.rtve.es/rne/audio/RNE5.ram
					;;
				"4")
					play http://www.rtve.es/rne/audio/RNEclasica.ram
					;;
				"5")
					play http://www.ondacero.es/oci.asx
					;;
				"6")
					play http://www.cadenaser.com/player/SER-TIC.asx
					;;
				"7")
					nfunc
					;;
				"8")
					play http://www.los40.com/nuevo_player/m80.asx
					;;
				"9")
					nfunc
					;;
				"10")
					play http://www.los40.com/nuevo_player/maxima.asx
					;;
				"11")
					play http://www.los40.com/nuevo_player/40Principales.asx
					;;
				"12")
						while [ true ]; do
						menu_bbc
						
							case $opbbc in
							"0")
								break
								;;
							"1")
								play http://www.bbc.co.uk/radio1/realaudio/media/r1live.ram
								;;
							"2")
								play http://www.bbc.co.uk/radio2/realmedia/fmg2.ram
								;;
							"3")
								play http://www.bbc.co.uk/radio3/ram/r3g2.ram
								;;
							"4")
								play http://www.bbc.co.uk/radio4/realplayer/media/fmg2.ram
								;;
							"5")
								play http://www.bbc.co.uk/fivelive/live/surestream_int.ram
								;;
							"6")
								play http://www.bbc.co.uk/6music/ram/dsatg2.ram
								;;
							"7")
								play http://www.bbc.co.uk/bbc7/realplayer/dsatg2.ram
								;;
							*)
								opinc
								;;
							esac
						done
							
					;;
				*)
					opinc
					;;
					
			esac
			done
			;;
		"2")
			
			while [ true ]; do
			menu_candielc
				case $opcandielc in
					"0")
						break
						;;
					"1")
						playel trance
						;;
					"2")
						playel hardtrance
						;;
					"3")
						playel vocaltrance
						;;
					"4")
						playel progressive
						;;
					"5")
						playel eurodance
						;;
					"6")
						playel goapsy
						;;
					"7")
						playel deephouse
						;;
					"8")
						playel hardhouse
						;;
					"9")
						playel hardcore
						;;
					"10")
						playel classictechno
						;;
					"11")
						playel chillout
						;;
					"12")
						playel djmixes
						;;
					*)
						opinc
						;;
				esac
				done
			;;
		"3")
			clear
			exit
			;;
		*)
			opinc
			;;
esac
done

Nota: Siguiendo consejos de los comentarios, he reescrito algunas partes del script que veís arriba