Put All This In Remotes

dialog mp3 {
  title "Mafia Script MP3 Player By SiLvErWiNgS[AkA]SeiferAlmasy"
  size -1 -1 500 350
  list 1, 1 1 347 210, sort hsbar vsbar
  radio "Msg Active", 2, 6 223 73 13
  radio "Amsg", 3, 6 244 49 13
  radio "Echo", 4, 6 285 48 13
  radio "None", 5, 7 326 51 13
  combo 6, 245 196 190 20, disable
  button "Change Dir", 7, 439 195 60 21
  button "Close", 8, 244 307 50 25, cancel
  button "Play", 9, 244 257 50 25
  button "Random", 10, 294 257 50 25
  button "Stop", 11, 294 282 50 25
  button "Repeat", 12, 244 282 50 25
  text "Current Mp3 Directory", 13, 287 217 107 13
  box "Mp3 Info", 14, 349 1 151 170
  edit "", 15, 360 16 130 40, read multi center
  edit "", 16, 415 60 75 20, read
  edit "", 17, 415 80 75 20, read
  edit "", 18, 415 100 75 20, read
  edit "", 19, 415 120 75 20, read
  edit "", 20, 415 140 75 20, read
  text "Length:", 21, 362 62 35 13
  text "Size:", 22, 362 82 22 13
  text "Bitrate:", 23, 362 102 36 13
  text "Rate:", 24, 362 122 25 13
  text "Mode:", 25, 362 142 30 13
  box "Playing...", 26, 350 235 149 111
  edit "", 27, 360 251 130 40, read multi center
  edit "", 28, 430 295 50 20, read center
  scroll "", 30, 353 321 143 17, horizontal top, range 100
  edit "", 32, 370 295 50 20, read center
  check "Pause", 29, 294 307 50 25, push
  box "Channel Exclusions", 31, 85 203 152 143
  list 33, 95 219 131 90, sort size
  button "Add", 34, 92 314 46 24
  button "Clear", 35, 138 314 46 24
  button "Remove", 36, 184 314 46 24
  box "Controls", 37, 240 235 108 111
  radio "Ame", 38, 6 264 45 13
  box "Message Type", 39, 1 203 82 143
  radio "Describe", 40, 6 305 64 13
}
on 1:DIALOG:mp3:init:0: {
  set %list $findfile(%mp3dir,*.mp3,0,did -a $dname 1 $remove($nopath($1-),.mp3))
  if (%mp3dir != $null) { did -ci $dname 6 1 %mp3dir }  
  if (%msgtype == active) { did -c $dname 2 }
  if (%msgtype == amsg) { did -c $dname 3 }
  if (%msgtype == ame) { did -c $dname 38 }
  if (%msgtype == echo) { did -c $dname 4 }
  if (%msgtype == describe) { did -c $dname 40 }  
  if (%msgtype == none) { did -c $dname 5 }  
  mp3info
  alist
} 
on 1:DIALOG:mp3:sclick:*: {
  if ($did == 1) { mp3info }  
  if ($did($dname,2).state == 1) { set %msgtype active }
  if ($did($dname,3).state == 1) { set %msgtype amsg }
  if ($did($dname,4).state == 1) { set %msgtype echo }
  if ($did($dname,5).state == 1) { set %msgtype none }
  if ($did($dname,38).state == 1) { set %msgtype ame }  
  if ($did($dname,40).state == 1) { set %msgtype describe }  
  if ($did == 7) { set %mp3dir $$sdir="Set Mp3 Directory" | did -ci $dname 6 1 %mp3dir | did -r $dname 1 | set %list $findfile(%mp3dir,*.mp3,0,did -a $dname 1 $remove($nopath($1-),.mp3)) }
  if ($did == 9) { set %contchan $active | set %random no | set %repeat no | did -u $dname 29 | nplay }
  if ($did == 10) { set %contchan $active | set %random yes | set %repeat no | did -u $dname 29 | random }
  if ($did == 11) { splay stop | .timerremain off | .timerremain1 off | set %random no | set %repeat no | did -r $dname 27 | did -r $dname 28 | did -r mp3 32 | did -u $dname 30 | did -u $dname 29 }
  if ($did == 12) { set %contchan $active | set %repeat yes | set %random no | did -u $dname 29 | if ($did($dname,1).seltext) { set %mp3 $findfile(%mp3dir,$+($did($dname,1).seltext,.mp3),1) } | elseif (!$did($dname,1).seltext) { var %x $input(You didn't select a song to play,4,Error!) | dialog -v $dname $dname } | repeat }
  if ($did == 8) { splay stop | .timerremain off | .timerremain1 off | unset %random | unset %repeat }
  if ($did == 29) { if ($inmp3) { if ($did($dname,$did).state == 0) { splay -p resume | .timerremain -r | did -e $dname 30 } | elseif ($did($dname,$did).state == 1) { splay -p pause | .timerremain -p | did -b $dname 30 } } | elseif (!$inmp3) { did -u $dname $did } }
  if ($did == 34) { if ($input(Enter Channel(s) $+ $crlf #channel #channel #channel...,1,Channel Exclusions)) { dialog -v mp3 mp3 | set %away.chans $addtok(%away.chans,$!,32) | alist } }
  if ($did == 35) { unset %away.chans | did -r $dname 33 }
  if ($did == 36) { if ($did($dname,33).seltext) { set %away.chans $remtok(%away.chans,$did($dname,33).seltext,32) | alist } | elseif (!$did($dname,33).seltext) { var %x $input(You didn't select a channel to remove,4,Error!) | dialog -v mp3 mp3 } }
}
on 1:DIALOG:mp3:dclick:1: { set %contchan $active | set %random no | set %repeat no | did -u $dname 29 | nplay }
on 1:DIALOG:mp3:scroll:30: { if ($inmp3) { splay -p seek $round($calc(($inmp3.length / 100) * $did($dname,$did).sel),0) } | elseif (!$inmp3) { did -u $dname $did } }
on 1:MP3END: { 
  if ($dialog(mp3)) {  
    did -r mp3 27 | did -r mp3 28 | did -r mp3 32 | .timerremain off | .timerremain1 off | did -u mp3 30   
    if (%random == yes) { random }
    if (%repeat == yes) { repeat }
  }
}

alias logo {
  var %msg = ""
  var %i = 1
  while ( $gettok($1-,%i,32) ) {
    %msg = %msg 14 $+ $upper($left($gettok($1-,%i,32),1)) $+ 14 $+ $right($gettok($1-,%i,32),-1)
    inc %i
  }
  %msg =  $ewraP(Mafia Script)
  if ( $isid ) { return %msg }
  else { msg $active %msg }
}

alias ewrap {
  if (%skin == 1) {
    var %msg = ""
    var %i = 1
    while ( $gettok($1-,%i,32) ) {
      %msg = %msg 14 $+ $upper($left($gettok($1-,%i,32),1)) $+ 14 $+ $right($gettok($1-,%i,32),-1)
      inc %i
    }
    %msg =  15,01(14 $+ %msg $+ 15)
    if ( $isid ) { return %msg }
    else { msg $active %msg }
  }

Http://www.p2p-mafia.com