on $*:TEXT:/youtube.com/watch\?v=([^&]*)/:#: {
  if ($sock(yt)) sockclose yt
  set %yt.link $regml(1)
  set %yt.chan $chan
  sockopen yt www.youtube.com 80
}

on *:sockopen:yt: {
  sockwrite -nt yt GET /watch?v= $+ %yt.link HTTP/1.0
  sockwrite -nt yt Host: www.youtube.com
  sockwrite -nt yt $crlf
}
on *:sockread:yt: {
  if (!$sockerr) {
    var %yt | sockread %yt
    if ($regex(%yt,/<meta name="title" content="([^"]*)">/)) { set %yt.title $replace($regml(1),&amp;,&) }
    if ($regex(%yt,/\<strong\>(\d.+)\<\/strong\>$/)) { set %yt.views $regml(1) }
    if ($regex(%yt,<span class="likes">(.+?)</span>)) { set %yt.likes $regml(1) }
    if ($regex(%yt,<span class="dislikes">(.+?)</span>)) { set %yt.dislikes $regml(1) }
    if ($regex(%yt,class="yt-user-name author" rel="author" dir="ltr">(.+)</a>)) { set %yt.user $regml(1) }
    if ($regex(%yt,"length_seconds"(.+)"enablejsapi")) {
      set %yt.time $remove($regml(1),$chr(32),$chr(44),$chr(58))
      if ($remove($duration(%yt.time),$chr(32),ins,ecs,in,ec,rs,r) == 0) {
        set %yt.time $remove($left($regml(1),$pos($regml(1),",1)),$chr(32),$chr(44),$chr(58),$chr(34))
      }
      msg %yt.chan [1YOU0,4TUBE1,0] Title: %yt.title 14 $+ $chr(149) Views: %yt.views 14 $+ $chr(149) Likes: %yt.likes 14 $+ $chr(149) Dislikes: %yt.dislikes $&
        14 $+ $chr(149) Length: $remove($duration(%yt.time),$chr(32),ins,ecs,in,ec,rs,r) 14 $+ $chr(149) Uploader: %yt.user $+ . 14(By intersys14)
      unset %yt.*
      sockclose $sockname
    }
  }
}