Mp3 Player

By Storm2108 on Jul 23, 2008

This is my Mp3 Player just a simple one i know got the volume idea from ^Neptune's Mp3, anything i should add?

menu * {
  Mp3 Player: dialog -dmh mp3 mp3
}
dialog Mp3 {
  title "Mp3 Player"
  size -1 -1 155 189
  option dbu
  list 5, 4 24 98 72, size
  button "Play", 1, 7 107 48 10
  button "Pause", 3, 59 107 44 10
  button "Resume", 4, 59 120 44 10
  button "Stop", 2, 7 120 48 10
  button "Directory", 6, 7 131 96 15
  check "Msg to active", 12, 4 174 52 10
  box "Controls", 13, 4 98 102 50
  scroll "", 14, 11 155 86 11, horizontal top range 0 65535
  box "Volume", 15, 4 149 98 23
  edit "", 16, 57 2 97 10, read autohs
  text "Now Playing:", 17, 23 3 34 8
  box "List", 18, 2 16 104 83
}
on *:dialog:Mp3:sclick:*:{
  if ($did == 1) {
    var %mp3msg $did(mp3,12).state
    if (%mp3msg == 0) {
      var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
      did -ra mp3 16 $did(mp3,5).seltext
      splay %Psong
    }
    if (%mp3msg == 1) {    
      var %mp3 $did(mp3,5).seltext
      var %mp3 $did(mp3,5).seltext
      var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
      var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
      var %mp3bitr $mp3(%Psong).bitrate
      splay %Psong
      did -ra mp3 16 $did(mp3,5).seltext
      msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
    }
  }
  if ($did == 2) {
    splay stop
  }
  if ($did == 3) {
    splay pause
  }
  if ($did == 4) {
    splay resume
  }
  if ($did == 6) {
    set %mp3dir $sdir(mIRC,Mp3 Directory)
    did -r mp3 5
    set %mp3num $findfile(%mp3dir, *.mp3,0,did -a mp3 5 $nopath($1-))
  }
}
on *:dialog:mp3:dclick:5:{
  var %mp3msg $did(mp3,12).state
  if (%mp3msg == 1) {
    var %mp3 $did(mp3,5).seltext
    did -ra mp3 16 $did(mp3,5).seltext
    var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
    var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
    splay %Psong
    msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
  }
  if (%mp3msg == 0) { 
    var %mp3 $did(mp3,5).seltext
    did -ra mp3 16 $did(mp3,5).seltext
    var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
    splay %Psong
  }
}
on *:dialog:Mp3:scroll:14:{
  vol -v $did($did).sel 
}
Sign in to comment.
Eugenio   -  Aug 14, 2008

ALT + R copy + paste right click open the dialog once opened he will automatically know its an MP3 player

 Respond  
Anti   -  Aug 14, 2008

Lmfao, if he doesnt know what it is, how is he going to test it?

 Respond  
Eugenio   -  Aug 14, 2008

lol I spose he could have tested it before he said bollocks then he would have seen what exactly it did

 Respond  
Anti   -  Aug 14, 2008

ROFL. maybe hes from another country?

 Respond  
Eugenio   -  Aug 14, 2008

rofl well he has a point.....and its not like its got some ridiculous coding name, its called Mp3 Player

 Respond  
a careful warchild   -  Aug 14, 2008

um it's an mp3 player for mIRC it plays mp3's

lmfao napa

 Respond  
damdempsel   -  Jul 28, 2008

i got it to work...

 Respond  
damdempsel   -  Jul 28, 2008

i cant get it work...i opened it up for the music...couldnt get it to actually play it though...

 Respond  
napa182   -  Jul 25, 2008

jamming808 said:

what exactly does it do?

um it\'s an mp3 player for mIRC it plays mp3\'s

 Respond  
jamming808   -  Jul 25, 2008

what exactly does it do?

 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.