echo CD Player v1.0 by |Rain| loaded
if (!setver) {
 ^local oldver
 (oldver=[$format_version])
 set format_version $oldver + CD Player v1.0 by |Rain|
}
on ^exec cdinfo {
 ^local curword, wordnum
 (artist=[])
 for ((wordnum=0),curword!=[-],(wordnum++)) {
  (curword=[$word($wordnum $1-)])
  if ([$curword]!=[-]) {
   if ([$artist]!=[]) {
    (artist=[$artist $curword])
   }
   {
    (artist=[$curword])
   }
  }
 }
 (cdname=[])
 for ((curword=[]),curword!=[-],(wordnum++)) {
  (curword=[$word($wordnum $1-)])
  if ([$curword]!=[-]) {
   if ([$cdname]!=[]) {
    (cdname=[$cdname $curword])
   }
   {
    (cdname=[$curword])
   }
  }
 }
 (track=[$strip([] $word(${numwords($1-) - 1} $1-))])
 (trackname=[])
 for ((curword=[]),curword!=[\[$track\]],(wordnum++)) {
  (curword=[$word($wordnum $1-)])
  if ([$curword]!=[\[$track\]]) {
   if ([$trackname]!=[]) {
    (trackname=[$trackname $curword])
   }
   {
    (trackname=[$curword])
   }
  }
 }
# echo oOo Playing CD by [$artist] [$cdname] [$trackname] [$track]
echo $cparse("%bú%Bù%bú%n %K[%B$artist%b/%B$cdname%K] %WTrack $track %K[%n$trackname%K]")
}
alias cd {
 switch ($0) {
  (play) {
   exec cdplay $1
   # Bleh, I have to wait two seconds so I get the correct info.  Any way
   # around this?
   ^timer 2 ^exec -name cdinfo cdir -s
  }
  (stop) {
   #250,249
   echo $cparse("%bú%Bù%bú%n CD player is now %Rstopped")
   (cdstate=[stopped])
   exec cdstop
  }
  (eject) {
   echo $cparse("%bú%Bù%bú%n Ejecting CD...")
   exec cdeject
  }
 }
}
(setver=1)