View

MP3 Player (Version 2)

Snippet Author: FURBY
Rated:

Snippet Description: Same as my First MP3 Player just got an Ascii Talker. in Version 3 got it so you can set up how it will appear, and all that

alias mpn { if ($dialog(mpnew)) dialog -v mpnew | else dialog -md mpnew mpnew }
alias mp3data { return $+(",$shortfn($scriptdirmp3data.ini),") }

dialog mpnew {
  title "Paul's Mp3 Player"
  size -1 -1 230 173
  option dbu
  box "Playlist", 1, 6 1 194 72
  list 2, 11 8 185 80, sort extsel
  button "Close", 3, 205 9 22 11, ok cancel
  box "Controls", 4, 2 90 108 39
  button "Rewind", 5, 3 99 34 11
  button "Play", 6, 38 99 34 11
  button "Stop", 7, 15 113 34 11
  button "Pause", 8, 72 99 34 11
  button "Forward", 9, 57 113 34 11
  box "Browse", 10, 3 146 226 24
  button "Mp3 Dir", 11, 6 154 34 11
  button "Refresh", 12, 193 154 34 11
  edit "", 13, 41 154 151 11, read
  box "Volume", 14, 110 82 60 24
  button "+", 15, 113 91 10 11
  button "-", 16, 125 91 10 11
  button "Mute", 17, 142 91 24 11
  box "Tunes Found", 18, 110 105 46 24
  edit "", 19, 113 114 40 11, read
  box "Message", 20, 156 105 71 26
  check "Message in Channel", 21, 162 112 64 10
  check "Use Ascii Art", 22, 162 120 64 10
  edit "Is now playing: %mp3.name - Under Construction", 23, 51 130 177 11, read
  text "Message Format:", 24, 8 131 44 8
}

on *:dialog:mpnew:init:0: { if (%mp.pause == 1) { did -r mpnew 8 | did -a mpnew 8 Resume } | if ($vol(master).mute == $true) { did -o mpnew 17 1 Unmute } | if (%mp.msg == On) { did -c mpnew 21 } | if (%mp.ascii == On) { did -c mpnew 22 } | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:dclick:4: { splay %mp.temp | set %mp.play 1 | set %mp.pause 0 | did -r mp 8 | did -a mp 8 Pause | mpmsg }
on *:dialog:mpnew:sclick:2: { set %mp.file $did(2).seltext | set %mp.temp %mp.dir $+ %mp.file | set %mp.bitrate $mp3(%mp.temp).bitrate | set %mp.length $mplength | set %mp.size $round($calc($lof(%mp.temp) / 1048576),2) }
on *:dialog:mpnew:sclick:5: { if (%mp.play == 0) { halt } | else { splay seek $calc($inmp3.pos -5000) } }
on *:dialog:mpnew:sclick:6: { splay %mp.dir $+ %mp.file | set %mp.play 1 | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause | mpmsg }
on *:dialog:mpnew:sclick:7: { splay stop | set %mp.play 0 | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause  }
on *:dialog:mpnew:sclick:8: { if (%mp.play == 0) { halt } | elseif (%mp.pause == 1) { splay resume | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause } | elseif ((%mp.play == 1) && (%mp.pause == 0)) { splay pause | set %mp.pause 1 | did -r mpnew 8 | did -a mpnew 8 Resume  } }
on *:dialog:mpnew:sclick:9: { if (%mp.play == 0) { halt } | else { splay seek $calc($inmp3.pos +5000) } | halt }
on *:dialog:mpnew:sclick:11: { did -r mpnew 2 | set %mp.dir $sdir="Mp3 directory" c:\ | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:sclick:12: { did -r mpnew 2 | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:sclick:15: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $true) { halt } | else { set %mp.vol $calc($vol(master)+7000) | vol -v %mp.vol | set %mp.vol 0 } }
on *:dialog:mpnew:sclick:16: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $true) { halt } | else { if ($vol(master) < 7000) { vol -v 0 } | elseif ($vol(master) == 0) { halt } | else { set %mp.vol $calc($vol(master)-7000) | vol -v %mp.vol | set %mp.vol 0  } } }
on *:dialog:mpnew:sclick:17: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $false) { vol -vu1 | did -o mpnew 17 1 Unmute } | elseif ($vol(master).mute == $true) { vol -vu2 | did -o mpnew 17 1 Mute } }
on *:dialog:mpnew:sclick:21: { if (%mp.msg == On) { set %mp.msg Off } | else { set %mp.msg On } }
on *:dialog:mpnew:sclick:22: { if (%mp.ascii == On) { set %mp.ascii Off } | else { set %mp.ascii On } }

alias -l mplength {
  var %mp.len $int($calc($mp3(%mp.temp).length / 1000))
  var %mp.min $int($calc(%mp.len / 60))
  var %mp.sec $calc(%mp.len - (%mp.min * 60))
  if (%mp.min < 10) { set %mp.min 0 $+ %mp.min }
  if (%mp.sec < 10) { set %mp.sec 0 $+ %mp.sec }
  set %mp.len %mp.min $+ : $+ %mp.sec
  return %mp.len
}

alias -l mpmsg {
  if (%mp.msg == On) && (%mp.ascii == Off) { 
    ame 1[3: 1Paul's Mp3 Player 3:1] [3: 1Plays:  $remove(%mp.file,.mp3)  3:1]
  }
  elseif (%mp.msg == On) && (%mp.ascii == On) {
    set %mp.song $remove(%mp.file,.mp3)
    ame 1[3: 1Paul's Mp3 Player 3:1] [3: 1Plays:  $replacecs(%mp.song ,a,à,A,Å,b,ß,B,ß,c,ç,C,©,d,Ð,D,Ð,e,é,E,€,f,ƒ,F,ƒ,i,ì,I,Î,l,£,L,£,n,ñ,N,Ñ,o,ô,O,Ô,p,þ,P,þ,q,¶,Q,¶,r,®,R,®,s,§,S,§,u,µ,U,Ü,x,¤,X,×,y,ý,Y,¥,!,¡,?,¿,>,»,<,«,2,²,3,³,half,½,fourth,¼,/,¬,.,·,ae,æ,tm,™,TM,™)  3:1]
  }
}

menu channel,menubar {
  -
  MP3 Player (NEW):/mpn
  -
}

Favorite Script -

FURBY

Comments:
Theres a version 3 under construction so check back for more Versions/Updates

Posted by: FURBY

Lindrian

Comments:
I havent tested the code, but by looking for 2 secs on the code, I see you need some dramatic dialog improvements xP.. I would also try to avoid using pipes (|) in your code.

Posted by: Lindrian

FURBY

Comments:
it looks alot more complex with | so i thought i would add them and get BETTER feedback :P

Posted by: FURBY