Cameron

alias esong {
  if ($lib(WIsPlaying,NOT_USED) == 1) {
    set %wa $cfg(WinAmp,masc)
    %test3 = $lib(WSongLen,NOT_USED)
    %wa = $replace(%wa,[song],$lib(WTitle,NOT_USED))
    %wa = $replace(%wa,[spos],$lib(WSongPos,NOT_USED))
    %wa = $replace(%wa,[stotal],%test3)
    %wa = $replace(%wa,[bitrate],$lib(WBitrate,NOT_USED))
    %wa = $replace(%wa,[listpos],$lib(WListPos,NOT_USED))
    %wa = $replace(%wa,[listlen],$lib(WListLen,NOT_USED))
    %wa = $replace(%wa,[progbar],$progbar($lib(WProgress,NOT_USED),$cfg(WinAmp,chr1),$cfg(WinAmp,chr2),$cfg(WinAmp,chr3)))
    %wa = $replace(%wa,[start],$cfg(WinAmp,start))
    %wa = $replace(%wa,[sep],$cfg(WinAmp,sep))
    %wa = $replace(%wa,[end],$cfg(WinAmp,end))
    %wa = $repcb(%wa)
    %test = $calc(($gettok($lib(WSongPos,NOT_USED),1,58) *60) + ($gettok($lib(WSongPos,NOT_USED),2,58)))
    %test2 = $calc(($gettok(%test3,1,58) *60) + ($gettok(%test3,2,58)))
    $iif($1,.timer 1 $calc((%test2 - %test) +1) esong $active)
    if ($cfg(WinAmp,use) == say) {
      msg $iif($1,$1,$active) %wa
    }
    else {
      me %wa
    }
  }
  else { echo -a [#] WinAmp: Not running or not playing ! }
  unset %wa
}