Lecteur mp3

Commenter

Contenu du snippet

Petit lecteur mp3 sympas sans dll
Fonctionne sur tout les mIRC

Source / Exemple : 


;---------------------------------------------------------------------------------------By MenZo--------------------------------------------------------------------------------------
;------------------------------------------------------------------------- m3n2o@hotmail.com ----------------------------------------------------------------------------
alias mp3 { dialog -dm mp3 mp3 }
on 1:LOAD: echo -a 12Chargement du Lecteur mp3 réussi ,By m3n2o...
Dialog Mp3 {
  title "Lecteur MP3 by m3n2o"
  size -1 -1 376 325
  tab "Liste des MP3", 1, 2 2 370 298
  list 2, 10 30 360 225, tab 1 size vsbar , hsbar , multi , sort
  button "Lecture", 3, 10 262 90 25,tab 1
  button "Arret", 6, 110 262 90 25,tab 1
  button "Pause", 4, 210 262 90 25,tab 1
  tab "Config",17
  button "+", 12, 205 247 20 20, tab 17
  button "-", 13, 145 224 20 20, tab 17
  box "", 10, 141 214 88 56, tab 17
  edit "", 11, 167 234 36 21, disable tab 17 read autohs center
  box "Volume", 18, 126 199 118 86, tab 17
  button "Rafraichir le répertoire", 7, 126 168 110 25, tab 17
  text "Repertoire actuel de tes mp3:",8, 20 133 250 30,tab 17 
  button "Changer", 15, 280 168 80 25,tab 17
  box "Répertoire:", 14, 5 118 365 80,tab 17
  box "Couleurs", 19, 5 27 365 80,tab 17
  combo 20, 15 76 80 180, result tab 17 drop
  text "Couleur du texte",21, 15 42 250 14,tab 17 
  combo 22, 110 76 80 180, result tab 17 drop
  text "Couleur des [ ]",23, 110 42 250 14,tab 17
  button "Fermer", 16, 3 299 370 25, ok

}
On *:Dialog:Mp3:Init:0: {
  Mp3List
  Did -ra Mp3 8 Répertoire actuel de tes mp3: %Mp3.Dir
  Did -ra Mp3 11 $Int($Calc( $Vol(Wave) / 1300 ))
  did -a Mp3 20,22 Blanc
  did -a Mp3 20,22 Noir
  did -a Mp3 20,22 Bleu Foncé
  did -a Mp3 20,22 Vert Foncé
  did -a Mp3 20,22 Rouge
  did -a Mp3 20,22 Marron
  did -a Mp3 20,22 Violet
  did -a Mp3 20,22 Orange
  did -a Mp3 20,22 Jaune
  did -a Mp3 20,22 Vert Clair
  did -a Mp3 20,22 Vert Anglais
  did -a Mp3 20,22 Cyan
  did -a Mp3 20,22 Bleu Clair
  did -a Mp3 20,22 Rose
  did -a Mp3 20,22 Gris Foncé
  did -a Mp3 20,22 Gris Clair
  if (%Mp3.color == 0 ) { did -c Mp3 20 1 }
  if (%Mp3.color == 1 ) { did -c Mp3 20 2 }
  if (%Mp3.color == 2 ) { did -c Mp3 20 3 }
  if (%Mp3.color == 3 ) { did -c Mp3 20 4 }
  if (%Mp3.color == 4 ) { did -c Mp3 20 5 }
  if (%Mp3.color == 5 ) { did -c Mp3 20 6 }
  if (%Mp3.color == 6 ) { did -c Mp3 20 7 }
  if (%Mp3.color == 7 ) { did -c Mp3 20 8 }
  if (%Mp3.color == 8 ) { did -c Mp3 20 9 }
  if (%Mp3.color == 9 ) { did -c Mp3 20 10 }
  if (%Mp3.color == 10 ) { did -c Mp3 20 11 }
  if (%Mp3.color == 11 ) { did -c Mp3 20 12 }
  if (%Mp3.color == 12 ) { did -c Mp3 20 13 }
  if (%Mp3.color == 13 ) { did -c Mp3 20 14 }
  if (%Mp3.color == 14 ) { did -c Mp3 20 15 }
  if (%Mp3.color2 == 0 ) { did -c Mp3 22 1 }
  if (%Mp3.color2 == 1 ) { did -c Mp3 22 2 }
  if (%Mp3.color2 == 2 ) { did -c Mp3 22 3 }
  if (%Mp3.color2 == 3 ) { did -c Mp3 22 4 }
  if (%Mp3.color2 == 4 ) { did -c Mp3 22 5 }
  if (%Mp3.color2 == 5 ) { did -c Mp3 22 6 }
  if (%Mp3.color2 == 6 ) { did -c Mp3 22 7 }
  if (%Mp3.color2 == 7 ) { did -c Mp3 22 8 }
  if (%Mp3.color2 == 8 ) { did -c Mp3 22 9 }
  if (%Mp3.color2 == 9 ) { did -c Mp3 22 10 }
  if (%Mp3.color2 == 10 ) { did -c Mp3 22 11 }
  if (%Mp3.color2 == 11 ) { did -c Mp3 22 12 }
  if (%Mp3.color2 == 12 ) { did -c Mp3 22 13 }
  if (%Mp3.color2 == 13 ) { did -c Mp3 22 14 }
  if (%Mp3.color2 == 14 ) { did -c Mp3 22 15 }
}
On *:Dialog:Mp3:Dclick:2: {
  If $Did(Mp3,2).Seltext == $Null {
    Set %Mp3.Erreur Vous N'avez Pas Choisi De Mp3 Dans La Liste
    Dialog -dm Mp3.Erreur Mp3.Erreur
    Halt
  }
  ElseIf $Server == $Null {
    Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
    Set %Mp3.Say $Did(Mp3,2).Seltext
    Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
    Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
    Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
    Echo 0[12Lecteur MP30] 12Tu fait jouer:  $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+  $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+  $+ %Mp3.color2 ]
    Splay %Mp3.Play
  }
  Else {
    Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
    Set %Mp3.Say $Did(Mp3,2).Seltext
    Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
    Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
    Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
    msg $active 12écoute  $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+  $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+  $+ %Mp3.color2 ]
    Splay %Mp3.Play
  }
}
On *:Dialog:Mp3:Sclick:3: {
  If $Did(Mp3,2).Seltext == $Null {
    Set %Mp3.Erreur Tu n'as pas choisi de Mp3 dans la liste
    Dialog -dm Mp3.Erreur Mp3.Erreur
    Halt
  }
  ElseIf $Server == $Null {
    Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
    Set %Mp3.Say $Did(Mp3,2).Seltext
    Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
    Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
    Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
    Echo 0[12Lecteur MP30] 12Tu fait jouer:  $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+  $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+  $+ %Mp3.color2 ]
    Splay %Mp3.Play
  }
  Else {
    Set %Mp3.Play %Mp3.Dir $+ $Did(Mp3,2).Seltext
    Set %Mp3.Say $Did(Mp3,2).Seltext
    Set %Mp3.Lenght $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
    Set %Mp3.Megs $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
    Set %Mp3.Kbps $Mp3(%Mp3.Play).Bitrate Kbps
    msg $active 12écoute  $+ %mp3.color2 [ $+ %Mp3.color %Mp3.Say $+  $+ %Mp3.color2 ][ $+ %Mp3.color %Mp3.Lenght $+  $+ %Mp3.color2 ]
    Splay %Mp3.Play
  }
}
On *:Dialog:Mp3:Sclick:4: {
  Splay Pause
}
On *:Dialog:Mp3:Sclick:6: {
  Splay Stop
}
On *:Dialog:Mp3:Sclick:7: {
  Mp3List
  Did -ra Mp3 8 Répertoire actuel de tes mp3: %Mp3.Dir
}
Alias Mp3List {
  Did -r Mp3 2
  set %Mp3.Recherche " $+ %Mp3.Dir $+ "
  set %Mp3.Temp $Findfile(%Mp3.Recherche,*.Mp3,0, Didtok Mp3 2 C $nopath($1-))
}
On *:Dialog:Mp3:Sclick:8: {
  Set %Mp3.Size 225
  :First
  If %Mp3.Size == 274 {
    Goto End
  }
  Else {
    Inc %Mp3.Size
    Dialog -s Mp3 -1 -1 376 %Mp3.Size
    Goto First
  }
  :End
  Did -b Mp3 8
  Did -e Mp3 9
  Halt
}
On *:Dialog:Mp3:Sclick:9: {
  Set %Mp3.Size 274
  :First
  If %Mp3.Size == 225 {
    Goto End
  }
  Else {
    Dec %Mp3.Size
    Dialog -s Mp3 -1 -1 376 %Mp3.Size
    Goto First
  }
  :End
  Did -e Mp3 8
  Did -b Mp3 9
  Halt
}
On *:Dialog:Mp3:Sclick:15: {
  Set %Mp3.Dir $Sdir="Choisissez Le Repertoire De Vos Mp3!"
}
on *:Dialog:Mp3:Sclick:13:{
  Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 - 1300 ) 
  if ( %Volume < 1 ) {
    var %Volume = 0
  }
  vol -w %Volume 
  did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:Dialog:Mp3:Sclick:12:{
  Var %Volume = $Calc( $Int($Calc( $Vol(Wave) / 1300 )) * 1300 + 1300 ) 
  If ( %Volume > 65000 ) {
    Var %Volume = 65000
  }
  Vol -w %Volume
  Did -ra Mp3 11 $int($calc( $vol(wave) / 1300 ))
}
on *:dialog:Mp3:sclick:*:{
  if $did(Mp3,20).sel == 1 { set %Mp3.color 0 }
  if $did(Mp3,20).sel == 2 { set %Mp3.color 1 }
  if $did(Mp3,20).sel == 3 { set %Mp3.color 2 }
  if $did(Mp3,20).sel == 4 { set %Mp3.color 3 }
  if $did(Mp3,20).sel == 5 { set %Mp3.color 4 }
  if $did(Mp3,20).sel == 6 { set %Mp3.color 5 }
  if $did(Mp3,20).sel == 7 { set %Mp3.color 6 }
  if $did(Mp3,20).sel == 8 { set %Mp3.color 7 }
  if $did(Mp3,20).sel == 9 { set %Mp3.color 8 }
  if $did(Mp3,20).sel == 10 { set %Mp3.color 9 }
  if $did(Mp3,20).sel == 11 { set %Mp3.color 10 }
  if $did(Mp3,20).sel == 12 { set %Mp3.color 11 }
  if $did(Mp3,20).sel == 13 { set %Mp3.color 12 }
  if $did(Mp3,20).sel == 14 { set %Mp3.color 13 }
  if $did(Mp3,20).sel == 15 { set %Mp3.color 14 }
  if $did(Mp3,20).sel == 16 { set %Mp3.color 15 }
  if $did(Mp3,22).sel == 1 { set %Mp3.color2 0 }
  if $did(Mp3,22).sel == 2 { set %Mp3.color2 1 }
  if $did(Mp3,22).sel == 3 { set %Mp3.color2 2 }
  if $did(Mp3,22).sel == 4 { set %Mp3.color2 3 }
  if $did(Mp3,22).sel == 5 { set %Mp3.color2 4 }
  if $did(Mp3,22).sel == 6 { set %Mp3.color2 5 }
  if $did(Mp3,22).sel == 7 { set %Mp3.color2 6 }
  if $did(Mp3,22).sel == 8 { set %Mp3.color2 7 }
  if $did(Mp3,22).sel == 9 { set %Mp3.color2 8 }
  if $did(Mp3,22).sel == 10 { set %Mp3.color2 9 }
  if $did(Mp3,22).sel == 11 { set %Mp3.color2 10 }
  if $did(Mp3,22).sel == 12 { set %Mp3.color2 11 }
  if $did(Mp3,22).sel == 13 { set %Mp3.color2 12 }
  if $did(Mp3,22).sel == 14 { set %Mp3.color2 13 }
  if $did(Mp3,22).sel == 15 { set %Mp3.color2 14 }
  if $did(Mp3,22).sel == 16 { set %Mp3.color2 15 }
}
dialog Mp3.Erreur {
  title "Erreur"
  size -1 -1 211 84
  text Choisit un mp3 avant !, 2, 60 36 388 16
  button "Ok", 3, 4 62 208 19, ok
}

Conclusion :


Pour lancer le lecteur tape /mp3

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 (m3n2o)