I'm making an mp3player on my mIRC , but it doesn't work , could any1 help me out confused?that would be very cool
here is the code
Code:
dialog boogymp3 {
  title "Mp3 Player by C3ll` aka Bøøgyman"
  size -1 -1 165 172
  option dbu
  list %amout.mp3, 5, 4 4 156 119, size
  box "Options", 15, 4 124 120 29
  button "Play", 1, 37 132 25 16, flat
  button "[ ]", 2, 66 132 25 16, flat
  button "Select Dir", 8, 130 132 27 16, flat
  button "Random", 13, 95 132 25 16, flat
  button "Pause", 3, 8 132 25 8, flat
  button "Bitch", 30, 141 322 75 25, hide ok cancel
  button "Close", 6, 4 156 158 12, flat ok
  box "", 56, 125 124 37 29
  button "Resume", 4, 8 140 25 8, flat
}
on *:dialog:boogymp3:sclick:* {
  if ($did == 1) {
    splay %mp3.dir $+ $did($dname,5).seltext
    ame  BøøgyMp3 ~ Listening 2 :: $did($dname,5).seltext
    set %mp3 $did($dname,5).seltext
    did -a mp3 14 %mp3
    set %playtype off
  }
  if ($did == 2) {
    splay stop
    set %playtype off
    did -a mp3 14
    set %mp3  
    set %playtype
  }
  if ($did == 8) {
    %mp3.dir = $sdir(Select your new mp3 directory.)
    did -a mp3 5 
    set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-))
  }
  if ($did == 3) {
    splay pause
  }
  if ($did == 4) {
    splay resume
  }
  if ($did == 13) {
    var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-)
    set %mp3 $read(randplay.txt)
    splay %mp3
    amsg BøøgyMp3: $did($dname,5).seltext 
    did -a mp3 14 $replace(%mp3,%mp3.dir, )
    set %playtype Rand
    mp3chan
  }
}
on *:dialog:boogymp3:init:0: {
  if (%mp3.dir == $null) {
    %mp3.dir = $sdir(Select your mp3 directory.)
    ;Sets the mp3 dir on start
  }
  set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-))
}
on *:mp3end: {
  If ( %playtype == off ) {
    set %mp3  
    did -a mp3 14 %mp3  
  }
  If ( %playtype == Rand ) {
    var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-)
    set %mp3 $read(randplay.txt)
    splay %mp3
    did -a mp3 14 $replace(%mp3,%mp3.dir, )
    set %playtype Rand
    mp3chan
  }
}
if ($did == buttoncode) {
  if (%mp3.vol <= 0) { set %mp3.vol 0 | goto endd }
  elseif (%mp3.vol != 0) { goto down }
  :down
  %mp3.vol = $calc(%mp3.vol -6.5)
  vol -p $calc(%mp3.vol  * 1000)
  :endd
}
if ($did == buttoncode) {
  if (%mp3.vol >= 65) { set %mp3.vol 65  | goto endd }
  elseif (%mp3.vol != 65) { goto upp }
  :upp
  %mp3.vol = $calc(%mp3.vol +6.5)
  vol -p $calc(%mp3.vol  * 1000) 
  :endw
}
on ^*:LOAD:#:echo # 4(2Loaded BøøgyMp34) | echo # 4(2Made by Bøøgyman4) | echo # 4(2Type /boogymp3 to open it or use popups4)
alias boogymp3 { if ($dialog(boogymp3) == $null { dialog -m boogymp3 boogymp3 }) }