Lecteur mp3 en pickwin (modifier)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 837 fois - Téléchargée 26 fois

Contenu du snippet

Un lecteur différent de tous les autre lecteur en dialog.
Il n'est toujours pas fini... Il y a juste une chose en plus, le nom du mp3...

Source / Exemple :


On *:load:{ if ($version != 6.03) { echo -a Votre version est différente de la 6.03, je ne sais pas si le lecteur fonctionne... tapez /lectmp3 }
  else { echo -a Lecteur Mp3 Charger | lectmp3 }
}
alias Lectmp3 {
  window -odapBk0z +dL @mp3 10 10 180 120 | drawrect @mp3 1 1 19 104 141 15 | drawrect @mp3 1 1 0 0 180 335 | drawrect @mp3 1 1 0 0 180 10 | drawrect @mp3 1 1 0 0 162 10 | drawtext @mp3 1 Arial 8 172 0 X | drawtext @mp3 1 Arial 9 164 -3 _ | drawtext @mp3 1 Tahoma 8 14 0 Lecteur MP3 par Tom_mlkj | drawrect -f @mp3 1 1 26 57 30 15 | drawrect -f @mp3 1 1 59 57 30 15 | drawrect -f @mp3 1 1 92 57 30 15 | drawrect -f @mp3 1 1 65 25 52 15 | drawrect -f @mp3 1 1 125 57 30 15 | drawrect @mp3 1 1 73 88 34 15 | drawline @mp3 1 1 19 95 73 95 | drawline @mp3 1 1 106 95 160 95 | drawtext @mp3 0 Tahoma 11 75 25 Dossier | drawtext @mp3 0 Tahoma 10 32 58 Play | drawtext @mp3 0 Tahoma 10 61 58 Pause | drawtext @mp3 0 Tahoma 10 131 58 Stop | drawtext @mp3 0 Tahoma 8 93 60 Resume | window -apoBk0dslL +deL @pl 10 130 180 200 arial 12 | 
  var %a = $findfile(%dossier,*.mp3*,0,1, aline -p 10 @pl $nopath($1-))
}
menu @mp3 {
  mouse { 
    if ($mouse.x >= 59) && ($mouse.x <= 89) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 59 57 30 15 | drawtext @mp3 1 Tahoma 10 61 58 Pause } 
    else { drawrect -f @mp3 1 1 59 57 30 15 | drawtext @mp3 0 Tahoma 10 61 58 Pause } 
    if ($mouse.x >= 26) && ($mouse.x <= 56) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 26 57 30 15 | drawtext @mp3 1 Tahoma 10 32 58 Play } 
    else { drawrect -f @mp3 1 1 26 57 30 15 | drawtext @mp3 0 Tahoma 10 32 58 Play }
    if ($mouse.x >= 92) && ($mouse.x <= 121) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 92 57 30 15 | drawtext @mp3 1 Tahoma 8 93 60 Resume } 
    else { drawrect -f @mp3 1 1 92 57 30 15 | drawtext @mp3 0 Tahoma 8 93 60 Resume } 
    if ($mouse.x >= 125) && ($mouse.x <= 154) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 125 57 30 15 | drawtext @mp3 1 Tahoma 10 131 58 Stop } 
    else { drawrect -f @mp3 1 1 125 57 30 15 | drawtext @mp3 0 Tahoma 10 131 58 Stop } 
    if ($mouse.x >= 65) && ($mouse.x <= 116) && ($mouse.y >= 25) && ($mouse.y <= 39) { drawrect -f @mp3 0 0 65 25 52 15 | drawtext @mp3 1 Tahoma 11 75 25 Dossier } 
  else { drawrect -f @mp3 1 1 65 25 52 15 | drawtext @mp3 0 Tahoma 11 75 25 Dossier } }
  sclick {
    if ($mouse.y < 20) Lectmp3.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
    if ($inrect($mouse.x,$mouse.y,169,1,10,9)) { window -c @mp3 | window -c @pl | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,164,0,10,9)) { window -c @mp3 | window -c @pl | reduc }
    if ($inrect($mouse.x,$mouse.y,26,57,30,15)) { if ( %playlectmp3 != $null ) { splay -p %playlectmp3 | set %lectmpause 0 | .timer 0 1 lectmp3tps
        drawrect -f @mp3 10 10 20 105 139 13  
    drawtext @mp3 1 Tahoma 10 22 105 $left( $+ $nopath( $+ $insong.fname $+ ) $+ ,25) $+ ... } }
    if ($inrect($mouse.x,$mouse.y,125,57,30,15)) { splay stop | drawrect -f @mp3 10 10 74 89 32 13 | drawrect -f @mp3 10 10 20 105 139 13 | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,59,57,30,15)) { if ($insong == $true) { splay pause | set %lectmpause 1 } }
    if ($inrect($mouse.x,$mouse.y,92,57,30,15)) { if (%lectmpause == 1) { splay resume | set %lectmpause 0 } }
    if ($inrect($mouse.x,$mouse.y,65,25,51,14)) {   
      if ($window(@pl)) {
        %dossier = $sdir(*.*,Choisir le dossier,OK!)
        clear @pl
      var %a = $findfile(%dossier,*.mp3*,0,1, .aline -p 10 @pl $nopath($1-)) }
    }
  }
}
On *:close:@mp3:{ unset %lectmpause } 
alias reduc { window -odapBk0z +dL @reduc 0 300 5 90 |  drawfill @reduc 10 10 1 1 |  drawtext @reduc 0 Tahoma 10 2 0 L |  drawtext @reduc 0 Tahoma 10 2 8 E |  drawtext @reduc 0 Tahoma 10 1 16 C |  drawtext @reduc 0 Tahoma 10 2 24 T |  drawtext @reduc 0 Tahoma 10 2 32 E |  drawtext @reduc 0 Tahoma 10 1 40 U |  drawtext @reduc 0 Tahoma 10 2 48 R |  drawtext @reduc 1 Tahoma 10 2 60 M |  drawtext @reduc 1 Tahoma 10 3 68 P |  drawtext @reduc 1 Tahoma 10 3 76 3 }
menu @reduc { 
sclick { window -c @reduc | lectmp3 } }
alias lectmp3tps { if ($window(@mp3)) && ($insong != $false) { set %tpslectmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) | titipopo  } }
alias titipopo {  %tpslectmp3 = $replace( %tpslectmp3 ,secs,) |  %tpslectmp3 = $replace( %tpslectmp3 ,mins, :) |  %tpslectmp3 = $replace( %tpslectmp3 ,sec,) |  %tpslectmp3 = $replace( %tpslectmp3 ,min, :) |  %tpslectmp3 = $replace( %tpslectmp3 , ,) |  drawrect -f @mp3 10 10 74 89 32 13 |  drawtext -p @mp3 1 Tahoma 9 80 90 1,10 $+ %tpslectmp3 }
menu @pl {
dclick {    set %playlectmp3 %dossier $+ $sline(@pl,1)  } }
alias -l Lectmp3.move { if ($window(@mp3)) window @mp3 $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($window(@pl)) window @pl $calc($mouse.dx - $1 - -0) $calc($mouse.dy - $2 - -120) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 Lectmp3.move $1- }

A voir également

Ajouter un commentaire Commentaires
Messages postés
152
Date d'inscription
lundi 28 février 2005
Statut
Membre
Dernière intervention
3 novembre 2006

Une tite erreur... Quand on met plusieurs titres dans le mp3, et que l'on veu jouer le 2ème par exemple, il joue le premier...
Pareil pour les autres titres :p
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

yen a un qué super bien fé je c pa si tu conné c argh-amp
http://pages.cthome.net/pdufilie/irc.html
Messages postés
29
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
4 août 2003

il est pas encore sortie, mais sa arrive
Messages postés
261
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
12 janvier 2010

lé cool ton lecteur ;)
O fait , c koi ton script tom?
Messages postés
29
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
4 août 2003

pour l'aide de mIRC sur les @window, /help /window
Afficher les 13 commentaires

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.