!info script to get info about video in chat

on $*:text:/^[!](qinfo|info|now|nowplaying|tellmewhatthefuckimwatching|whatthefuckamiwatching|whoisthis|tellmethepanel|whoaretheguests|pleasetellmewhoiamwatching|qi)/Si:#: {

  sockclose vlc
  sockopen vlc 192.168.1.30 8080
}
on *:sockopen:vlc: {
  if $sockerr > 0 { echo -at vlc not running | sockclose vlc }
  sockwrite -n $sockname GET /requests/status.xml HTTP/1.1
  sockwrite -n $sockname Host: localhost
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on *:sockread:vlc: {
  if $sockerr > 0 { echo -a error | sockclose vlc }
  sockread %vlcx


  if (*name='filename'>* iswm %vlcx) {

    if ($regex(%vlcx,<info name='filename'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      set %vlcann1 $regml(1)


    }
  }

  if (*name='Frame rate'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Frame rate'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann2 $regml(1)
    }
  }

  if (*name='artist'>* iswm %vlcx) {

    if ($regex(%vlcx,<info name='artist'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      set %vlcann4 $regml(1)
    }
  }

  if (*name='Codec'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Codec'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann3 $regml(1)
      /describe #qi_interesting Now Playing - [[ %vlcann11 $+($chr(40),%vlc.time,$chr(41),|,$chr(40),%vlc.length,$chr(41)) ]:: With Panel/Guests::[ %vlcann4 ]]

      unset %vlcann1
      unset %vlcann4
    }
  }


}