LECTEUR MP3 AVEC AUTO DCC

;##ALIAS##

alias m { dialog -dm m m }

;##MENU-BAR##

menu * {
  -
  Lecteur de Mp3:dialog -dm m m
  -
}

;##DIALOG+SCLICK##

dialog M {
  title "LeCtEuR Mp3 [Par DrAgOoN1]"
  size -1 -1 398 426
  option pixels
  box "Liste des Mp3", 1, 7 11 381 203
  box "Option", 2, 156 221 233 74
  button "Lecture", 3, 163 244 54 25, flat
  button "Pause", 4, 276 244 54 25, flat
  button "Stop", 5, 217 244 54 25, flat
  button "Repertoire", 6, 26 242 106 38, flat
  box "Repertoire", 7, 6 221 145 74
  list 9, 19 32 362 171, size
  button "Reprendre", 10, 330 244 54 25, flat
  box "Info", 11, 6 303 383 84
  edit "", 12, 50 318 330 21, read autohs
  edit "", 13, 50 338 330 21, read autohs
  edit "", 14, 50 358 330 21, read autohs
  text "Nom", 15, 11 321 33 16
  text "Temps", 16, 11 339 37 16
  text "Taille", 17, 11 359 37 16
  button "Fermer", 8, 6 392 383 25, flat cancel
  box "AiDe", 25, 401 12 190 403
  edit "1) Choisissez le repertoire de vos Mp3                                                 2)Choisissez le mp3 que vous vouler ecouter , choisiser Lecture pour le lir. Aller de le menu Lecture pour lire le fichier mp3 sans message                                         3)Appuiez sur stop,pause,reprendre pour modifier la lecture                                        4)Aller dans le menu Option et chhoisisser volume pour le regler.        Bonne Amusement !!!!!!                                                                                       DRAGOON1", 39, 410 30 173 208, read multi
  edit "Script cree par DrAgOoN1 ( aide de Kolibot ) Merci de ne pas copier,modifier ou le metre dans un script que vous aller publier                    MERCI                                       Dragoonlegrand@hotmail.com                                                                  Ps:PaPa-NoEl WaS A PuNk", 91, 410 252 173 122, read multi
  button "Fermer", 65, 411 382 172 25, flat
  menu "Option", 18
  item "Repertoire", 21 
  item "Volume", 22
  item "Quitter", 30
  menu "Lecture", 19
  item "Lecture", 23
  item "Stop" , 26
  item "Pause" , 29
  item "Reprendre" , 27
  menu "?", 20
  item "Aide", 24
  item "A props de" , 28
}
on *:dialog:m:*:*:{
  if $devent == init {
    $findfile(%Mp3.Dir,*.mp3,0,did -a M 9 $remove($1-, %Mp3.Dir))
    dll mdx.dll SetMircVersion $version 
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 text $rgb(000,103,248)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 textbg $rgb(000,000,000)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 background $rgb(000,000,000)
  }
  if $devent == menu || $devent == sclick {
    if $did == 65 { dialog -s M -1 -1 398 450 }
    if $did == 28 {   dialog -s M -1 -1 603 450 }
    if $did == 24 {   dialog -s M -1 -1 603 450 }
    if $did == 22 { dialog -dm vol vol }
    if $did == 27 { Splay play %Mp3.Dir $+ $did(m,9).seltext }
    if $did == 25 || $did == 5 { Splay pause }
    if $did == 26 || $did == 4 { Splay Stop }
    if $did == 23 || $did == 3 {
      %Mp3.Play = %Mp3.Dir $+ $Did(M,9).Seltext
      %Mp3.Say = $Did(M,9).Seltext
      %Mp3.Lenght = $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
      %Mp3.Megs = $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
      did -ra m 12 %mp3.say
      did -ra m 13 %mp3.lenght
      did -ra m 14 %mp3.megs
      splay %Mp3.Dir $+ $did(m,9).seltext
      msg $active  12- 4[ 12EcOuTe 4] 12- 4[ 12  %Mp3.Say  4] 12- 4[ 12 %Mp3.Lenght  4] 12- 4[ 12 %mp3.megs  4] 12- 4[12Mp34 - 12DrAgOoN1 4] 12-
    }
    if $did == 30 { dialog -x m m }
    if $did == 21 || $did == 6 { 
      dialog -x m m
      %mp3.dir = $sdir(C:\_Div-X\,Choisis Fichier,Ouvrir)
      dialog -dm m m
    }
  }
}

;##AUTO-DCC##

on *:text:!Music*:?:{ dcc send $nick %mp3.play }

;##VOLUME##

alias v { dialog -dm vol vol }
dialog Vol {
  title "VoLuMe PaR DrAgOoN1"
  size -1 -1 110 27
  option dbu
  button "+", 1, 3 8 37 12, flat
  button "-", 2, 71 8 37 12, flat
  edit "", 3, 45 9 22 10, read
}
on *:dialog:vol:*:*:{
  if $devent == init { 
    did -a vol 3 $Int($Calc( $Vol(Wave) / 1300 )) 
    dll mdx.dll SetMircVersion $version 
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
    dll mdx.dll SetColor $dname 3 text $rgb(000,103,248)
    dll mdx.dll SetColor $dname 3 textbg $rgb(000,000,000)
    dll mdx.dll SetColor $dname 3 background $rgb(000,000,000)
  }
  if $devent == sclick {
    if $did == 2 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 - 1300) | if %Volume < 1 { var %Volume = 0 } }
    if $did == 1 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 + 1300) | if %Volume > 65000 { var %Volume = 65000 } }
    if $did == 1 || $did == 2 { vol -w %Volume  | did -ra vol 3 $int($calc( $vol(wave) / 1300 )) }
  }
}

;##FIN##