menu * {
  mIRC Music Player:Music
}
alias music {
  dialog -meid Music Music
}
alias F6 { 
  /music
}

dialog music {
  title "mIRC Music"
  size -1 -1 114 146
  option dbu
  tab "Play", 1, 1 0 109 141
  button "<", 8, 6 19 9 12, tab 1
  button "Play", 2, 17 19 18 12, tab 1
  button "Pause", 5, 37 19 18 12, tab 1
  button "Stop", 4, 57 19 18 12, tab 1
  button ">", 9, 78 19 9 12, tab 1
  box "Tracks", 3, 6 33 85 62, tab 1
  box "Track Info:", 7, 6 96 99 30, tab 1
  text "", 10, 9 103 92 20, tab 1
  button "^", 11, 95 32 9 9, tab 1
  box "Vol", 13, 92 16 15 38, tab 1
  text "", 14, 96 23 8 7, tab 1
  list 6, 10 41 78 50, tab 1 size hsbar
  button "V", 12, 95 42 9 9, tab 1
  button "Add", 29, 93 56 15 12, tab 1
  button "Del", 30, 93 69 15 12, tab 1
  button "amp3", 35, 93 83 15 13, tab 1
  scroll "", 36, 6 129 100 8, tab 1 range 1 100 horizontal bottom
  tab "Global", 15
  box "Settings", 16, 4 18 102 104, tab 15
  check "Ame", 17, 11 27 29 10, tab 15
  check "Amsg", 18, 40 27 26 10, tab 15
  box "Display", 19, 4 37 102 85, tab 15
  text "Song", 20, 18 48 16 8, tab 15
  check "Artist", 21, 9 57 29 10, tab 15
  text "Note: If available", 25, 7 98 45 9, tab 15
  text "Credits:", 26, 44 52 53 8, tab 15
  check "Album", 22, 9 67 31 10, tab 15
  check "Year", 23, 9 76 27 10, tab 15
  check "Bitrate", 24, 9 85 32 10, tab 15
  text "By [-God-] from irc.swiftirc.net", 27, 44 61 53 19, tab 15
  button "Clear PList", 31, 68 110 34 9, tab 15
  check "Continued", 34, 68 27 36 10, tab 15
  tab "Help", 28
  text "Help", 32, 10 19 32 8, tab 28
  text " < | > - Next/Previous Track                      Play - Plays selected track                        Stop  - Stops playing                                Pause - Pauses Track                                                                                                The settings for global are only shown    if available otherwise they are shown      as -", 33, 10 27 97 97, tab 28
}
on *:DIALOG:music:sclick:17,18:{
  if ($did == 17) {
    did -u $dname 18
    did -c $dname 17
  }
  if ($did == 18) {
    did -u $dname 17
    did -c $dname 18
  }
}
ON *:MP3END:{ 
  var %n = $readini(godplayer.ini,Songs,$calc(%music + 1))
  if (!%n) {
    unset %music 
    splay $readini(godplayer.ini,Songs,1) 
    did -a music 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
    did -a music 10 $nopath($insong.fname)

    inc %music
  }
  elseif (%n) { 
    splay %n
    inc %music
    did -a music 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
    did -a music 10 $nopath($insong.fname)
  }
} 
on *:DIALOG:music:sclick:8,9:{
  if ($insong) {
    var %p = $readini(godplayer.ini,Songs,$iif($did == 8,$calc(%music - 1),$calc(%music + 1)))

    if (!%p) {
      unset %music 
      splay $readini(godplayer.ini,Songs,1) 
      did -a $dname 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
      did -a $dname 10 $nopath($insong.fname)

      inc %music
    }
    if (%p) {
      splay %p
      inc %music
      did -a $dname 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
      did -a $dname 10 $nopath($insong.fname)
    }
  }
}

on *:DIALOG:mp3:sclick:9:{
  if ($insong) {
    var %m = $readini(godplayer.ini,Songs,$calc(%god + 1))
    if (!%m) {
    unset %god | splay $readini(godplayer.ini,Songs,1) | did -a mp3 7 File path: $insong.fname | inc %god }
    if (%m) {
      splay %m
      inc %god
      did -a mp3 7 File path: $insong.fname 
    }
  }
}
on *:DIALOG:music:close:*:{
  savemusicconfig 
  timermusic off
  splay stop
}
on *:DIALOG:music:sclick:31:{
  remini godplayer.ini songs
  did -r $dname 6
  splay stop
  timermusic off
  did -a $dname 7 Track Info:
  did -r $dname 10
}
on *:DIALOG:music:sclick:29:{ 
  var %file = $msfile(*.mp3,Songs,Load)
  var %load = 0 
  while (%load < %file) {
    inc %load
    writeini godplayer.ini songs $calc($ini(godplayer.ini,Songs,0) + 1) $msfile(%load)
    did -a $dname 6 $remove($nopath($msfile(%load)),.mp3)))
  }
  .loadsongs
} 

on *:DIALOG:music:sclick:30:{ 
  if ($did($dname,6,1).sel == $ini(godplayer.ini,songs,0)) {
    remini godplayer.ini songs $did($dname,6,1).sel
    .loadsongs
  }
  else {
    var %r = $did($dname,6,1).sel, %t = $calc($ini(godplayer.ini,songs,0) - %r - 1)))
    while (%r <= $calc(%t + %r)) {
      if ($readini(godplayer.ini,songs,$calc(%r + 1)) == $null) {
        remini godplayer.ini songs $ini(godplayer.ini,songs,0)
        did -r $dname 6
        .loadsongs
        halt
      }
      else {
        writeini godplayer.ini songs %r $readini(godplayer.ini,songs,$calc(%r + 1))
        inc %r
      }
    }
  }
}
on *:DIALOG:music:scroll:36:{
  if ($insong) {
    splay seek $round($calc($insong.length / 100 * $did($dname,36).sel),0)
  }
}

on *:DIALOG:music:sclick:2:{
  if ($gettok($did($Dname,7).text,6,32) == :paused) {
    splay resume
    timermusic 0 1 did -a $dname 7 Track Info: $!($mid($duration($left($insong.pos,-3),3),4,8)) / $!($mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8))
  }
  else {
    set %music $did(music,6,1).sel
    splay $readini(godplayer.ini,songs,$did(music,6,1).sel)
    timermusic off | timermusic 0 1 did -a $dname 7 Track Info: $!($mid($duration($left($insong.pos,-3),3),4,8)) / $!($mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8))
    did -a $dname 10 $nopath($readini(godplayer.ini,songs,$did(music,6,1).sel))
    did -a $dname 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
  }
}
on *:DIALOG:music:init:*:{
  loadmusicconfig
  if (!%vol) { 
    set %vol 8
    vol -v $calc(%vol * 5000)
    did -a $dname 14 %vol 
    if ($ini(godplayer.ini,songs,0) > 0) { 
      var %i = 0 
      while (%i < $ini(godplayer.ini,songs,0)) {  
        inc %i 
        did -a $dname 6 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
      } 
    }
  }
  elseif (%vol) { 
    vol -v $calc(%vol * 5000)
    did -a $dname 14 %vol
    if ($ini(godplayer.ini,songs,0) > 0) { 
      var %i = 0 
      while (%i < $ini(godplayer.ini,songs,0)) {  
        inc %i 
        did -a $dname 6 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
      } 
    } 
  }
}
on *:DIALOG:music:sclick:5:{
  if ($insong) {
    splay pause
    timermusic off
    did -a $dname 7 Track Info: $($mid($duration($left($insong.pos,-3),3),4,8)) / $($mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8)) :Paused

  }
}
on *:DIALOG:music:sclick:4:{
  splay stop
  timermusic off
  did -a $dname 7 Track Info:
  did -r $dname 10
}
on *:DIALOG:music:dclick:6:{
  set %music $did(music,6,1).sel
  did -a $dname 10 $nopath($readini(godplayer.ini,songs,$did(music,6,1).sel))
  splay $readini(godplayer.ini,songs,%music)
  did -a $dname 7 Track Info: $iif($sound($insong.fname).title,$sound($insong.fname).title,$remove($replace($$nopath($insong.fname),_,$chr(32)),.mp3,.wav,.wma))
  timermusic off | timermusic 0 1 did -a $dname 7 Track Info: $!($mid($duration($left($insong.pos,-3),3),4,8)) / $!($mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8))
}
on *:DIALOG:music:sclick:11:{ 
  if (%vol < 13) { 
    set %vol $calc(%vol + 1) 
    vol -v $calc(%vol * 5000)
    did -a $dname 14 %vol 
  } 
} 
on *:DIALOG:music:sclick:12:{ 
  if (%vol > 1) { 
    set %vol $calc(%vol - 1) 
    vol -v $calc(%vol * 5000)
    did -a $dname 14 %vol 
  } 
}
alias loadsongs {
  /did -r $dname 6
  if ($ini(godplayer.ini,songs,0) > 0) { 
    var %i = 0 
    while (%i < $ini(godplayer.ini,songs,0)) {  
      inc %i 
      did -a $dname 6 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
    }
  }
}
alias savemusicconfig {
  hadd -m music ame $did(music,17).state
  hadd -m music amsg $did(music,18).state
  hadd -m music artist $did(music,21).state
  hadd -m music album $did(music,22).state
  hadd -m music year $did(music,23).state
  hadd -m music bitrate $did(music,24).state
  hadd -m music continued $did(music,34).state


}
alias loadmusicconfig {
  did $cstate($hget(music,ame)) music 17
  did $cstate($hget(music,amsg)) music 18
  did $cstate($hget(music,artist)) music 21
  did $cstate($hget(music,album)) music 22
  did $cstate($hget(music,year)) music 23
  did $cstate($hget(music,bitrate)) music 24
  did $cstate($hget(music,continued)) music 34

}


alias -l cstate {
  if ($1 == 1) return -c
  if ($1 == 0) return -u
}