YouTube Script v4.5

 
; YouTube v4.5 - 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
; Then, "%yt_key = INSERT_KEY_HERE" insert key here (on line 82)
 
; ============================ YouTube Menus
 
menu channel {
  -
  YouTube Status $chr(9) $replace($group(#yt).status,o,O) {
    $iif($group(#yt).status == on,.disable,.enable) #yt
    echo 4 -a * YouTube is now: $replace($group(#yt).status,o,O)
  }
  -
}
 
;============================= 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 -e46 yt youtube.com 443
  set -u5 %_rchan $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 %b
  sockread -f %b
  tokenize 32 $replace(%b,<,$+($chr(32),<),>,$+(>,$chr(32)))
  if (Location: == $1) { sockclose $sockname | youtube %_rsockname %_rchan $gettok($2-,1,38) }
  elseif (*"Video unavailable"* iswm $1-) { sockclose $sockname | msg %_rchan [YouTube] $c No such video! }
  elseif (*"status":"LOGIN_REQUIRED"* iswm $1-) { sockclose $sockname | msg %_rchan [YouTube] $c Video flagged as innopropriate for some users }
  elseif ($1-) {
    var %a = 1, %b
    while ($gettok($1-,%a,123)) {
      %b = $v1
      if (*"lengthSeconds\":\"* iswm %b && !%_length) { set -u5 %_length $duration($remove($gettok(%b,$calc($findtok(%b,$wildtok(%b,*lengthSeconds*,1,34),1,34) + 2),34),\),3) }
      if (*"text":"* iswm %b && !%_xtitle) { set -u5 %_xtitle $replace($gettok($gettok(%b,3,34),1--1,45),\u0026,&) }
      if (*"simpleText":"* iswm %b && !%_views) { set -u5 %_views $gettok($gettok(%b,3,34),1,32) }
      if (*"label":"* dislikes"* iswm %b && !%_dislikes) { set -u5 %_dislikes $gettok($gettok(%b,3,34),1,32) }
      if (*"label":"* likes"* iswm %b && !%_likes) { set -u5 %_likes $gettok($gettok(%b,3,34),1,32) }
      inc %a
    }
  }
  if (%_length != $null && %_views != $null && %_xtitle && %_likes != $null && %_dislikes != $null) { sockclose $sockname | msg %_rchan [YouTube] $c $replace(%_xtitle,&#39;,',&quot;,",&amp;,&) $c Views: %_views $c Length: %_length $c Up: %_likes $c Down: %_dislikes }
}
 
;============================= YouTube Search
 
alias -l ytsearch {
  sockclose yout
  sockopen -e yout googleapis.com 443
  set -u5 %_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
  unset %yt_key
  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! | sockclose $sockname | return }
    if (*"title": "*",* iswm $1-) { set -u5 %_title $replace($remove($gettok($1-,2-,32),",$chr(44)),&apos;,',&quot;,",&amp;,&) }
    if (*"url": "*",*  iswm $1-) { set -u5 %_link $+(https://www.youtube.com/watch?v=,$gettok($gettok($1-,2,32),-2,47)) | msg %_chan [YouTube Search] $c %_title $c Link: %_link | sockclose $sockname }
  }
}
alias -l nohtml { return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g,) }
alias -l c { return $chr(9679) }