Mine

alias music.check { sockopen RsRadio radio.runeboards.com 80 }
on *:SOCKOPEN:RsRadio: { 
  var %a = sockwrite -nt $sockname 
  %a GET :9000/index.html HTTP/1.1
  %a Host: radio2.runeboards.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:RsRadio: {
  if ($sockerr) { echo -ta There was an error in checking RsRadio music. }
  else {
    var %a
    sockread %a
    if (Current Song: isin %a) {
      tokenize %a 32  
      ;var %line $3- 
      echo -ta $3-
      sockclose $sockname
    }
  }
}