• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • IRC CodeS-SourceS
begin process at 2008 08 22 01:08:57
1 229 731 membres
3 nouveaux aujourd'hui
14 267 membres club
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 !

CHOUETTE LECTEUR DE MP3


Information sur la source

Catégorie :AddOns Classé sous : player, mp3, lecteur, musique, mirc Niveau : Débutant Date de création : 20/04/2003 Date de mise à jour : 26/04/2003 13:12:07 Vu : 2 571
Auteur : thedarksider Ecrire un message privé
Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

Description

Petite mise a jour, je viens de trouver comment faire pour faire une fenetre "explorateur" :)

Source

  • alias dkm { dialog -mdie DarkMusic DarkMusic | set %cechan $chan }
  • dialog DarkMusic {
  • title "DarkMusic"
  • size -1 -1 300 325
  • button "Retour",1,0 275 300 50, ok
  • tab "Liste",2,0 0 300 250
  • tab "Sons et Options",3
  • box "",4,5 20 290 220
  • button "Dossier :",5,10 35 55 20, tab 2
  • edit "",6,65 35 225 20, center, read, tab 2
  • list 7,10 60 280 165, sort, tab 2
  • button "Play",8,10 210 70 20, flat, tab 2
  • button "Stop",9,80 210 70 20, flat, tab 2
  • button "Skip",32,150 210 70 20,flat,tab 2
  • button "Remove",10,220 210 70 20, flat, tab 2
  • text "Mp3 :",11,5 253 30 20
  • edit "",12,35 250 40 20, read, center
  • text "Wav :",13,115 253 30 20
  • edit "",14,145 250 40 20, read, center
  • text "Mid :",15,230 253 30 20
  • edit "",16,255 250 40 20, read, center
  • button "Sys -",17,50 55 70 20, tab 3
  • edit "",18,120 55 70 20, read,center, tab 3
  • button "Sys +",19,190 55 70 20, tab 3
  • button "System : Mute",20,50 75 210 20, tab 3
  • button "Wav -",21,50 95 70 20, tab 3
  • edit "",22,120 95 70 20, read,center, tab 3
  • button "Wav +",23,190 95 70 20, tab 3
  • button "Wave : Mute",24,50 115 210 20, tab 3
  • button "Mid -",25,50 135 70 20, tab 3
  • edit "",26,120 135 70 20, read,center, tab 3
  • button "Mid +",27,190 135 70 20, tab 3
  • button "Midi : Mute",28,50 155 210 20, tab 3
  • check "Echo On/Off",29,115 200 120 20, tab 3
  • text "Options sonores et générales",30,90 35 140 20, tab 3
  • box "",31,85 25 150 28, tab 3
  • }
  • on 1:dialog:DarkMusic:init:0: {
  • if (%dmusique == $null) { set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier) }
  • dialog -v DarkMusic DarkMusic
  • set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • did -ra DarkMusic 6 %dmusique
  • set %numlignlist 1
  • did -r DarkMusic 7
  • unset %mp3nbr
  • unset %wavnbr
  • unset %midnbr
  • unset %volmast
  • unset %volwave
  • unset %volmidi
  • set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %volmast $vol(master)
  • set %volwave $vol(wave)
  • set %volmidi $vol(midi)
  • did -ra DarkMusic 6 %dmusique
  • did -ra DarkMusic 12 %mp3nbr
  • did -ra DarkMusic 14 %wavnbr
  • did -ra DarkMusic 16 %midnbr
  • did -ra DarkMusic 18 %volmast
  • did -ra DarkMusic 22 %volwave
  • did -ra DarkMusic 26 %volmidi
  • if (%mecho == 0) { did -u DarkMusic 29 }
  • if (%mecho == 1) { did -c DarkMusic 29 }
  • }
  • on 1:dialog:DarkMusic:sclick:1: {
  • splay stop
  • dialog -x DarkMusic
  • unset %volmidi %volmast %volwave %midnbr %wavnbr %mp3nbr %numlignlist %mecho
  • }
  • on 1:dialog:DarkMusic:sclick:5: {
  • did -r DarkMusic 7
  • set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier)
  • dialog -v DarkMusic DarkMusic
  • set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  • did -ra DarkMusic 6 %dmusique
  • }
  • on 1:dialog:DarkMusic:dclick:7: {
  • if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  • splay stop
  • splay %dmusique $+ $did(DarkMusic,7).seltext
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  • set %numlignlist $did(DarkMusic,7).sel
  • }
  • on 1:dialog:DarkMusic:sclick:8: {
  • if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  • splay stop
  • splay %dmusique $+ $did(DarkMusic,7).seltext
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  • set %numlignlist $did(DarkMusic,7).sel
  • }
  • on 1:dialog:DarkMusic:sclick:9: {
  • splay stop
  • }
  • on 1:dialog:DarkMusic:sclick:10: {
  • if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  • if (.mp3 isin $did(DarkMusic,7).seltext) { dec %mp3nbr 1 | did -ra DarkMusic 12 %mp3nbr }
  • if (.wav isin $did(DarkMusic,7).seltext) { dec %wavnbr 1 | did -ra DarkMusic 14 %wavnbr }
  • if (.mid isin $did(DarkMusic,7).seltext) { dec %midnbr 1 | did -ra DarkMusic 16 %midnbr }
  • did -d DarkMusic 7 $did(DarkMusic,7).sel
  • set %numlignlist $did(DarkMusic,7).sel
  • }
  • on 1:dialog:DarkMusic:sclick:17: {
  • vol -v $calc($vol(master) - 2000)
  • did -ra DarkMusic 18 $vol(master)
  • }
  • on 1:dialog:DarkMusic:sclick:19: {
  • vol -v $calc($vol(master) + 2000)
  • did -ra DarkMusic 18 $vol(master)
  • }
  • on 1:dialog:DarkMusic:sclick:20: {
  • if ($vol(master).mute == $true) { vol -vu2 | did -ra DarkMusic 18 $vol(master) }
  • else { vol -vu1 | did -ra DarkMusic 18 Mute }
  • }
  • on 1:dialog:DarkMusic:sclick:21: {
  • vol -w $calc($vol(wave) - 2000)
  • did -ra DarkMusic 22 $vol(wave)
  • }
  • on 1:dialog:DarkMusic:sclick:23: {
  • vol -w $calc($vol(wave) + 2000)
  • did -ra DarkMusic 22 $vol(wave)
  • }
  • on 1:dialog:DarkMusic:sclick:24: {
  • if ($vol(wave).mute == $true) { vol -wu2 | did -ra DarkMusic 22 $vol(wave) }
  • else { vol -wu1 | did -ra DarkMusic 22 Mute }
  • }
  • on 1:dialog:DarkMusic:sclick:25: {
  • vol -m $calc($vol(midi) - 2000)
  • did -ra DarkMusic 26 $vol(midi)
  • }
  • on 1:dialog:DarkMusic:sclick:27: {
  • vol -m $calc($vol(midi) + 2000)
  • did -ra DarkMusic 26 $vol(midi)
  • }
  • on 1:dialog:DarkMusic:sclick:28: {
  • if ($vol(midi).mute == $true) { vol -mu2 | did -ra DarkMusic 26 $vol(midi) }
  • else { vol -mu1 | did -ra DarkMusic 26 Mute }
  • }
  • on 1:dialog:DarkMusic:sclick:29: {
  • if ($did(DarkMusic,29).state == 0) { set %mecho 0 }
  • if ($did(DarkMusic,29).state == 1) { set %mecho 1 }
  • }
  • on 1:dialog:DarkMusic:sclick:32: {
  • splay stop
  • inc %numlignlist 1
  • if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  • splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7,%numlignlist).text)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
  • }
  • on 1:mp3end: {
  • if ($dialog(DarkMusic) != DarkMusic) { halt }
  • inc %numlignlist 1
  • if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  • splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
  • }
  • on 1:waveend: {
  • if ($dialog(DarkMusic) != DarkMusic) { halt }
  • inc %numlignlist 1
  • if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  • splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
  • }
  • on 1:midiend: {
  • if ($dialog(DarkMusic) != DarkMusic) { halt }
  • inc %numlignlist 1
  • if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  • splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  • if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  • if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
  • } 
alias dkm { dialog -mdie DarkMusic DarkMusic | set %cechan $chan }

dialog DarkMusic {
  title "DarkMusic"
  size -1 -1 300 325
  button "Retour",1,0 275 300 50, ok
  tab "Liste",2,0 0 300 250
  tab "Sons et Options",3
  box "",4,5 20 290 220
  button "Dossier :",5,10 35 55 20, tab 2
  edit "",6,65 35 225 20, center, read, tab 2
  list 7,10 60 280 165, sort, tab 2
  button "Play",8,10 210 70 20, flat, tab 2
  button "Stop",9,80 210 70 20, flat, tab 2
  button "Skip",32,150 210 70 20,flat,tab 2
  button "Remove",10,220 210 70 20, flat, tab 2
  text "Mp3 :",11,5 253 30 20
  edit "",12,35 250 40 20, read, center
  text "Wav :",13,115 253 30 20
  edit "",14,145 250 40 20, read, center
  text "Mid :",15,230 253 30 20
  edit "",16,255 250 40 20, read, center
  button "Sys -",17,50 55 70 20, tab 3
  edit "",18,120 55 70 20, read,center, tab 3
  button "Sys +",19,190 55 70 20, tab 3
  button "System : Mute",20,50 75 210 20, tab 3
  button "Wav -",21,50 95 70 20, tab 3
  edit "",22,120 95 70 20, read,center, tab 3
  button "Wav +",23,190 95 70 20, tab 3
  button "Wave : Mute",24,50 115 210 20, tab 3
  button "Mid -",25,50 135 70 20, tab 3
  edit "",26,120 135 70 20, read,center, tab 3
  button "Mid +",27,190 135 70 20, tab 3
  button "Midi : Mute",28,50 155 210 20, tab 3
  check "Echo On/Off",29,115 200 120 20, tab 3
  text "Options sonores et générales",30,90 35 140 20, tab 3
  box "",31,85 25 150 28, tab 3
}

on 1:dialog:DarkMusic:init:0: {
  if (%dmusique == $null) { set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier) }
  dialog -v DarkMusic DarkMusic
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  did -ra DarkMusic 6 %dmusique
  set %numlignlist 1
  did -r DarkMusic 7
  unset %mp3nbr
  unset %wavnbr
  unset %midnbr
  unset %volmast
  unset %volwave
  unset %volmidi
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %volmast $vol(master)
  set %volwave $vol(wave)
  set %volmidi $vol(midi)
  did -ra DarkMusic 6 %dmusique
  did -ra DarkMusic 12 %mp3nbr
  did -ra DarkMusic 14 %wavnbr
  did -ra DarkMusic 16 %midnbr
  did -ra DarkMusic 18 %volmast
  did -ra DarkMusic 22 %volwave
  did -ra DarkMusic 26 %volmidi
  if (%mecho == 0) { did -u DarkMusic 29 }
  if (%mecho == 1) { did -c DarkMusic 29 }
}

on 1:dialog:DarkMusic:sclick:1: {
  splay stop
  dialog -x DarkMusic
  unset %volmidi %volmast %volwave %midnbr %wavnbr %mp3nbr %numlignlist %mecho
}

on 1:dialog:DarkMusic:sclick:5: {
  did -r DarkMusic 7
  set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier)
  dialog -v DarkMusic DarkMusic
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  did -ra DarkMusic 6 %dmusique
}

on 1:dialog:DarkMusic:dclick:7: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  splay stop
  splay %dmusique $+ $did(DarkMusic,7).seltext
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:8: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  splay stop
  splay %dmusique $+ $did(DarkMusic,7).seltext
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:9: {
  splay stop
}

on 1:dialog:DarkMusic:sclick:10: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  if (.mp3 isin $did(DarkMusic,7).seltext) { dec %mp3nbr 1 | did -ra DarkMusic 12 %mp3nbr }
  if (.wav isin $did(DarkMusic,7).seltext) { dec %wavnbr 1 | did -ra DarkMusic 14 %wavnbr }
  if (.mid isin $did(DarkMusic,7).seltext) { dec %midnbr 1 | did -ra DarkMusic 16 %midnbr }
  did -d DarkMusic 7 $did(DarkMusic,7).sel
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:17: {
  vol -v $calc($vol(master) - 2000)
  did -ra DarkMusic 18 $vol(master)
}

on 1:dialog:DarkMusic:sclick:19: {
  vol -v $calc($vol(master) + 2000)
  did -ra DarkMusic 18 $vol(master)
}

on 1:dialog:DarkMusic:sclick:20: {
  if ($vol(master).mute == $true) { vol -vu2 | did -ra DarkMusic 18 $vol(master) }
  else { vol -vu1 | did -ra DarkMusic 18 Mute }
}

on 1:dialog:DarkMusic:sclick:21: {
  vol -w $calc($vol(wave) - 2000)
  did -ra DarkMusic 22 $vol(wave)
}

on 1:dialog:DarkMusic:sclick:23: {
  vol -w $calc($vol(wave) + 2000)
  did -ra DarkMusic 22 $vol(wave)
}

on 1:dialog:DarkMusic:sclick:24: {
  if ($vol(wave).mute == $true) { vol -wu2 | did -ra DarkMusic 22 $vol(wave) }
  else { vol -wu1 | did -ra DarkMusic 22 Mute }
}

on 1:dialog:DarkMusic:sclick:25: {
  vol -m $calc($vol(midi) - 2000)
  did -ra DarkMusic 26 $vol(midi)
}

on 1:dialog:DarkMusic:sclick:27: {
  vol -m $calc($vol(midi) + 2000)
  did -ra DarkMusic 26 $vol(midi)
}

on 1:dialog:DarkMusic:sclick:28: {
  if ($vol(midi).mute == $true) { vol -mu2 | did -ra DarkMusic 26 $vol(midi) }
  else { vol -mu1 | did -ra DarkMusic 26 Mute }
}

on 1:dialog:DarkMusic:sclick:29: {
  if ($did(DarkMusic,29).state == 0) { set %mecho 0 }
  if ($did(DarkMusic,29).state == 1) { set %mecho 1 }
}

on 1:dialog:DarkMusic:sclick:32: {
  splay stop
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7,%numlignlist).text)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:mp3end: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:waveend: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:midiend: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

Conclusion

Une fois chargé, tapez /dkm pour lancer le lecteur
Rien de bien spécial, il y a certainement encore des bugs mais j'ai corrigé ceux que j'ai trouvés...
  • signaler à un administrateur
    Commentaire de koko le 21/04/2003 09:23:36

    hum hum hum... lorsqu'il demande le dossier ca pas vraiment cool...
    tu devrais faire un truc ou tu indiques le dossier en fesant une sorte de recherche

  • signaler à un administrateur
    Commentaire de thedarksider le 21/04/2003 10:48:54

    ben c'est ce que je disais dans les commentaires, pour le moment je ne sais pas encore comment faire ce genre de fenetre de recherche mais je prévois de faire une mise a jour quand je saurai... sinon en global ca dit quoi ?

  • signaler à un administrateur
    Commentaire de thedarksider le 26/04/2003 13:13:36

    Maintenant le systeme d'exploration est déjà plus pratique :)

  • signaler à un administrateur
    Commentaire de nitro120 le 10/05/2003 00:23:48

    il est bien mé c domage ke kan on kitte le dialog adieu le mp3...

  • signaler à un administrateur
    Commentaire de lemec le 31/05/2003 18:59:29

    il est pas tres beau ton lecteur Mp3 , puis c vrai ce ke dit Nitro120

  • signaler à un administrateur
    Commentaire de Grais le 02/09/2005 17:22:43

    thedarksider utilise les $sfile pour faire la recherche
    (Ex: $sfile(*.* , Choisis le fichier )

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
ameliorer sous Mac la ...
Budget : 200€
extraction dinformatio...
Budget : 300€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
Feed247,com Toute l'actu Internet 24h/24 7J/7 Moteur de recherche Mozbot TechHeadBrothers.com ASP-PHP.NET Colocation dans toute la France DOTNET-PROJECT.COM


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
IrcFR.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
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,5625-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.