Music Dialog + Music Infomation

By slub77 on Mar 21, 2010

A quick dialog i made to play music via mirc :)

[quote]Features .Select where you want all your music to come from .When selected it will get all music from that folder, and any folders that is in that .Tells you the length, name, genre and tags .Button to play ll, or to select randomly .Play button | | stop button | | close dialog button | | Next button | | Back button | | Skip one | | go back 2[/quote]

View Tutorial

ImageThe 3 Tabs

PLEASE RATE, COMMENT AND/OR LIKE

New .Allows you to choose from .mp3 .wav or .wma file types .You can shout out .Now playing Tab with position in sing .Volume control .Shout out control .more information on songs

how do you like the tidying up of the script?

dialog Music {
  title Music
  size -1 -1 280 130
  option dbu
  tab "Music", 27, 2 2 276 126
  tab "Options", 28
  tab Now playing, 38
  combo 1, 3 23 100 100, tab 27
  Button P, 2, 143 65 10 20, tab 27
  button S, 3, 153 75 10 10, tab 27
  button C, 4, 133 75 10 10, tab 27 
  button <, 5, 123 75 10 10, tab 27 
  button >, 6, 163 75 10 10, tab 27 
  button <<, 7, 113 75 10 10, tab 27 38,
  button >>, 8, 173 75 10 10, tab 27 38,
  edit Title: ,10, 105 25 90 20,disable ,flat, multi, tab 27
  edit Lenght: ,11, 105 45 90 10,disable,center, tab 27
  edit Genere: ,12, 105 55 90 10,disable ,center, tab 27
  edit Tags: ,13, 105 85 90 20,read, vsbar,multi,center, tab 27
  button Random, 14, 111 105 24 10, tab 27
  button Folder, 15, 135 105 25 10, tab 27
  button Play All, 16, 159 105 25 10, tab 27
  combo  17, 153 65 40 10, drop, tab 27
  Text Play List's,20, 215 23 50 10, tab 27
  combo 21, 203 45 50 10,drop, tab 27, size
  list 22, 203 57 50 70, tab 27, sort
  button +,24, 258 57 10 10, tab 27
  button -,25, 258 57 10 10, tab 27
  button Add Playlist,26, 212 119 30 10, tab 27
  button SHOUT OUT!, 48, 111 115 74 10, tab 27
  ;;;;;;;;;;;;;;Options
  check Shout out, 30, 10 19 32 10, tab 28
  box Options, 31, 7 30 60 60, tab 28
  check Playlist, 32, 10 37 50 10, tab 28
  check Title, 33, 10 47 50 10, tab 28
  check Genre, 34, 10 57 50 10, tab 28
  check Length, 35, 10 67 50 10, tab 28
  box Active Channel  %option.music.chan ,36, 75 19 60 65, tab 28
  list 37, 78 29 40 50, tab 28
  combo 45, 10 100 40 50, tab 28, drop
  box Volume, 46, 10 91 43 25, tab 28
  ;;;;;;;;;now playing 
  edit ,39, 5 15 270 10, tab 38, read, center
  box Details, 40, 5 35 270 100, tab 38, 
  edit Title: ,41, 10 45 80 20,read,flat, multi, tab 38, rich,center
  edit Lenght: ,42, 10 75 80 10,read,center, tab 38, rich
  edit Genere: ,43, 10 85 80 10,read,center, tab 38, rich
  edit Tags: ,44, 10 100 80 20,read, vsbar,multi,center, tab38, rich
  edit Postion, 47, 110 27 80 10, tab38, read, center
  edit Artist:, 49, 100 45 80 10, tab38, read, rich,center
  edit Track:, 50, 100 55 80 10, tab38, read, rich,center
  edit Comment:, 51, 100 65 80 30, tab38, read, rich,center
  edit year:, 52, 100 85 80 10, tab38, read, rich,center
  edit Copywright:, 53, 100 95 80 10, tab38, read, rich,center
  edit mode:, 54, 100 105 80 10, tab38, read, rich,center
  edit vbr:, 55, 100 115 80 10, tab38, read, rich,center
  edit bitrate:, 56, 185 45 80 10, tab38, read, rich,center
  edit Version:, 57, 185 55 80 10, tab38, read, rich,center
}
on *:MP3END: did -o music 47 1 Completed | unset %current.song %current.songl
menu * {
  music:/dialog -md music music 
}
on *:DIALOG:music:init:*:{ if (!%whereto) { var %a $sfile(Here,Select With in the folder where the music is,This Folder) | set %whereto $remove(%a,here) | dialog -x music music }
  else { $iif(%current.song,$details2) | did -o $dname 45 1 1 | did -o $dname 45 2 2 |  did -o $dname 45 3 3 |  did -o $dname 45 4 4 |  did -o $dname 45 5 5 | $chanact | $Option1 | $files | $playlist | did -i $dname 17 1 *.mp3 | did -i $dname 17 2 *.wav | did -i $dname 17 1 *.wma | did -i $dname 17 1 *.mp4 | set %filetype $+(*.mp3) } 
}
on *:DIALOG:MUSIC:SCLICK:*:{
  if $did == 1 { $details | set %objextsel 1 | did -u $dname 22 }
  IF $DID == 2 {  if $did(1,0).seltext { dialog -t $dname $did(1,0).seltext | splay $findfile(%whereto,$did(1,0).seltext,1) | set %objextsel 1 | $details | $option2 | set %music.Nowplaying $did(1,0).seltext }
  elseif $did(22,0).seltext { dialog -t $dname $did(22,0).seltext | splay $findfile(%whereto,$did(22,0).seltext,1) | set %objextsel 22 | $details | $option2 | | set %music.Nowplaying $did(22,0).seltext } }
  if $did == 3 { splay pause | $details | did -b $dname 3 | did -e $dname 4 }
  if $did == 4 { splay resume | $details | did -b $dname 4 | did -e $dname 3 }
  if $did == 5 { var %linen $calc($did(1).sel -1) | did -c $dname 1 %linen | dialog -t $dname $did(1,0).seltext | splay -a $findfile(%whereto,%filetype,%linen)) | $details } 
  if $did == 6 { var %linen $calc($did(1).sel +1) | did -c $dname 1 %linen | dialog -t $dname $did(1,0).seltext | splay -a $findfile(%whereto,%filetype,%linen)) | $details } 
  if $did == 7 { var %linen $calc($did(1).sel -2) | did -c $dname 1 %linen | dialog -t $dname $did(1,0).seltext | splay -a $findfile(%whereto,%filetype,%linen)) | $details } 
  if $did == 8 { var %linen $calc($did(1).sel +2) | did -c $dname 1 %linen | dialog -t $dname $did(1,0).seltext | splay -a $findfile(%whereto,%filetype,%linen)) | $details } 
  if $did == 14 { var %lines $did(1,0).lines | var %linen $rand(0,%lines) | did -c $dname 1 %linen | dialog -t $dname $did(1,0).seltext | splay -a $findfile(%whereto,%filetype,%linen)) | $details | | set %music.Nowplaying $did(1,0).seltext } 
  if $did == 15 { var %a $sfile(Here,Select With in the folder where the music is,This Folder) | set %whereto $remove(%a,here) | dialog -x music music }
  if $did == 16 {  if %objextsel == 22 {
      var %a $did(%objextsel,0).lines | var %b 1 | var %c 1 | var %d 1
      :poop
      if %a == %b { noop }
    else { splay -q $findfile(%whereto,$readini(playlist.ini,$did(21,0),$ffile),%d) | inc %b | inc %c | goto poop } }
    else {
      var %a $did(%objextsel,0).lines | var %b 1
      :loop
      if %a == %b { noop }
  else { splay -q $findfile(%whereto,%filetype,%b) | inc %b | goto loop } } }
  if $did == 17 { did -r $dname 1 | set %filetype $did(17,0).seltext | $files }
  if $did == 21 { did -r $dname 22 | $listtrack }
  if $did == 22 { set %objextsel 22 | did -u $dname 1 }
  if $did == 24 { $addfile }
  if $did == 25 { $delfile }
  if $did == 26 { $newlist }
  if $did == 30 {  if %option.music.shout == on { did -b $dname 32-35 | set %option.music.shout off | did -u $dname 30 | noop }
  else { did -e $dname 32-35 | set %option.music.shout on | did -c $dname 30 | noop } }
  if $did == 32 { if (%option.music.shout.p == off) { set %option.music.shout.p on }
  else { set %option.music.shout.p off } }
  if $did == 33 { if (%option.music.shout.t == off) { set %option.music.shout.t on }
  else { set %option.music.shout.t off } }
  if $did == 34 { if (%option.music.shout.g == off) { set %option.music.shout.g on }
  else { set %option.music.shout.g off } }
  if $did == 35 { if (%option.music.shout.l == off) { set %option.music.shout.l on }
  else { set %option.music.shout.l off } }
  if $did == 37 { set %option.music.chan $did(37,0).seltext | did -o $dname 36 1 Active channel $did(37,0).seltext }
  if $did == 38 { did -r $dname 39-44,47,49 | did -o $dname 39 1 $nopath($insong.fname) | did -o $dname 41 1 Title: $nopath($insong.fname) | did -o $dname 42 1 Lenght: $round($calc($insong.length / 63138.58),2) | did -o $dname 43 1 genre: $sound($insong.fname).genre | did -o $dname 44 1 Tags: $sound($insong.fname).tags | did -o $dname 47 1 Position: $round($calc($insong.pos / 63138.58),2) : $round($calc($insong.length / 63138.58),2)  | did -o $dname 49 1 $iif($sound($insong.fname).artist,Artist: $sound($insong.fname).artist,No Artist)  | did -o $dname 50 1 $iif($sound($insong.fname).track,Track: $sound($insong.fname).track,No Track record) | did -o $dname 51 1 $iif($sound($insong.fname).comment,comment: $sound($insong.fname).comment,No comment saved) | did -o $dname 52 1 $iif($sound($insong.fname).year,year: $sound($insong.fname).year,No year set) | did -o $dname 53 1 $iif($sound($insong.fname).copyright,copyright: $sound($insong.fname).copyright,No copyright set) | did -o $dname 54 1 $iif($sound($insong.fname).mode,mode: $sound($insong.fname).mode,No mode for this song) | did -o $dname 55 1 $iif($sound($insong.fname).vbr,vbr: $sound($insong.fname).vbr,No vbr for this song) | did -o $dname 56 1 $iif($sound($insong.fname).bitrate,bitrate: $sound($insong.fname).bitrate,No bitrate for this song) | did -o $dname 57 1 $iif($sound($insong.fname).version,version: $sound($insong.fname).version,No version) }
  if $did == 45 { $iif($did(45,0).seltext == 1 ,vol -wmpv  13107) $iif($did(45,0).seltext == 2 ,vol -wmpv 26214)  $iif($did(45,0).seltext == 3 ,vol -wmpv 39321) $iif($did(45,0).seltext == 4 ,vol -wmpv 52428) $iif($did(45,0).seltext == 5 ,vol -wmpv 65535) }
  if $did == 48 {  describe %option.music.chan Is now listening to $did(10,0) @ Position  $round($calc($insong.pos / 63138.58),2) : $round($calc($insong.length / 63138.58),2) @  $did(12) }
}
on *:DIALOG:music:close:*:{ if $insong { set %current.song $insong.fname | set %current.song1 $did(10) | splay pause | unset %music.Nowplaying } }
alias files {
  var %a 1
  :loop
  if !$findfile(%whereto,%filetype,%a) { noop }
else { did -o $dname 1 %a $nopath($findfile(%whereto,%filetype,%a)) | inc %a | goto loop } }
alias Playlist { if !$ini(playlist.ini,The_first) { writeini playlist.ini The_first 1  @PLAYLIST@ }
  else {
    var %a $calc($ini(playlist.ini,0) +1) | var %b 1
    :loop
    if %a == %b { noop }
else { did -i $dname 21 %b $ini(playlist.ini,%b) | inc %b | goto loop } } }
alias details { did -ro $dname 10 1 Title: $remove($did(%objextsel,0).seltext,%filetype) | did -ro $dname 11 1 Lenght: $round($calc($sound($findfile(%whereto,$did(%objextsel,0).seltext,1)).length / 63138.58),2) | did -ro $dname 12 1 Genere: $sound($findfile(%whereto,$did(%objextsel,0).seltext,1)).genre | did -ro $dname 13 1 Tags: $sound($findfile(%whereto,$did(%objextsel,0).seltext,1)).tags } 
alias details2 { did -ro $dname 10 1 Title: $remove( %current.song1 ,.mp3,.wav,.mp4,.wap,Title,:) | did -ro $dname 11 1 Lenght: $round($calc($sound(%current.song).length / 63138.58),2) | did -ro $dname 12 1 Genere: $sound(%current.song).genre | did -ro $dname 13 1 Tags: $sound(%current.song).tags | splay resume }
alias listtrack {
  var %a $calc($ini(playlist.ini,$did(21,0).seltext,0) +1) | var %b 1
  :loop
  if %a == %b { noop }
  else { if $findfile(%whereto,$readini(playlist.ini, $did(21,0).seltext ,%b),1) { did -o $dname 22 %b $nopath($findfile(%whereto,$readini(playlist.ini,$did(21,0).seltext,%b),1)) | inc %b | goto loop }
else { did -i $dname 22 %b File lost | inc %b | goto loop } } }
alias addfile {
var %a $ini(playlist.ini,$did(21,0).seltext,0) | var %b $ini(playlist.ini,$did(21,0).seltext,%a) | writeini playlist.ini $did(21,0).seltext $calc(%a +1) $did(1,0).seltext | $reset }
alias delfile {
  var %a $calc($ini(playlist.ini,$did(21,0).seltext,0) +1) | var %b 1
  :loop
  if %a == %b { noop }
  else {
    if $readini(playlist.ini, $did(21,0).seltext, %b) == $did(22,0).seltext { remini playlist.ini $did(21,0).seltext %b | $reset }
else { inc %b | goto loop } } }
alias ffile {
  var %a $calc($ini(playlist.ini,$did(21,0).seltext,0) +1) | var %b 1
  :loop
  if %a == %b { noop }
  else { if $readini(playlist.ini, $did(21,0).seltext, %b) == $did(22,0).seltext { return %b }
else { inc %b | goto loop } } }
alias newlist {
  var %a $?="New name for the new playlist"
  if !%a { noop }
else { writeini playlist.ini %a 1 @PLAYLIST@ | $reset } }
alias -l reset {
var %a $dname | dialog -x %a %a | dialog -md %a %a }
;;;;;;;;;;;;;;;;;;;;;Options
alias -l Option1 { if %option.music.shout == off { did -b $dname 32-35  }
else { did -c $dname 30 | $iif(%option.music.shout.t == on,did -c $dname 33 ) | $iif(%option.music.shout.l == on,did -c $dname 34 ) | $iif(%option.music.shout.g == on,did -c $dname 35 ) | $iif(%option.music.shout.p == on,did -c $dname 32 )   } }
alias -l chanact {
  var %b 1
  :loop
  if $chan(%b) == $null { noop }
else { did -i $dname 37 %b $chan(%b) | inc %b | goto loop } }
alias -l option2 { if %option.music.shout == off { noop }
else { describe %option.music.chan Is now listening to @!@ $iif(%option.music.shout.t == on,$did(1,0).seltext ,*Name hidden*) $iif(%option.music.shout.l == on,:@: Position: $round($calc($insong.pos / 63138.58),2) : $round($calc($sound($findfile(%whereto,$did(%objextsel,0).seltext,1)).length / 63138.58),2))  $iif(%option.music.shout.g == on,:@: Genre: $sound($findfile(%whereto,$did(%objextsel,0).seltext,1)).genre) $iif(%%objextsel == 22,:@: Playlist: $iif(%option.music.shout.p == on,:@: Playlist$did(21,0).seltext)) } }
Sign in to comment.
meluygas   -  May 11, 2011

hola hablas espaƱol ?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.