Mp3 en switchbar ( left )

Commenter

Contenu du snippet

bah voila c'est un MP3 avec quelque Options, encastrer dans MIRC qui évite de toujour ouvrir son MP3... moi personélement j'adore lool :D

Source / Exemple : 


;----------------( 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 ;)
}

Conclusion :


wala :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (NaNo45)