Petit lecteur mp3

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 886 fois - Téléchargée 25 fois

Commenter

Contenu du snippet

Bah c est un ti lecteur mp3 avec annonce de ce ke l on ecoute sur la fenetre active (desactivable) avec un mode continu, aleatoire, boucle. On pe ajouter autant de rep ke l on desire.Ca lit les waves, midi avec la fonction add. Le volume est gere ainsi k une info hyper utile , le tps restant :)

ps:click droit sur le fond d un chan ou de la fenetre status pour afficher le menu.

Source / Exemple :

;;;;;Mp3 PLayer Dialog;;;

menu status,channel {
  -
  Mp3 :
  .Lancer:/mp3
  .Afficher:/dialoga
  .Masquer:/dialogm
}

alias dialogm {
  .set %y 85
  if ( %mode == on ) { 
    .timerinftitle 0 1 .mp3tpsenroule
  .timermasker 85 0.1 .enroule }
}

alias dialoga {
  .set %y 0
  if ( %mode == on ) { 
  .timerafficher  95 0.1 .deroule }
  .timerinftitle off
  .dialog -t  mp3 mp3  - Huitre 
  .timerinfo 0 1 .mp3tps 
}

alias mp3 {
  dialog -hm MP3 MP3
}

alias son_txt {
  /write $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  $1-
  did -a mp3 1 $nopath($1-) 
}

alias deroule {
  .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y  100 %y
  .set %y $calc( %y + 1 ) 
}

alias enroule {
  .dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y  100 %y
  .set %y $calc( %y - 1 ) 
}

alias mp3tpsenroule {
  .timerinfo off
  set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
  .dialog -t  mp3 mp3 :[ %tpsmp3 ]:
  if ( %tpsmp3 == 0 ) { .timerinftitle off }
}

alias mp3tps {
  set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
  did -a mp3 40  :[ $iif( $mp3($insong.fname).title == $null , No Title,$mp3($insong.fname).title ) - %tpsmp3 ]:
  if ( %tpsmp3 == 0 ) { .timerinfo off }
}

dialog  MP3 {
  title "Mp3 - Huitre"
  size -1 -1 100 85 
  option dbu

  list 1,5 5 90 60

  box "info",40,0 75 100 30
  button "ok",100, 200 1000 1 1,ok
  button "cancel",200, 100 1000 1 1,cancel
  button "Play",2,5 63 16 10
  button "Stop",3,26 63 16 10
  button "Boucle",4,46 63 18 10
  button "Add",5,68 63 15 10
  button "+",6,88 63 5 5
  button "-",7,88 68 5 5

  menu "mode",9
  menu "Mode continu",30,9
  item "On",31,30,9
  item "Off",32,30,9
  menu "Mode aleatoire",41,9
  item "On",33,41,9
  item "Off",34,41,9
  menu "Mode silencieux",50,9
  item "On",35,50,9
  item "Off",36,50,9

  menu "Repertoire",10
  item "Choisir le repertoire",11,10
  item "Ajouter un repertoire",12,10

  menu "Credits",92
  item "About",91,92

}

dialog Credits {
  title "Credits"
  size -1 -1 70 47
  option dbu
  text "Huitre Audio Media Player",99, 5 5 100 12
  text "crée par Huitre",97,16 35 100 12
  text "Kewl.random.org:6667",96, 5 17 60 12
  text "#universjeux",98, 5 24 40 12
  button "Ok",1,133 4 15 43,ok
}

on *:dialog:mp3:menu:91 {
dialog -m Credits Credits }

on *:dialog:mp3:menu:11 {
  remove   $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) 
  set %dir $sdir(E:\anime,Repertoire des Mp3)
  did -r mp3 1
  $findfile(%dir,*.mp3,0,son_txt $1-)
}

on *:dialog:mp3:menu:12 {
  set %addir $sdir(E:\anime,Repertoire des Mp3)
  $findfile(%addir,*.mp3,0,son_txt $1-)
}

on *:dialog:mp3:sclick:1 {
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  , %zik_num)
}

on *:dialog:mp3:dclick:1 {
  set %boucle off
  /splay -p stop
  set %zik_num  $did(mp3,1).sel
  set %zik $read(mp3.txt , %zik_num)
  /splay -p %zik
  /timerinfo off
  /timerinfo 0 1 mp3tps
  if ( %silence == off ) {
    msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
  }  
}

on *:dialog:mp3:rclick:1 {
  msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
}

on *:dialog:mp3:sclick:3 {
  set %boucle off
  /splay -p stop %zik
}

on *:dialog:mp3:sclick:2 {
  set %boucle off
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
  /splay  %zik 
}

on *:dialog:mp3:sclick:4 {
  set %zik_num  $did(mp3,1).sel
  set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
  set %boucle on
  /splay -p %zik2
}

on *:dialog:mp3:sclick:5 {
  var %addmp3 $sfile(E:\anime\,Nom du mp3,Ajouter)
  /write $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  %addmp3
/did -a MP3 1 $nopath(%addmp3)  }

on *:dialog:mp3:sclick:6 {
//vol -v $calc( $vol(master) + 1000 ) }

on *:dialog:mp3:sclick:7 {
//vol -v $calc( $vol(master) - 1000 ) }

on *:dialog:mp3:menu:31 {
  set %aleatoire off
set %continu on }

on *:dialog:mp3:menu:32 {
  set %aleatoire off
set %continu off }

on *:dialog:mp3:menu:33 {
  set %continu off 
set %aleatoire on }

on *:dialog:mp3:sclick:34 {
  set %continu off 
set %aleatoire off }

on *:dialog:mp3:menu:35 {
set %silence on }

on *:dialog:mp3:menu:36 {
set %silence off }

on *:dialog:MP3:init:0: {
  .set %mode on
  /echo merci d' utiliser Huitre Amp - %crt
  if ( $exists( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) {
    set %crt Made by Huitre
    set %dir $sdir(E:\anime,Repertoire des Mp3)
    $findfile(%dir,*.mp3,0,son_txt $1-) 
  }
  else { 
    /write -c mp3.txt 
    $findfile(%dir,*.mp3,0,son_txt $1- )
  }
}

on *:dialog:MP3:close:0: {
  .set %boucle off
  .set %mode off
  /splay -p stop %zik
  /echo merci d' avoir utilisé Huitre Amp - %crt
  .timerinfo off
  .timerinftitle off
/write -c $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  }

on *:MP3END: {
  /timerinfo off
  if ( %continu == on ) {
    .set %boucle off
    inc %zik_num 1
    if ( %zik_num > $lines( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34)  )  ) {
      .set %zik_num 1 
    }
    .set %zik $read( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
    /timerinfo off
    /splay -p %zik
    /timerinfo 0 1 /mp3tps
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }  
  }
  if  ( %aleatoire == on ) {
    set %boucle off
    set %zik $read($chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34))
    /timerinfo off
    /splay  -p %zik
    /timerinfo 0 1 /mp3tps
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }  
  }
  if ( %boucle == on ) { 
    /splay -p %zik 
    if ( %silence == off ) {
      msg $active [Mp3 Huitre's Player: $nopath(%zik) Album: $mp3(%zik).album Length: $duration($calc(($mp3(%zik).length)/1000)) Bitrate: $mp3(%zik).bitrate kb/s ] 
    }
  }
  else { halt }
}

Conclusion :

Y a ptete des bugs c ma premiere grosse source. Commentaire si vous en trouvez.

Version 1.1:
Bugs des espaces reparé.

A voir également

Ajouter un commentaire Commentaires

Signaler

InFerNaLeX

Messages postés: 142
Date d'inscription: lundi 18 octobre 2004
Statut: Membre
Dernière intervention: 8 juin 2006

3 mars 2006 à 15:48

C'est vrai qu'il est moche, le reglage de son fonctionne pas; et comme il dit, ca serai reductible ça serai mieux

Signaler

Hjulien

Messages postés: 3
Date d'inscription: samedi 28 mai 2005
Statut: Membre
Dernière intervention: 28 mai 2005

28 mai 2005 à 19:58

J'avais vu des MP3 mieux mais le tien me plait plus que les autres
Juste si on pouvait le baisser dans la barre d'outil ça aurait été super :)

Signaler

Oz26

Messages postés: 4
Date d'inscription: dimanche 8 juin 2003
Statut: Membre
Dernière intervention: 19 octobre 2003

19 oct. 2003 à 16:58

Signaler

Oz26

Messages postés: 4
Date d'inscription: dimanche 8 juin 2003
Statut: Membre
Dernière intervention: 19 octobre 2003

11 oct. 2003 à 11:33

j'avait oublier , Pour les couleurs utiliser mdx.dll si tu ne le connais pas , ou même si tu ve de l'aide , vien me voir sur mon msn : Oz@script-fr.com ;)
aller bon courage a +

Signaler

Oz26

Messages postés: 4
Date d'inscription: dimanche 8 juin 2003
Statut: Membre
Dernière intervention: 19 octobre 2003

11 oct. 2003 à 11:26

Je TE conseil pour le volume d'ajouter a chaque foi 4000 comme sa , tu entend le sons ki monte :)

Afficher les 15 commentaires

S'inscrire maintenant

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.

Petit lecteur mp3

Contenu du snippet

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ?

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

Du même auteur (cs_Huitre)

Petit bot pour chan

Frog revival

Pong irc

Anti ban

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (cs_Huitre)

Petit bot pour chan

Frog revival

Pong irc

Anti ban

Vous n'êtes pas encore membre ?

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