/song {
  set %chan $1
  if ($1 == $null) set %chan #

  if ($dll(WinAmpI.dll, IsRunning, 0) == false) {
    msg %chan WinAmp isn't running!
    halt
  }

  set %color1 15
  set %color2 14

  set %state $dll(WinAmpI.dll, GetPlayState, 0)
  set %song  $dll(WinAmpI.dll, GetSong, 0)
  set %poslen $dll(WinAmpI.dll, GetSongPosition, 0) $+ / $+ $dll(WinAmpI.dll, GetSongLength, 0)
  set %track $dll(WinAmpI.dll, GetSongNumber,0) $+ / $+ $dll(WinAmpI.dll, GetSongCount,0)
  set %bitrate $dll(WinAmpI.dll, GetBitRate, 0) $+ kbps

  if (c isincs $gettok($chan(#).mode,1,32)) {
    msg %chan «WinAmp: %state $+ » «Song: %song $+ » «Position/Length: %poslen $+ » «Track: %track $+ » «BitRate: %bitrate $+ »
    halt
  }

  msg %chan %color1 $+ «WinAmp: $+ %color2 %state $+ %color1 $+ » «Song: $+ %color2 %song $+ %color1 $+ » «Position/Length: $+ %color2 %poslen $+ %color1 $+ » «Track: $+ %color2 %track $+ %color1 $+ » «BitRate: $+ %color2 %bitrate $+ %color1 $+ »
}


put in the Remotes tab:

on *:TEXT:!song:#:{ /song $chan }
on *:TEXT:clocksong:#:{ /song $chan }