begin process at 2010 02 10 00:49:23
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > MP3 EN DIALOG ET INPUT

MP3 EN DIALOG ET INPUT


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Classé sous :Vor4x, Mp3, musique, irc, chat Niveau :Initié Date de création :24/02/2009 Date de mise à jour :25/02/2009 19:15:50 Vu / téléchargé :1 722 / 91

Auteur : Vor4x

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

 Description

Cliquez pour voir la capture en taille normale
Mp3 en dialog et input. pour l'installer, telecharger le zip, puis place les dossiers et le .mrc à la racine de votre mIRC puis taper : /load -rs mp3.mrc


Pour ouvrir le mp3 /mp3


















;

Source

  • /*
  • Auteur: Vor4x
  • Since: 23/02/2009
  • Description: Lecteur mp3
  • Utilisation: /Mp3
  • */
  • ;#Popups
  • Menu channel,menubar {
  • > Mp3 <:mp3
  • }
  • ;#Alias
  • alias mp3 dialog $iif(!$dialog(mp3),-md mp3,-v) mp3
  • alias mdx return $mircdir $+ dll\mdx.dll
  • alias loadbuf.mp3 {
  • var %i $findfile($hget(mp3,playlist),*.*,0)
  • while (%i) {
  • did -a mp3 2 $findfile($hget(mp3,playlist),*.*,%i),-1,58) $chr(9) $iif($sound($findfile($hget(mp3,playlist),*.*,%i)).title,$sound($findfile($hget(mp3,playlist),*.*,%i)).title,Aucun) $chr(9) $iif($sound($findfile($hget(mp3,playlist),*.*,%i)).genre,$sound($findfile($hget(mp3,playlist),*.*,%i)).genre,Aucun) $chr(9) $duration($calc($sound($findfile($hget(mp3,playlist),*.*,%i)).length / $& 1000)) $chr(9) $sound($findfile($hget(mp3,playlist),*.*,%i)).bitrate
  • dec %i
  • }
  • }
  • alias mp3preview {
  • if ($dialog(mp3)) && ($inmp3) {
  • if (%mp3preview == -700) set -e %mp3preview 350
  • .remove icones\mp3preview.jpg
  • window -ph +b @mp3 -1 -1 350 50
  • drawtext -p @mp3 1 "tahoma" 18 %mp3preview 13 $+($chr(3),$r(1,15),,$chr(3)) Lecture en cours: $token($insong.fname,-1,92) &#8226; Durée: $duration($calc($sound($insong.fname).length / $& 1000))) &#8226; $+($chr(3),$r(1,15),,$chr(3))                                  $time
  • drawsave @mp3 icones\mp3preview.jpg
  • did -g mp3 33 icones\mp3preview.jpg
  • window -c @mp3
  • dec %mp3preview
  • }
  • else { if ($dialog(mp3)) did -g mp3 33 icones\mp3.jpg }
  • }
  • alias splayalea {
  • if (!$hget(mp3,mp3rien)) {
  • if (!$exists($longfn($hget(mp3,Playlist)))) { Hadd mp3 Playlist $shortfn($$sdir(C:\,Choisis ta liste de musique.)) }
  • if ($2) && (!$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,1)) { splay $findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,0))) }
  • if (!$2) { splay $findfile($longfn($hget(mp3,Playlist)),*.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),*.mp3,0))) }
  • if ($server != $null) && (!$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,1)) {
  • if ($hget(data,mp3echo)) .timer 1 0 echo -a $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title)
  • else { if ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) }
  • }
  • }
  • }
  • ;#Boite de dialog
  • dialog mp3 {
  • title "- Ecoutez vos musique - [ /Mp3 ] "
  • size -1 -1 323 130
  • option dbu
  • icon Icones\sons.ico, 1
  • list 2, 3 3 158 93, size
  • list 3, 3 106 50 10, size
  • list 4, 61 106 50 10, size
  • list 5, 123 106 39 10, size
  • check "Lecture Auto", 6, 167 10 43 9
  • check "Infos bulle", 9, 220 10 37 9
  • list 10, 3 96 159 10, size
  • button "Ok", 13, 261 103 60 14, ok
  • list 14, -1 120 325 10, size
  • box "Options", 15, 163 1 157 100
  • check "Raccourci Mp3", 16, 269 10 47 9
  • text "Play:", 17, 167 22 13 8
  • text "Arreter:", 18, 247 22 20 8
  • text "Playlist:", 19, 167 36 19 8
  • edit "", 20, 189 22 40 9, autohs
  • edit "", 21, 276 22 40 9, autohs
  • edit "", 22, 189 36 40 9, autohs
  • text "Infos:", 23, 247 37 15 8
  • edit "", 24, 276 36 40 9, autohs
  • edit "", 25, 189 50 40 9
  • text "Pause:", 26, 167 51 19 8
  • text "Reprendre:", 27, 247 51 27 8
  • edit "", 28, 276 51 40 9, autohs
  • edit "", 29, 189 65 40 9, autohs
  • text "Volume:", 31, 167 65 19 8
  • icon 33, 163 102 94 15, icones\mp3.jpg, 0, noborder
  • text "Message:", 35, 167 78 25 8
  • edit "", 36, 195 78 121 9, autohs
  • radio "echo", 37, 167 90 24 8
  • radio "rien afficher", 38, 278 90 39 8
  • radio "Msg active", 39, 217 90 37 8
  • }
  • ;#Evenements
  • on *:dialog:mp3:*:*: {
  • if ($devent == init) {
  • dll $mdx SetMircVersion $version
  • dll $mdx MarkDialog $dname
  • dll $mdx SetBorderStyle 3,4,5,10
  • dll $mdx SetControlMDX 14 statusbar sizeGrip > dll\bars.mdx
  • dll $mdx SetControlMDX 10 Trackbar tooltips size > dll\bars.mdx
  • dll $mdx SetControlMDX 3,4,5 ToolBar flat nodivider list > dll\bars.mdx
  • dll $mdx SetControlMDX 2 listview report showsel infotip grid nosortheader > dll\views.mdx
  • did -i $dname 2 1 settxt color $rgb(0,0,131)
  • did -i $dname 2 1 headerdims 100:50 80:50 80:50 80:50 80:50
  • did -i $dname 2 1 headertext Chemin $chr(9) Titre $chr(9) Genre $chr(9) Durée $chr(9) Bitrate
  • did -i $dname 3,4,5 1 bmpsize 30 15
  • did -i $dname 3 1 setimage +nhd 0 icon large 0,icones\play.ico
  • did -a $dname 3 1 Lire $chr(9) Lire la musique selectionner
  • did -i $dname 4 1 setimage +nhd 0 icon large 0,icones\stop.ico
  • did -a $dname 4 1 Arreter $chr(9) Arreter la musique
  • did -i $dname 5 1 setimage +nhd 0 icon large 0,icones\playlist.ico
  • did -a $dname 5 1 Playlist $chr(9) Choisissez le répertoire !
  • did -i $dname 10 1 params $int($calc($vol(song) / 65535 * 100))
  • did -i mp3 14 1 seticon 0 small 0,icones\wmp.ico
  • did -a $dname 20 $hget(mp3,cmdplay)
  • did -a $dname 21 $hget(mp3,cmdarret)
  • did -a $dname 22 $hget(mp3,cmdplaylist)
  • did -a $dname 24 $hget(mp3,cmdinfos)
  • did -a $dname 25 $hget(mp3,cmdpause)
  • did -a $dname 28 $hget(mp3,cmdreprendre)
  • did -a $dname 29 $hget(mp3,cmdvolume)
  • did -a $dname 36 $hget(mp3,mp3message)
  • if (!$hget(mp3,playlist)) hadd mp3 playlist $sdir(Choisissez un dossier,Playlist)
  • did -i mp3 14 2 1 $iif($hget(mp3,playlist),Playlist: $hget(mp3,playlist) $str(,110) $findfile($hget(mp3,playlist),*.*,0) musiques)
  • if ($hget(mp3,mp3auto)) did -c $dname 6
  • if ($hget(mp3,mp3bulle)) did -c $dname 9
  • if ($hget(mp3,mp3cmd)) did -c $dname 16
  • if (!$hget(mp3,mp3cmd)) did -b $dname 20,21,22,24,25,28,29,17,18,19,23,26,27,31
  • if ($hget(mp3,mp3echo)) did -c $dname 37
  • if ($hget(mp3,mp3rien)) did -c $dname 38
  • if ($hget(mp3,mp3msg)) did -c $dname 39
  • .timermp3buf 1 1 loadbuf.mp3
  • if ($inmp3) { var %i $timer(0) | while (%i) { if ($timer(%i) != preview) .timerpreview -m 0 95 mp3preview | dec %i } | mp3preview }
  • }
  • elseif ($devent == close) .timerpreview off
  • elseif ($devent == dclick) && ($did = 2) && ($did(2).seltext) { .splay $token($token($did(2).seltext,6-,32),1,9) | .timerpreview -m 0 95 mp3preview }
  • elseif ($devent == sclick) {
  • if ($did = 3) { if ($did(2).seltext) { .splay $token($token($did(2).seltext,6-,32),1,9) | .timerpreview -m 0 95 mp3preview } | else noop $input(Erreur: Vous n'avez pas cliquée sur la liste $+ $chr(44) aucune musique ne peut se lire.,hod,Erreur) }
  • elseif ($did = 4) { .splay stop | .timerpreview off | did -g mp3 33 icones\mp3.jpg }
  • elseif ($did = 5) { did -r $dname 2 | hadd mp3 playlist $sdir(Choisissez un dossier,Playlist) | did -i mp3 14 2 1 Playlist: $hget(mp3,playlist) $str(,110) $findfile($hget(mp3,playlist),*.*,0) musiques | loadbuf.mp3 }
  • elseif ($did = 6) hadd mp3 mp3auto $did(6).state
  • elseif ($did = 9) hadd mp3 mp3bulle $did(9).state
  • elseif ($did = 10) vol -p $int($calc($token($did(10).seltext,1,32) * 65535 / 100))
  • elseif ($did = 16) { hadd mp3 mp3cmd $did(16).state | $iif($did(16).state == 1, did -e $dname, did -b $dname) 20,21,22,24,25,28,29,17,18,19,23,26,27,31 }
  • elseif ($did = 37) { hadd mp3 mp3echo $did(37).state | hdel mp3 mp3msg | hdel mp3 mp3rien | did -e $dname 38,39 | did -b $dname 37 | did -u $dname 38,39 }
  • elseif ($did = 38) { hadd mp3 mp3rien $did(38).state | hdel mp3 mp3msg | hdel mp3 mp3echo | did -e $dname 37,39 | did -b $dname 38 | did -u $dname 37,39 }
  • elseif ($did = 39) { hadd mp3 mp3msg $did(39).state | hdel mp3 mp3echo | hdel mp3 mp3rien | did -e $dname 38,37 | did -b $dname 39 | did -u $dname 38,37 }
  • }
  • elseif ($devent == edit) {
  • if ($did = 20) hadd mp3 cmdplay $did(20)
  • elseif ($did = 21) hadd mp3 cmdarret $did(21)
  • elseif ($did = 22) hadd mp3 cmdplaylist $did(22)
  • elseif ($did = 24) hadd mp3 cmdinfos $did(24)
  • elseif ($did = 25) hadd mp3 cmdpause $did(25)
  • elseif ($did = 28) hadd mp3 cmdreprendre $did(28)
  • elseif ($did = 29) hadd mp3 cmdvolume $did(29)
  • elseif ($did = 36) hadd mp3 mp3message $did(36)
  • }
  • }
  • on *:mp3end: {
  • mp3preview
  • if ($hget(mp3,mp3auto)) {
  • splay $findfile($longfn($hget(mp3,Playlist)),*.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),*.mp3,0)))
  • if ($hget(mp3,mp3bulle)) noop $tip(Lecteur Mp3,Lecteur Mp3,Lecture en cours: 10 $+ $sound($insong.fname).title $+  - Durée: $duration($calc($sound($insong.fname).length / $& 1000)),10,icones\sons.ico)
  • if ($hget(mp3,mp3echo)) .timer 1 0 echo -a $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title)
  • else { if ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) }
  • }
  • }
  • on *:input:*:{
  • if ($hget(mp3,mp3rien)) return
  • if ($hget(mp3,mp3cmd)) && (!$hget(data,mp3rien)) {
  • if ($1 == $hget(mp3,cmdplay)) .splayalea $2
  • elseif ($1 == $hget(mp3,cmdarret)) {
  • splay stop
  • if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Arret du mp3.
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Arret du mp3.
  • }
  • elseif ($1 == $hget(mp3,cmdplaylist)) {
  • var %fr $sdir(Choisissez un dossier,Playlist)
  • hadd mp3 playlist %fr
  • if ($hget(mp3,mp3echo)) .echo -a (Mp3) Playlist: fichier choisis: %fr $+ .
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Playlist: fichier choisis: %fr $+ .
  • }
  • elseif ($1 == $hget(mp3,cmdinfos)) && ($inmp3) {
  • if ($hget(mp3,mp3echo)) .timer 1 0 .echo -a $replace($hget(mp3,mp3message),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title,<duree>,Durée: $duration($calc($sound($insong.fname).length / $& 1000))))
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title,<duree>,Durée: $duration($calc($sound($insong.fname).length / $& 1000))))
  • }
  • elseif ($1 == $hget(mp3,cmdinfos)) && (!$inmp3) noop $input(Erreur: Aucun infos est disponible.,hod,erreur)
  • elseif ($1 == $hget(mp3,cmdpause)) {
  • splay pause
  • if ($hget(mp3,mp3echo)).timer 1 0 echo -a (Mp3) Le mp3, est maintenant en pause.
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le mp3, est maintenant en pause.
  • }
  • elseif ($1 == $hget(mp3,cmdreprendre)) {
  • if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Le mp3, n'est maintenant plus en pause.
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le mp3, n'est maintenant plus en pause.
  • }
  • elseif ($1 == $hget(mp3,cmdvolume)) && ($2) {
  • vol -p $calc(655.36 * $2)
  • if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Le volume du Mp3 est maintenant: $+($chr(2),$2,$chr(2)) $+ %
  • if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le volume du Mp3 est maintenant: $2 $+ %
  • }
  • }
  • }
  • on *:load:{
  • if (!$hget(mp3)) hmake mp3 50
  • hadd mp3 mp3message &#8226; Mp3: <titre> - Durée: <duree> Bitrate: <bitrate>
  • hadd mp3 mp3rien 1
  • hadd mp3 cmdplay !zik
  • hadd mp3 cmdreprendre !reprise
  • hadd mp3 cmdinfos !mp3infos
  • hadd mp3 cmdplaylist !playlist
  • hadd mp3 cmdpause !pause
  • hadd mp3 cmdvolume !vol
  • hadd mp3 cmdarret !mp3stop
  • hadd mp3 mp3cmd 1
  • hadd mp3 mp3bulle 1
  • hadd mp3 mp3Auto 1
  • hsave mp3 mp3.txt
  • .echo -a Addon bien chargé, Mp3 v1.2 by Vor4x
  • mp3
  • }
  • on *:exit:hsave mp3 mp3.txt
  • on *:start: { if (!$hget(mp3)) hmake mp3 50 | hload mp3 mp3.txt }
/*
Auteur: Vor4x
Since: 23/02/2009
Description: Lecteur mp3
Utilisation: /Mp3
*/

;#Popups

Menu channel,menubar {
  > Mp3 <:mp3
}
;#Alias

alias mp3 dialog $iif(!$dialog(mp3),-md mp3,-v) mp3
alias mdx return $mircdir $+ dll\mdx.dll
alias loadbuf.mp3 {
  var %i $findfile($hget(mp3,playlist),*.*,0)
  while (%i) {
    did -a mp3 2 $findfile($hget(mp3,playlist),*.*,%i),-1,58) $chr(9) $iif($sound($findfile($hget(mp3,playlist),*.*,%i)).title,$sound($findfile($hget(mp3,playlist),*.*,%i)).title,Aucun) $chr(9) $iif($sound($findfile($hget(mp3,playlist),*.*,%i)).genre,$sound($findfile($hget(mp3,playlist),*.*,%i)).genre,Aucun) $chr(9) $duration($calc($sound($findfile($hget(mp3,playlist),*.*,%i)).length / $& 1000)) $chr(9) $sound($findfile($hget(mp3,playlist),*.*,%i)).bitrate
    dec %i
  }
}
alias mp3preview {
  if ($dialog(mp3)) && ($inmp3) {
    if (%mp3preview == -700) set -e %mp3preview 350
    .remove icones\mp3preview.jpg
    window -ph +b @mp3 -1 -1 350 50
    drawtext -p @mp3 1 "tahoma" 18 %mp3preview 13 $+($chr(3),$r(1,15),,$chr(3)) Lecture en cours: $token($insong.fname,-1,92) &#8226; Durée: $duration($calc($sound($insong.fname).length / $& 1000))) &#8226; $+($chr(3),$r(1,15),,$chr(3))                                  $time
    drawsave @mp3 icones\mp3preview.jpg
    did -g mp3 33 icones\mp3preview.jpg
    window -c @mp3
    dec %mp3preview
  }
  else {  if ($dialog(mp3)) did -g mp3 33 icones\mp3.jpg }
}
alias splayalea {
  if (!$hget(mp3,mp3rien)) {
    if (!$exists($longfn($hget(mp3,Playlist)))) { Hadd mp3 Playlist $shortfn($$sdir(C:\,Choisis ta liste de musique.)) }
    if ($2) && (!$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,1)) { splay $findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,0))) }
    if (!$2) { splay $findfile($longfn($hget(mp3,Playlist)),*.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),*.mp3,0))) }
    if ($server != $null) && (!$findfile($longfn($hget(mp3,Playlist)),* $+ $2- $+ *.mp3,1)) {
      if ($hget(data,mp3echo)) .timer 1 0 echo -a $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) 
      else { if ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) }    
    }
  }
}
;#Boite de dialog
dialog mp3 {
  title "- Ecoutez vos musique - [ /Mp3 ] "
  size -1 -1 323 130
  option dbu
  icon Icones\sons.ico, 1
  list 2, 3 3 158 93, size
  list 3, 3 106 50 10, size
  list 4, 61 106 50 10, size
  list 5, 123 106 39 10, size
  check "Lecture Auto", 6, 167 10 43 9
  check "Infos bulle", 9, 220 10 37 9
  list 10, 3 96 159 10, size
  button "Ok", 13, 261 103 60 14, ok
  list 14, -1 120 325 10, size
  box "Options", 15, 163 1 157 100
  check "Raccourci Mp3", 16, 269 10 47 9
  text "Play:", 17, 167 22 13 8
  text "Arreter:", 18, 247 22 20 8
  text "Playlist:", 19, 167 36 19 8
  edit "", 20, 189 22 40 9, autohs
  edit "", 21, 276 22 40 9, autohs
  edit "", 22, 189 36 40 9, autohs
  text "Infos:", 23, 247 37 15 8
  edit "", 24, 276 36 40 9, autohs
  edit "", 25, 189 50 40 9
  text "Pause:", 26, 167 51 19 8
  text "Reprendre:", 27, 247 51 27 8
  edit "", 28, 276 51 40 9, autohs
  edit "", 29, 189 65 40 9, autohs
  text "Volume:", 31, 167 65 19 8
  icon 33, 163 102 94 15,  icones\mp3.jpg, 0, noborder
  text "Message:", 35, 167 78 25 8
  edit "", 36, 195 78 121 9, autohs
  radio "echo", 37, 167 90 24 8
  radio "rien afficher", 38, 278 90 39 8
  radio "Msg active", 39, 217 90 37 8
}
;#Evenements
on *:dialog:mp3:*:*: {
  if ($devent == init) {
    dll $mdx SetMircVersion $version
    dll $mdx MarkDialog $dname
    dll $mdx SetBorderStyle 3,4,5,10
    dll $mdx SetControlMDX 14 statusbar sizeGrip > dll\bars.mdx
    dll $mdx SetControlMDX 10 Trackbar tooltips size > dll\bars.mdx
    dll $mdx SetControlMDX 3,4,5 ToolBar flat nodivider list > dll\bars.mdx
    dll $mdx SetControlMDX 2 listview report showsel infotip grid nosortheader > dll\views.mdx
    did -i $dname 2 1 settxt color $rgb(0,0,131)
    did -i $dname 2 1 headerdims 100:50 80:50 80:50 80:50 80:50
    did -i $dname 2 1 headertext  Chemin $chr(9) Titre $chr(9) Genre $chr(9) Durée $chr(9) Bitrate
    did -i $dname 3,4,5 1 bmpsize 30 15
    did -i $dname 3 1 setimage +nhd 0 icon large 0,icones\play.ico
    did -a $dname 3 1 Lire $chr(9) Lire la musique selectionner
    did -i $dname 4 1 setimage +nhd 0 icon large 0,icones\stop.ico
    did -a $dname 4 1 Arreter $chr(9) Arreter la musique 
    did -i $dname 5 1 setimage +nhd 0 icon large 0,icones\playlist.ico
    did -a $dname 5 1 Playlist $chr(9) Choisissez le répertoire !
    did -i $dname 10 1  params $int($calc($vol(song) / 65535 * 100))
    did -i mp3 14 1 seticon 0 small 0,icones\wmp.ico
    did -a $dname 20 $hget(mp3,cmdplay)
    did -a $dname 21 $hget(mp3,cmdarret)
    did -a $dname 22 $hget(mp3,cmdplaylist)
    did -a $dname 24 $hget(mp3,cmdinfos)
    did -a $dname 25 $hget(mp3,cmdpause)
    did -a $dname 28 $hget(mp3,cmdreprendre)
    did -a $dname 29 $hget(mp3,cmdvolume)
    did -a $dname 36 $hget(mp3,mp3message)
    if (!$hget(mp3,playlist)) hadd mp3 playlist $sdir(Choisissez un dossier,Playlist) 
    did -i mp3 14 2 1 $iif($hget(mp3,playlist),Playlist: $hget(mp3,playlist) $str(,110) $findfile($hget(mp3,playlist),*.*,0) musiques)
    if ($hget(mp3,mp3auto)) did -c $dname 6
    if ($hget(mp3,mp3bulle)) did -c $dname 9
    if ($hget(mp3,mp3cmd)) did -c $dname 16
    if (!$hget(mp3,mp3cmd)) did -b $dname 20,21,22,24,25,28,29,17,18,19,23,26,27,31
    if ($hget(mp3,mp3echo)) did -c $dname 37
    if ($hget(mp3,mp3rien)) did -c $dname 38
    if ($hget(mp3,mp3msg)) did -c $dname 39
    .timermp3buf 1 1 loadbuf.mp3
    if ($inmp3) { var %i $timer(0) | while (%i) { if ($timer(%i) != preview) .timerpreview -m 0 95 mp3preview | dec %i } | mp3preview }
  }
  elseif ($devent == close) .timerpreview off
  elseif ($devent == dclick) && ($did = 2) && ($did(2).seltext) { .splay $token($token($did(2).seltext,6-,32),1,9) | .timerpreview -m 0 95 mp3preview }
  elseif ($devent == sclick) {
    if ($did = 3) { if ($did(2).seltext) { .splay $token($token($did(2).seltext,6-,32),1,9) | .timerpreview -m 0 95 mp3preview  } | else noop $input(Erreur: Vous n'avez pas cliquée sur la liste $+ $chr(44) aucune musique ne peut se lire.,hod,Erreur) } 
    elseif ($did = 4) { .splay stop | .timerpreview off | did -g mp3 33 icones\mp3.jpg }
    elseif ($did = 5) { did -r $dname 2 | hadd mp3 playlist $sdir(Choisissez un dossier,Playlist) | did -i mp3 14 2 1 Playlist: $hget(mp3,playlist) $str(,110) $findfile($hget(mp3,playlist),*.*,0) musiques | loadbuf.mp3 }
    elseif ($did = 6) hadd mp3 mp3auto $did(6).state
    elseif ($did = 9) hadd mp3 mp3bulle $did(9).state 
    elseif ($did = 10) vol -p $int($calc($token($did(10).seltext,1,32) * 65535 / 100))
    elseif ($did = 16) { hadd mp3 mp3cmd $did(16).state | $iif($did(16).state == 1, did -e $dname, did -b $dname) 20,21,22,24,25,28,29,17,18,19,23,26,27,31 }
    elseif ($did = 37) { hadd mp3 mp3echo $did(37).state | hdel mp3 mp3msg | hdel mp3 mp3rien | did -e $dname 38,39 | did -b $dname 37  | did -u $dname 38,39 }
    elseif ($did = 38) { hadd mp3 mp3rien $did(38).state | hdel mp3 mp3msg | hdel mp3 mp3echo | did -e $dname 37,39 | did -b $dname 38 | did -u $dname 37,39 }
    elseif ($did = 39) { hadd mp3 mp3msg $did(39).state | hdel mp3 mp3echo | hdel mp3 mp3rien | did -e $dname 38,37 | did -b $dname 39 | did -u $dname 38,37 }
  }
  elseif ($devent == edit) {
    if ($did = 20) hadd mp3 cmdplay $did(20)
    elseif ($did = 21) hadd mp3 cmdarret $did(21)
    elseif ($did = 22) hadd mp3 cmdplaylist $did(22)
    elseif ($did = 24) hadd mp3 cmdinfos $did(24)
    elseif ($did = 25) hadd mp3 cmdpause $did(25)
    elseif ($did = 28) hadd mp3 cmdreprendre $did(28)
    elseif ($did = 29) hadd mp3 cmdvolume $did(29)
    elseif ($did = 36) hadd mp3 mp3message $did(36)
  }
}
on *:mp3end: {
  mp3preview
  if ($hget(mp3,mp3auto)) {
    splay $findfile($longfn($hget(mp3,Playlist)),*.mp3,$rand(1,$findfile($longfn($hget(mp3,Playlist)),*.mp3,0)))
    if ($hget(mp3,mp3bulle)) noop $tip(Lecteur Mp3,Lecteur Mp3,Lecture en cours: 10 $+ $sound($insong.fname).title $+  - Durée: $duration($calc($sound($insong.fname).length / $& 1000)),10,icones\sons.ico)
    if ($hget(mp3,mp3echo)) .timer 1 0 echo -a $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) 
    else { if ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<duree>,$duration($calc($sound($insong.fname).length / 1000)),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title) }    
  }
}
on *:input:*:{
  if ($hget(mp3,mp3rien)) return
  if ($hget(mp3,mp3cmd)) && (!$hget(data,mp3rien)) { 
    if ($1 == $hget(mp3,cmdplay)) .splayalea $2
    elseif ($1 == $hget(mp3,cmdarret)) {
      splay stop 
      if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Arret du mp3.
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Arret du mp3.
    }
    elseif ($1 == $hget(mp3,cmdplaylist)) {
      var %fr $sdir(Choisissez un dossier,Playlist)
      hadd mp3 playlist %fr
      if ($hget(mp3,mp3echo)) .echo -a (Mp3) Playlist: fichier choisis: %fr $+ . 
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Playlist: fichier choisis: %fr $+ .
    }
    elseif ($1 == $hget(mp3,cmdinfos)) && ($inmp3) { 
      if ($hget(mp3,mp3echo)) .timer 1 0 .echo -a $replace($hget(mp3,mp3message),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title,<duree>,Durée: $duration($calc($sound($insong.fname).length / $& 1000))))  
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active $replace($hget(mp3,mp3message),<bitrate>,$sound($insong.fname).bitrate,<titre>,$sound($insong.fname).title,<duree>,Durée: $duration($calc($sound($insong.fname).length / $& 1000)))) 
    } 
    elseif ($1 == $hget(mp3,cmdinfos)) && (!$inmp3) noop $input(Erreur: Aucun infos est disponible.,hod,erreur)
    elseif ($1 == $hget(mp3,cmdpause)) {
      splay pause
      if ($hget(mp3,mp3echo)).timer 1 0 echo -a (Mp3) Le mp3, est maintenant en pause.
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le mp3, est maintenant en pause.
    }
    elseif ($1 == $hget(mp3,cmdreprendre)) {
      if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Le mp3, n'est maintenant plus en pause.
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le mp3, n'est maintenant plus en pause.
    }
    elseif ($1 == $hget(mp3,cmdvolume)) && ($2) { 
      vol -p $calc(655.36 * $2)
      if ($hget(mp3,mp3echo)) .timer 1 0 echo -a (Mp3) Le volume du Mp3 est maintenant: $+($chr(2),$2,$chr(2)) $+ %
      if ($hget(mp3,mp3msg)) && ($active != Status Window) .timer 1 0 msg $active (Mp3) Le volume du Mp3 est maintenant: $2 $+ %
    }
  }
}
on *:load:{
  if (!$hget(mp3)) hmake mp3 50
  hadd mp3 mp3message &#8226; Mp3: <titre> - Durée: <duree> Bitrate: <bitrate>
  hadd mp3 mp3rien 1
  hadd mp3 cmdplay !zik
  hadd mp3 cmdreprendre !reprise
  hadd mp3 cmdinfos !mp3infos
  hadd mp3 cmdplaylist !playlist
  hadd mp3 cmdpause !pause
  hadd mp3 cmdvolume !vol
  hadd mp3 cmdarret !mp3stop
  hadd mp3 mp3cmd 1
  hadd mp3 mp3bulle 1
  hadd mp3 mp3Auto 1
  hsave mp3 mp3.txt
  .echo -a Addon bien chargé, Mp3 v1.2 by Vor4x 
  mp3
}
on *:exit:hsave mp3 mp3.txt
on *:start: { if (!$hget(mp3)) hmake mp3 50 | hload mp3 mp3.txt }

 Conclusion

.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

24 février 2009 17:40:01 :
rien...
25 février 2009 13:56:29 :
Optimisation, et d'autre chose
25 février 2009 14:06:15 :
Orthographe..
25 février 2009 18:46:24 :
$mircdir
25 février 2009 19:15:50 :
toujours $mircdir ^^

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [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

 Sources en rapport avec celle ci

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre
MODE ANTI-ATTACK par cougar_du_havre
MP3 SIMPLE EN MOINS DE 100 LIGNES MEME SI C'EST DU DEJA VUE par archeloga
Source avec une capture (MP3 PLAYER) par Mc_AbBeR
LECTEUR MP3, WAV ET WMA par IceTempest

Commentaires et avis

Commentaire de uaip le 24/02/2009 22:04:55

Salut,
Au niveau du code, je ne vois pas trop quoi dire, mise à part quelques petites fautes d'orthographe : "addon bien chargé" et non "charger", "aucun info n'est disponible" et non "aucune infos est disponible", "Vous n'avez pas cliqué sur la liste [...] aucune musique ne peut se lire" et non "Vous n'avez pas cliquer sur la list [...] aucune musique ne peut ce lire", "Lire la musique sélectionnée" et non "selectionner".

Sinon, je ne vois pas d'erreurs ni d'absurdité dans le script, donc bon boulot de ce niveau là.

Cependant (en jouant le nigaud), dès le chargement de l'addon (sans toucher à tes dossiers ni rien), je vois ceci :
* /hload: unable to open file 'C:\***\mIRC\data\data.txt'
En effet, tu fais hload data data\data.txt alors qu'il n'y a aucun dossier "data" dans tes fichiers.
Puis quand j'ouvre le dialog (/mp3) :
* /dll: unable to open file 'C:\***\mIRC\dll\mdx.dll' (line 19, mp3.mrc)
Tu ne fais aucune allusion à mdx dans ta description, et (toujours en jouant le nigaud) je ne sais pas ce que c'est.

Bref, même en rajoutant mdx à ton projet, je ne sais pas ce que contient data.txt, je ne peux donc pas tester le mp3.
Une petite mise à jour s'impose ;)

Commentaire de WorldDMT le 25/02/2009 10:57:03

salut
tjr pas de consideration de $scriptdir et c'est ce qui va faire trouble pour l'execution de ton code

il faut utilisé $scriptdir sinon ton code va pas fonctionné voilà déjà uaip n'a pas put testé

exp sur

alias mdx return dll\mdx.dll

tu dois faire

alias mdx return $qt($scriptdirdll\mdx.dll)

$qt est aussi important car si il y a dans le repertoir un dossier avec 2 mots separé fera trouble


pour alias loadbuf.mp3 est mal faite car si le dossier contien des fichier images ou autre on les trouvera dans la playlist c'est moche!!

et pour les $findfile en cascade si le dossier est costo ça va bugué

le chemin je ne vois pas l'interet met juste le titre genre duré

pour /splay $token($token($did(2).seltext,6-,32),1,9) si le nom de la musique est ecrit en chinois ou arabe ou autre format non supprté par le lecteur

le lecteur va lire en tant que ??? ?????.mp3 là il n'y a pas de ??? ????.mp3 donc un msg d'erreur

bon le reste j'ai pas trop regardé si je vois autre chose entre temp je te dirais :)

bonne continuation


@+

Commentaire de Vor4x le 25/02/2009 13:58:57

Merci pour vos commentaires, j'ai mis a jour ma source :)

Commentaire de WorldDMT le 25/02/2009 16:34:19

et le $scriptdir?? t'a pas utilisé

attention déjà dit sur d'autre source, le repertoire $mircdir des versions 6.3+ sont different des autres versions et ça va tjr faire que ton code ne foctionne pas


@+

Commentaire de Vor4x le 25/02/2009 18:47:53

voila, j'ai mis $mircdir a la place ($scriptdir), car moi ca ne marche pas sur mon pc quand je le fait avec $scriptdir a savoir pourquoi...

Commentaire de Vor4x le 25/02/2009 18:52:00

en faite avec $scriptdir ca me retourne le chemin jusquau dossier "scripts" c'est pour ca que sa ne marche pas pour moi :/

Commentaire de uaip le 25/02/2009 18:52:06

Salut,
En effet, ton alias devrait être :
alias mdx return $qt($scriptdirdll/mdx.dll)

Idem pour tous les fichiers dépendants de mdx :
dll $mdx SetControlMDX 14 statusbar sizeGrip > $scriptdirdll/bars.mdx
dll $mdx SetControlMDX 10 Trackbar tooltips size > $scriptdirdll/bars.mdx
dll $mdx SetControlMDX 3,4,5 ToolBar flat nodivider list > $scriptdirdll/bars.mdx
dll $mdx SetControlMDX 2 listview report showsel infotip grid nosortheader > $scriptdirdll/views.mdx

J'ai aussi un problème d'affichage : aucune icone ne s'affiche.

Autre problème, lorsque je lis une musique :
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)
-
* /drawsave: error allocating memory (line 30, mp3.mrc)

etc... boucle infinie (et aucun son ne sort de mes enceintes).

Ensuite, petite remarque :
if ($hget(mp3,mp3echo)) did -c $dname 37
if ($hget(mp3,mp3rien)) did -c $dname 38
if ($hget(mp3,mp3msg)) did -c $dname 39
Vu que lorsqu'on clique, après, les checkboxes sont disabled, alors autant le faire dès le début, avec -cb au lieu de -c, puis tes 3 lignes se résument en 1 : ça ne sert à rien de rentrer 40 items dans la hashtable simplement pour un booléen, ici par exemple, au lieu d'avoir les items mp3echo, mp3rien et mp3msg, il suffit d'avoir 1 seul item, par exemple mp3Check et de lui affecter les valeurs "mp3echo", "mp3rien" ou "mp3msg". Ca réduit par 3 la mémoire allouée pour la hashtable.

Enfin, aucun des fautes d'orthographe n'a été corrigée.

Commentaire de uaip le 25/02/2009 18:56:22

aucune * pardon.
C'est $scriptdir si le script a bien été chargé dans /scripts/ (ce qui devrait se faire). Or, rien à critiquer puisque tu as précisé que le script devait être chargé dans le répertoire racine de mIRC, donc c'est bien $mircdir.

Commentaire de Vor4x le 25/02/2009 19:01:06

d'accord, merci (et si j'ai modif 3  fautes que tu m'avais dites) je corrige la suite now :)

Commentaire de Vor4x le 25/02/2009 19:03:16

et moi sur vista le mp3 marche impéc bizzare ton soucis avec le drawsave

Commentaire de Vor4x le 25/02/2009 19:07:26

ouais mais quand je fait ca $qt($mircdirdll\bars.mdx) ca ne marche pas pour moi..

Commentaire de Vor4x le 25/02/2009 19:17:57

uaip || wordDMT c bon maintenant pour ceux qui son sur xp ?

Commentaire de WorldDMT le 25/02/2009 19:27:19

n'importe quoi :/
le $scriptdir conduit le chemin du fichier ou le script loadé donc meme si on met n'importe ou le dossier du code ça doit marcher

rien a y voir avec $mircdir c'est pas tout le monde qui connais comment trouvé le repertoir mIRC avec les versions 6.3+

ça doit etre avec $scriptdir

pour l'alias mdx utilise cette alias comme ça c'est mieu

alias -l mdx return $dll($qt($scriptdirdll/mdx.dll),$1,$2-)

utilisation dans init

mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 3,4,5,10
mdx SetControlMDX 3,4,5 ToolBar flat nodivider list > $scriptdirdll\bars.mdx
ect..

Commentaire de wims le 25/02/2009 19:32:24

Il n'est pas oblige d'utilise $scriptdir, mais c'est plus que fortement conseille, simplement parce que ca laisse le choix a l'user pour teste/utilise le code.

$scriptdit retourne le repertoire ou se trouve le fichier du code.
$mircdir retourne le repertoire des setting de mirc.
Il se peut que ces repertoire soit les memes, ou non, mais ca ne doit rien changer au fonctionnement de ton code.

L'erreur de Uaip (error allocating memory) est juste une prevention, c'est mirc qui te dis qu'un alias se rapelle lui meme plusieurs fois et que ca finira par bouffer la memoire (la recursivite pur n'existe pas en mirc, pour des raisons un peu conne...).

J'ai pas teste le script, mais putain ce que c'est mal code, au lieu de stocker le chemin vers un fichier, tu stock simplement son repertoire et tu refais un $findfile a chaque /splay si j'ai pas trop lu en travers, c'est extremement mauvais, generalement les gens ont des dossiers de musique tres tres gros, surtout aujourdui.Je testerai p-e plus tard histoire de voir les options qu'il a, mais il me semble qu'il en manque pas mal, enfin ca fait un Nieme lecteur mp3 en plus, et il n'a rien de particulie :/...

Commentaire de Vor4x le 25/02/2009 19:33:38

j'ai déjà dit, que quand je faisait ce que tu me dit wordDMT, mes bouttons et ma listview ne fonctionne plus.. lorsque avec dll/etc ou $mircdirdll/bla.dll ca marche pour moi mais avec $scriptdir ca ne marche pas.. donc j'vais pas changer un truc, qui ne marche pas pour moi.. Sauf si ca te fait plaisir :)

Commentaire de Vor4x le 25/02/2009 19:39:39

eu wims, un mp3 de + pour toi pas pour tt le monde avant de le poser j'ai regarder sur le site sur 10 mp3 j'en est trouver qu'un qui était plus rechercher ne sois pas si négatif.. et tu dis ca et ca ne vont pas mais tu n'apporte aucune solution sur t'es critiques..

Commentaire de wims le 25/02/2009 19:47:43

Ben pour moi ou pour un autre, il existe des dizaines de lecteur mp3 et des mieux (tu confirme que ce que tu voulais dire, c'est que ton lecteur mp3 est donc le deuxieme meilleur du site ??), je suis pas negatif (mais je devrais, tres franchement), c'est une constatation en plus d'etre une critique.

Dis plutot que tu n'arrives pas a faire marcher $scripdir, parce que ca marche.
Je t'apporterai des solutions quand j'aurais teste, histoire de pas dire de connerie, mon precedent post etais plus une reponse general par rapport au autre commentaire, pas sur ta source (sauf le truc du $findfile qui m'a choque !)

Commentaire de uaip le 25/02/2009 20:01:45

Je précise juste en effet que le chargement des fichiers est assez long, la fenêtre bloque mIRC pendant facilement 3, 4 secondes (alors que mon dossier ne contenait qu'une petite dizaine de musiques).
Pour ce qui est de "mal codé", je rajoute l'utilisation des hashtables, comme précisé dans mon commentaire plus haut. C'est donc la réflexion du code qu'il faudrait revoir. Mais pour l'optimisation syntaxique... je ne vois pas de gros points négatifs (pour ma part).

Commentaire de Vor4x le 25/02/2009 20:05:32

J'ai du lui montrer pour qu'il me croye :(

Commentaire de Vor4x le 25/02/2009 20:08:31

mdr, bon non ca marche en faite il fallait que je fasse alt + r > option > identifiers warning , coche (merci wims)

Commentaire de wims le 25/02/2009 22:26:01

Mdr, comme j'ai essaye de lui faire comprendre, mais sans succes, ce n'est pas cette option qui a fait que ca marche, cette option sert simplement a t'indiquer quand tu utilise un identifiers qui n'existe pas (cette option bloque le code).J'ai donc suppose que tu avais mal utilise $scriptdir (une faute de frappe surement), ce qui est tres probablement le cas vu que tu m'a fais le meme coup quand on a teste en direct (avant que tu pete un cable).
Je te l'ai dis et je te le redis, au lieu de croire que je te descend dans les commentaires, dis toi plutot que je te montre ou ca ne vas pas, ta methode est tres tres mauvaise, c'est confirme par Uaip (3-4 seconde sur 10 fichier = ~50mo, imagine sur du 6go ?).
Je testerai pas ce soir, mais avant que je te donne la solution de la bonne methode, regarde les autre lecteurs mp3, beaucoup utilise mal $findfile et bcp de commentaire en parle.

Commentaire de fjxokt le 25/02/2009 23:01:16

j'ai fais un tuto sur les lecteurs mp3 il peut y avoir des trucs intéressants :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

IRC : Ile de la Réunion [ par i0Lo ] La magnifique ile de la Réunion a enfin son IRCirc.poussy-chat.com:6667 Tapez : /server irc.poussy-chat.comou chattez depuis notre site : http://www.p Comment accéder aux chat de club-internet par IRC ? [ par Tabasc0 ] voila je vais parfois sur le chat de club-internet.inforchar je crois ca s appelle.J aimerais acceder a ce chat en passant par IRC je sais que c possi Mp3 sous irc [ par Nova56 ] Salut ben je vois pas le probleme pourais venire d'ou mais qd je lit un mp3 avk un lecteur mp3 d'irc il me donne un sale sond en ariere plan. Si qq po Problème Son mp3 sous irc [ par MeF ] voilà depuis peu j'ai un problème lorsque je lance un mp3 avec mirc et son mp3player (j'ai testé avec d'autres mp3players et c'est le meme problème). 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 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 Server Chat Like Msn En IRC [ par cryofangel2 ] Salut jme demandé si kkn était intéréssé par un server de tchat comme celui de msn (avec encor kelke bug mais bocou de cooriger), cela inclut que nim Nouveau serveur irc Erevia [ par sorcier3 ] Salut,Je dis nouveau serveur mais pas tant que sa en faite... dison que la page chat n'est pas la depuis tr&#232;s longtemps.Le serveur de chat est ce chat irc [ par valantin ] ~~DeMoN~~re bonjour tlm voila je voudrais mètre un chat irc sur mon site y a t'il un truc pour ca et ou je pourais le trouver merci a tous :p AddX [ par addx ] Bien le bonjour tout le monde : ceci n'est pas une question mais plutot une invitation a mon server irc qui vient d'ouvrir ya 4 jour :) www.addx-irc.c


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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 : 0,842 sec (3)

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