c un lectueur mp3 ke g fai vite fai
il vous faut mdx.dll dans la racine de vote script
il y a un oto dcc par !music en pv
le script a ete "optimiser" par kolibot ( les sclick menu ect ]
Source / Exemple :
;##ALIAS##
alias m { dialog -dm m m }
;##MENU-BAR##
menu * {
-
Lecteur de Mp3:dialog -dm m m
-
}
;##DIALOG+SCLICK##
dialog M {
title "LeCtEuR Mp3 [Par DrAgOoN1]"
size -1 -1 398 426
option pixels
box "Liste des Mp3", 1, 7 11 381 203
box "Option", 2, 156 221 233 74
button "Lecture", 3, 163 244 54 25, flat
button "Pause", 4, 276 244 54 25, flat
button "Stop", 5, 217 244 54 25, flat
button "Repertoire", 6, 26 242 106 38, flat
box "Repertoire", 7, 6 221 145 74
list 9, 19 32 362 171, size
button "Reprendre", 10, 330 244 54 25, flat
box "Info", 11, 6 303 383 84
edit "", 12, 50 318 330 21, read autohs
edit "", 13, 50 338 330 21, read autohs
edit "", 14, 50 358 330 21, read autohs
text "Nom", 15, 11 321 33 16
text "Temps", 16, 11 339 37 16
text "Taille", 17, 11 359 37 16
button "Fermer", 8, 6 392 383 25, flat cancel
box "AiDe", 25, 401 12 190 403
edit "1) Choisissez le repertoire de vos Mp3 2)Choisissez le mp3 que vous vouler ecouter , choisiser Lecture pour le lir. Aller de le menu Lecture pour lire le fichier mp3 sans message 3)Appuiez sur stop,pause,reprendre pour modifier la lecture 4)Aller dans le menu Option et chhoisisser volume pour le regler. Bonne Amusement !!!!!! DRAGOON1", 39, 410 30 173 208, read multi
edit "Script cree par DrAgOoN1 ( aide de Kolibot ) Merci de ne pas copier,modifier ou le metre dans un script que vous aller publier MERCI Dragoonlegrand@hotmail.com Ps:PaPa-NoEl WaS A PuNk", 91, 410 252 173 122, read multi
button "Fermer", 65, 411 382 172 25, flat
menu "Option", 18
item "Repertoire", 21
item "Volume", 22
item "Quitter", 30
menu "Lecture", 19
item "Lecture", 23
item "Stop" , 26
item "Pause" , 29
item "Reprendre" , 27
menu "?", 20
item "Aide", 24
item "A props de" , 28
}
on *:dialog:m:*:*:{
if $devent == init {
$findfile(%Mp3.Dir,*.mp3,0,did -a M 9 $remove($1-, %Mp3.Dir))
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 text $rgb(000,103,248)
dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 textbg $rgb(000,000,000)
dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 background $rgb(000,000,000)
}
if $devent == menu || $devent == sclick {
if $did == 65 { dialog -s M -1 -1 398 450 }
if $did == 28 { dialog -s M -1 -1 603 450 }
if $did == 24 { dialog -s M -1 -1 603 450 }
if $did == 22 { dialog -dm vol vol }
if $did == 27 { Splay play %Mp3.Dir $+ $did(m,9).seltext }
if $did == 25 || $did == 5 { Splay pause }
if $did == 26 || $did == 4 { Splay Stop }
if $did == 23 || $did == 3 {
%Mp3.Play = %Mp3.Dir $+ $Did(M,9).Seltext
%Mp3.Say = $Did(M,9).Seltext
%Mp3.Lenght = $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
%Mp3.Megs = $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
did -ra m 12 %mp3.say
did -ra m 13 %mp3.lenght
did -ra m 14 %mp3.megs
splay %Mp3.Dir $+ $did(m,9).seltext
msg $active 12- 4[ 12EcOuTe 4] 12- 4[ 12 %Mp3.Say 4] 12- 4[ 12 %Mp3.Lenght 4] 12- 4[ 12 %mp3.megs 4] 12- 4[12Mp34 - 12DrAgOoN1 4] 12-
}
if $did == 30 { dialog -x m m }
if $did == 21 || $did == 6 {
dialog -x m m
%mp3.dir = $sdir(C:\_Div-X\,Choisis Fichier,Ouvrir)
dialog -dm m m
}
}
}
;##AUTO-DCC##
on *:text:!Music*:?:{ dcc send $nick %mp3.play }
;##VOLUME##
alias v { dialog -dm vol vol }
dialog Vol {
title "VoLuMe PaR DrAgOoN1"
size -1 -1 110 27
option dbu
button "+", 1, 3 8 37 12, flat
button "-", 2, 71 8 37 12, flat
edit "", 3, 45 9 22 10, read
}
on *:dialog:vol:*:*:{
if $devent == init {
did -a vol 3 $Int($Calc( $Vol(Wave) / 1300 ))
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
dll mdx.dll SetColor $dname 3 text $rgb(000,103,248)
dll mdx.dll SetColor $dname 3 textbg $rgb(000,000,000)
dll mdx.dll SetColor $dname 3 background $rgb(000,000,000)
}
if $devent == sclick {
if $did == 2 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 - 1300) | if %Volume < 1 { var %Volume = 0 } }
if $did == 1 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 + 1300) | if %Volume > 65000 { var %Volume = 65000 } }
if $did == 1 || $did == 2 { vol -w %Volume | did -ra vol 3 $int($calc( $vol(wave) / 1300 )) }
}
}
;##FIN##
Conclusion :
voila amuser vous bien
G mi la version longue ptete ke sa marchera mieu :)
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.