voila mon lecteur mp3
je croi kil ny a pa de bug
Source / Exemple :
dialog 1mp3 {
title "mp3"
size -1 -1 256 222
option dbu
button "|<<", 1, 4 7 38 10, flat
;button "<<", 2, 26 7 16 10, flat
button "&Play", 3, 44 7 20 10, default flat
check "&Pause", 24, 65 7 20 10, flat push
;button ">>", 4, 125 7 16 10, flat
button ">>|", 5, 125 7 36 10, flat
button "&Stop", 6, 86 7 37 10, flat
list 7, 2 87 251 109, size vsbar , hsbar , multi
box " &Commandes ", 9, 0 -1 168 23
box " &Play listes ", 8, 0 52 256 147
box " &Ajouter ", 10, 3 60 122 25
button "Un &Titre", 11, 60 69 60 12, flat
button "Un &Répertoire", 12, 7 69 50 12, flat
box " &Titres ", 13, 130 60 122 25
button "&Effacer ce titre", 14, 135 69 56 12, flat
button "&Tout effacer", 15, 195 69 53 12, flat
box " &Lecture ", 16, 0 23 89 28
check "&Aleatoire", 17, 6 33 37 12, flat push
check "&Continue", 18, 46 33 37 12, flat push
;button "&Reduire", 19, 172 2 37 20, flat
box " &Info du titre ", 20, 91 23 165 28
button "&Fermer", 21, 172 2 82 20, flat ok
text "", 22, 95 30 156 8, center
text "", 23, 95 40 156 8, center
check "&Choisi ou les msg doit etre envoyer", 100, 4 207 121 10, 3state flat push
edit "#adDict", 101, 188 207 65 10, autohs
text "Le dire sur le &Salon :", 102, 136 208 48 8
box " &Automatiquement dire les chansons ", 103, 0 199 256 22
}
alias mp3bodi {
if ($mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).title != $null) {
set %_mp3_nam $mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).title - $mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).artist
}
else set %_mp3_nam $nopath($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel))
set %_mp3_tps $remove($duration($calc($mp3($findfile($nofile($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)),$nopath($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)),1)).length / 1000)),Ins,Sec,In)
}
alias mp3con {
inc %_mp3+sel
mp3bodi
splay $read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)
did -ra 1mp3 22 %_mp3_nam
did -ra 1mp3 23 %_mp3_tps
.timerdi off | mp3di
if (%_mp3_pau != $null) splay pause
}
alias mp3allé {
set %_mp3+sel $rand(1,$lines($mircdir\system\mp3\1mp3.txt))
mp3bodi
splay $read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)
did -ra 1mp3 22 %_mp3_nam
did -ra 1mp3 23 %_mp3_tps
.timerdi off | mp3di
if (%_mp3_pau != $null) splay pause
}
alias mp3+ {
if (%_mp3-tip_con == on) mp3con
if (%_mp3_tip-allé == on) mp3allé
}
on 1:mp3END:{
unset %_mp3_*
did -r 1mp3 23,22
.timerdi off
mp3+
}
alias mp3di {
if ($server != $null) {
if (%_mp3_stat == 0) {
.timerdi 1 5 amsg $mp3-di
}
if (%_mp3_stat == 1) {
.timerdi 1 5 msg $did(101) $mp3-di
}
}
}
alias f12 {
if ((%_mp3_nam != $null) && (%_mp3_tps != $null) && ($server != $null)) {
msg $active $mp3-di
}
}
alias mp3-di {
if ($mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).title == $null) {
return 1[1m14p153] 14No1m14 :4 $nopath($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)) 1T14emps :4 %_mp3_tps 14Mp1314 loadé :4 $lines($mircdir\system\mp3\1mp3.txt) $+ 15[m14p13]
}
else {
return 1[1m14p153] 1T14i1t14re :4 $mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).title 14Au1t14eur :4 $mp3($read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)).artist 1T14emps :4 %_mp3_tps 14Mp1314 loadé :4 $lines($mircdir\system\mp3\1mp3.txt) $+ 15[m14p13]
}
}
on *:dialog:1mp3:sclick:*:{
if ($did == 100) {
if ($did(100).state == 0) {
did -ra 1mp3 100 Sur &Tous les salons
did -b 1mp3 101,102
set %_mp3_stat 0
}
if ($did(100).state == 1) {
did -ra 1mp3 100 Que sur &Un salon
did -e 1mp3 101,102
set %_mp3_stat 1
}
if ($did(100).state == 2) {
did -ra 1mp3 100 Ne &Pas le dire
did -b 1mp3 101,102
set %_mp3_stat 2
}
}
if ($did == 5) mp3+
if ($did == 1) {
if (%_mp3+sel == 1) halt
else {
dec %_mp3+sel
mp3bodi
splay $read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)
did -ra 1mp3 22 %_mp3_nam
did -ra 1mp3 23 %_mp3_tps
.timerdi off | mp3di
if (%_mp3_pau != $null) splay pause
}
}
if ($did == 17) {
did -u 1mp3 18 | set %_mp3_tip-allé on | unset %_mp3-tip_con
if ($did(17).state == 0) unset %_mp3_tip-allé
}
if ($did == 18) {
did -u 1mp3 17 | set %_mp3-tip_con on | unset %_mp3_tip-allé
if ($did(18).state == 0) unset %_mp3-tip_con
}
if ($did == 3) {
if ($Did(7).Seltext != $Null) {
set %_mp3+sel $Did(7).Sel
mp3bodi
splay $read($mircdir\system\mp3\1mp3.txt,%_mp3+sel)
did -ra 1mp3 22 %_mp3_nam
did -ra 1mp3 23 %_mp3_tps
.timerdi off | mp3di
if (%_mp3_pau != $null) splay pause
}
}
if ($did == 6) { .timerdi off did -u 1mp3 24 | splay stop | did -r 1mp3 23 | did -r 1mp3 22 | unset %_mp3_* }
if ($did == 21) { splay stop | .timerdi off | unset %_mp3_* }
if ($did == 15) {
splay stop | unset %_mp3_*
.timerdi off
did -r 1mp3 23 | did -r 1mp3 22
did -r 1mp3 7
write -c $mircdir\system\mp3\1mp3.txt
}
if ($did == 24) {
if ($mp3(%_mp3_nam) != $null) {
if ($did(24).state == 1) { splay pause | set %_mp3_pau on }
if ($did(24).state == 0) { splay resume | unset %_mp3_pau }
}
}
if ($did == 14) {
if ($Did(7).Seltext != $Null) {
.timerdi off
splay stop | unset %_mp3_*
set %_mp3_eff $did(7).sel
did -r 1mp3 7
write -dl %_mp3_eff $mircdir\system\mp3\1mp3.txt
set %bouc 0
:boucle
inc %bouc
if (%bouc > $lines($mircdir\system\mp3\1mp3.txt)) goto fin
else didtok 1mp3 7 C $nopath($read($mircdir\system\mp3\1mp3.txt,%bouc))
goto boucle
:fin
unset %bouc
}
}
if ($did == 12) {
set %_mp3_parti_ $Sdir(c:,Choisissez le repertoire de vos mp3 )
set %_mp3_parti_nb $Findfile(%_mp3_parti_,*.mp3,0,write $mircdir\system\mp3\1mp3.txt $1-)
did -r 1mp3 7
set %bouc 0
:boucle
inc %bouc
if (%bouc > $lines($mircdir\system\mp3\1mp3.txt)) goto fin
else didtok 1mp3 7 C $nopath($read($mircdir\system\mp3\1mp3.txt,%bouc))
goto boucle
:fin
unset %bouc
unset %_mp3_parti_*
}
if ($did == 11) {
set %_mp3_tm $sfile(c:*.mp3,Choisissez un mp3 ,Valider)
if (%_mp3_tm != $null) {
write $mircdir\system\mp3\1mp3.txt %_mp3_tm
did -r 1mp3 7
set %bouc 0
:boucle
inc %bouc
if (%bouc > $lines($mircdir\system\mp3\1mp3.txt)) goto fin
else didtok 1mp3 7 C $nopath($read($mircdir\system\mp3\1mp3.txt,%bouc))
goto boucle
:fin
unset %bouc
unset %_mp3_tm
}
}
}
on *:dialog:1mp3:init:0:{
.timerdi off
did -b 1mp3 101,102
set %_mp3_tab 1mp3
did -r 1mp3 7
set %bouc 0
:boucle
inc %bouc
if (%bouc > $lines($mircdir\system\mp3\1mp3.txt)) goto fin
else didtok 1mp3 7 C $nopath($read($mircdir\system\mp3\1mp3.txt,%bouc))
goto boucle
:fin
unset %bouc
unset %_mp3_*
}
on *:dialog:1mp3:close:*:unset %_mp3_* | splay stop | .timerdi off
alias 1mp3 dialog -md 1mp3 1mp3
alias mp3 1mp3
Conclusion :
so vous zavez de truck a me dire
stil bug ou amélioratoin dite le moi
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.