FIFAParches CommunityConectarse

Primero edito, luego pruebo... ahí creo que juego.

Sencillo reproductor de mp3 by Getorz

mode_editPublicar nuevo tema
Comparte

14042009
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

Comentarios

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


tienes razon voy hablar con getorzzz aver que sucede
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.
avatar
@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:
reply
Permisos de este foro:
Puedes responder a temas en este foro.