Youtube Info Fetcher

on $*:text:/youtube.com/Si:#: {
  if ($($+(%,botflood.,$nick),2)) {
    if ($($+(%,botflood.,$nick),2) >= 50) { ignore -u60 $address($nick,0) | msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot. | halt }
    elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
    else { inc -z $+(%,botflood.,$nick) 10 }
  }
  else { inc -z $+(%,botflood.,$nick) 10 }
  if ($sock(youtube)) { msg $chan $nick $+ : Please wait, already working on a vid. | halt }
  set %i 1
  while (%i <= $numtok($1-,32)) {
    if (*youtube.com* iswm $($+($,%i),2)) {
      set %youtube.url $($+($,%i),2)
      set %youtube.tag $remove($($+($,%i),2),http://,www.,youtube.com)
    }
    inc %i
  }
  if (($me == Mafbot) || ($nick($chan,$me,@&~))) {
    set %youtube.msgtype msg $chan
  }
  elseif (($me != Mafbot) && (!$nick($chan,$me,@&~))) {
    set %youtube.msgtype echo -a
  }
  set %youtube.nick $nick
  set %youtube.chan $chan
  set %youtube.network $network
  sockopen youtube youtube.com 80
}

on *:sockopen:youtube: {
  .timerSet 1 4 set %checksockname $sockname
  .timerCheck 1 5 checkifsockopen
  sockwrite -nt $sockname GET %youtube.tag HTTP/1.1
  sockwrite -nt $sockname Host: www.youtube.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:youtube: {
  if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  else {
    var %sockreader
    sockread %sockreader
    if (*<meta name="title"* iswm %sockreader) {
      tokenize 32 %sockreader
      set %youtube.title $replace($remove(%sockreader,<meta name="title" content=",">),&amp;quot;,",&amp;#39;,')
    }
    elseif (*<span class="watch-view-count">* iswm %sockreader) {
      set %youtube.viewcheck on
    }
    elseif (*<a id="watch-username" class="inline-block" rel="author" href="/user/* iswm %sockreader) {
      set %youtube.user $nohtml(%sockreader)
    }
    elseif (*<a id="watch-userbanner" class="inline-block" rel="author" href="/user/* iswm %sockreader) {
      tokenize 34 %sockreader
      set %youtube.user $10
    }
    elseif ((*<strong>* iswm %sockreader) && (%youtube.viewcheck == on)) {
      set %youtube.viewcount $nohtml(%sockreader)
      if (%youtube.msgtype == echo -a) %youtube.msgtype 12[4 $+ %youtube.chan $+ 12] 1,0You0,4Tube 10Title:4 %youtube.title 10Views:4 %youtube.viewcount 10User:4 %youtube.user 12From4 %youtube.nick 10on12 %youtube.network
      else { %youtube.msgtype 1,0You0,4Tube 10Title:4 %youtube.title 10Views:4 %youtube.viewcount 10User:4 %youtube.user }
      sockclose youtube
      unset %youtube.*
    }
  }
}