Españoles Reproductor De Mp3-Spanish Mp3 Player

By Sharky_Dude on Jun 10, 2011

Screenshots

 Se trata de un reproductor de música dirigidos específicamente a personas que hablan español. Por favor, tenga en cuenta que hay muchos dialectos del español diferentes y esto puede causar alguna confusión. Carga esto en su sección de controles remotos en mIRC haga clic en Nuevo en el reproductor de mp3 en el menú o la lista de alias a continuación, elija un directorio que contiene su música. Que se diviertan!

This is a music player aimed specifically at spanish speaking people. Please keep in mind that there are many different spanish dialects and this may cause some confusion. Load this into your mIRC remotes section under new click on the mp3 player in menu or your nick list then choose a directory that contains your music. Have fun!

on *:Load: {
  Set %play 1
  Set %Spam 4
  Set %option 17
}

menu menubar,channel,status {
  Reproductor De Mp3: dialog -dm EMp3 EMp3 
}
dialog EMp3 {
  title "Reproductor De Mp3"
  size -1 -1 150 117
  option dbu

  menu "Configuración", 1
  item "Ajustar el juego de tipo", 2, 1
  item "Establecer canales de Spam", 3, 1
  item "Definición de Tipo de Spam", 4, 1

  menu "Directorio", 5
  item "Establecer directorio", 6, 5
  item "Actualización de Directorio", 7, 5

  menu "Lista de reproducción", 8
  item "Editar Lista", 9, 8
  item "Quitar Lista", 10, 8
  item "Actualizar Lista", 31, 8

  box "Mp3 Info", 11, 2 1 146 28
  Text "Canción Que Suena:", 12, 28 8 60 8
  edit "Nada está jugando", 13, 5 16 90 10, flat
  Text "Tiempo Restante:", 14, 105 8 44 8
  edit "00:00", 15, 113 16 21 10, flat

  box "Opciones Canción", 16, 80 30 65 85
  radio "", 17, 84 39 9 10
  radio "", 18, 84 49 9 10
  radio "", 19, 84 59 9 10
  radio "", 20, 84 69 9 10
  Text "Normal", 21, 94 39 30 8
  Text "Repita", 22, 94 49 30 8
  Text "Continua", 23, 94 59 30 8
  Text "Al Azar", 24, 94 69 30 8

  button "Inicio", 25, 84 85 25 10, flat
  button "Detener", 26, 115 85 25 10, flat
  button "Pausa", 27, 84 100 25 10, flat
  button "Continuar", 28, 115 100 25 10, flat

  box "Mp3 Lista", 29, 2 30 76 85
  list 30, 3 38 74 80, sort

}

on *:DIALOG:EMp3:init:0: {
  did -c Emp3 %option
  if (%play == 1) {
    var %num $findfile(%dir, *.mp3,0,did -a Emp3 30 $nopath($1-))
  }
  if (%play == 2) {
    var %PL 1
    while (%PL <= $lines(PlayList.txt)) { did -a Emp3 30 $Nopath($read(PlayList.txt,%PL)) | inc %PL }
  }
}

on *:dialog:Emp3:menu:*:{
  if $did = 2 {
    dialog -dm Play Play
  }
  if $did = 3 {
    dialog -dm SC SC
  }
  if $did = 4 {
    dialog -dm Spam Spam
  }
  if $did = 6 {
    set %dir $sdir="Mp3 Directory"
    write -c mp3.txt
    noop $findfile(%dir,*.mp3,0,write mp3.txt $1-)
    var %num $findfile(%dir, *.mp3,0,did -a Emp3 30 $nopath($1-))
  }
  if $did = 7 {
    did -r Emp3 30
    write -c mp3.txt
    noop $findfile(%dir,*.mp3,0,write mp3.txt $1-)
    var %num $findfile(%dir, *.mp3,0,did -a Emp3 30 $nopath($1-))
  }
  if $did = 9 {
    dialog -dm Plist PList
  }
  if $did = 10 {
    write -c PlayList.txt
  }
  if $did = 31 {
    did -r Emp3 30
    var %PL 1
    while (%PL <= $lines(PlayList.txt)) { did -a Emp3 30 $Nopath($read(PlayList.txt,%PL)) | inc %PL }
  }
}
on *:dialog:Emp3:sclick:*:{
  if $did = 25 {
    if (%play == 1) {
      var %Playing $Remove($did(Emp3,30).seltext,.mp3)
      set %song $findfile(%dir,$did(Emp3,30).seltext,1)
      set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
      set %songfind $read(mp3.txt, w,  * $+ %song $+ *)
      set %num $Readn
      splay %song
      did -ra Emp3 13 %playing
      .timermp3 0 0 Remaining
      spam
    }
    if (%play == 2) {
      var %Playing $Remove($did(Emp3,30).seltext,.mp3)
      set %song $findfile(%dir,$did(Emp3,30).seltext,1)
      set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
      set %songfind $read(playlist.txt, w,  * $+ $did(Emp3,30).seltext $+ *)
      set %num $Readn
      splay %song
      did -ra Emp3 13 %playing
      .timermp3 0 0 Remaining
      spam
    }
  }
  if $did = 26 {
    splay Stop
    .timermp3 off
    did -ra Emp3 13 Nothing is playing
    did -ra Emp3 15 00:00
  }
  if $did = 27 {
    splay pause
  }
  if $did = 28 {
    splay resume
  }
  if ($did(17).state) { set %option 17 }
  if ($did(18).state) { set %option 18 }
  if ($did(19).state) { set %option 19 }
  if ($did(20).state) { set %option 20 }
}

alias Remaining {
  did -ra Emp3 15 $asctime($round($calc(($insong.length - $insong.pos) / 1000),0),nn:ss),none)
}

on *:dialog:Emp3:close:* {
  .timermp3 off
  splay stop
}

on *:mp3end:{
  if (%option == 20) {
    if (%Play == 1) {
      splay $read(mp3.txt)
      var %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Emp3 13 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
    if (%Play == 2) {
      splay $findfile(%dir,$read(PlayList.txt),1)
      var %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Emp3 13 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
  }
  if (%option == 18) {
    splay %Song
    did -ra Emp3 13 $remove($nopath($insong.fname)$1-,.mp3)
    Remaining
  }
  if (%option == 19) {
    if (%play == 1) {
      inc %num
      if ($read(mp3.txt,%num) == $null) { halt }
      splay $read(mp3.txt,%num)
      var %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Emp3 13 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
    if (%play == 2) {
      inc %num
      if ($read(PlayList.txt,%num) == $null) { halt }
      splay $findfile(%dir,$read(PlayList.txt,%num),1)
      var %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Emp3 13 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
  }
}

dialog SC {
  title "Canales"
  size -1 -1 80 90
  option dbu

  box "Canales", 1, 2 2 76 60
  list 2, 3 10 74 52, sort
  edit "", 3, 2 65 76 10
  button "Agregar", 4, 10 78 25 10, flat
  button "Ovejas", 5, 43 78 25 10, flat
}

on *:DIALOG:SC:init:0: {
  var %SC 1
  while (%SC <= $lines(chans.txt)) { did -a SC 2 $read(chans.txt,%SC) | inc %SC }
}

on *:dialog:SC:sclick:*:{
  if $did = 4 {
    var %chan = $did(SC,3) | if (%chan == $null) return | if ($left(%chan,1) != $chr(35)) %chan = $chr(35) $+ %chan 
    did -a SC 2 $iif(%key,%key,%chan) | write -a Chans.txt %chan | did -r SC 3
  }
  if $did = 5 {
    if ($did(2).sel == $null) return | var %line = $did(2).sel, %text = $did(2,%line) | did -d SC 2 $did(2).sel | write -ds $+ %text chans.txt
  }
}

dialog Spam {
  title "Spam"
  size -1 -1 80 42
  option dbu

  radio "", 1, 2 2 9 10
  radio "", 2, 2 12 9 10
  radio "", 3, 2 22 9 10
  radio "", 4, 2 32 9 10
  Text "Algunos Canales", 5, 12 2 40 8
  Text "Cada Canal", 6, 12 12 30 8
  Text "Canal Activo", 7, 12 22 30 8
  Text "Fuera", 8, 12 32 30 8
}

on *:DIALOG:Spam:init:0: {
  did -c Spam %Spam
}

on *:dialog:Spam:sclick:*:{
  if ($did(1).state) { set %Spam 1 }
  if ($did(2).state) { set %Spam 2 }
  if ($did(3).state) { set %Spam 3 }
  if ($did(4).state) { set %Spam 4 }
}

alias spam {
  if (%spam == 1) {
    var %chan 1
    while (%chan <= $lines(chans.txt)) { msg $read(chans.txt,%chan) 12�14{15SharkFM14:15 $Replace($remove($nopath($insong.fname)$1-,.mp3),-,12-15) $+ 14}12� �14{15Length14:15 $Replace(%Length,:,12:15) $+ 14}12� | inc %chan }
  }
  if (%spam == 2) {
    amsg 12�14{15SharkFM14:15 $Replace($remove($nopath($insong.fname)$1-,.mp3),-,12-15) $+ 14}12� �14{15Length14:15 $Replace(%Length,:,12:15) $+ 14}12�
  }
  if (%spam == 3) {
  msg $active 12�14{15SharkFM14:15 $Replace($remove($nopath($insong.fname)$1-,.mp3),-,12-15) $+ 14}12� �14{15Length14:15 $Replace(%Length,:,12:15) $+ 14}12� }
  if (%spam == 4) {
    Halt
  }
}

dialog Play {
  title "Control"
  size -1 -1 80 22
  option dbu

  radio "", 1, 2 2 9 10
  radio "", 2, 2 12 9 10
  Text "Directorio", 3, 12 2 40 8
  Text "Mp3 Lista", 4, 12 12 30 8

}

on *:DIALOG:Play:init:0: {
  did -c Play %play
}

on *:dialog:Play:sclick:*:{
  if ($did(1).state) { 
    set %play 1 
    did -r Emp3 30
  var %num $findfile(%dir, *.mp3,0,did -a Emp3 30 $nopath($1-)) }
  if ($did(2).state) { 
    set %play 2 
    did -r Emp3 30
    var %PL 1
    while (%PL <= $lines(PlayList.txt)) { did -a Emp3 30 $Nopath($read(PlayList.txt,%PL)) | inc %PL }
  }
}

dialog PList {
  title "Mp3 Lista"
  size -1 -1 180 90
  option dbu

  box "Directorio", 1, 2 2 76 85
  list 2, 3 10 74 80, sort

  box "Mp3 Lista", 3, 102 2 76 85
  list 4, 103 10 74 80, sort

  button ">>", 5, 80 30 20 10, flat
  button "<<", 6, 80 45 20 10, flat

}

on *:DIALOG:PList:init:0: {
  var %PL 1
  while (%PL <= $lines(PlayList.txt)) { did -a PList 4 $Nopath($read(PlayList.txt,%PL)) | inc %PL }
  var %Direct 1
  while (%Direct <= $lines(Mp3.txt)) { did -a PList 2 $Nopath($read(Mp3.txt,%Direct)) | inc %Direct }
}

on *:dialog:PList:sclick:*:{
  if $did = 5 {
    var %line = $did(2).sel, %text = $did(2,%line)
    if ($read(playlist.txt, w, * $+ %Text $+ *) != $null) { Halt }
    did -a PList 4 %text | write -a PlayList.txt %text
  }
  if $did = 6 {
    if ($did(4).sel == $null) return | var %line = $did(4).sel | set %text $did(4,%line) | did -d PList 4 $did(4).sel | write -dw $+ " $+ %text $+ " PlayList.txt
  }
}

Sharky_Dude

Like Page Follow Author

Comments

Sign in to comment.
VxD aka DEATHJ0KER   -  Sep 27, 2011

es---> Usted podría decir... muy bueno... pero usted podría embellecer gráficamente parlado... en todo caso es un buen jugador

en---> You might say ... very good ... but you could embellish graphically parlado ... in any case it is a good player

 Respond  
TiMmU   -  Jul 07, 2011

Felicidades, muy buen aporte, lo probé y funciona correctamente saludos

 Respond  
blackvenomm666   -  Jun 10, 2011

:D

 Respond  
blackvenomm666   -  Jun 10, 2011

i know

 Respond  
Sharky_Dude   -  Jun 10, 2011

Thanks, I had help though, not all me. xD

 Respond  
blackvenomm666   -  Jun 10, 2011

dont understand spanish but the coding looks good man.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.