Accueil > > > LECTEUR MP3
LECTEUR MP3
Information sur la source
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
Sources de la même categorie
Commentaires et avis
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
|
Derniers Blogs
TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion
Forum
RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|