Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 130 fois - Téléchargée 27 fois
;;;;;Mp3 PLayer Dialog;;; menu status,channel { - Mp3 : .Lancer:/mp3 .Afficher:/dialoga .Masquer:/dialogm } alias dialogm { .set %y 85 if ( %mode == on ) { .timerinftitle 0 1 .mp3tpsenroule .timermasker 85 0.1 .enroule } } alias dialoga { .set %y 0 if ( %mode == on ) { .timerafficher 95 0.1 .deroule } .timerinftitle off .dialog -t mp3 mp3 - Huitre .timerinfo 0 1 .mp3tps } alias mp3 { dialog -hm MP3 MP3 } alias son_txt { /write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) $1- did -a mp3 1 $nopath($1-) } alias deroule { .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y 100 %y .set %y $calc( %y + 1 ) } alias enroule { .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y 100 %y .set %y $calc( %y - 1 ) } alias mp3tpsenroule { .timerinfo off set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) .dialog -t mp3 mp3 :[ %tpsmp3 ]: if ( %tpsmp3 == 0 ) { .timerinftitle off } } alias mp3tps { set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) did -a mp3 40 :[ $iif( $mp3($insong.fname).title == $null , No Title,$mp3($insong.fname).title ) - %tpsmp3 ]: if ( %tpsmp3 == 0 ) { .timerinfo off } } dialog MP3 { title "Mp3 - Huitre" size -1 -1 100 85 option dbu list 1,5 5 90 60 box "info",40,0 75 100 30 button "ok",100, 200 1000 1 1,ok button "cancel",200, 100 1000 1 1,cancel button "Play",2,5 63 16 10 button "Stop",3,26 63 16 10 button "Boucle",4,46 63 18 10 button "Add",5,68 63 15 10 button "+",6,88 63 5 5 button "-",7,88 68 5 5 menu "mode",9 menu "Mode continu",30,9 item "On",31,30,9 item "Off",32,30,9 menu "Mode aleatoire",41,9 item "On",33,41,9 item "Off",34,41,9 menu "Mode silencieux",50,9 item "On",35,50,9 item "Off",36,50,9 menu "Repertoire",10 item "Choisir le repertoire",11,10 item "Ajouter un repertoire",12,10 menu "Credits",92 item "About",91,92 } dialog Credits { title "Credits" size -1 -1 70 47 option dbu text "Huitre Audio Media Player",99, 5 5 100 12 text "crée par Huitre",97,16 35 100 12 text "Kewl.random.org:6667",96, 5 17 60 12 text "#universjeux",98, 5 24 40 12 button "Ok",1,133 4 15 43,ok } on *:dialog:mp3:menu:91 { dialog -m Credits Credits } on *:dialog:mp3:menu:11 { remove $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) set %dir $sdir(E:\anime,Repertoire des Mp3) did -r mp3 1 $findfile(%dir,*.mp3,0,son_txt $1-) } on *:dialog:mp3:menu:12 { set %addir $sdir(E:\anime,Repertoire des Mp3) $findfile(%addir,*.mp3,0,son_txt $1-) } on *:dialog:mp3:sclick:1 { set %zik_num $did(mp3,1).sel set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num) } on *:dialog:mp3:dclick:1 { set %boucle off /splay -p stop set %zik_num $did(mp3,1).sel set %zik $read(mp3.txt , %zik_num) /splay -p %zik /timerinfo off /timerinfo 0 1 mp3tps if ( %silence == off ) { msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] } } on *:dialog:mp3:rclick:1 { msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] } on *:dialog:mp3:sclick:3 { set %boucle off /splay -p stop %zik } on *:dialog:mp3:sclick:2 { set %boucle off set %zik_num $did(mp3,1).sel set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num) /splay %zik } on *:dialog:mp3:sclick:4 { set %zik_num $did(mp3,1).sel set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num) set %boucle on /splay -p %zik2 } on *:dialog:mp3:sclick:5 { var %addmp3 $sfile(E:\anime\,Nom du mp3,Ajouter) /write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) %addmp3 /did -a MP3 1 $nopath(%addmp3) } on *:dialog:mp3:sclick:6 { //vol -v $calc( $vol(master) + 1000 ) } on *:dialog:mp3:sclick:7 { //vol -v $calc( $vol(master) - 1000 ) } on *:dialog:mp3:menu:31 { set %aleatoire off set %continu on } on *:dialog:mp3:menu:32 { set %aleatoire off set %continu off } on *:dialog:mp3:menu:33 { set %continu off set %aleatoire on } on *:dialog:mp3:sclick:34 { set %continu off set %aleatoire off } on *:dialog:mp3:menu:35 { set %silence on } on *:dialog:mp3:menu:36 { set %silence off } on *:dialog:MP3:init:0: { .set %mode on /echo merci d' utiliser Huitre Amp - %crt if ( $exists( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) { set %crt Made by Huitre set %dir $sdir(E:\anime,Repertoire des Mp3) $findfile(%dir,*.mp3,0,son_txt $1-) } else { /write -c mp3.txt $findfile(%dir,*.mp3,0,son_txt $1- ) } } on *:dialog:MP3:close:0: { .set %boucle off .set %mode off /splay -p stop %zik /echo merci d' avoir utilisé Huitre Amp - %crt .timerinfo off .timerinftitle off /write -c $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) } on *:MP3END: { /timerinfo off if ( %continu == on ) { .set %boucle off inc %zik_num 1 if ( %zik_num > $lines( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) ) ) { .set %zik_num 1 } .set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num) /timerinfo off /splay -p %zik /timerinfo 0 1 /mp3tps if ( %silence == off ) { msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] } } if ( %aleatoire == on ) { set %boucle off set %zik $read($chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34)) /timerinfo off /splay -p %zik /timerinfo 0 1 /mp3tps if ( %silence == off ) { msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] } } if ( %boucle == on ) { /splay -p %zik if ( %silence == off ) { msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] } } else { halt } }
3 mars 2006 à 15:48
28 mai 2005 à 19:58
Juste si on pouvait le baisser dans la barre d'outil ça aurait été super :)
19 oct. 2003 à 16:58
11 oct. 2003 à 11:33
aller bon courage a +
11 oct. 2003 à 11:26
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.