Sencillo reproductor de mp3 by Getorz

Publicar nuevo tema   Responder al tema

Ir abajo

14042009

Mensaje 

Sencillo reproductor de mp3 by Getorz




alias mp3search {
splay $read($mircdir\musica.txt, w, $+(*,$1-,*)) | set %cancion $nopath($read($mircdir\musica.txt, w, $+(*,$1-,*))) | .set %mp3.rand $rand(2,15) | set %mp3.calidad $mp3($read($mircdir\musica.txt, w, $+(*,$1-,*))).bitrate $+ .KpS | set %mp3.time $lof($read($mircdir\musica.txt, w, $+(*,$1-,*))) | set %mp3.artista $mp3($read($mircdir\musica.txt, w, $+(*,$1-,*))).artist | %mp3.time = %mp3.time / 16000 | set %mp3.playing yes | .timer 1 %mp3.time set %mp3.playing no | msg $chan 1Reproduciendo... 14 $nopath($read($mircdir\musica.txt, w, $+(*,$1-,*))) 1• 14 %mp3.artista 1• 14 $duration(%mp3.time) 1 ( 14 $round($calc(($file($read($mircdir\musica.txt, w, $+(*,$1-,*))).size)/1048576),2) $+ Mb 1 - 14 %mp3.calidad 1 )
}

alias mp3list {
var %dir $sdir=\\"Seleciona Directorio MP3"
var %c $findfile(%dir,*.mp3;*.wmv;*.wma;.mpeg,0,write musica.txt $1-)
}

alias mp3view {
var %lin 1
set %lintotal $lines(musica.txt)
echo $color(info) -a *** lista de musica ***
echo $color(info) -a
while (%lin <= %lintotal) { echo $color(info) -a *** $read(musica.txt,%lin) | inc %lin }
echo $color(info) -a
echo $color(info) -a fin de lista
echo $color(info) -a
echo $color(info) -a Canciones totales: 7 $lines(musica.txt)
msg $chan 14 Tengo 1 $lines(musica.txt) 14 canciones
else { halt }
}

alias aleatorio {
splay $read($mircdir\musica.txt) | set %cancion $nopath($read($mircdir\musica.txt)) | .set %mp3.rand $rand(2,15) | set %mp3.calidad $mp3($read($mircdir\musica.txt)).bitrate $+ .KpS | set %mp3.time $lof($read($mircdir\musica.txt)) | set %mp3.artista $mp3($read($mircdir\musica.txt)).artist | %mp3.time = %mp3.time / 16000 | set %mp3.playing yes | .timer 1 %mp3.time set %mp3.playing no | msg $chan 1Reproduciendo... 14 $nopath($read($mircdir\musica.txt, w, $+(*,$1-,*))) 1• 14 %mp3.artista 1• 14 $duration(%mp3.time) 1 ( 14 $round($calc(($file($read($mircdir\musica.txt, w, $+(*,$1-,*))).size)/1048576),2) $+ Mb 1 - 14 %mp3.calidad 1 ) ( 14 Mp3 player Powered By: 1#GeToRzZz- )
unset $read($mircdir\musica.txt)
}

on *:input:*: {
if ($1 == $!rep) { mp3search $2- }
elseif ($1 == $!aleatorio) { aleatorio }
elseif ($1 == $!stop) { splay stop | msg $chan 1parando... 14 %cancion }
elseif ($1 == $!play) { splay resume }
elseif ($1 == $!pause) { splay pause | msg $chan 1pausando... 14 %cancion }
elseif ($1 == $!vol) { run SNDVOL32.EXE }
elseif ($1 == $!winamp) { run C:\Archivos de programa\Winamp\winamp.exe }
elseif ($1 == $!inco) { run C:\Archivos de programa\Winamp\ }
elseif ($1 == $!list) { mp3list }
elseif ($1 == $!view) { /mp3view }
}


-
Creative Commons License
avatar
wYo7oJZBmjkL

Joined : 11/01/2009
Ubicación : Trujillo
¿Qué FIFA juegas? : Estudiante

Volver arriba Ir abajo

Compartir este artículo en : diggdeliciousredditstumbleuponslashdotyahoogooglelive

Sencillo reproductor de mp3 by Getorz :: Comentarios

Mensaje el Mar Mayo 12, 2009 9:40 am  Anaking

ricardo :S el script no rula :s ya hablamos por msn ^^

Volver arriba Ir abajo

avatar

Mensaje el Lun Mayo 18, 2009 6:40 pm  wYo7oJZBmjkL

@Anaking escribió:ricardo :S el script no rula :s ya hablamos por msn ^^

tienes razon voy hablar con getorzzz aver que sucede

Volver arriba Ir abajo

Mensaje el Mar Mayo 19, 2009 9:00 am  Anaking

Alfinal de tanto buscar ya me funciona..

Os dejo la web donde pegue los codigos para que podais escuchar musica atravez del irc Razz

http://www.nomorepasting.com/getpaste.php?pasteid=26433

tambien os digo al final como utilizarlo por si no saveis.

Volver arriba Ir abajo

avatar

Mensaje el Mar Mayo 19, 2009 6:14 pm  wYo7oJZBmjkL

@Anaking escribió:Alfinal de tanto buscar ya me funciona..

Os dejo la web donde pegue los codigos para que podais escuchar musica atravez del irc Razz

http://www.nomorepasting.com/getpaste.php?pasteid=26433

tambien os digo al final como utilizarlo por si no saveis.
Excelente Muchas Gracias. :amigox: :wsdsdsw:

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
Puedes responder a temas en este foro.