Lecteur mp3 avec auto dcc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 895 fois - Téléchargée 30 fois

Contenu du snippet

c un lectueur mp3 ke g fai vite fai
il vous faut mdx.dll dans la racine de vote script
il y a un oto dcc par !music en pv
le script a ete "optimiser" par kolibot ( les sclick menu ect ]

Source / Exemple :


;##ALIAS##

alias m { dialog -dm m m }

;##MENU-BAR##

menu * {
  -
  Lecteur de Mp3:dialog -dm m m
  -
}

;##DIALOG+SCLICK##

dialog M {
  title "LeCtEuR Mp3 [Par DrAgOoN1]"
  size -1 -1 398 426
  option pixels
  box "Liste des Mp3", 1, 7 11 381 203
  box "Option", 2, 156 221 233 74
  button "Lecture", 3, 163 244 54 25, flat
  button "Pause", 4, 276 244 54 25, flat
  button "Stop", 5, 217 244 54 25, flat
  button "Repertoire", 6, 26 242 106 38, flat
  box "Repertoire", 7, 6 221 145 74
  list 9, 19 32 362 171, size
  button "Reprendre", 10, 330 244 54 25, flat
  box "Info", 11, 6 303 383 84
  edit "", 12, 50 318 330 21, read autohs
  edit "", 13, 50 338 330 21, read autohs
  edit "", 14, 50 358 330 21, read autohs
  text "Nom", 15, 11 321 33 16
  text "Temps", 16, 11 339 37 16
  text "Taille", 17, 11 359 37 16
  button "Fermer", 8, 6 392 383 25, flat cancel
  box "AiDe", 25, 401 12 190 403
  edit "1) Choisissez le repertoire de vos Mp3                                                 2)Choisissez le mp3 que vous vouler ecouter , choisiser Lecture pour le lir. Aller de le menu Lecture pour lire le fichier mp3 sans message                                         3)Appuiez sur stop,pause,reprendre pour modifier la lecture                                        4)Aller dans le menu Option et chhoisisser volume pour le regler.        Bonne Amusement !!!!!!                                                                                       DRAGOON1", 39, 410 30 173 208, read multi
  edit "Script cree par DrAgOoN1 ( aide de Kolibot ) Merci de ne pas copier,modifier ou le metre dans un script que vous aller publier                    MERCI                                       Dragoonlegrand@hotmail.com                                                                  Ps:PaPa-NoEl WaS A PuNk", 91, 410 252 173 122, read multi
  button "Fermer", 65, 411 382 172 25, flat
  menu "Option", 18
  item "Repertoire", 21 
  item "Volume", 22
  item "Quitter", 30
  menu "Lecture", 19
  item "Lecture", 23
  item "Stop" , 26
  item "Pause" , 29
  item "Reprendre" , 27
  menu "?", 20
  item "Aide", 24
  item "A props de" , 28
}
on *:dialog:m:*:*:{
  if $devent == init {
    $findfile(%Mp3.Dir,*.mp3,0,did -a M 9 $remove($1-, %Mp3.Dir))
    dll mdx.dll SetMircVersion $version 
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 text $rgb(000,103,248)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 textbg $rgb(000,000,000)
    dll mdx.dll SetColor $dname 9,11,1,2,7,15,16,17,12,13,14,25,39,91 background $rgb(000,000,000)
  }
  if $devent == menu || $devent == sclick {
    if $did == 65 { dialog -s M -1 -1 398 450 }
    if $did == 28 {   dialog -s M -1 -1 603 450 }
    if $did == 24 {   dialog -s M -1 -1 603 450 }
    if $did == 22 { dialog -dm vol vol }
    if $did == 27 { Splay play %Mp3.Dir $+ $did(m,9).seltext }
    if $did == 25 || $did == 5 { Splay pause }
    if $did == 26 || $did == 4 { Splay Stop }
    if $did == 23 || $did == 3 {
      %Mp3.Play = %Mp3.Dir $+ $Did(M,9).Seltext
      %Mp3.Say = $Did(M,9).Seltext
      %Mp3.Lenght = $Remove($Duration($Calc($Mp3(%Mp3.Play).Length / 1000)),Ins,Sec,In)
      %Mp3.Megs = $Round($Calc($Lof(%Mp3.Play) / 1048576),2) Megs
      did -ra m 12 %mp3.say
      did -ra m 13 %mp3.lenght
      did -ra m 14 %mp3.megs
      splay %Mp3.Dir $+ $did(m,9).seltext
      msg $active  12- 4[ 12EcOuTe 4] 12- 4[ 12  %Mp3.Say  4] 12- 4[ 12 %Mp3.Lenght  4] 12- 4[ 12 %mp3.megs  4] 12- 4[12Mp34 - 12DrAgOoN1 4] 12-
    }
    if $did == 30 { dialog -x m m }
    if $did == 21 || $did == 6 { 
      dialog -x m m
      %mp3.dir = $sdir(C:\_Div-X\,Choisis Fichier,Ouvrir)
      dialog -dm m m
    }
  }
}

;##AUTO-DCC##

on *:text:!Music*:?:{ dcc send $nick %mp3.play }

;##VOLUME##

alias v { dialog -dm vol vol }
dialog Vol {
  title "VoLuMe PaR DrAgOoN1"
  size -1 -1 110 27
  option dbu
  button "+", 1, 3 8 37 12, flat
  button "-", 2, 71 8 37 12, flat
  edit "", 3, 45 9 22 10, read
}
on *:dialog:vol:*:*:{
  if $devent == init { 
    did -a vol 3 $Int($Calc( $Vol(Wave) / 1300 )) 
    dll mdx.dll SetMircVersion $version 
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
    dll mdx.dll SetColor $dname 3 text $rgb(000,103,248)
    dll mdx.dll SetColor $dname 3 textbg $rgb(000,000,000)
    dll mdx.dll SetColor $dname 3 background $rgb(000,000,000)
  }
  if $devent == sclick {
    if $did == 2 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 - 1300) | if %Volume < 1 { var %Volume = 0 } }
    if $did == 1 { var %Volume = $calc($int($calc($Vol(Wave) / 1300)) * 1300 + 1300) | if %Volume > 65000 { var %Volume = 65000 } }
    if $did == 1 || $did == 2 { vol -w %Volume  | did -ra vol 3 $int($calc( $vol(wave) / 1300 )) }
  }
}

;##FIN##

Conclusion :


voila amuser vous bien
G mi la version longue ptete ke sa marchera mieu :)

A voir également

Ajouter un commentaire Commentaires
InFerNaLeX Messages postés 142 Date d'inscription lundi 18 octobre 2004 Statut Membre Dernière intervention 8 juin 2006
19 mars 2006 à 17:10
Comment on fait pour le mettre en mode "lecteur continu" ?
cs_Zidanex Messages postés 16 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 31 août 2005
28 août 2005 à 22:42
on colle le code ds les remotes?
cs_yann54 Messages postés 2 Date d'inscription jeudi 22 janvier 2004 Statut Membre Dernière intervention 28 février 2005
28 févr. 2005 à 13:34
a g oubliez de dire que c super comme mp3 depuis le temp que je cherche sa merci Dark-Dragoon
cs_yann54 Messages postés 2 Date d'inscription jeudi 22 janvier 2004 Statut Membre Dernière intervention 28 février 2005
28 févr. 2005 à 13:32
salut a tous moi sa marche bien mais je prefere quand c'est sur le chan en lui meme qu'on tape !music qui connaitrai la commande pour sa car le pv c bien mais c mieux sur le chan merci
DarKiNg virus Messages postés 136 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 23 juillet 2005
1 mai 2004 à 17:22
kawada76 apui sur le boutton ON/OFF de ton enceinte =)
(ou c le pc k pourri =) )
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.