YouTube Script v4.3

 
; YouTube v4.3 - by entropy 2020
 
; You will need a GOOGLE API (Youtube) Key for the youtube search to work.
; Get one here: https://developers.google.com/youtube/v3/getting-started
 
;============================= YouTube Events
 
#yt off
on *:input:#:{ if (/* !iswm $1 && $server) { triggeryt # $strip($1-) } }
on *:text:*:#:{ triggeryt # $strip($1-) }
on *:action:*:#:{ triggeryt # $strip($1-) }
#yt end
 
;============================= YouTube Trigger
 
alias -l triggeryt {
  if ($wildtok($2-,*https://www.youtube.com/watch?v=*,1,32)) { youtube $1 $v1 }
  elseif ($wildtok($2-,*https://youtu.be/*,1,32)) { youtube $1 $v1 }
  elseif (?yt iswm $2 && $left($2,1) isin @!. && $3) { ytsearch $1 $3- }
}
 
;============================= YouTube View Video
 
alias -l youtube {
  sockclose yt
  sockopen -e yt youtube.com 443
  %_chan = $1
  sockmark yt $2-
}
on *:sockopen:yt:{
  if ($sockerr) { return }
  sockwrite -nt $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -nt $sockname Host: www.youtube.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname Accept-Language: en-us  
  sockwrite -nt $sockname Content-Type: text/html; charset=utf-8
  sockwrite -nt $sockname $str($crlf,2)
}
on *:sockread:yt:{
  if ($sockerr) { return }
  var %a
  sockread -f %a
  tokenize 32 $replace(%a,<,$+($chr(32),<),>,$+(>,$chr(32)))
  if (Location: == $1) { sockclose $sockname | youtube %_chan $2- | return }
  if (* aria-label="dislike this video along with * iswm $1- && $remove($nohtml($1-),$chr(44)) isnum) {
    %down = $nohtml($1-)
    msg %_chan [YouTube] $c $replace(%title,&#39;,',&quot;,",&amp;,&) $c Views: %views $c Up: %up $c Down: %down
    unset %title %views %up %down %_chan
    sockclose $sockname
  }
  if (* aria-label="like this video along with * iswm $1- && $remove($nohtml($1-),$chr(44)) isnum) { %up = $nohtml($1-) }
  if (* class="watch-view-count"> * iswm $1-) {
    var %start = $findtok($1-,class="watch-view-count">,1,32)
    var %end = $findtok($1-,views,1,32)
    %views = $remove($gettok($1-,$+(%start,-,%end),32),class="watch-view-count">,views)
  }
  if (<title> isin $1- && <title>YouTube</title> !isin $1) {
    var %start = $findtok($1-,<title>,1,32), %end = $findtok($1-,</title>,1,32)
    %title = $remove($gettok($1-,$+(%start,-,%end),32),<title>,</title>,- YouTube)
    if (*Error 404* iswm %title) { msg %_chan [YouTube] $c Error 404 (Not Found) | unset %title %_chan }
  }  
}
 
;============================= YouTube Search
 
alias -l ytsearch {
  sockclose yout
  sockopen -e yout googleapis.com 443
  %_chan = $1
  sockmark yout $replace($2-,$chr(32),+)
  %yt_key = INSERT_KEY_HERE
}
on *:sockopen:yout:{
  if ($sockerr) { return }
  sockwrite -nt $sockname GET $+(https://www.googleapis.com/youtube/v3/search?part=snippet&q=,$sock($sockname).mark,&key=,%yt_key) HTTP/1.1
  sockwrite -nt $sockname Host: googleapis.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname Accept-Language: en-us  
  sockwrite -nt $sockname Content-Type: text/html; charset=utf-8
  sockwrite -nt $sockname $str($crlf,2)
}
on *:sockread:yout:{
  if ($sockerr) { return }
  var %a
  sockread -f %a
  tokenize 32 %a
  if ($1) { 
    if (*"reason": "keyInvalid"* iswm $1-) { msg %_chan [YouTube Search] $c Invalid Key! | unset %_chan | sockclose $sockname }
    if (*"title": "*",* iswm $1-) { %_title = $replace($remove($gettok($1-,2-,32),",$chr(44)),&#39;,',&quot;,",&amp;,&) }
    if (*"url": "*",*  iswm $1-) { %_link = $+(https://www.youtube.com/watch?v=,$gettok($gettok($1-,2,32),-2,47)) | msg %_chan [YouTube Search] $c %_title $c Link: %_link | unset %_title %_link %_chan | sockclose $sockname }
  }
}
alias -l nohtml { return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g,) }
alias -l c { return $chr(9679) }