alias /vlc {
  sockopen vlc_meta_info 127.0.0.1 8082
}

alias -l n {
  return $replace($1, null, $null)
}

alias -l ud {
  return $replace($regsubex($1-,/%(\w\w)/g,$chr($iif($base(\t,16,10) != 32,$v1,1))),$chr(1),$chr(32))
}

  on *:SOCKOPEN:vlc_meta_info: {
    sockwrite -n $sockname GET /NowPlaying.htm HTTP/1.1
    sockwrite -n $sockname Host: localhost
    sockwrite -n $sockname $crlf
    sockwrite -n $sockname $null
  }
  on *:SOCKREAD:vlc_meta_info: {
    if ( $sockerr > 0 ) { return }
    :read
    sockread %temp

    if ( $sockbr == 0 ) { return }
    if ( %temp == $null ) { goto read }

    if ($chr(166) isin %temp) {
      tokenize 166 %temp
      var %filename = $n($nopath($1))
      var %streamTitle = $n($2)
      var %stationOrLocalTitle = $n($3)
      var %artist = $n($4)
      var %duration = $n($5)
      var %elapsedH = $n($6)
      var %elapsedM = $n($7)
      var %elapsedS = $n($8)
    }

    if ( EOF isin %temp ) {
      ;Normal Song or Video
      if (%streamTitle == $null) {
        var %dS = $duration(%duration, 3)
        ;Video
        if (%artist == $null) {
          msg $active vlc: $ud(%filename) $chr(91) $+ $remove(%elapsedH $+ :, 00:) $+ %elapsedM $+ : $+ %elapsedS $+ / $+ $iif($left(%dS, 3) == 00:, $right(%dS,-3), %dS) $+ $chr(93)
        }
        ;Song
        else {
          echo -a no
          msg $active vlc: $iif(!%artist,,%artist - ) %stationOrLocalTitle $chr(91) $+ $remove(%elapsedH $+ :, 00:) $+ %elapsedM $+ : $+ %elapsedS $+ / $+ $iif($left(%dS, 3) == 00:, $right(%dS,-3), %dS) $+ $chr(93)
        }
      }
      ;Stream
      else {
        msg $active vlc: $urldecode(%streamTitle) - %stationOrLocalTitle  $chr(91) $+ $remove(%elapsedH $+ :, 00:) $+ %elapsedM $+ : $+ %elapsedS $+ / $+ Streaming $+ $chr(93)
      }
      goto close
    }

    goto read

    :close
    sockclose vlc_meta_info
  }