VLC Now Playing video wickedradio

;Written by nick1 original by TheNiteLyfe @ Hawkee
alias vnp {
  if (!$sock(vlc)) {
    sockopen vlc 127.0.0.1 8080
    sockmark vlc msg $active
  }
}
on *:sockopen:vlc:{
  sockwrite -nt vlc GET /requests/status.xml HTTP/1.1
  sockwrite -nt vlc Host: 127.0.0.1 $str($crlf,2)
}
on *:sockread:vlc:{
  if ($sockerr) { echo -a Error: $sock(vlc).wsmsg }
  var %v
  sockread %v
  if (*<info name='title'>* iswm %v) {
    var %x $replace($remove($gettok(%v,8,62),</info),&#39;,',&amp;,&,&#146;,',&quot;,")
    if ((%x != %np.last) && (%x != $null)) {
      set %np.last %x
      $sock(vlc).mark $bracketcolor(VLC Player) Now Playing:12 %np.last
    }
    sockclose vlc
  }
  elseif (*<info name='filename'>* iswm %v) {
    var %x $replace($remove($gettok(%v,2,62),</info),&#39;,',&amp;,&,&#146;,',&quot;,")
    $sock(vlc).mark $bracketcolor(VLC Player) Now Playing:12 %x
    sockclose vlc
  }
}
alias -l bracketcolor {
  return $+(12,[,04,$1-,12,],10)
}