Hey, this is my homemade MP3! Wow, who knew i could make it this far? keeps hand lowerd
Anyway! This is one of thee most complex scripts I've writen

The glitch has been fixed! ^.^ I also added two buttons and a bar. The buttons mute and resume the volume, And the bar controls the volume, They are all in a new tab

CREDITS:
To my teacher iBill, Third best scripter i know ^.^
To Darkkeeper(Maker of Evolution Script) For supplying me with the dialog, Iv re-wrote and edited the whole thing tho.

dialog mp4 {
  title "Mp3 Player"
  size -1 -1 350 200
  option pixel

  Tab "Music", 15, 0 0 350 200
  Tab "Advertise", 16, 1 1 350 200
  Tab "More Volume", 17, 2 2 350 200

  Button "Mute Volume", 21, 1 25 120 50, tab 17
  Button "Resume Volume", 22, 125 25 120 50, tab 17
  Scroll "", 23, 245 27 100 16, horizontal range 0 65535, tab 17
  Text "        Volume Bar", 24, 245 47 100 16, tab 17

  button "Advertise Song", 18, 1 25 120 50, tab 16
  button "Advertise Script", 19, 125 25 120 50, tab 16
  button "Lyric's Search", 20, 1 80 120 50, tab 16

  box "Music Play Options" 12, 210 75 138 94, tab 15
  button "<<", 6, 215 140 60 25, tab 15
  button "||", 3, 215 90 130 25, tab 15
  button "[]", 4, 215 115 60 25, tab 15
  button "|>", 5, 285 115 60 25, tab 15
  button ">>", 2, 285 140 60 25, tab 15
  Button "Vol+", 13, 215 165 60 25, tab 15
  Button "Vol-", 14, 285 165 60 25, tab 15

  list 7, 1 25 205 200, hsbar vsbar extel, tab 15
  box "ADD/DEL file" 11, 210 25 138 45, tab 15
  button "ADD File" 8, 215 40 65 25, tab 15
  button "DEL File" 9, 280 40 65 25, tab 15
}
menu * {
  MP3 Player { player }
}

on 1:dialog:mp4:sclick:18: {
  /song
}

on 1:dialog:mp4:sclick:13: {
  set %vol $vol(master)
  set %vol2 $calc( 2000 + %vol )
  vol -v %vol2
}

on *:dialog:mp4:sclick:21: {
  set %vol $vol(Master)
  vol -v 0
}

on *:dialog:mp4:sclick:22: {
  vol -v %vol
}

on 1:dialog:mp4:sclick:14 {
  set %vol $vol(master)
  set %vol2 $calc( %vol - 2000 )
  vol -v %vol2
}

on *:dialog:mp4:scroll:23: { 
  vol -v $did($did).sel 
}

on 1:dialog:mp4:sclick:20 {
  set %playy1 $remove(%slistening,$chr(32),0,1,2,3,4,5,6,7,8,9,.,mp)
  set %playy2 $replace(%playy1,_,+,-,+)
  url -an $+( http://www.google.com/search?hl=en&q= $+ %playy2 $+ +lyrics&btnG=Search) 
}

on 1:dialog:mp4:sclick:19 {
  msg $active 7>.> Get Leo_Cool_1's MP3 Script at:- http://www.hawkee.com/snippet/5081/ 7<.<
}

on 1:dialog:mp4:sclick:8: {
  set %ssong1 $sfile(/)
  write playlist.txt %ssong1
  did -a mp4 7 $nopath(%ssong1)
}

on 1:dialog:mp4:sclick:9: {
  set %sdel1 $did(mp4,9)
  set %sdel2 $did(mp4,7).sel
  write -dw [ $+ [ * [ $+ [ %sdel1 [ $+ [ * ] ] ] ] ] ]  playlist.txt
  did -d mp4 7 %sdel2
}
a
on 1:dialog:mp4:init:0: {
  set %snumber 1
  :next
  set %ssong2 $read(playlist.txt, %snumber )
  if ( %ssong2 == $null) { Halt }
  did -a mp4 7 $nopath(%ssong2)
  inc %snumber 1
  if ( %ssong2 != $null ) { goto next }
}

on 1:dialog:mp4:sclick:5: {
  if ( %spause == on ) {
    set %spause off
    splay -p resume
  }
  else {
    set %splay1 $did(mp4, 7).seltext
    set %splay2 $did(mp4, 7).sel
    set %splay3 $read(playlist.txt, w, * [ $+ [ %splay1 ] ] [ $+ [ * ] ] )
    splay %splay3
    set %slistening $nopath(%splay3)
    inc %splay2 1
    set %ssong1 $replace(%splay3,-,%space,_,%space)
  }
}
on 1:MP3END: {
  set %splay3 $read(playlist.txt, %splay2)
  splay %splay3
  set %slistening $nopath(%splay3)
  inc %splay2 1
  set %ssong1 $replace(%splay3,-,%space,_,%space)
}

on 1:dialog:mp4:sclick:4: {
  splay stop
}

on 1:dialog:mp4:sclick:2: {
  splay $read(playlist.txt, %splay2)
  set %spath $read(playlist.txt, %splay2)
  set %slistening $nopath(%spath)
  inc %splay2 1
  set %ssong1 $replace(%spath,-,%space,_,%space)
}

on 1:dialog:mp4:sclick:6: {
  dec %splay2 1
  splay $read(playlist.txt, %splay2)
  set %spath $read(playlist.txt, %splay2)
  set %slistening $nopath(%spath)
  set %space  
  set %slistening $replace(%slistening,-,%space,+,%space,mp,%space,+,%space,_,%space)
  set %ssong1 $replace(%spath,-,%space,_,%space)
}

on 1:dialog:mp4:sclick:3: {
  set %spause on
  splay -p pause
}

alias song {
  if ( %islist == me ) {
    ame is now listning to:- %slistening
  }
  else {
    amsg I am now listning to:- %slistening
  }
}
alias setup {
  set %sislist $$?="When you say what you're listening to, shall it be in /me or /say. (me for /me and say for /say)"
  set %stext $$?="And what do you want to say? Example: Now playing: or is listening to"
  echo ok, type /song to show what song you're listening to
}
alias player {
  dialog -md mp4 mp4
}