Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 459 fois - Téléchargée 26 fois
;---------------------------------------------------------------------------------------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 }
3 janv. 2007 à 14:56
vous êtes nul regarde si tout le monde
fait comme vous à angeuler tout le mond c'est nase
22 oct. 2005 à 16:52
21 juil. 2005 à 23:56
12 sept. 2004 à 16:25
24 juil. 2004 à 15:27
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.