|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
PETIT LECTEUR MP3
Information sur la source
Description
Bah c est un ti lecteur mp3 avec annonce de ce ke l on ecoute sur la fenetre active (desactivable) avec un mode continu, aleatoire, boucle. On pe ajouter autant de rep ke l on desire.Ca lit les waves, midi avec la fonction add. Le volume est gere ainsi k une info hyper utile , le tps restant :)
ps:click droit sur le fond d un chan ou de la fenetre status pour afficher le menu.
Source
- ;;;;;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 }
- }
;;;;;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 }
}
Conclusion
Y a ptete des bugs c ma premiere grosse source. Commentaire si vous en trouvez.
Version 1.1:
Bugs des espaces reparé.
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
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
|
Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|