Something

menu channel {
  -
  Comando Youtube
  .Canal:set %canal.%yt $$?="Canal:"
  .Anti-flood:set %aflood.yt $$?="Segundos:"
}
on *:text:!youtube *:%canal.yt:{
  if (!%flood.youtube) {
    sockclose youtube
    set -u $+ $iif(%aflood.yt,%aflood.yt,20) %flood.youtube 1
    set %youtube.chan $chan
    if ($2 isnum) {
      if (($2 < 4)) && ($2 > 1)) { set %youtube.num $2 }
      set %youtube.search $3-
    }
    else { set %youtube.search $2- }
    sockopen youtube www.youtube.com 80
  }
  else { msg $chan $nick $+ , tenta daqui a cerca de $iif(%aflood.yt,%aflood.yt,20) segundos (protecção anti-flood). }
}
on *:sockopen:youtube:{ 
  if ($sockerr > 0) { return } 
  sockwrite -n $sockname GET /results?search_query= $+ $html(%youtube.search) $+ &search=Search HTTP/1.1 
  sockwrite -n $sockname Host: www.youtube.com
  sockwrite -n $sockname Connection: Keep-Alive 
  sockwrite -n $sockname $crlf 
} 
on *:sockread:youtube:{ 
  if ($sockerr > 0) { return } 
  var %youtube
  sockread %youtube
  if ($sockbr == 0) { return }
  if (*No Videos found for* iswm %youtube) {
    msg %youtube.chan Não foram encontrados vídeos para ' $+ %youtube.search $+ '
    unset %youtub*
    sockclose youtube
  }
  if ((*/watch?* iswm %youtube) && (*onclick=* iswm %youtube) && (*<br* iswm %youtube)) { 
    set %youtube.link http://www.youtube.com $+ $gettok(%youtube,2,34)
    set %youtube.name $remove($gettok(%youtube,2,62),</a)
  }
  if (*class="runtime"* iswm %youtube) {
    if (%youtube.num) {
      if (!%youtube.times) { set %youtube.times 0 }
      if (%youtube.times == $calc(%youtube.num -1)) {
        msg %youtube.chan %youtube.pre.1
        if (%youtube.pre.2) {
          .timeryoutube.a 1 1 msg %youtube.chan %youtube.pre.2
          .timeryoutube.b 1 2 msg %youtube.chan %youtube.name > $remove($gettok(%youtube,2,62),</span) > %youtube.link
        }
        else { .timeryoutube 1 1 msg %youtube.chan %youtube.name > $remove($gettok(%youtube,2,62),</span) > %youtube.link }
        unset %youtub*
        sockclose youtube
      }
      if (%youtube.times < %youtube.num) {
        if (%youtube.pre.1) { set %youtube.pre.2 %youtube.name > $remove($gettok(%youtube,2,62),</span) > %youtube.link }
        else { set %youtube.pre.1 %youtube.name > $remove($gettok(%youtube,2,62),</span) > %youtube.link }
        inc %youtube.times 1
      }
    }
    else {
      msg %youtube.chan %youtube.name > $remove($gettok(%youtube,2,62),</span) > %youtube.link
      unset %youtub*
      sockclose youtube
    }
  }
}
alias -l html {
  var %text = $1-
  var %text = $replace(%text,$chr(37),$chr(37) $+ 25,$chr(58),$chr(37) $+ 3A,$chr(43),$chr(37) $+ 2B,á,$chr(37) $+ C3 $+ $chr(37) $+ A1,à,$chr(37) $+ C3 $+ $chr(37) $+ A0,â,$chr(37) $+ C3 $+ $chr(37) $+ A2,ã,$chr(37) $+ C3 $+ $chr(37) $+ A3,ä,$chr(37) $+ C3 $+ $chr(37) $+ A4,/,$chr(37) $+ 2F,\,$chr(37) $+ 5C,$chr(123),$chr(37) $+ 7B,$chr(125),$chr(37) $+ 7D)
  var %text = $replace(%text,',$chr(37) $+ 27,é,$chr(37) $+ C3 $+ $chr(37) $+ A9,è,$chr(37) $+ C3 $+ $chr(37) $+ A8,ê,$chr(37) $+ C3 $+ $chr(37) $+ AA,ë,$chr(37) $+ C3 $+ $chr(37) $+ AB,ç,$chr(37) $+ C3 $+ $chr(37) $+ A7,Ç,$chr(37) $+ C3 $+ $chr(37) $+ 87,&,$chr(37) $+ 26,¤,$chr(37) $+ E2 $+ $chr(37) $+ 82 $+ $chr(37) $+ AC,«,$chr(37) $+ C2 $+ $chr(37) $+ AB,»,$chr(37) $+ C2 $+ $chr(37) $+ BB)
  var %text = $replace(%text,Á,%C3 $+ $chr(37) $+ 81,À,$chr(37) $+ C3 $+ $chr(37) $+ 80,Â,$chr(37) $+ C3 $+ $chr(37) $+ 82,Ã,$chr(37) $+ C3 $+ $chr(37) $+ 83,Ä,$chr(37) $+ C3 $+ $chr(37) $+ 84,É,$chr(37) $+ C3 $+ $chr(37) $+ 89,È,$chr(37) $+ C3 $+ $chr(37) $+ 88,Ê,$chr(37) $+ C3 $+ $chr(37) $+ 8A,Ë,$chr(37) $+ C3 $+ $chr(37) $+ 8B,$chr(63),$chr(37) $+ 3F)
  var %text = $replace(%text,$chr(40),$chr(37) $+ 28,$chr(41),$chr(37) $+ 29,$,$chr(37) $+ 24,$chr(35),$chr(37) $+ 23,!,$chr(37) $+ 21,",$chr(37) $+ 22,=,$chr(37) $+ 3D,$chr(44),$chr(37) $+ 2C,>,$chr(37) $+ 3E,<,$chr(37) $+ 3C,ñ,$chr(37) $+ C3 $+ $chr(37) $+ B1,Ñ,$chr(37) $+ C3 $+ $chr(37) $+ 91,|,$chr(37) $+ 7C,$chr(91),$chr(37) $+ 5B,$chr(93),$chr(37) $+ 5D)
  var %text = $replace(%text,í,$chr(37) $+ C3 $+ $chr(37) $+ AD,ì,$chr(37) $+ C3 $+ $chr(37) $+ AC,î,$chr(37) $+ C3 $+ $chr(37) $+ AE,ï,$chr(37) $+ C3 $+ $chr(37) $+ AF,Í,$chr(37) $+ C3 $+ $chr(37) $+ 8D,Ì,$chr(37) $+ C3 $+ $chr(37) $+ 8C,Î,$chr(37) $+ C3 $+ $chr(37) $+ 8E,Ï,$chr(37) $+ C3 $+ $chr(37) $+ 8F,,$chr(37) 2,,$chr(37) $+ 1F,,$chr(37) $+03,,$chr(37) $+ 16)
  var %text = $replace(%text,ó,$chr(37) $+ C3 $+ $chr(37) $+ B3,ò,$chr(37) $+ C3 $+ $chr(37) $+ B2,ô,$chr(37) $+ C3 $+ $chr(37) $+ B4,õ,$chr(37) $+ C3 $+ $chr(37) $+ B5,ö,$chr(37) $+ C3 $+ $chr(37) $+ B6,Ó,$chr(37) $+ C3 $+ $chr(37) $+ 93,Ò,$chr(37) $+ C3 $+ $chr(37) $+ 92,Ô,$chr(37) $+ C3 $+ $chr(37) $+ 94,Õ,$chr(37) $+ C3 $+ $chr(37) $+ 95,Ö,$chr(37) $+ C3 $+ $chr(37) $+ 96)
  var %text = $replace(%text,ú,$chr(37) $+ C3 $+ $chr(37) $+ BA,ù,$chr(37) $+ C3 $+ $chr(37) $+ B9,û,$chr(37) $+ C3 $+ $chr(37) $+ BB,ü,$chr(37) $+ C3 $+ $chr(37) $+ BC,Ú,$chr(37) $+ C3 $+ $chr(37) $+ 9A,Ù,$chr(37) $+ C3 $+ $chr(37) $+ 99,Û,$chr(37) $+ C3 $+ $chr(37) $+ 9B,Ü,$chr(37) $+ C3 $+ $chr(37) $+ 9C,Å,$chr(37) $+ C3 $+ $chr(37) $+ 85,å,$chr(37) $+ C3 $+ $chr(37) $+ A5,$chr(32),+)
  return %text
}