All pastes #589443 Raw Edit

Miscellany

public text v1 · immutable
#589443 ·published 2007-06-26 00:04 UTC
rendered paste body
/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

  inc %count
  set %state $dll(WinAmpI.dll, GetPlayState, 0)
  set %song  $dll(WinAmpI.dll, GetSong, 0)
  set %poslen $dll(WinAmpI.dll, GetSongPosition, 0) $+ /04 $+ $dll(WinAmpI.dll, GetSongLength, 0)
  set %track $dll(WinAmpI.dll, GetSongNumber,0) $+ /04 $+ $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 14Now Playing: [04 $+ %track $+ ]4 %song (04 $+ %poslen $+ ) (14Used:4 %count $+ )
}
              ^           ^    ^                  ^           ^               ^     ^    ^  ^