PETIT LECTEUR MP3

;;;;;Mp3 PLayer Dialog;;;

menu status,channel {
  -
  Mp3 :
  .Lancer:/mp3
  .Afficher:/dialoga
  .Masquer:/dialogm
}

alias dialogm {
  .set %y 85
  if ( %mode == on ) { 
    .timerinftitle 0 1 .mp3tpsenroule
  .timermasker 85 0.1 .enroule }
}

alias dialoga {
  .set %y 0
  if ( %mode == on ) { 
  .timerafficher  95 0.1 .deroule }
  .timerinftitle off
  .dialog -t  mp3 mp3  - Huitre 
  .timerinfo 0 1 .mp3tps 
}

alias mp3 {
  dialog -hm MP3 MP3
}

alias son_txt {
  /write $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  $1-
  did -a mp3 1 $nopath($1-) 
}

alias deroule {
  .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y  100 %y
  .set %y $calc( %y + 1 ) 
}

alias enroule {
  .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y  100 %y
  .set %y $calc( %y - 1 ) 
}

alias mp3tpsenroule {
  .timerinfo off
  set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
  .dialog -t  mp3 mp3 :[ %tpsmp3 ]:
  if ( %tpsmp3 == 0 ) { .timerinftitle off }
}

alias mp3tps {
  set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
  did -a mp3 40  :[ $iif( $mp3($insong.fname).title == $null , No Title,$mp3($insong.fname).title ) - %tpsmp3 ]:
  if ( %tpsmp3 == 0 ) { .timerinfo off }
}

dialog  MP3 {
  title "Mp3 - Huitre"
  size -1 -1 100 85 
  option dbu

  list 1,5 5 90 60

  box "info",40,0 75 100 30
  button "ok",100, 200 1000 1 1,ok
  button "cancel",200, 100 1000 1 1,cancel
  button "Play",2,5 63 16 10
  button "Stop",3,26 63 16 10
  button "Boucle",4,46 63 18 10
  button "Add",5,68 63 15 10
  button "+",6,88 63 5 5
  button "-",7,88 68 5 5

  menu "mode",9
  menu "Mode continu",30,9
  item "On",31,30,9
  item "Off",32,30,9
  menu "Mode aleatoire",41,9
  item "On",33,41,9
  item "Off",34,41,9
  menu "Mode silencieux",50,9
  item "On",35,50,9
  item "Off",36,50,9

  menu "Repertoire",10
  item "Choisir le repertoire",11,10
  item "Ajouter un repertoire",12,10

  menu "Credits",92
  item "About",91,92

}

dialog Credits {
  title "Credits"
  size -1 -1 70 47
  option dbu
  text "Huitre Audio Media Player",99, 5 5 100 12
  text "crée par Huitre",97,16 35 100 12
  text "Kewl.random.org:6667",96, 5 17 60 12
  text "#universjeux",98, 5 24 40 12
  button "Ok",1,133 4 15 43,ok
}

on *:dialog:mp3:menu:91 {
dialog -m Credits Credits }

on *:dialog:mp3:menu:11 {
  remove   $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) 
  set %dir $sdir(E:\anime,Repertoire des Mp3)
  did -r mp3 1
  $findfile(%dir,*.mp3,0,son_txt $1-)
}

on *:dialog:mp3:menu:12 {
  set %addir $sdir(E:\anime,Repertoire des Mp3)
  $findfile(%addir,*.mp3,0,son_txt $1-)
}

on *:dialog:mp3:sclick:1 {
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  , %zik_num)
}

on *:dialog:mp3:dclick:1 {
  set %boucle off
  /splay -p stop
  set %zik_num  $did(mp3,1).sel
  set %zik $read(mp3.txt , %zik_num)
  /splay -p %zik
  /timerinfo off
  /timerinfo 0 1 mp3tps
  if ( %silence == off ) {
    msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
  }  
}

on *:dialog:mp3:rclick:1 {
  msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
}

on *:dialog:mp3:sclick:3 {
  set %boucle off
  /splay -p stop %zik
}

on *:dialog:mp3:sclick:2 {
  set %boucle off
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
  /splay  %zik 
}

on *:dialog:mp3:sclick:4 {
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
  set %boucle on
  /splay -p %zik2
}

on *:dialog:mp3:sclick:5 {
  var %addmp3 $sfile(E:\anime\,Nom du mp3,Ajouter)
  /write $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  %addmp3
/did -a MP3 1 $nopath(%addmp3)  }

on *:dialog:mp3:sclick:6 {
//vol -v $calc( $vol(master) + 1000 ) }

on *:dialog:mp3:sclick:7 {
//vol -v $calc( $vol(master) - 1000 ) }

on *:dialog:mp3:menu:31 {
  set %aleatoire off
set %continu on }

on *:dialog:mp3:menu:32 {
  set %aleatoire off
set %continu off }

on *:dialog:mp3:menu:33 {
  set %continu off 
set %aleatoire on }

on *:dialog:mp3:sclick:34 {
  set %continu off 
set %aleatoire off }

on *:dialog:mp3:menu:35 {
set %silence on }

on *:dialog:mp3:menu:36 {
set %silence off }

on *:dialog:MP3:init:0: {
  .set %mode on
  /echo merci d' utiliser Huitre Amp - %crt
  if ( $exists( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) {
    set %crt Made by Huitre
    set %dir $sdir(E:\anime,Repertoire des Mp3)
    $findfile(%dir,*.mp3,0,son_txt $1-) 
  }
  else { 
    /write -c mp3.txt 
    $findfile(%dir,*.mp3,0,son_txt $1- )
  }
}

on *:dialog:MP3:close:0: {
  .set %boucle off
  .set %mode off
  /splay -p stop %zik
  /echo merci d' avoir utilisé Huitre Amp - %crt
  .timerinfo off
  .timerinftitle off
/write -c $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  }

on *:MP3END: {
  /timerinfo off
  if ( %continu == on ) {
    .set %boucle off
    inc %zik_num 1
    if ( %zik_num > $lines( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  )  ) {
      .set %zik_num 1 
    }
    .set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
    /timerinfo off
    /splay -p %zik
    /timerinfo 0 1 /mp3tps
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }  
  }
  if  ( %aleatoire == on ) {
    set %boucle off
    set %zik $read($chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34))
    /timerinfo off
    /splay  -p %zik
    /timerinfo 0 1 /mp3tps
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }  
  }
  if ( %boucle == on ) { 
    /splay -p %zik 
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }
  }
  else { halt }
}