/ScriptServ

dialog mp3p {
  title "mp3 player"
  size -1 -1 216 163
  option dbu
  check "Play Random", 1, 8 135 54 10
  button "Play", 2, 101 133 16 11
  button "Stop", 3, 119 133 16 11
  button "Close", 4, 180 151 37 12, ok
  list 5, 7 37 202 88, vsbar hsbar extsel
  text "The Mp3 Player Has Been Modded", 6, 17 6 177 15, center
  check "Repeat", 7, 8 144 40 10
  check "Show mp3 Replies", 8, 8 153 67 10
  check "Mute (Disable Sound)", 9, 101 149 65 10
  button "Add New Song", 10, 8 27 73 9
  button "Remove Song", 11, 135 27 73 9
  check "Play Continues", 12, 8 126 54 10
}
alias mp3p {
  .dialog -m mp3p mp3p
}
on *:dialog:mp3p:*:*: {
  ;echo -s $dname $devent $did  
  if ($dname == mp3p) && ($devent == sclick) && ($did == 10) {
    .set %song $sfile(/)
    .write -a listsong.txt %song
    .did -a mp3p 5 $sound(%song).artist - $sound(%song).title
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 11) {
    write -dl [ $+ [ $did(mp3p,5).sel ] ] listsong.txt
    did -d mp3p 5 $did(mp3p,5).sel
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 2) {
    set %i $did(mp3p,5).sel
    splay -p $read(listsong.txt,%i)
    mp3show
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 3) {
    unset %i
    splay stop
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 7) {
    if (%repeat == 1) set %repeat 0
    else set %repeat 1
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 8) {
    if (%showmp3 == 1) set %showmp3 0
    else set %showmp3 1
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 9) {
    if (%mutemp3 == 1) set %mutemp3 0
    else set %mutemp3 1
    mutemp3
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 1) {
    if (%shuffle == 1) set %shuffle 0
    if (%shuffle == 0) set %shuffle 1 | set %conmp3 0 | did -u mp3p 12 | did -c mp3p 1
  }
  if ($dname == mp3p) && ($devent == sclick) && ($did == 12) {
    if (%conmp3 == 1) set %conmp3 0 | set %ic 1
    if (%conmp3 == 0) set %conmp3 1 | set %shuffle 0 | did -u mp3p 1 | did -c mp3p 12
  }
  if ($dname == mp3p) && ($devent == init) && ($did == 0) {
    if (%shuffle == 1) did -c mp3p 1
    if (%repeat == 1) did -c mp3p 7
    if (%showmp3 == 1) did -c mp3p 8
    if (%mutemp3 == 1) did -c mp3p 9
    if (%conmp3 == 1) did -c mp3p 12
    set %list 1
    while (%list <= $lines(listsong.txt)) {
      did -a mp3p 5 $sound($read(listsong.txt,%list)).artist - $sound($read(listsong.txt,%list)).title
      inc %list 1
    }
  }
}
on 1:mp3end:{
  if (%conmp3 == 1) { 
    if (%ic !== $lines(listsong.txt)) { .splay -p $read(listsong.txt,%ic) }
    .inc %ic
    if (%ic == $lines(listsong.txt)) { .set %ic 1 }
  }
  if (%shuffle == 1) {
    set %i $rand(1,$lines(listsong.txt))
    splay -p $read(listsong.txt,%i)
    mp3show
  }
  else {
    if (%i < $lines(listsong.txt)) {
      inc %i
      splay -p $read(listsong.txt,%i)
      mp3show
    } 
    else {
      if (%repeat == 1) {
        set %i 1
        splay -p $read(listsong.txt,%i)
        mp3show
      }
    }
  }
}

alias mp3show {
  if (%showmp3 == 1) { /ame Playing: 12( $+ $sound($read(listsong.txt,%i)).artist - $sound($read(listsong.txt,%i)).title $+ 12) 4( $+ $duration($calc(($sound($read(listsong.txt,%i)).length)/1000)) $+ 4)  7( $+ $sound($read(listsong.txt,%i)).bitrate $+ kbps $+ 7)   }
  if (%showmp3 == 0) { /echo -s Playing: 12( $+ $sound($read(listsong.txt,%i)).artist - $sound($read(listsong.txt,%i)).title $+ 12) 4( $+ $duration($calc(($sound($read(listsong.txt,%i)).length)/1000)) $+ 4)  7( $+ $sound($read(listsong.txt,%i)).bitrate $+ kbps $+ 7)   }
}
alias mutemp3 {
  if (%mutemp3 == 1) { /vol -p 000000 }
  if (%mutemp3 == 0) { /vol -p 999999 }
}
alias conmp3 {
  if (%conmp3 == 1) { }
}