CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 07:40:45

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

LECTEUR MP3 POUR MIRC

Information sur la source

Note :

8,91 / 10

Catégorie :AddOns Classé sous :player, mp3, musique, lecteur, mirc Niveau :Initié Date de création :04/04/2002 Date de mise à jour :04/04/2002 20:12:39 Vu :18 734

Auteur : Epsilon

Ecrire un message privé

Site perso

Commentaire sur cette source (33)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

C'est un lecteur mp3 que j'ai créé pour un challenge de scripting mIRC. LE but était de faire un lecteur mp3 uniquement avec des lignes de codes mIRC, en moins de 10Ko, et sans boites de dialogues.

Pour lancer le lecteur (une fois chargé comme "remote") : /mp3
Pour choisir le repertoire de vos mp3 : cliquez sur le petit "D" à gauche du lecteur
Pour enlever/remettre l'"always on top" : cliquez sur le "A"
Volume : cliquez ds la barre de volume à la position désirée.
Pour jouer un mp3 : double cliquez sur son nom dans la fenetre de playlist
Pour avancer dans une chanson : cliquez sur la barre de progression en dessous du lecteur.
Le reste consitant de bouton "play" "pause" etc, je ne vous ferai pas l'affront de vous expliquer leur fonctionement.
Tout les commentaires sont les bienvenus.

Source

alias mp3 { if ($window(@mp3)) return | w -opdk +eLf @Mp3 220 250 278 108 | grad1 | dr -rf $rgb(96,96,142) 1 12 13 247 36 | dr -rf $rgb(212,212,240) 1 14 15 243 32 | b_play 1 | b_pause 1 | b_stop 1 | unset %mp3_* | tr | dr -fr $rgb(100,100,125) 1 167 60 79 8 | grr $int($calc($vol(wave) / 655.35 *0.75)) | dr -fr $rgb(170,170,205) 1 259 2 9 9 | dt -r $rgb(250,250,250) arial 10 261 -1 x | dt -r 6579300 times 10 194 48 - vol + | b | drawtext -r @mp3 $rgb(90,90,200) times 10 2 34 D | f | pl }
alias -l dr { drawrect $1 @mp3 $2- }
alias -l dl { drawline $1 @mp3 $2- }
alias -l df { drawfill $1 @mp3 $2- }
alias -l dt { drawtext $1 @mp3 $2- }
;alias verif { w @tr $calc($window(@mp3).x) $calc($window(@mp3).y + 108) 278 30 | w @Mp3 $window(@mp3).x $window(@mp3).y 278 108 }
alias -l stop_mp3 { if (%mp3_play_b == play) { unset %mp3_* | splay -p stop | .timermp3 off | b_pause 1 | b_stop 3 | b_play 1 | df -r $rgb(212,212,240) $rgb(96,96,142) 20 17 | drawrect -fr @tr $rgb(100,100,125) 1 33 7 204 7 } }
alias -l grad1 { %mp3_c1 = 98 | %mp3_c3 = 160 | %mp3_posi1 = 100 | %mp3_posi2 = 300 | while (%mp3_posi2 >= 50) { dl -r $rgb(%mp3_c1,%mp3_c1,%mp3_c3) 2 0 %mp3_posi1 400 %mp3_posi2 | inc %mp3_c1 1.2 | inc %mp3_c3 0.8 | dec %mp3_posi1 2 | dec %mp3_posi2 2 } }
alias -l grad2 { %mp3_c1 = 98 | %mp3_c3 = 180 | %mp3_posi1 = 100 | %mp3_posi2 = 300 | while (%mp3_posi2 >= 50) { drawline -r @tr $rgb(%mp3_c1,%mp3_c1,%mp3_c3) 2 0 %mp3_posi1 400 %mp3_posi2 | inc %mp3_c1 1.2 | inc %mp3_c3 0.6 | dec %mp3_posi1 2 | dec %mp3_posi2 2 } }
alias -l a { if ($window(@mp3).ontop) { w -u @mp3 | w -u @tr } | else { w -o @mp3 | w -o @tr } | b }
alias -l b { if ($window(@mp3).ontop) dt -r $rgb(90,90,200) times 10 2 14 A | else dt -r $rgb(200,200,220) times 10 2 14 A }
alias -l f { if (%p) dt -r $rgb(90,90,200) times 14 181 75 Continue | else dt -r $rgb(200,200,220) times 14 181 75 Continue }
alias -l g { if (%p) unset %p | else %p = 1 | f }
alias -l affich_mp3 { df -r $rgb(212,212,240) $rgb(96,96,142) 20 17 | dr -r $rgb(42,42,142) 2 18 19 50 24 | .timermp3 -m 0 1000 dt -r $rgb(220,220,240) times 18 23 21 $!taille_mp3(pos) | dt -r $rgb(220,220,220) times 18 23 21 $taille_mp3(pos) | dt -cr $rgb(0,0,0) times 15 76 17 174 16 $remove($nopath(%mp3),.mp3) | dt -cr $rgb(0,0,0) times 10 77 33 176 11 $mp3(%mp3).sample khz - $mp3(%mp3).bitrate kbps - $mp3(%mp3).mode | }
alias -l taille_mp3 { set %mp3_len $int($calc($inmp3.length / 1000)) | gr $int($calc($inmp3.pos / %mp3_tr)) | if (%npos == 2) %mp3_len = $int($calc(%mp3_len - ($inmp3.pos / 1000))) | else %mp3_len = $int($calc($inmp3.pos / 1000)) | set %mp3_min $int($calc(%mp3_len / 60)) | set %mp3_sec $calc(%mp3_len - (%mp3_min * 60)) | if (%mp3_min < 10) set %mp3_min 0 $+ %mp3_min | if (%mp3_sec < 10) set %mp3_sec 0 $+ %mp3_sec | set %mp3_len %mp3_min $+ : $+ %mp3_sec | dr -rf $rgb(142,142,200) 1 19 20 48 22 | return %mp3_len }
alias -l st { if ($1) { inc %l | if (%l > %z) %l = 1 | %mp3 = $hget(P,%l) | play_mp3 } | else { dec %l | if (%l < 1) %l = %z | %mp3 = $hget(P,%l) | play_mp3 } | unset %mp3_pause_b | b_pause 1 | sline @playlist %l }
alias -l play_mp3 { if ($isfile(%mp3)) { %mp3_play_b = play | splay -p %mp3 | %mp3_tr = $int($calc($inmp3.length / 200)) | affich_mp3 | b_stop 1 | b_play 3 | w -a @tr | w -a @mp3 } }
menu @mp3 {
mouse { if ($mouse.x >= 21) && ($mouse.x <= 63) && ($mouse.y >= 53) && ($mouse.y <= 94) { if (!%mp3_play_b) { %mp3_play_b = oqp | b_play 2 } }
else { if (%mp3_play_b == oqp) { unset %mp3_play_b | b_play 1 } }
if ($mouse.x >= 72) && ($mouse.x <= 103) && ($mouse.y >= 59) && ($mouse.y <= 88) { if (%mp3_play_b == play) { if (!%mp3_pause_b) { %mp3_pause_b = oqp | b_pause 2 } } }
else { if (%mp3_pause_b == oqp) { unset %mp3_pause_b | b_pause 1 } }
if ($mouse.x >= 111) && ($mouse.x <= 140) && ($mouse.y >= 59) && ($mouse.y <= 88) { if (!%mp3_stop_b) { if (%mp3_play_b == play) { %mp3_stop_b = oqp | b_stop 2 } } }
else { if (%mp3_stop_b == oqp) { unset %mp3_stop_b | b_stop 1 } } }
sclick { if ($mouse.x >= 177) && ($mouse.x <= 234) && ($mouse.y >= 76) && ($mouse.y <= 90) g
if ($mouse.x <= 13) && ($mouse.y >= 14) && ($mouse.y <= 25) a
if ($mouse.x <= 13) && ($mouse.y >= 36) && ($mouse.y <= 47) { %dir_mp3 = $sdir(%dir_mp3,Choississez un répertoire) | pl }
if ($mouse.x >= 21) && ($mouse.x <= 63) && ($mouse.y >= 53) && ($mouse.y <= 94) { if (%mp3_pause_b == pause) { b_pause 1 | splay -p resume | unset %mp3_pause_b } | else se }
if ($mouse.x >= 72) && ($mouse.x <= 103) && ($mouse.y >= 59) && ($mouse.y <= 88) { if (%mp3_play_b == play) { if (%mp3_pause_b == pause) { splay -p resume | b_pause 2 | %mp3_pause_b = oqp } | else if (%mp3_pause_b != pause) { splay -p pause | b_pause 3 | %mp3_pause_b = pause } | } | }
if ($mouse.x >= 111) && ($mouse.x <= 140) && ($mouse.y >= 59) && ($mouse.y <= 88) stop_mp3
if ($mouse.x >= 169) && ($mouse.x <= 244) && ($mouse.y >= 62) && ($mouse.y <= 66) { grr $calc($mouse.x - 169) | vol -p $int($calc(($mouse.x - 169) / 0.75 * 655.35)) }
if ($mouse.x >= 259) && ($mouse.y <= 11) c
mov $calc($mouse.dx -$window(@mp3).x) $calc($mouse.dy -$window(@mp3).y) }
leave { if (%mp3_play_b == oqp) b_play 1 | if (%mp3_pause_b == oqp) b_pause 1 | if (%mp3_stop_b == oqp) b_stop 1 }
$iif(!%npos,$style(1),$style(0)) $+ Temps écoulé:%npos = 0
$iif(%npos,$style(1),$style(0)) $+ Temps restant:%npos = 2
}
on 1:close:@mp3:c
alias -l c { .timermp3 off | splay -p stop | w -c @tr | w -c @mp3 | w -c @playlist }
on 1:MP3END: { if (%p) st 1 | else stop_mp3 }
alias -l w window $1-
alias -l mov { if ($window(@mp3)) { w @mp3 $calc($mouse.dx -$1) $calc($mouse.dy -$2) | w @tr $calc($window(@mp3).x) $calc($mouse.dy -$2 + 108) 278 30 | if ($mouse.key & 1) { .timermp -o 1 0 mov $1- } } }
alias -l b_play { if ($1 == 1) { dr -rf $rgb(212,212,240) 1 21 53 42 41 | dl -r 16777215 2 22 54 22 93 | dl -r 16777215 2 22 54 62 54 | dl -r 1 2 62 54 62 93 | dl -r 1 2 22 93 62 93 } | if ($1 == 2) dr -rf $rgb(152,152,240) 1 23 55 38 37 | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 21 53 42 41 | dl -r 1 2 22 54 22 93 | dl -r 1 2 22 54 62 54 | dl -r 16777215 2 62 54 62 93 | dl -r 16777215 2 22 93 62 93 } | dl -r 1 1 35 63 35 85 | dl -r 1 1 35 63 53 74 | dl -r 1 1 35 85 53 73 | df -r 1 1 38 70 }
alias -l b_pause { if ($1 == 1) { dr -rf $rgb(212,212,240) 1 72 59 31 29 | dl -r 16777215 2 73 60 73 88 | dl -r 16777215 2 73 60 102 60 | dl -r 1 2 73 88 102 88 | dl -r 1 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 82 66 4 16 | dr -rf $rgb(21,21,24) 1 88 66 4 16 } | if ($1 == 2) { dr -rf $rgb(152,152,240) 1 74 61 27 26 | dl -r 16777215 2 73 60 73 88 | dl -r 16777215 2 73 60 102 60 | dl -r 1 2 73 88 102 88 | dl -r 1 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 82 66 4 16 dr -rf $rgb(21,21,24) 1 88 66 4 16 } | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 72 59 31 29 | dl -r 1 2 73 60 73 88 | dl -r 1 2 73 60 102 60 | dl -r 16777215 2 73 88 102 88 | dl -r 16777215 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 83 67 4 16 | dr -rf $rgb(21,21,24) 1 89 67 4 16 } }
alias -l b_stop { if ($1 == 1) { dr -rf $rgb(212,212,240) 1 111 59 31 29 | dl -r 16777215 2 112 60 112 88 | dl -r 16777215 2 112 60 141 60 | dl -r 1 2 112 88 141 88 | dl -r 1 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 119 67 14 14 } | if ($1 == 2) { dr -rf $rgb(152,152,240) 1 111 59 31 29 | dl -r 16777215 2 112 60 112 88 | dl -r 16777215 2 112 60 141 60 | dl -r 1 2 112 88 141 88 | dl -r 1 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 119 67 14 14 } | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 111 59 31 29 | dl -r 1 2 112 60 112 88 | dl -r 1 2 112 60 141 60 | dl -r 16777215 2 112 88 141 88 | dl -r 16777215 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 120 68 14 14 } | }
alias -l b_bw { drawrect -fr @tr $rgb(212,212,240) 1 5 5 21 11 | drawline -r @tr 16777215 2 6 6 25 6 | drawline -r @tr 16777215 2 6 6 6 15 | drawline -r @tr 0 2 6 15 25 15 | drawline -r @tr 0 2 25 6 25 15 }
alias -l b_fw { drawrect -fr @tr $rgb(212,212,240) 1 244 5 21 11 | drawline -r @tr 16777215 2 245 6 264 6 | drawline -r @tr 16777215 2 245 6 245 15 | drawline -r @tr 0 2 245 15 264 15 | drawline -r @tr 0 2 264 6 264 15 }
on 1:active:@mp3: if (!%a) w -r @tr
alias -l pl { w -kl @playlist 500 0 278 258 times 12 $mircexe 14 | clear @playlist | if (!%dir_mp3) || (!$isdir(%dir_mp3)) %dir_mp3 = $mp3dir | %l = 1 | %i = 1 | %z = $findfile(%dir_mp3,*.mp3,0) | if (%z) { if ($hget(P)) hfree P | hmake P %z | while (%i <= %z) { hadd P %i $findfile(%dir_mp3,*.mp3,%i) | aline -n @playlist $remove($nopath($hget(P,%i)),.mp3) | sline @playlist 1 | inc %i } | } | w -a @mp3 }
menu @playlist {
dclick se }
alias -l se { %l = $sline(@playlist,1).ln | %mp3 = $hget(P,%l) | play_mp3 }
On 1:close:@playlist:if ($window(@mp3)) .timerp -m 1 1 pl
alias -l tr { w -hpodk +eLf @tr 220 358 278 30 | w -a @tr | grad2 | drawrect -fr @tr $rgb(100,100,125) 1 32 6 206 9 | b_bw | b_fw | drawtext -r @tr 0 fixedys 11 11 3 < | drawtext -r @tr 0 fixedys 11 251 3 > }
alias -l gr { %o = $1 | drawrect -fr @tr $rgb(200,200,225) 1 35 9 %o 3 | drawrect -fr @tr $rgb(100,100,125) 1 $calc(35 + %o) 6 $calc(200 - (%o)) 9 | if ($2) /splay -q seek $calc(%o * %mp3_tr) }
menu @tr {
sclick { if ($mouse.x >= 6) && ($mouse.x <= 26) && ($mouse.y >= 6) && ($mouse.y <= 16) st | if ($mouse.x >= 245) && ($mouse.y >= 6) && ($mouse.x <= 265) && ($mouse.y <= 16) st 1 | if (%mp3_play_b == play) && ($mouse.x >= 35) && ($mouse.x <= 235) && ($mouse.y >= 7) && ($mouse.y <= 14) gr $calc(($mouse.x - 35)) 1 } | }
alias -l grr { %o = $1 | dr -fr $rgb(200,200,225) 1 169 62 %o 4 | dr -fr $rgb(100,100,125) 1 $calc(169 + %o) 60 $calc(75 - %o) 8 }
on 1:load: { echo -s Script chargé tappez /mp3 pour lancer le lecteur. | set %p 1 }

alias mp3 { if ($window(@mp3)) return | w -opdk +eLf @Mp3 220 250 278 108 | grad1 | dr -rf $rgb(96,96,142) 1 12 13 247 36 | dr -rf $rgb(212,212,240) 1 14 15 243 32 | b_play 1 | b_pause 1 | b_stop 1 | unset %mp3_* |  tr | dr -fr $rgb(100,100,125) 1 167 60 79 8 | grr $int($calc($vol(wave) / 655.35 *0.75)) | dr -fr $rgb(170,170,205) 1 259 2 9 9 | dt -r $rgb(250,250,250) arial 10 261 -1 x | dt -r 6579300 times 10 194 48 - vol + | b | drawtext -r @mp3 $rgb(90,90,200) times 10 2 34  D | f | pl }
alias -l dr { drawrect $1 @mp3 $2- }
alias -l dl { drawline $1 @mp3 $2- }
alias -l df { drawfill $1 @mp3 $2- }
alias -l dt { drawtext $1 @mp3 $2- } 
;alias verif { w @tr $calc($window(@mp3).x) $calc($window(@mp3).y + 108) 278 30 | w @Mp3 $window(@mp3).x $window(@mp3).y 278 108 }
alias -l stop_mp3 { if (%mp3_play_b == play) { unset %mp3_* | splay -p stop | .timermp3 off | b_pause 1 | b_stop 3 | b_play 1 | df -r $rgb(212,212,240) $rgb(96,96,142) 20 17 | drawrect -fr @tr $rgb(100,100,125) 1 33 7 204 7 } }
alias -l grad1 { %mp3_c1 = 98 | %mp3_c3 = 160 | %mp3_posi1 = 100 | %mp3_posi2 = 300 | while (%mp3_posi2 >= 50) { dl -r $rgb(%mp3_c1,%mp3_c1,%mp3_c3) 2 0 %mp3_posi1 400 %mp3_posi2 | inc %mp3_c1  1.2 | inc %mp3_c3  0.8 | dec %mp3_posi1 2 | dec %mp3_posi2 2 } }
alias -l grad2 { %mp3_c1 = 98 | %mp3_c3 = 180 | %mp3_posi1 = 100 | %mp3_posi2 = 300 | while (%mp3_posi2 >= 50) { drawline -r @tr $rgb(%mp3_c1,%mp3_c1,%mp3_c3) 2 0 %mp3_posi1 400 %mp3_posi2 | inc %mp3_c1  1.2 | inc %mp3_c3  0.6 | dec %mp3_posi1 2 | dec %mp3_posi2 2 } }
alias -l a { if ($window(@mp3).ontop) { w -u @mp3 | w -u @tr } | else { w -o @mp3 | w -o @tr } | b }
alias -l b { if ($window(@mp3).ontop) dt -r $rgb(90,90,200) times 10 2 14 A | else dt -r $rgb(200,200,220) times 10 2 14 A }
alias -l f { if (%p) dt -r $rgb(90,90,200) times 14 181 75 Continue | else dt -r $rgb(200,200,220) times 14 181 75 Continue }
alias -l g { if (%p) unset %p | else %p = 1 | f }
alias -l affich_mp3 { df -r $rgb(212,212,240) $rgb(96,96,142) 20 17 | dr -r $rgb(42,42,142) 2 18 19 50 24 | .timermp3 -m 0 1000 dt -r $rgb(220,220,240) times 18 23 21 $!taille_mp3(pos) | dt -r $rgb(220,220,220) times 18 23 21 $taille_mp3(pos) | dt -cr $rgb(0,0,0) times 15 76 17 174 16 $remove($nopath(%mp3),.mp3) | dt -cr $rgb(0,0,0) times 10 77 33 176 11 $mp3(%mp3).sample khz - $mp3(%mp3).bitrate kbps  - $mp3(%mp3).mode | }
alias -l taille_mp3 { set %mp3_len $int($calc($inmp3.length / 1000)) | gr $int($calc($inmp3.pos / %mp3_tr)) | if (%npos == 2) %mp3_len = $int($calc(%mp3_len - ($inmp3.pos / 1000))) | else %mp3_len = $int($calc($inmp3.pos / 1000)) | set %mp3_min $int($calc(%mp3_len / 60)) | set %mp3_sec $calc(%mp3_len - (%mp3_min * 60)) | if (%mp3_min < 10) set %mp3_min 0 $+ %mp3_min | if (%mp3_sec < 10) set %mp3_sec 0 $+ %mp3_sec | set %mp3_len %mp3_min $+ : $+ %mp3_sec | dr -rf $rgb(142,142,200) 1 19 20 48 22 | return %mp3_len }  
alias -l st { if ($1) { inc %l | if (%l > %z) %l = 1 | %mp3 = $hget(P,%l) | play_mp3 } | else { dec %l | if (%l < 1) %l = %z | %mp3 = $hget(P,%l) | play_mp3 } | unset %mp3_pause_b |  b_pause 1 | sline @playlist %l }
alias -l play_mp3 { if ($isfile(%mp3)) { %mp3_play_b = play | splay -p %mp3 | %mp3_tr = $int($calc($inmp3.length / 200)) | affich_mp3 | b_stop 1 | b_play 3 | w -a @tr | w -a @mp3 } }
menu @mp3 { 
  mouse { if ($mouse.x >= 21) && ($mouse.x <= 63) && ($mouse.y >= 53) && ($mouse.y <= 94) { if (!%mp3_play_b) { %mp3_play_b = oqp | b_play 2 } }
    else { if (%mp3_play_b == oqp) { unset %mp3_play_b | b_play 1 } }
    if ($mouse.x >= 72) && ($mouse.x <= 103) && ($mouse.y >= 59) && ($mouse.y <= 88) {  if (%mp3_play_b == play) {  if (!%mp3_pause_b) { %mp3_pause_b = oqp | b_pause 2 } } }
    else { if (%mp3_pause_b == oqp) { unset %mp3_pause_b | b_pause 1 } }
    if ($mouse.x >= 111) && ($mouse.x <= 140) && ($mouse.y >= 59) && ($mouse.y <= 88) { if (!%mp3_stop_b) { if (%mp3_play_b == play) { %mp3_stop_b = oqp |  b_stop 2 } } }
  else { if (%mp3_stop_b == oqp) { unset %mp3_stop_b | b_stop 1 } } }
  sclick { if ($mouse.x >= 177) && ($mouse.x <= 234) && ($mouse.y >= 76) && ($mouse.y <= 90) g    
    if ($mouse.x <= 13) && ($mouse.y >= 14) && ($mouse.y <= 25)  a
    if ($mouse.x <= 13) && ($mouse.y >= 36) && ($mouse.y <= 47) { %dir_mp3 = $sdir(%dir_mp3,Choississez un répertoire) | pl  }
    if ($mouse.x >= 21) && ($mouse.x <= 63) && ($mouse.y >= 53) && ($mouse.y <= 94) { if (%mp3_pause_b == pause) { b_pause 1 | splay -p resume | unset %mp3_pause_b }  | else se }
    if ($mouse.x >= 72) && ($mouse.x <= 103) && ($mouse.y >= 59) && ($mouse.y <= 88) { if (%mp3_play_b == play) { if (%mp3_pause_b == pause) { splay -p resume | b_pause 2 | %mp3_pause_b = oqp } | else if (%mp3_pause_b != pause) { splay -p pause | b_pause 3 | %mp3_pause_b = pause } | } | }
    if ($mouse.x >= 111) && ($mouse.x <= 140) && ($mouse.y >= 59) && ($mouse.y <= 88) stop_mp3 
    if ($mouse.x >= 169) && ($mouse.x <= 244) && ($mouse.y >= 62) && ($mouse.y <= 66) { grr $calc($mouse.x - 169) | vol -p $int($calc(($mouse.x - 169) / 0.75 * 655.35)) }
    if ($mouse.x >= 259) && ($mouse.y <= 11) c
  mov $calc($mouse.dx -$window(@mp3).x) $calc($mouse.dy -$window(@mp3).y) }
  leave { if (%mp3_play_b == oqp)  b_play 1 | if (%mp3_pause_b == oqp)  b_pause 1 | if (%mp3_stop_b == oqp)  b_stop 1 }
  $iif(!%npos,$style(1),$style(0)) $+ Temps écoulé:%npos = 0
  $iif(%npos,$style(1),$style(0)) $+ Temps restant:%npos = 2 
}
on 1:close:@mp3:c 
alias -l c { .timermp3 off | splay -p stop | w -c @tr | w -c @mp3 | w -c @playlist }
on 1:MP3END: { if (%p) st 1 | else stop_mp3 }
alias -l w window $1-
alias -l mov { if ($window(@mp3)) { w @mp3 $calc($mouse.dx -$1) $calc($mouse.dy -$2) | w @tr $calc($window(@mp3).x) $calc($mouse.dy -$2 + 108) 278 30 | if ($mouse.key & 1) { .timermp -o 1 0 mov $1- } } }
alias -l b_play { if ($1 == 1)  { dr -rf $rgb(212,212,240) 1 21 53 42 41 | dl -r 16777215 2 22 54 22 93 | dl -r 16777215 2 22 54 62 54 | dl -r 1 2 62 54 62 93 | dl -r 1 2 22 93 62 93 } | if ($1 == 2) dr -rf $rgb(152,152,240) 1 23 55 38 37 | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 21 53 42 41 | dl -r 1 2 22 54 22 93 | dl -r 1 2 22 54 62 54 | dl -r 16777215 2 62 54 62 93 | dl -r 16777215 2 22 93 62 93 } | dl -r 1 1 35 63 35 85 | dl -r 1 1 35 63 53 74 | dl -r 1 1 35 85 53 73 | df -r 1 1 38 70 }  
alias -l b_pause { if ($1 == 1) { dr -rf $rgb(212,212,240) 1 72 59 31 29 | dl -r 16777215 2 73 60 73 88 | dl -r 16777215 2 73 60 102 60 | dl -r 1 2 73 88 102 88 | dl -r 1 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 82 66 4 16 | dr -rf $rgb(21,21,24) 1 88 66 4 16 } | if ($1 == 2) { dr -rf $rgb(152,152,240) 1 74 61 27 26 | dl -r 16777215 2 73 60 73 88 | dl -r 16777215 2 73 60 102 60 | dl -r 1 2 73 88 102 88 | dl -r 1 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 82 66 4 16 dr -rf $rgb(21,21,24) 1 88 66 4 16 } | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 72 59 31 29 | dl -r 1 2 73 60 73 88 | dl -r 1 2 73 60 102 60 | dl -r 16777215 2 73 88 102 88 | dl -r 16777215 2 102 60 102 88 | dr -rf $rgb(21,21,24) 1 83 67 4 16 | dr -rf $rgb(21,21,24) 1 89 67 4 16 } }
alias -l b_stop { if ($1 == 1)  { dr -rf $rgb(212,212,240) 1 111 59 31 29 | dl -r 16777215 2 112 60 112 88 | dl -r 16777215 2 112 60 141 60 | dl -r 1 2 112 88 141 88 | dl -r 1 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 119 67 14 14 } | if ($1 == 2) { dr -rf $rgb(152,152,240) 1 111 59 31 29 | dl -r 16777215 2 112 60 112 88 | dl -r 16777215 2 112 60 141 60 | dl -r 1 2 112 88 141 88 | dl -r 1 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 119 67 14 14 } | if ($1 == 3) { dr -rf $rgb(252,212,140) 1 111 59 31 29 | dl -r 1 2 112 60 112 88 | dl -r 1 2 112 60 141 60 | dl -r 16777215 2 112 88 141 88 | dl -r 16777215 2 141 60 141 88 | dr -rf $rgb(21,21,24) 1 120 68 14 14 } | }
alias -l b_bw { drawrect -fr @tr $rgb(212,212,240) 1 5 5 21 11 | drawline -r @tr 16777215 2 6 6 25 6 | drawline -r @tr 16777215 2 6 6 6 15 | drawline -r @tr 0 2 6 15 25 15 | drawline -r @tr 0 2 25 6 25 15 } 
alias -l b_fw { drawrect -fr @tr $rgb(212,212,240) 1 244 5 21 11 | drawline -r @tr 16777215 2 245 6 264 6 | drawline -r @tr 16777215 2 245 6 245 15 | drawline -r @tr 0 2 245 15 264 15 | drawline -r @tr 0 2 264 6 264 15 }
on 1:active:@mp3: if (!%a) w -r @tr 
alias -l pl { w -kl @playlist 500 0 278 258 times 12 $mircexe 14 | clear @playlist | if (!%dir_mp3)  || (!$isdir(%dir_mp3)) %dir_mp3 = $mp3dir | %l = 1 | %i = 1 | %z = $findfile(%dir_mp3,*.mp3,0) | if (%z) { if ($hget(P)) hfree P | hmake P %z | while (%i <= %z) { hadd P %i $findfile(%dir_mp3,*.mp3,%i) | aline -n @playlist $remove($nopath($hget(P,%i)),.mp3) | sline @playlist 1 | inc %i } | } | w -a @mp3 }
menu @playlist { 
dclick  se }
alias -l se { %l = $sline(@playlist,1).ln | %mp3 = $hget(P,%l) | play_mp3 }
On 1:close:@playlist:if ($window(@mp3)) .timerp -m 1 1 pl
alias -l tr { w -hpodk +eLf @tr 220 358 278 30 | w -a @tr | grad2 | drawrect -fr @tr $rgb(100,100,125) 1 32 6 206 9 | b_bw | b_fw | drawtext -r @tr 0 fixedys 11 11 3 < | drawtext -r @tr 0 fixedys 11 251 3 > }
alias -l gr { %o = $1 | drawrect -fr @tr $rgb(200,200,225) 1 35 9 %o 3 | drawrect -fr @tr $rgb(100,100,125) 1 $calc(35 + %o) 6 $calc(200 - (%o)) 9 | if ($2)  /splay -q seek $calc(%o * %mp3_tr) }
menu @tr {
sclick { if  ($mouse.x >= 6) && ($mouse.x <= 26) && ($mouse.y >= 6) && ($mouse.y <= 16) st | if ($mouse.x >= 245) && ($mouse.y >= 6) && ($mouse.x <= 265) && ($mouse.y <= 16) st 1 | if (%mp3_play_b == play) && ($mouse.x >= 35) && ($mouse.x <= 235) && ($mouse.y >= 7) && ($mouse.y <= 14)  gr $calc(($mouse.x - 35)) 1 } | }
alias -l grr { %o = $1 | dr -fr $rgb(200,200,225) 1 169 62 %o 4 | dr -fr $rgb(100,100,125) 1 $calc(169 + %o) 60 $calc(75 - %o) 8 }
on 1:load: { echo -s Script chargé tappez /mp3 pour lancer le lecteur. | set %p 1 }

Conclusion

Il n'y aura pas de nouvelles version, il s'agissait juste d'une participation à un concours. Mais j'espère qu'il vous plaira comme il est.

Sources du même auteur

JEU GRAPHIQUE : BLIZZARO (SHOOT'EM UP)

JEU GRAPHIQUE : FRUITS SLOTS

Toutes les sources de Epsilon

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

LECTEUR MP3 par Samsung741

LECTEUR MP3 par emotion

LECTEUR MP3 par coca95

LECTEUR MP3 QUI PASSE AUTOMATIQUEMENT AU SUIVANT À LA FIN par b0uH

PETIT MP3PLAYER :) par ripzone

Commentaires et avis

Commentaire de bassman64 le 05/04/2002 18:27:42

Hum .....
C chaud tous sa ! je comprend que dalle !
T'as mis combien de temps à faire tous sa ??? :))

Commentaire de Epsilon le 06/04/2002 12:48:15

une semaine à peu près. Mais je ne bosse pas à plein temps :)

Commentaire de XJapan le 12/04/2002 11:18:56

Il y a un petit souci dans ton code. La PlayList se rafraichie pas. Et tu aurais tu mettre plus tot l'open dialog en Popup dans la PlayList.

Enfin voila

Sinon il est tres beau ^_^

XJapan

Commentaire de Epsilon le 12/04/2002 12:30:50

Pour rafraichir, ferme la fenetre de playlist, elle va se réouvrir toute seule, raffaichie.

Commentaire de SysteM le 28/04/2002 16:42:03

Super bien. Avec une belle interface: 10/10

Commentaire de Never le 10/05/2002 07:42:05

Interface j'la trouve pas vraiment nice pis un mp3 playeur comme celui lo ça ce fait en 4 jour max

Commentaire de FremenSF le 20/05/2002 04:55:32

Perso je le trouve classe ce script, ça le fait plus que certains autres lecteurs MP3 que j'ai testé et qui n'ont pas d'interface. Et puis merde, ça fait même pas 10Ko alors pouquoi s'en priver ? ^_^

Commentaire de BiOz le 07/06/2002 21:17:13

Bravo !!! je recherché exactement ca simple et éfficasse :p

Commentaire de Apoc le 20/10/2002 02:02:06

Sincèrement, je trouve cela vraiment bien réaliser. Bravo donc a l'auteur, mais bon... Sincèrement encore, je ne pense pas que cela soie utilisable à long terme. Une epreuve de force tout de même, chapeau !!!

Commentaire de OHA le 19/01/2003 16:42:04

tres bon (et beau). le seul regret est que la fenetre reste prioritaire(tjrs au premier plan)

Commentaire de Melnofil le 20/01/2003 21:57:12

> OHA < : T'a oublié de lire ceci :
Pour enlever/remettre l'"always on top" : cliquez sur le "A"
(Il est en petit a gauche de la fenetre, a coté du "D")

Très beau script quand on sait a quel point le mp3 peut être complexe, dommage que le code soit illisible je te met "seulement" 9/10

>Never< : Bah fait-nous en 1 mieux si t pas content ! ^_^ (Tient et si c trop facile t'a qu'a aussi lire les mid et les wav ca sera peut-etre plus de ton niveau :op)

Commentaire de BrunoCheyrou le 26/01/2003 20:08:30

Il dechire ton truc serieu t trop un boss merci serieu !! :)
T trop fort etje voulé dire a Never que c pas la peine de critiquer, tu c pas le faire bah c tout tempi pour toi !!!

Commentaire de Mick52 le 20/02/2003 19:03:24

FELICITATIONS ! ! ! franchement c du bon boulot. un petit regret cependant mé ki est tout petit face o travail accompli >>> mankeré ptet une annonce... Pi oci moi il me fé planté mé ca ca vien de mon ****** de systeme grrrrrr... j laisse qd meme un ptit 10/10 dommage j voulé mettre 11 mé bon félicitations encore
PeAcE N` FuCk
Bonne continuation à toi

Commentaire de disca le 05/04/2003 13:09:09

belle jobe mais bcp de code inutil , optimise un peut tout sa les alias et ta quelque bug aussi :)
comme je dit ,

winamp est la :P et le monde senfou quesque on écoute

si tout le monde aurais un lecteur mp3 en script et sa se merais a écouté dla toune dison que sa serais plus les lecteur qui chat que nous sur les channel hahahahahahahah

Commentaire de Funcod le 30/04/2003 17:57:39

wow impressionant
sinon c normal chez moi il est transparent presque invisible
jpense ça vient du fait que juse un prog qui rend ma barre des taches
semi transparente enfin nj

Commentaire de Funcod le 30/04/2003 18:00:57

wow impressionant
sinon c normal chez moi il est transparent presque invisible
jpense ça vient du fait que juse un prog qui rend ma barre des taches
semi transparente enfin nj

Commentaire de thyb le 04/08/2003 02:13:42

bah c tout bon :p franchement on sens la metrise du pickwin :) bravo et bonne continuation ;) par contre je trouve qu'il manque quelque option qui pourrai y etre comme le mode repeat ou shuffle, meme pe etre les equaliseur avec la dll ctlamp.dll qui est hyper utile pour les mp3. mais l'interface de ton lecteur est nikel, rien a dire :)
( tu pourrais mettre ton addon dans le niveau 3 lol car c du grand art!)

Bonne continuation

Commentaire de Oz26 le 11/10/2003 11:15:38

Tou ske jdi c GG mec

Commentaire de croustibat82 le 23/12/2003 17:32:56

Mwa je dis chapeau, j'étais entrain de faire un truc de ce genre, mais la je pense que je peux abandonner, mon interface ne valait meme pas 1/500 donc j'abandonne...
10/10
Et continue comme ça!!!

Commentaire de cedricpcboss le 08/03/2004 20:26:55

Super le design et le fonctionnement :)
Manque juste qu'on puisse choisir pour afficher un message sur les channels.
Si tu veux, je l'ai presque fini donc je pourrais te le passer ?

Commentaire de cedricpcboss le 08/03/2004 20:59:32

Par contre, je vient de remarquer que si tu change de directoire pendant une chanson et que tu est en mode continue, et bien il saute la premiere. Et quand tu a activer le pitit A et qu'il pars, quand tu le remets, la barre de prograssion disparait :'(
Je sais pas si tu as remarquer... Mais il fonctionne quand meme tres bien :)
Je te mets 9/10

(ps pour mon petit fichier, il serais senser afficher uniquement sur les chans desiré... A voir)

Commentaire de croustibat82 le 02/06/2004 19:13:45

J'ai fait mon script et j'ai remis ta source dedans, en précisant bien qaue ce n'est pas de mwa et j'ai aussi mis le lien de cette source dessus, et on m'a dit 'Je n'ai pas réussi à charger mes 2000 mp3 dans la playlist. c normal?' je lui ai répondu que c'était normal, j'ai raison non?

Commentaire de esteban_ le 13/10/2004 16:51:44

euh j'suis un peu bouche B la, bravo 10/10.

Commentaire de Ziploc le 19/11/2004 19:44:58

Trop fort ce lecteur mp3 , c un des plus zoli que j'ai vu bravo epsilon :) 10/10 :p

Commentaire de bibi_81 le 06/02/2005 16:05:31

impec, seulement voila, c emcombrant ... mais jle garde pck t gentil et ke le design est (assez) beau :)

Commentaire de bibi_81 le 06/02/2005 16:06:24

aussi jmet 1/10 :p noooon jrigole jvai mettre, pff allez, 9 ? oue 9 c bien :)

Commentaire de Dimmu Borgir le 20/02/2005 10:18:59

Genial!! j'adore.. Chapeau Epsilon c le meilleur que j'ai vu ici
10

Commentaire de 1Pyrrah1 le 24/07/2005 07:30:02

Moi je trouve perso que c'est du beau boulot :) 9/10

Commentaire de Blo0r le 20/08/2005 05:36:27

SOS j'arrive pas à c/C une source sans prendre les numéros de chaque ligne à gauche, c'est normal ? :/

Commentaire de Blo0r le 20/08/2005 05:40:38

ah voilà ca marchait pas avec FireFox, avec ie ça marche nikel, dsl ^^

Commentaire de lolindir le 21/09/2005 22:30:19

franchement, j'ai essayer de trovuer plusieur mp3 qui marche queunini, quand j'ai vu ton mp3 j'le savasi qu'il allait marcher et il marche j'suis super content! il y a de koi de dormir en bonne humeur ;) merci 11/10

Commentaire de jlbnb le 01/09/2007 04:24:20

je viens de tester ce lecteur mp3.très facile à installer et à lancer. petit, super design,le fond bleu-violet degradé se marie à merveille avec mon script, et le bouton orange parfait . la playlist se range sur le coté , et on peut mettre le lecteur en arriere-plan(cliker sur le A du lecteur, puis un c lic sur le script). au final , un lecteur génial , exactement ce que j'imaginais avoir depuis longtemps. Merci EpsiloN. UNE seule chose qui me manque: avoir un affichage du titre joué sur un ou plusieurs salons...qui pourrait me dire comment faire ? Merci d'avance.

Commentaire de minerbe le 06/08/2008 13:33:33

Très bien y manque juste un petit truc qui serais le bienvenue. Un menu ^_^

Ajouter un commentaire

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 MP3 avec mIRC 6.21 [ par BSmax ] Bonjour,J'ai un petit problème ! Je sais que dans mIRC 6.21 toutes les commandes de son dépendent de la case Enable Sounds qui est bien cochée dans le 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 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 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 Script Mirc pour afficher les lecteur Reseau [ par wally314 ] Et ben voila tout est dans le titre.Pour le moment j'ai trouver pour afficher le disque dur local et meme le lecteur CD mais pas moyen pour les lecteu 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 changer le nick de quelq'un sur mirc [ par dr_watson ] Je veu just savoir sil y a un moyen de changer le nickname de kelk1 sur mirc. si oui, lequel??M.K.E.I Question sur le dialogue mirc entre 2 serveurs [ par Zerross ] tout d'abord, bonjour a vous tous qui lisez ce message :)Ensuite, je me suis posé une question, et je n'arrive pas a trouvé de réponse donc, je vais v

Nos sponsors

Derniers Blogs

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

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