wYo7oJZBmjkL
| Tema: Sencillo reproductor de mp3 by Getorz Mar Abr 14, 2009 5:16 pm | |
| - Citación :
- 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 } }
|
|
Anaking
| Tema: no rula Mar Mayo 12, 2009 9:40 am | |
| ricardo :S el script no rula :s ya hablamos por msn ^^ |
|
wYo7oJZBmjkL
| Tema: Re: Sencillo reproductor de mp3 by Getorz Lun Mayo 18, 2009 6:40 pm | |
| - Anaking escribió:
- ricardo :S el script no rula :s ya hablamos por msn ^^
tienes razon voy hablar con getorzzz aver que sucede |
|
Anaking
| Tema: Problema arreglado Mar Mayo 19, 2009 9:00 am | |
| |
|
wYo7oJZBmjkL
| Tema: Re: Sencillo reproductor de mp3 by Getorz Mar Mayo 19, 2009 6:14 pm | |
| - 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
http://www.nomorepasting.com/getpaste.php?pasteid=26433
tambien os digo al final como utilizarlo por si no saveis. Excelente Muchas Gracias. :amigox: :wsdsdsw: |
|