Lecteur mp3 avec auto dcc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 763 fois - Téléchargée 28 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
Messages postés
142
Date d'inscription
lundi 18 octobre 2004
Statut
Membre
Dernière intervention
8 juin 2006

Comment on fait pour le mettre en mode "lecteur continu" ?
Messages postés
16
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
31 août 2005

on colle le code ds les remotes?
Messages postés
2
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
28 février 2005

a g oubliez de dire que c super comme mp3 depuis le temp que je cherche sa merci Dark-Dragoon
Messages postés
2
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
28 février 2005

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
Messages postés
136
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
23 juillet 2005

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.