CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 21 12:12:18

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

LECTEUR MP3

Information sur la source

Note :
Aucune note

Catégorie :AddOns Classé sous :player, mp3, lecteur, musique, multimédia Niveau :Débutant Date de création :29/01/2003 Date de mise à jour :29/01/2003 04:18:12 Vu :7 339

Auteur : m3n2o

Ecrire un message privé

Site perso

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Petit lecteur mp3 sympas sans dll
Fonctionne sur tout les mIRC

Source

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

;---------------------------------------------------------------------------------------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

Sources du même auteur

JEUX DU SERPENT, STYLE SNAKE NOKIA

SCANNEUR DE CLONES

TOUCHES F

PASSER PAR UN PROXY

Toutes les sources de m3n2o

Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

MP3 PLAYER par BSmax

R-MP3, PETIT LECTEUR DE MP3 par ReMi34

CECI EST UN LECTEUR MP3 RAPIDE par pheonixs93

UN PTI LECTEUR MP3 par ser

ENCORE UN LECTEUR MP3... par Tommlkj

Commentaires et avis

Commentaire de Chose le 16/03/2003 19:05:38

franchement, il est super ! merci

Commentaire de nitro120 le 10/05/2003 00:15:27

la poze marche pa (enfin si mais on peut pa fere reprendre , en gro poze == stop)

Commentaire de GFACTION le 22/02/2004 20:45:28

Incomplet

Commentaire de cedricpcboss le 08/03/2004 20:06:08

Impossible de l'utiliser !
"Veullez entrer un channel valide s'il vous plaît."

Commentaire de Zova le 16/06/2004 20:48:00

Pour reprendre ce qu'a dit nitro 120 il faut rajouter un boutton : "Reprendre" pour que quand le mp3 est en pause tu puisse le remettre en marche sans tout te retapper ; c'est vraiment facil et ça prend pas beaucoup de temps parce que la ton boutton "Pause" sert juste pour la déco. Le fonction de reprise c'est : "splay resume" tu rajoute ça et ton mp3 player pourra enfin être noté :) En attendant de voir la suite je note pas.. bonne continuation. Cordialement Zova

Commentaire de CEREAL_KILLER le 24/07/2004 15:27:12

oh tiens le mp3 de Billy`15....

Commentaire de bibi_81 le 12/09/2004 16:25:35

bouuuu meme si je suis pas tres fort je dis bouuu parceque bien que un lecteur MP3 il DOIT lire les fichier MIDI et WAV moi je vai en faire un qui pourrat les lires :D voila sinon c bien fait surtout quand sa dit se que l'on ecoute

Commentaire de InFerNaLeX le 21/07/2005 23:56:42

Il lis rien du tout ton truc ^^ verifie tes codes avt de les poster y a assez de dechets ici :)

Commentaire de lebaronrouge le 22/10/2005 16:52:18

bauf...en + pas de son le mp3 se lance pas...bref je del

Commentaire de carate le 03/01/2007 14:56:51

pas sympa dut tout vous franchement
vous êtes nul regarde si tout le monde
fait comme vous à angeuler tout le mond c'est nase

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Un mp3 et dcc auto [ par romeomd ] VincentBonjour, je suis a la recher d'un addons, quand qqun va dans mon pv, il fait !Musiquealors la, une liste de musique s'affiche, et il fais son c Pour ceux qui aiment écouter la musique en tchattant [ par Bestdoud ] Cela fait quelque temps que je réalise un lecteur mp3 en picwin. venez le découvrir à l'adresse suivante: http://amigagaamp.free.fr voici ces caract Lecteur MP3 capable de lire des fichiers sons distants [ par cyclopdev ] Voilà un défi :est-il possible de faire un lecteur MP3 capable de lire des fichiers hébergés sur une page web, le tout pas trop lourd et entièrement m Lecteur Mp3 [ par titeuf28310 ] Bonjour,A chaque lecteur mp3 trouver sur le site, meme les mieux noté, fait planter mon script. je comprend pas pourquoi (mon mirc est le 6.16).Il a t probleme avec un remote pr mp3 !!!!!!!! [ par wizord ] alrs voila le pb .... g un remote pr lire les fichier mp3 par input ... je tape par exemple : !mp3 blable et mon remote est chargé de me trouve la mu je voudrai faire un lecteur MP3 et MIDI (si possible) [ par bibi_81 ] Voila jai deja tout di je voudrais faire un lecteur MP >ET< MIDI siouplait ... Deja me demanderez vous le formtat MIDI est peu repandu NON !!moi musique de démarage [ par killersbrothers ] killersbrothersslt!!je pourait savoir comment on met un musique au démarage du script jai completement oublié Probléme fichier mp3 [ par Raziell ] Bonjour à tous,J'ai créé un lecteur mp3, mais je n'arrive pas a faire " lire " mIRC les fichier .mp3 un par un !Si quelqu'un sais comment il faut fair musique de debut pr un script :D [ par bibi_81 ] Je voudrais savoir comment faire pour que au lancement de mon script il y ai une musique qui se joue ...? Merci ce serait sympa de repondre tres vite Remote mp3 et commande play fichier.txt [ par PALOMETTE ] BonjourJ'ai installé un lecteur mp3 en remote qui fonctionne correctement.Le problème, c 'est que je ne peux plus utiliser la commande /play

Nos sponsors

Derniers Blogs

NOUVEAU SYSTèME D'AIDE POUR VISUAL STUDIO 2010 : POUR CEUX QUI N'APPRéCIENT PAS TROP L'ABSENCE D'INDEX... par coq

L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit

COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL

SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION (SQLDEPENDENCY) par christian

[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson

Forum

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par WorldDMT

DEMANDE D AIDE SUR UNE REMOTE par willshar

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par mouah

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par WorldDMT

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par mouah

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods