MP3 EN SWITCHBAR ( LEFT )

;----------------( Les Alias )---------------- 

alias ktools { return dll dll\ktools.dll }
alias lag { if ($status != disconnected) { .ctcpreply $me lag $ticks } } 
alias mdx { return dll $scriptdir\mdx.dll }
alias ctl_gen { return dll\ctl_gen.mdx }
alias lagbar { reso | dialog -m mp3 mp3 }
alias reso {
  if ( ( $window(-1).w >= 1024 ) && ( $window(-1).h >= 768 ) ) { 
    set %resolution 810
  }
  else {
    set %resolution 580
  }
}

;----------------( Les Echos )----------------

on *:ping: { .lag }
on *:connect:{ .lag }
on *:disconnect:{ .lag }
on *:active:*:{ .lag }
on *:ctcpreply:lag &:{ 
  if ($nick == $me) && ($2 isnum) { 
    haltdef 
    did -ra mp3 8 $int($calc($calc($ticks - $2) / 200)) | did -ra mp3 19 $calc(($ticks - $2) / 1000) sec  
  } 
}

alias m dialog -md mp3 mp3
alias m+ dialog -x mp3 mp3
dialog mp3 {
  title "->( Mp3 )<-"
  size -1 -1 113 682
  option pixels
  icon icones/mp3.ico, 0
  list 5, 4 69 104 218, size extsel
  check "Mode discret", 999, 19 369 82 16, flat
  button "Play", 1, 2 326 54 18, flat
  button "Stop", 2, 57 326 54 18, flat
  button "Pause", 3, 57 346 54 18, flat
  button "Resumer", 4, 2 346 54 18, flat
  button "Choisir le repertoire", 7, 2 306 108 18, flat
  button "Femer", 18, 270 283 65 15, ok
  edit "", 12, 0 404 109 21
  list 13, 0 424 111 187, size vsbar
  button "Ajouter", 14, 20 386 75 17, flat
  button "Supprimer", 15, 0 611 51 17, flat
  button "Utiliser", 16, 53 611 60 17, flat
  text " Lag :", 6, 4 8 33 16
  text "", 8, 2 30 97 19
  text " 0 sec", 19, 71 54 36 14
  button "+", 9, 2 290 37 15
  button "-", 10, 74 290 37 15
}



on *:dialog:mp3:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetControlMDX $dname 1,2 treeview haslines hasbuttons linesatroot insertdroptarget > $scriptdir\\dll\\views.mdx
  dll mdx.dll SetDialog $dname style tool
  dll mdx.dll SetBorderStyle $dname 1,2 border 
  dll mdx.dll SetControlMDX $dname 8 ProgressBar smooth > $ctl_gen
  dll mdx.dll SetFont $dname 1,2 +a 15 300 comic sans ms

  dll mdx.dll SetDialog $dname bgcolor $rgb(0,0,0)
  dll mdx.dll SetColor $dname 6 text $rgb(64,255,255)
  dll mdx.dll SetColor 6 background $rgb(000,000,000)
  dll mdx.dll SetColor 6 Textbg $rgb(000,000,000)
  dll mdx.dll SetColor $dname 19 text $rgb(64,255,255)
  dll mdx.dll SetColor 19 background $rgb(000,000,000)
  dll mdx.dll SetColor 19 Textbg $rgb(000,000,000)
  dll mdx.dll SetColor $dname 999 text $rgb(64,255,255)
  dll mdx.dll SetColor 999 background $rgb(000,000,000)
  dll mdx.dll SetColor 999 Textbg $rgb(000,000,000)
  dll mdx.dll SetColor $dname 12 text $rgb(64,255,255)
  dll mdx.dll SetColor 12 background $rgb(000,000,000)
  dll mdx.dll SetColor 12 Textbg $rgb(000,000,000)
  dll mdx.dll SetColor $dname 5 text $rgb(64,255,255)
  dll mdx.dll SetColor 5 background $rgb(000,000,000)
  dll mdx.dll SetColor 5 Textbg $rgb(000,000,000)
  dll mdx.dll SetColor $dname 13 text $rgb(64,255,255)
  dll mdx.dll SetColor 13 background $rgb(000,000,000)
  dll mdx.dll SetColor 13 Textbg $rgb(000,000,000)

  dll mdx.dll SetFont mp3 5 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 13 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 999 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 1 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 2 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 3 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 4 +abg 16 400 comic sans ms
  dll mdx.dll SetFont mp3 5 +abg 16 400 comic sans ms


  dll dll\\ktools.dll DockWindow $dialog(mp3).hwnd > left
  %x = $findfile(%mp3,*.mp3,0,did -a mp3 5 $nopath($1-))
  if ( %discretmp3 == oui ) { did -c $dname 999 }
  var %cpt = 1, %total = $ini(mp3.ini,0)
  while %cpt <= %total {
    did -a mp3 13 $ini(mp3.ini,%cpt)
    inc %cpt
  }
}


on *:dialog:mp3:sclick:16:{ 
  nick $did(13).seltext
}  

on 1:dialog:mp3:sclick:15:{
  if  $did(13).sel != $null {
    remini mp3.ini  $did(13).seltext
    did -d mp3 13 $did(13).sel
  }
}


on *:dialog:mp3:sclick:999:{
  if ( $did(999).state == 1 ) { set %discretmp3 oui }
  else { set %discretmp3 non }
}
on 1:dialog:mp3:sclick:*:{ 
  if ($did == 1) { 
    if ( %discretmp3 == oui ) { //splay stop | //splay " $+ $findfile(%mp3,$did(mp3,5).seltext,1) $+ " | echo -a 12( 14J'ecoute 12) ( 14Titre : $mp3($insong.fname).title 12) ( 14Durée : $duration($calc($sound($insong.fname).length / 1000)) 12) ( 14Taille :  $Round($Calc($Lof($insong.fname) / 1048576),2) $+ Mo 12) ( 14Kbps $sound($insong.fname).bitrate 12) }
    else { //splay stop | //splay " $+ $findfile(%mp3,$did(mp3,5).seltext,1) $+ " | msg $active  2[ 4. 2J'ecoute => Titre : %Mp3.Dir $did(5).seltext <=  Durée : $duration($calc($sound($insong.fname).length / 1000)) 4. 2]   }
  }
  if ($did == 2) { //splay stop }
  if ($did == 3) { //splay pause }
  if ($did == 4) { //splay resume }
  if ($did == 7) { //set %mp3 $sdir="->( Choisie le dossier Mp3 )<-" | var %x = $findfile(%mp3,*.mp3,0,did -a mp3 5 $nopath($1-)) }
  if ($did == 9) { vol -p $calc($vol(mp3) + 5000) }
  if ($did == 10) { vol -p $calc($vol(mp3) - 5000) }
  if ($did == 14) { 
    if $did(12) != $null {
      did -a mp3 13 $did(12)
      writeini mp3.ini $did(12) ligne -
    }
  }
}


on *:dialog:mp3:*:*:{
  if ($devent == sclick) && ($did(3).state == 1) { set %mp3close ON }
  if ($devent == sclick) && ($did(3).state == 0) { set %mp3close OFF }
  if ($devent == sclick) && ($did(7).state == 1) { .enable #mp3 } { .disable #mp3 }
  if ($devent == sclick) && ($did(8).state == 1) { .disable #mp3 } { .enable #mp3 }
  if ($devent == sclick) && ($did(4).state == 1) { .set %mp3mess ON }
  if ($devent == sclick) && ($did(4).state == 0) { .set %mp3mess OFF }
  if ($devent == init) && ($group(#mp3) == on) { did -c mp3 7 }
}

On 1:start:{
  /m | Echo -s 12Le MP3 se LOad patiente...
}

ON *:LOAD:{
  echo -a 4Voila le MP3 switch Loader By NaNo 
  echo -a BmBmx@wanadoo.fr pour tout les bugs ;)
}