begin process at 2012 02 08 19:18:54
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > LECTEUR MP3 EN PICKWIN (MODIFIER)

LECTEUR MP3 EN PICKWIN (MODIFIER)


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :player, picwin, mp3, lecteur, musique Niveau :Débutant Date de création :06/06/2003 Date de mise à jour :07/06/2003 19:01:27 Vu :3 835

Auteur : Tommlkj

Ecrire un message privé
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

Un lecteur différent de tous les autre lecteur en dialog.
Il n'est toujours pas fini... Il y a juste une chose en plus, le nom du mp3...

Source

  • On *:load:{ if ($version != 6.03) { echo -a Votre version est différente de la 6.03, je ne sais pas si le lecteur fonctionne... tapez /lectmp3 }
  • else { echo -a Lecteur Mp3 Charger | lectmp3 }
  • }
  • alias Lectmp3 {
  • window -odapBk0z +dL @mp3 10 10 180 120 | drawrect @mp3 1 1 19 104 141 15 | drawrect @mp3 1 1 0 0 180 335 | drawrect @mp3 1 1 0 0 180 10 | drawrect @mp3 1 1 0 0 162 10 | drawtext @mp3 1 Arial 8 172 0 X | drawtext @mp3 1 Arial 9 164 -3 _ | drawtext @mp3 1 Tahoma 8 14 0 Lecteur MP3 par Tom_mlkj | drawrect -f @mp3 1 1 26 57 30 15 | drawrect -f @mp3 1 1 59 57 30 15 | drawrect -f @mp3 1 1 92 57 30 15 | drawrect -f @mp3 1 1 65 25 52 15 | drawrect -f @mp3 1 1 125 57 30 15 | drawrect @mp3 1 1 73 88 34 15 | drawline @mp3 1 1 19 95 73 95 | drawline @mp3 1 1 106 95 160 95 | drawtext @mp3 0 Tahoma 11 75 25 Dossier | drawtext @mp3 0 Tahoma 10 32 58 Play | drawtext @mp3 0 Tahoma 10 61 58 Pause | drawtext @mp3 0 Tahoma 10 131 58 Stop | drawtext @mp3 0 Tahoma 8 93 60 Resume | window -apoBk0dslL +deL @pl 10 130 180 200 arial 12 |
  • var %a = $findfile(%dossier,*.mp3*,0,1, aline -p 10 @pl $nopath($1-))
  • }
  • menu @mp3 {
  • mouse {
  • if ($mouse.x >= 59) && ($mouse.x <= 89) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 59 57 30 15 | drawtext @mp3 1 Tahoma 10 61 58 Pause }
  • else { drawrect -f @mp3 1 1 59 57 30 15 | drawtext @mp3 0 Tahoma 10 61 58 Pause }
  • if ($mouse.x >= 26) && ($mouse.x <= 56) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 26 57 30 15 | drawtext @mp3 1 Tahoma 10 32 58 Play }
  • else { drawrect -f @mp3 1 1 26 57 30 15 | drawtext @mp3 0 Tahoma 10 32 58 Play }
  • if ($mouse.x >= 92) && ($mouse.x <= 121) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 92 57 30 15 | drawtext @mp3 1 Tahoma 8 93 60 Resume }
  • else { drawrect -f @mp3 1 1 92 57 30 15 | drawtext @mp3 0 Tahoma 8 93 60 Resume }
  • if ($mouse.x >= 125) && ($mouse.x <= 154) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 125 57 30 15 | drawtext @mp3 1 Tahoma 10 131 58 Stop }
  • else { drawrect -f @mp3 1 1 125 57 30 15 | drawtext @mp3 0 Tahoma 10 131 58 Stop }
  • if ($mouse.x >= 65) && ($mouse.x <= 116) && ($mouse.y >= 25) && ($mouse.y <= 39) { drawrect -f @mp3 0 0 65 25 52 15 | drawtext @mp3 1 Tahoma 11 75 25 Dossier }
  • else { drawrect -f @mp3 1 1 65 25 52 15 | drawtext @mp3 0 Tahoma 11 75 25 Dossier } }
  • sclick {
  • if ($mouse.y < 20) Lectmp3.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
  • if ($inrect($mouse.x,$mouse.y,169,1,10,9)) { window -c @mp3 | window -c @pl | set %lectmpause 0 }
  • if ($inrect($mouse.x,$mouse.y,164,0,10,9)) { window -c @mp3 | window -c @pl | reduc }
  • if ($inrect($mouse.x,$mouse.y,26,57,30,15)) { if ( %playlectmp3 != $null ) { splay -p %playlectmp3 | set %lectmpause 0 | .timer 0 1 lectmp3tps
  • drawrect -f @mp3 10 10 20 105 139 13
  • drawtext @mp3 1 Tahoma 10 22 105 $left( $+ $nopath( $+ $insong.fname $+ ) $+ ,25) $+ ... } }
  • if ($inrect($mouse.x,$mouse.y,125,57,30,15)) { splay stop | drawrect -f @mp3 10 10 74 89 32 13 | drawrect -f @mp3 10 10 20 105 139 13 | set %lectmpause 0 }
  • if ($inrect($mouse.x,$mouse.y,59,57,30,15)) { if ($insong == $true) { splay pause | set %lectmpause 1 } }
  • if ($inrect($mouse.x,$mouse.y,92,57,30,15)) { if (%lectmpause == 1) { splay resume | set %lectmpause 0 } }
  • if ($inrect($mouse.x,$mouse.y,65,25,51,14)) {
  • if ($window(@pl)) {
  • %dossier = $sdir(*.*,Choisir le dossier,OK!)
  • clear @pl
  • var %a = $findfile(%dossier,*.mp3*,0,1, .aline -p 10 @pl $nopath($1-)) }
  • }
  • }
  • }
  • On *:close:@mp3:{ unset %lectmpause }
  • alias reduc { window -odapBk0z +dL @reduc 0 300 5 90 | drawfill @reduc 10 10 1 1 | drawtext @reduc 0 Tahoma 10 2 0 L | drawtext @reduc 0 Tahoma 10 2 8 E | drawtext @reduc 0 Tahoma 10 1 16 C | drawtext @reduc 0 Tahoma 10 2 24 T | drawtext @reduc 0 Tahoma 10 2 32 E | drawtext @reduc 0 Tahoma 10 1 40 U | drawtext @reduc 0 Tahoma 10 2 48 R | drawtext @reduc 1 Tahoma 10 2 60 M | drawtext @reduc 1 Tahoma 10 3 68 P | drawtext @reduc 1 Tahoma 10 3 76 3 }
  • menu @reduc {
  • sclick { window -c @reduc | lectmp3 } }
  • alias lectmp3tps { if ($window(@mp3)) && ($insong != $false) { set %tpslectmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) | titipopo } }
  • alias titipopo { %tpslectmp3 = $replace( %tpslectmp3 ,secs,) | %tpslectmp3 = $replace( %tpslectmp3 ,mins, :) | %tpslectmp3 = $replace( %tpslectmp3 ,sec,) | %tpslectmp3 = $replace( %tpslectmp3 ,min, :) | %tpslectmp3 = $replace( %tpslectmp3 , ,) | drawrect -f @mp3 10 10 74 89 32 13 | drawtext -p @mp3 1 Tahoma 9 80 90 1,10 $+ %tpslectmp3 }
  • menu @pl {
  • dclick { set %playlectmp3 %dossier $+ $sline(@pl,1) } }
  • alias -l Lectmp3.move { if ($window(@mp3)) window @mp3 $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($window(@pl)) window @pl $calc($mouse.dx - $1 - -0) $calc($mouse.dy - $2 - -120) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 Lectmp3.move $1- }
On *:load:{ if ($version != 6.03) { echo -a Votre version est différente de la 6.03, je ne sais pas si le lecteur fonctionne... tapez /lectmp3 }
  else { echo -a Lecteur Mp3 Charger | lectmp3 }
}
alias Lectmp3 {
  window -odapBk0z +dL @mp3 10 10 180 120 | drawrect @mp3 1 1 19 104 141 15 | drawrect @mp3 1 1 0 0 180 335 | drawrect @mp3 1 1 0 0 180 10 | drawrect @mp3 1 1 0 0 162 10 | drawtext @mp3 1 Arial 8 172 0 X | drawtext @mp3 1 Arial 9 164 -3 _ | drawtext @mp3 1 Tahoma 8 14 0 Lecteur MP3 par Tom_mlkj | drawrect -f @mp3 1 1 26 57 30 15 | drawrect -f @mp3 1 1 59 57 30 15 | drawrect -f @mp3 1 1 92 57 30 15 | drawrect -f @mp3 1 1 65 25 52 15 | drawrect -f @mp3 1 1 125 57 30 15 | drawrect @mp3 1 1 73 88 34 15 | drawline @mp3 1 1 19 95 73 95 | drawline @mp3 1 1 106 95 160 95 | drawtext @mp3 0 Tahoma 11 75 25 Dossier | drawtext @mp3 0 Tahoma 10 32 58 Play | drawtext @mp3 0 Tahoma 10 61 58 Pause | drawtext @mp3 0 Tahoma 10 131 58 Stop | drawtext @mp3 0 Tahoma 8 93 60 Resume | window -apoBk0dslL +deL @pl 10 130 180 200 arial 12 | 
  var %a = $findfile(%dossier,*.mp3*,0,1, aline -p 10 @pl $nopath($1-))
}
menu @mp3 {
  mouse { 
    if ($mouse.x >= 59) && ($mouse.x <= 89) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 59 57 30 15 | drawtext @mp3 1 Tahoma 10 61 58 Pause } 
    else { drawrect -f @mp3 1 1 59 57 30 15 | drawtext @mp3 0 Tahoma 10 61 58 Pause } 
    if ($mouse.x >= 26) && ($mouse.x <= 56) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 26 57 30 15 | drawtext @mp3 1 Tahoma 10 32 58 Play } 
    else { drawrect -f @mp3 1 1 26 57 30 15 | drawtext @mp3 0 Tahoma 10 32 58 Play }
    if ($mouse.x >= 92) && ($mouse.x <= 121) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 92 57 30 15 | drawtext @mp3 1 Tahoma 8 93 60 Resume } 
    else { drawrect -f @mp3 1 1 92 57 30 15 | drawtext @mp3 0 Tahoma 8 93 60 Resume } 
    if ($mouse.x >= 125) && ($mouse.x <= 154) && ($mouse.y >= 57) && ($mouse.y <= 72) { drawrect -f @mp3 0 0 125 57 30 15 | drawtext @mp3 1 Tahoma 10 131 58 Stop } 
    else { drawrect -f @mp3 1 1 125 57 30 15 | drawtext @mp3 0 Tahoma 10 131 58 Stop } 
    if ($mouse.x >= 65) && ($mouse.x <= 116) && ($mouse.y >= 25) && ($mouse.y <= 39) { drawrect -f @mp3 0 0 65 25 52 15 | drawtext @mp3 1 Tahoma 11 75 25 Dossier } 
  else { drawrect -f @mp3 1 1 65 25 52 15 | drawtext @mp3 0 Tahoma 11 75 25 Dossier } }
  sclick {
    if ($mouse.y < 20) Lectmp3.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
    if ($inrect($mouse.x,$mouse.y,169,1,10,9)) { window -c @mp3 | window -c @pl | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,164,0,10,9)) { window -c @mp3 | window -c @pl | reduc }
    if ($inrect($mouse.x,$mouse.y,26,57,30,15)) { if ( %playlectmp3 != $null ) { splay -p %playlectmp3 | set %lectmpause 0 | .timer 0 1 lectmp3tps
        drawrect -f @mp3 10 10 20 105 139 13  
    drawtext @mp3 1 Tahoma 10 22 105 $left( $+ $nopath( $+ $insong.fname $+ ) $+ ,25) $+ ... } }
    if ($inrect($mouse.x,$mouse.y,125,57,30,15)) { splay stop | drawrect -f @mp3 10 10 74 89 32 13 | drawrect -f @mp3 10 10 20 105 139 13 | set %lectmpause 0 }
    if ($inrect($mouse.x,$mouse.y,59,57,30,15)) { if ($insong == $true) { splay pause | set %lectmpause 1 } }
    if ($inrect($mouse.x,$mouse.y,92,57,30,15)) { if (%lectmpause == 1) { splay resume | set %lectmpause 0 } }
    if ($inrect($mouse.x,$mouse.y,65,25,51,14)) {   
      if ($window(@pl)) {
        %dossier = $sdir(*.*,Choisir le dossier,OK!)
        clear @pl
      var %a = $findfile(%dossier,*.mp3*,0,1, .aline -p 10 @pl $nopath($1-)) }
    }
  }
}
On *:close:@mp3:{ unset %lectmpause } 
alias reduc { window -odapBk0z +dL @reduc 0 300 5 90 |  drawfill @reduc 10 10 1 1 |  drawtext @reduc 0 Tahoma 10 2 0 L |  drawtext @reduc 0 Tahoma 10 2 8 E |  drawtext @reduc 0 Tahoma 10 1 16 C |  drawtext @reduc 0 Tahoma 10 2 24 T |  drawtext @reduc 0 Tahoma 10 2 32 E |  drawtext @reduc 0 Tahoma 10 1 40 U |  drawtext @reduc 0 Tahoma 10 2 48 R |  drawtext @reduc 1 Tahoma 10 2 60 M |  drawtext @reduc 1 Tahoma 10 3 68 P |  drawtext @reduc 1 Tahoma 10 3 76 3 }
menu @reduc { 
sclick { window -c @reduc | lectmp3 } }
alias lectmp3tps { if ($window(@mp3)) && ($insong != $false) { set %tpslectmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) | titipopo  } }
alias titipopo {  %tpslectmp3 = $replace( %tpslectmp3 ,secs,) |  %tpslectmp3 = $replace( %tpslectmp3 ,mins, :) |  %tpslectmp3 = $replace( %tpslectmp3 ,sec,) |  %tpslectmp3 = $replace( %tpslectmp3 ,min, :) |  %tpslectmp3 = $replace( %tpslectmp3 , ,) |  drawrect -f @mp3 10 10 74 89 32 13 |  drawtext -p @mp3 1 Tahoma 9 80 90 1,10 $+ %tpslectmp3 }
menu @pl {
dclick {    set %playlectmp3 %dossier $+ $sline(@pl,1)  } }
alias -l Lectmp3.move { if ($window(@mp3)) window @mp3 $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($window(@pl)) window @pl $calc($mouse.dx - $1 - -0) $calc($mouse.dy - $2 - -120) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 Lectmp3.move $1- }



 Sources du même auteur

Source avec une capture ANTI FLOOD
Source avec une capture ENCORE UN LECTEUR MP3...
CALCULATRICE EN DIALOG

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

 Sources en rapport avec celle ci

Source avec une capture (MP3 PLAYER) par Mc_AbBeR
LECTEUR MP3 BY MC_ABBER par Abber
Source avec une capture MP3 PLAYER par BSmax
LECTEUR MP3 par Samsung741
Source avec Zip Source avec une capture MP3 PLAYER par Dark-Dragoon

Commentaires et avis

Commentaire de nitro120 le 06/06/2003 22:56:36

ca peut etre utile
merci

Commentaire de jujuquatre le 07/06/2003 09:20:06

Oué les cool celui la :)
Bv tom

Commentaire de KoDeRz le 07/06/2003 11:20:43

ouai il est super ce mp3 bravo tom

Commentaire de Tommlkj le 07/06/2003 12:27:24

merci ^^ mais c'est rien comparé a celui de mon script :P

Commentaire de SipiX le 07/06/2003 13:43:09

super bien, et il est comment celui de ton script ? :)

Commentaire de Tommlkj le 07/06/2003 15:28:35

il ressemble a WinAMP... mais il manque beaucoup de fonction

Commentaire de abdoulax le 07/06/2003 19:06:00

lu Tommlkj

j'avai déjà vu ce style de présentation ms g jms trouvé de site qi expliqé comment ca marche . Dc si tu pouvais me dire qel est ta source ca serai cool .
Merci d'avance !

Sinon pr ton script je pense q tu aurai pu faire mieu . J'espere que c une version béta ! lol . nan ms c un bon début je pense .

abdoulax

Commentaire de Tommlkj le 07/06/2003 19:55:18

bah ma source, c'est l'aide de mirc... puis c'est un lecteur que jai fait rapidos, mais c'est pas celui de mon script.
wala wala

Commentaire de Tommlkj le 08/06/2003 09:29:22

pour l'aide de mIRC sur les @window, /help /window

Commentaire de T0x1K le 08/06/2003 23:00:26

lé cool ton lecteur ;)
O fait , c koi ton script tom?

Commentaire de Tommlkj le 09/06/2003 22:50:04

il est pas encore sortie, mais sa arrive

Commentaire de nitro120 le 10/06/2003 10:53:41

yen a un qué super bien fé je c pa si tu conné c argh-amp
http://pages.cthome.net/pdufilie/irc.html

Commentaire de DeViL66 le 31/08/2005 12:09:34

Une tite erreur... Quand on met plusieurs titres dans le mp3, et que l'on veu jouer le 2ème par exemple, il joue le premier...
Pareil pour les autres titres :p

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

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 &gt;ET&lt; MIDI siouplait ... Deja me demanderez vous le formtat MIDI est peu repandu NON !!moi 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 tutorial picwin [ par KiNdErMaXi ] alors voila j'ai fais un petit tutorial sur les picwin, mais comme on ne peut pas laisser de commentaire et puis qu'il est enfouis dans le fond du sit Petit probleme de bwrite [ par VestaX ] hello les gens!! Voil&#224;, je suis en train de cr&#233;e un addon pour d&#233;compresser les fichier.cdaen fichiers.mp3Voil&#224; ma sourcebwrite te DCC [ par gidzit ] Bonjour je voudr&#233; cr&#233;e un envois de ficher sur un double clickex: 03:33:31 * TonTon Ecoute ( Mylo - Drop The Pressure ) Time: ( 1:47/5:11 (3 problème de picwin ... [ par KiNdErMaXi ] Bonsoir :)Alors voila, je trouvais bizarre certain /drawtext sur mon mIRC, alors j'ai tester avec un autre mIRC et la diff&#233;rence est flagrante ..


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,340 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales