Rafi

menu * {
  Music Player:
..Player:/dialog -m mp mp
..Sub Control:/dialog -m mc mc
}
dialog mp {
  title "Music Player" 
  size 320 50 550 620
  list 1, 10 20 530 500, vsbar
  button "Add song",2, 20 520 60 30
  button "Play",3, 20 555 40 30
  button "Next",4, 65 555 40 30
  button "Previous",5, 110 555 50 30
  button "Stop",6, 165 555 40 30
  button "Seek",7, 210 555 40 30
  button "Pause",8, 20 585 40 30
  button "Resume",9, 65 585 50 30
  button "Close",10, 490 585 50 30, cancel
  text "Rafi's Mirc Music Player © ",11, 200 2 200 18
  button "Music Control Window",12, 90 520 160 30
}
dialog mc {
  title "Music Sub Control"
  size 950 630 320 100
  button "Play",1, 5 70 35 25
  button "Stop",2, 41 70 35 25
  button "Pause",3, 77 70 35 25
  button "Resume",4, 113 70 45 25
  button "Next",5, 159 70 35 25
  button "Previous",6, 195 70 50 25
  button "Seek",7, 245 70 35 25
  button "Close",8, 281 70 35 25, cancel
  edit "",9, 10 10 300 45,hsbar, autohs, multi, read
}


on *:DIALOG:mp:dclick:1:{
  /splay stop
  /splay -cwmpq $read(songdir.txt,$did(1).sel)
  /echo -a 3,15Now playing $read(songname.txt,$did(1).sel)
  /set %songnm $did(1).sel
}


on *:DIALOG:mp:sclick:2:{
  var %songd = $sfile(C:\Documents and Settings\owner\My Documents\My Music\)
  var %songt = $gettok($nopath(%songd),1,46)
  write songname.txt %songt
  write songdir.txt %songd
  did -a mp 1 %songt
}
on *:DIALOG:mp:sclick:3:{
  /splay stop
  /splay -cwmpq $read(songdir.txt,$did(1).sel)
  /echo -a 3,15Now playing $read(songname.txt,$did(1).sel)
  /set %songnm $did(1).sel
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)
}
on *:DIALOG:mp:sclick:4:{
  inc %songnm 1
  /splay stop
  /splay -cwmpq $read(songdir.txt,%songnm)
  /echo -a 3,15Now playing $read(songname.txt,%songnm)
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)

}
on *:DIALOG:mp:sclick:5:{
  dec %songnm 1
  /splay stop
  /splay -cwmpq $read(songdir.txt,%songnm)
  /echo -a 3,15Now playing $read(songname.txt,%songnm)
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)

}
on *:dialog:mp:sclick:6:{
  /splay stop
  /echo -a 4,15Music Stopped
}
on *:dialog:mp:sclick:7:{
  var %time = $calc($$?="Minute:" * 60000)
  /splay seek %time
}
on *:dialog:mp:sclick:8:{
  /splay pause
  /echo -a 7,15Music Paused
}
on *:dialog:mp:sclick:9:{
  /splay resume
  /echo -a 7,15Music Resumed
}
on *:dialog:mp:sclick:12:{
  /dialog -m mc mc
}
on *:DIALOG:mp:init:0:{ 
  var %song.read 1 
  while (%song.read <= $lines(songname.txt)) { 
    did -a mp 1 $read(songname.txt,%song.read) 
    inc %song.read 1 
  } 
}

on *:mp3end:{
  if (%songnm => $lines(songdir.txt)) {
    /set %songnm 1 
    /splay -cwmpq $read(songdir.txt,%songnm)
    /echo -a 3,15Now playing $read(songname.txt,%songnm)
    did -r $dname 9
    did -a mc 9 $read(songname.txt,%songnm)
  }
  else {
    inc %songnm 1
    /splay -cwmpq $read(songdir.txt,%songnm)
    /echo -a 3,15Now playing $read(songname.txt,%songnm)
    did -r $dname 9
    did -a mc 9 $read(songname.txt,%songnm)
  }
}
on *:DIALOG:mc:sclick:1:{
  /splay stop
  /splay -cwmpq $read(songdir.txt,$did(1).sel)
  /echo -a 3,15Now playing $read(songname.txt,$did(1).sel)
  /set %songnm $did(1).sel
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)
}
on *:DIALOG:mc:sclick:5:{
  inc %songnm 1
  /splay stop
  /splay -cwmpq $read(songdir.txt,%songnm)
  /echo -a 3,15Now playing $read(songname.txt,%songnm)
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)
}
on *:DIALOG:mc:sclick:6:{
  dec %songnm 1
  /splay stop
  /splay -cwmpq $read(songdir.txt,%songnm)
  /echo -a 3,15Now playing $read(songname.txt,%songnm)
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)
}
on *:dialog:mc:sclick:2:{
  /splay stop
  /echo -a 4,15Music Stopped
}
on *:dialog:mc:sclick:7:{
  var %time = $calc($$?="Minute:" * 60000)
  /splay seek %time
}
on *:dialog:mc:sclick:3:{
  /splay pause
  /echo -a 7,15Music Paused
}
on *:dialog:mc:sclick:4:{
  /splay resume
  /echo -a 7,15Music Resumed
}
on *:DIALOG:mc:init:0:{ 
  did -r $dname 9
  did -a mc 9 $read(songname.txt,%songnm)
}