All pastes #434133 Raw Edit

My Mp3

public text v1 · immutable
·published 2007-04-11 07:32 UTC
rendered paste body
alias lt { msg $active $replacecs($$1- ,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,¥,!,¡,?,¿,>,»,<,«,half,½,fourth,¼,/,¬,.,·,ae,æ,tm,™,TM,™) }


menu channel {
  My mp3
  .Pick Song:{
    if (%mp3.dir == $null) { set %mp3.dir $sdir="Where Is Your Music Located?" }
    .set %mp3.song " $+ $file="What Would You Like To Listen To?" %mp3.dir $+ "

    if (%mp3.song == $null) { halt }

    ;########################################
    ;# set color of mp3 Song And The Symbol #
    ;########################################

    set %mp3color 14
    set %mp3symbol 02
    splay -p $shortfn(%mp3.song)
    $lt( $remove($+($chr(3),%mp3symbol,>,$chr(3),%mp3color,Music,$chr(3),%mp3symbol,<) $+($chr(3),%mp3symbol,x,$chr(3),%mp3color,$nopath(%mp3.song),$chr(3),%mp3symbol,x),.mp3))
  }
}