My first MIRC Script
this is not my script
this is wriths
he said i could change it and post it as mine

Alias mp3 { 
  if (!$dialog(Wmp3)) dialog -mdo Wmp3 Wmp3
  Else {
    Dialog -ie Wmp3 Wmp3
  }
}
alias Remaining {
  If ($dialog(Wmp3)) {
    did -ra Wmp3 4 $asctime($round($calc(($insong.length - $insong.pos) / 1000),0),nn:ss),none)
    Else { Halt }
  }
}
dialog Wmp3 {
  title "Tweek iRc Mp3"
  icon Icons\Prototype.icon, 0
  size -1 -1 245 95
  option dbu
  list 2, 4 4 154 90, vsbar size sort
  edit "", 3, 165 72 75 10, read autohs autovs
  edit "", 4, 190 83 24 10, read autohs autovs right
  box "", 5, 165 16 75 56
  button "Play", 6, 168 25 32 12
  button "Pause", 7, 185 39 32 12
  button "Resume", 8, 204 25 32 12
  button "Stop", 9, 168 53 32 12
  button "Directory", 14, 204 53 32 12
  text "Tweek Mp3 By WraithRIOT ", 15, 170 12 65 8
}

on *:Dialog:Wmp3:*:*:{
  if ($devent == InIt) {
)
    Did -a Wmp3 2 $findfile(%dir, *.mp3,0,did -a Wmp3 2 $nopath($1-))
    did -ra Wmp3 3 Nothing is playing
    did -ra Wmp3 4 00:00 
  }
  If ($Devent == Sclick) {
    If ($did = 6) {
      var %Playing $Remove($did(Wmp3,2).seltext,.Wmp3)
      var %song $findfile(%dir,$did(Wmp3,2).seltext,1)
      set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
      splay %song
      Did -ra $dname 3 $remove($nopath($insong.fname)$1-,.mp3) 
      Did -ra $dname 4 %length
      .timermp3 0 0 Remaining
    }
    If ($did = 7) {
      Splay Pause
    }
    If ($did = 8) {
      Splay Resume
    }
    If ($did = 9) {
      Splay stop
    }
    If ($did = 14) {
      set %dir $sdir="Mp3 Directory"
      write mp3.txt
      noop $findfile(%dir,*.mp3,0,write mp3.txt $1-)
      var %num $findfile(%dir, *.mp3,0,did -a Wmp3 2 $nopath($1-))
    }
    If ($did = 16) {
      splay stop
      set %cplay on
      set %songnum 1
      splay $read(mp3.txt,%songnum)
      set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
    If ($did = 17) {
      splay stop
      splay stop
      set %cplay off
      .timermp3 off
      did -ra Wmp3 3 Nothing is playing
      did -ra Wmp3 4 00:00
    }
    If ($did = 18) {
      if (%cplay == off) { Halt }
      splay stop
      inc %songnum
      splay $read(mp3.txt,%songnum)
      set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
      did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
      .timermp3 0 0 Remaining
      spam
    }
  }
  If ($devent == Dclick) {
    If ($did = 2) { 
      var %Playing $Remove($did(Wmp3,2).seltext,.Wmp3)
      var %song $findfile(%dir,$did(Wmp3,2).seltext,1)
      set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
      splay %song
      Did -ra $dname 3 $remove($nopath($insong.fname)$1-,.mp3) 
      Did -ra $dname 4 %length
      Spam
      .timermp3 0 0 Remaining
    }
  }
}
On *:Mp3end:{
  if (%cplay == on) {
    inc %songnum
    splay $read(mp3.txt,%songnum)
    set %length $gmt($round($calc($mp3($insong.fname).length / 1000),0),nn:ss)
    did -ra Wmp3 3 $remove($nopath($insong.fname)$1-,.mp3)
    spam
  }
}
Alias Spam {
  If (%spam = 1) {
    Sconamsg 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $remove($nopath($insong.fname)$1-,.mp3)  %length $+ 4-14)
  }
  If (%spam = 2) {
    Say 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $+ $remove($nopath($insong.fname)$1-,.mp3)  %length 4-14)
  }
  If (%Spam = 3) {
    Echo -a $Timestamp 14,1(4-0Now Playing4-14) 14,1(4-0 $+ 15Wraith 15M4p15,1314:0 $remove($nopath($insong.fname)$1-,.mp3)  %length 4-14)
  }
  If (%Spam = 4) {
    Halt
  }
}

alias sconamsg {
  var %x = 1
  var %chans = $chan(0)
  var %scid = $scon(0)
  var %scon = 1
  :started
  scon %scon
  if (!$server) && (%scon != scid) { inc %scon | goto started }
  if (!$server) && (%scon == %scid) { goto end }
  if ($chan(1)) amsg $1-
  if (!$chan(1)) && (%scon != %scid) { inc %scon | goto started }
  if (!$chan(1)) && (%scon == %scid) { goto end }
  if (%scid <= %scon) {
    goto end
  }
  inc %scon
  goto started
  :end
  haltdef 
}
alias mdx { return DLL\mdx.dll }
alias hos { return DLL\hos.dll }
alias views { return DLL\views.mdx }
alias bars { return DLL\bars.mdx }
alias custom { return DLL\mircustom.dll }
alias ctl { return DLL\ctl_gen.mdx }
alias dmdx { return DLL\dialog.mdx }
alias views { return DLL\views.mdx }
alias mdxin { dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname }
alias popupsd { return DLL\POPUPS.DLL }
alias de { return $dll(DLL\darkenginex.dll,$1,_) }

Menu * {
  Mp3: Mp3
}