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

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


  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 4Playing:7 %track 4|7 %song 4(7 $+ $+ 7 %poslen $+ 4) (7Used4:7 %count $+ 4)
}