alias yt {
  %channel = $chan
  if (%channel) { %saystyle = echo -t %channel }
  else { %saystyle = echo -at }

  %searchstring = $replace($1-,$chr(32),+)
  sockclose ytsearch
  sockopen ytsearch www.youtube.com 80
}

on $*:TEXT:/^[!@](yt|youtube|tube) */Si:#: { 
  %channel = $chan
  %saystyle = /msg %channel

  %searchstring = $replace($2-,$chr(32),+)
  if ($2 == $null) { %saystyle Search could not be completed | halt }
  sockclose ytsearch
  sockopen ytsearch www.youtube.com 80
}

on *:sockopen:ytsearch:{
  sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1
  sockwrite -nt $sockname Host: youtube.com 
  sockwrite -nt $sockname $crlf $crlf 
}

on *:sockread:ytsearch:{
  sockread -n %temp

  if (%founddesc_be) { unset %founddesc_be | %desc_be = $replace($remove(%temp,	),<br/>,$chr(32)) }
  if (<span id="BeginvidDesc isin %temp) %founddesc_be = k
  if (/watch?v= isin %temp) { %resulturl = $remove($gettok(%temp,2,32),href=",") }
  if (%foundtitle) { inc %titlecounter }
  if (%titlecounter = 1) { %searchtitle = $replace($remove($regsubex(%temp,/<a [^>]+>(.+?)</a>/,1),<br/>,	),&quot;,$chr(34)) }
  if (<div class="vtitle"> isin %temp) { %foundtitle = k | %titlecounter = 0 }
  if (<img class="rating" src="/img/icn_star_full_19x20 isin %temp) { %done = k }

  if (%done) {
    sockclose ytsearch
    unset %done

    %saystyle Link: http://www.youtube.com $+ %resulturl
    %saystyle Title: %searchtitle
    %saystyle Description: %desc_be

    unset %searchstring
    unset %channel
    unset %saystyle
    unset %searchres
    unset %searchtitle
    unset %resulturl
    unset %desc_be
    unset %titlecounter
    unset %temp
    unset %foundtitle

    halt
  }

  if (*No Videos found* iswm %temp) {
    sockclose ytsearch
    %saystyle No videos found for %searchstring

    unset %searchstring
    unset %channel
    unset %saystyle
    unset %searchres
    unset %searchtitle
    unset %resulturl
    unset %desc_be
    unset %titlecounter
    unset %temp
    unset %foundtitle

    halt
  }

  if (*start search results* iswm %temp) { %searchres = 0 }  
  if (*<a href="/watch?v=* iswm %temp) { inc %searchres }
}