Codigos Snippets

WormZ -> Snippets > mIRC Scripting > REPRODUCTOR MP3 V1.0

REPRODUCTOR MP3 V1.0

Enviado Por: kn1ght
Descripcion:
;REPRODUCTOR MP3 V1.0 by kn1ght
pones mp4 nombre cancion o artista y te mostrara una lista.. luego click en la que os guste y a escuchar.

Smile
Codigo:
  1. ;REPRODUCTOR MP3 V1.0 by kn1ght
  2. on *:input:*:{
  3. if ($1 == mp4 ) {
  4. write -c mp3repa.rep
  5. set %musica.dir C:\musica
  6.  
  7. if ($2 != $null) {
  8. set %destino.mp3p $active
  9. set %mp3.arch $+(*,$replace($2-,$chr(32),$chr(42)),*,.mp3)
  10. set %mp3.numa $findfile(%musica.dir,%mp3.arch,0,write -a mp3repa.rep $1-)
  11. set %mp3.canta $iif($lines(mp3repa.rep),$v1,0)
  12. if (%mp3.canta == 1) mp3repa $read(mp3repa.rep,1)
  13. elseif (%mp3.canta > 1) {
  14. set %var.mp3a 1
  15. while (%var.mp3a <= %mp3.canta) {
  16. set %var.mp3aactual $read(mp3repa.rep,%var.mp3a)
  17. echo -a 14->[12ESCUCHAR14]<-12 %var.mp3a $+ 14-12 $nopath(%var.mp3aactual) 14- Tamaño:12 $bytes($file(%var.mp3aactual).size $+ ,m) $+ MB 14- Duración:12 $mp3atag(%var.mp3aactual).l
  18. inc %var.mp3a
  19. }
  20. }
  21. elseif (%mp3.canta == 0) echo -a No se encuentra
  22. }
  23. else {
  24. msg %destino.mp3p Faltan parametros
  25. }
  26. }
  27. elseif ($1 == .mp4stop) splay stop
  28. }
  29. on ^1:hotlink:*escuchar*:*: {
  30. if (->[ESCUCHAR]<- !iswmcs $1) halt
  31. elseif ($1 === ->[ESCUCHAR]<-) && ($mouse.key == 1) {
  32. tokenize 32 $hotline
  33. mp3repa $read(mp3repa.rep,$left($2,-1))
  34. }
  35. }
  36. alias mp3repa {
  37. unset %mp3aartist %mp3atitle %mp3abitrate
  38. set %mp3aartist $remove($iif($mp3atag($1-).a,$v1,Desconocido),.com,www.flowhot.net,.net,.org,.info)
  39. set %mp3atitle $remove($iif($mp3atag($1-).t,$v1,Desconocido),.com,www.flowhot.net,.net,.org,.info)
  40. set %mp3abitrate $iif($sound($1-).Vbr,Vbr,$sound($1-).bitrate $+ Kbps)
  41. set %mp3adur $mp3atag($1-).l
  42. if (%mp3aartist == Desconocido) && (%mp3atitle == Desconocido) set %mp3arepact $remove($nopath($1-),.mp3)
  43. else set %mp3arepact $iif(%mp3aartist,$v1 - %mp3atitle,%mp3atitle)
  44. splay $1-
  45. msg %destino.mp3p 12M14p12³12 %mp3arepact - 14Tamaño:12 $bytes($file($1-).size $+ ,m) $+ MB12 $iif(%mp3abitrate,- 14Bitrate:12 %mp3abitrate $+ ) - 14Duración:12 %mp3adur 15Mª¢ªbrø s¢®iþt14™12 ²º¹7
  46. }
  47. alias mp3atag {
  48. if ($left($sound($1-).id3,2) == v2) {
  49. if ($prop == a) return $iif(adelantosmp3 isin $iif($sound($1-,TPE2).tag,$v1,$sound($1-,TPE1).tag),Desconocido,$v2)
  50. if ($prop == t) return $iif(adelantosmp3 isin $sound($1-,tit2).tag,Desconocido,$v2)
  51. }
  52. else {
  53. if ($prop == a) return $sound($1-).artist
  54. if ($prop == t) return $sound($1-).title
  55. }
  56. if ($prop == l) return $duration($calc($sound($1-).length / 1000))
  57. }
  58.  

©

Table 'wormz_escripting.wormzbot_simpladd' doesn't exist =

Reset

Commentarios


1

0
Promedio de Puntuacion: (1)  2.00
There are no comments for this snippet
EScripting.NET #eScripting, ChatHispano utiliza cookies. Las cookies nos permiten ofrecer nuestros servicios. Más información. Por favor, haga clic en el botón Aceptar para ocultar esta barra y aceptar nuestras cookies. Si usted continúa utilizando Nuestro sitio sin realizar ninguna acción, vamos a suponer que usted consiente nuestras cookies de todos modos.
Cookiebar Panel fromVenue

Iniciar Sesión

Nombre de Usuario

Contraseña



¿No eres miembro?
Regístrate aquí.

¿Contraseña olvidada?
Recupera tu contraseña.

Usuarios Conectados

Invitados: 1
Miembros: 0
Total Miembros: 352
Último Miembro: DaNnY

Últimas Visitas:

AfraN 2 días
FsDk 1 Semana
SykO 1 Semana
Zetup 7 Semanas
NiGhT 16 Semanas
aM3 19 Semanas
slim 26 Semanas
kn1ght 33 Semanas
El_tio_la... 41 Semanas
MaCLeoD 46 Semanas

  Ver más usuarios 

Mini Charla

Tienes que logearte para enviar un mensaje.

11-01-2018 09:31
0_o

04-07-2017 22:29
Angry Sad Angry

13-05-2017 00:03
omg saludos a todos!!

21-01-2017 21:03
Shock Grin Shock

07-01-2017 01:25
Angry Sad Angry Cool

Archivo de mensajes