Snippets Project Page

Author: entropy

Added: 5y

Updated: 12w

mIRC: 7.56+

Hits: 6,418

Downloads: 346

Review: entropy

Size: 10.12KB

 4  1

Login to vote.

YouTube
v5.8

This snippet looks up YouTube urls and also searches for matching videos.

Paste a YouTube link in any channel (or channels specified).

Type: !yt <search> or !youtube <search> to search for youtube videos.

You need a valid API key to use the search!

Screenshot...
Download
JSON
▲ Review
▲ Log
▼ Source
  1. ; YouTube v5.8 - by entropy 2023
  2.  
  3. ; Get a API Key here: https://developers.google.com/youtube/v3/getting-started
  4.  
  5. ; ============================ YouTube Menus
  6.  
  7. menu menubar,status,channel,query {
  8.   -
  9.   YouTube v5.8 $chr(9) $replace($group(#youtube).status,o,O)
  10.   .Turn it $iif($group(#youtube).status == on,Off,On) {
  11.     $iif($group(#youtube).status == on,.disable,.enable) #youtube
  12.     echo 4 -ag * YouTube is now: $qt($replace($group(#youtube).status,o,O))
  13.   }
  14.   .-
  15.   .Channel(s) $chr(9) $eval($+(%,youtubechans,.,$network),2) {
  16.     var %net = $eval($+(%,youtubechans,.,$network),2)
  17.     var %text = $input(Channels list (seperated by comma) or "#" for all?,5,YouTube,%net)
  18.     %text = $replace(%text,$chr(32),$chr(44))
  19.     var %a = 1, %b
  20.     while ($gettok(%text,%a,44)) {
  21.       %b = $v1
  22.       if ($left(%b,1) != $chr(35)) { %text = $reptok(%text,%b,$+($chr(35),%b),1,44) }
  23.       inc %a
  24.     }
  25.     if (%text) { set $+(%,youtubechans,.,$network) $v1 | echo 4 -ag * YouTube Channels are now: $qt($v1) }
  26.     else { unset $+(%,youtubechans,.,$network) | echo 4 -ag * YouTube Channels are now reset }
  27.   }
  28.   .$iif(!$istok($eval($+(%,youtubechans,.,$network),2),$chan,44) && $eval($+(%,youtubechans,.,$network),2) != $chr(35) && $menu == channel,Add Channel To list) {
  29.     var %net = $eval($+(%,youtubechans,.,$network),2)
  30.     %net = $addtok(%net,$chan,44)
  31.     set $+(%,youtubechans,.,$network) %net
  32.     echo 4 -ag * YouTube channels are now: $qt(%net)
  33.   }
  34.   .$iif($istok($eval($+(%,youtubechans,.,$network),2),$chan,44) && $menu == channel,Delete Channel From list) {
  35.     var %net = $eval($+(%,youtubechans,.,$network),2)
  36.     %net = $remtok(%net,$chan,1,44)
  37.     set $+(%,youtubechans,.,$network) %net
  38.     echo 4 -ag * YouTube channels are now $+ $iif(!%net,$chr(32) reset,: $qt(%net))
  39.   }
  40.   .$iif($eval($+(%,youtubechans,.,$network),2),Delete all Channels) {
  41.     unset $+(%,youtubechans,.,$network)
  42.     echo 4 -ag * YouTube channels are now reset
  43.   }
  44.   .-
  45.   .API Key $chr(9) %yt_key { 
  46.     var %a = $input(Input API Key?,5)
  47.     if ($! != $null) { 
  48.       %yt_key = $! 
  49.       echo 4 -ag * YouTube key is now: $qt(%yt_key) 
  50.     } 
  51.   }
  52.   .-
  53.   .Get an API key { run https://developers.google.com/youtube/v3/getting-started }
  54.   -
  55. }
  56.  
  57. ; ============================ 
  58.  
  59. on *:unload:{ echo 4 -ag * YouTube is now unloaded! | unset %youtubechans.* %yt_key }
  60. on *:load:{ echo 4 -ag * YouTube is now loaded! }
  61.  
  62. ; ============================ 
  63.  
  64. #youtube on
  65. on *:text:*:$($eval($+(%,youtubechans,.,$network),2)):{ doyoutube $1- }
  66. on *:input:$($eval($+(%,youtubechans,.,$network),2)):{ if (/* !iswm $1 && $server) { doyoutube $1- } }
  67. #youtube end
  68.  
  69. alias -l doyoutube {
  70.   if (!youtube == $1 || !yt == $1) {
  71.     if ($2 == $null) { return }
  72.     elseif (%yt_key) {
  73.       set %_youtubechan #
  74.       apiYT $+(https://www.googleapis.com/youtube/v3/search?part=snippet&q=,$replace($2-,$chr(32),+),&key=,%yt_key)
  75.     }
  76.   }
  77.   else {
  78.     var %outputx
  79.     if (*https://*youtube.com/watch?v=* iswm $1-) { %outputx = $wildtok($1-,https://*youtube.com/watch?v=*,1,32) }
  80.     elseif (*https://youtu.be/* iswm $1-) { %outputx = $wildtok($1-,https://youtu.be/*,1,32) }
  81.     elseif (*www.youtube.com/watch?v=* iswm $1-) { %outputx = $wildtok($1-,www.youtube.com/watch?v=*,1,32) }
  82.     if (%outputx) {
  83.       set %_youtubechan #
  84.       grabYT %outputx
  85.     }
  86.   }
  87. }
  88.  
  89. ;=========================== YouTube Search
  90.  
  91. alias -l apiYT { noop $urlget($1-,gbi,&YouTube,processYTapi) }
  92. alias -l processYTapi {
  93.   var %id = $1 , %BV = $urlget(%id).target, %code = $gettok($urlget(%id).reply,2,32)
  94.   if (%code == 400) { msg %_youtubechan [YouTube] $c Bad API Key! | unset %_you* | return }
  95.   elseif (%code != 200) { msg %_youtubechan [YouTube] $c Error code: %code | unset %_you* | return }
  96.   var %title = $replacehtmlentities($remove($gettok($bvsearch(%BV,"title":,$chr(44)),2-,32),",$chr(44))), %total = [YouTube Search] $c
  97.   %total = %total Title: %title
  98.   %total = %total $c Link: $+(https://www.youtube.com/watch?v=,$remove($gettok($bvsearch(%BV,"videoId":,$chr(44)),2,32),"))
  99.   if (%title) { msg %_youtubechan %total }
  100.   else { msg %_youtubechan [YouTube Search] $c Nothing found! }
  101.   unset %_you*
  102. }
  103.  
  104. ;=========================== YouTube Link
  105.  
  106. alias -l grabYT { noop $urlget($1-,gbi,&YouTube,processYT) }
  107. alias -l processYT {
  108.   var %id = $1 , %BV = $urlget(%id).target
  109.   var %a = $bvsearch(%BV,<title>,</title>).inbetween
  110.   if (%a == - YouTube) { msg %_youtubechan [YouTube] $c Nothing found! | unset %_you* | return }
  111.   var %total = [YouTube]
  112.   %total = %total $c Title: $replacehtmlentities($remove($bvsearch(%BV,<title>,</title>).inbetween,- YouTube))
  113.   %total = %total $c Video Size: $bvsearch(%BV,<meta property="og:video:width" content=",">).inbetween $+ x $+ $bvsearch(%BV,<meta property="og:video:height" content=",">).inbetween
  114.   var %a = $bvsearch(%BV,<meta itemprop="uploadDate" content=",">).inbetween, %year = $gettok(%a,1,45), %month = $gettok(%a,2,45), %day = $gettok($gettok(%a,3,45),1,84), %time = $+($chr(40),$gettok($gettok(%a,3,45),2,84),$chr(41))
  115.   %total = %total $c Uploaded: $+(%month,/,%day,/,%year) %time
  116.   %total = %total $c Genre: $bvsearch(%BV,<meta itemprop="genre" content=",">).inbetween
  117.   %total = %total $c Views: $remove($bvsearch(%BV,"viewCount":{"simpleText":","}).inbetween,views)
  118.   %total = %total $c Length: $duration($bvsearch(%BV,"lengthSeconds":",34 44).inbetween,3)
  119.   var %likes = $bvsearch(%BV,"accessibility":{"label":"like this video along with,other people").inbetween
  120.   if (%likes) { %total = %total $c Likes: %likes }
  121.   %total = %total $c Uploaded By: $bvsearch(%BV,<link itemprop="name" content=",">).inbetween
  122.   msg %_youtubechan $replacehtmlentities(%total)
  123.   unset %_you*
  124. }
  125.  
  126. ;=========================== YouTube Aliases
  127.  
  128. alias -l bvsearch {
  129.   var %S = $bfind($1,1,$2)
  130.   var %E = $bfind($1,$calc(%S + $len($2)),$3)
  131.   if (%S <= 0 || %E <= 0) { return }
  132.   if ($prop == inbetween) { var %S = %S + $len($2) , %E = %E - 1 }
  133.   else { var %E = %E + $iif($regex($3,/(?:\d+|\s)/g),$numtok($3,32),$len($3)) | dec %e }
  134.   return $left( $bvar($1,$+(%S,-,%E)).text , $maxlenl)
  135. }
  136.  
  137. alias -l replacehtmlentities { return $regsubex($1-,/(\x26[^\x3B]+)\x3B/g,$entitieshtml(\1)) }
  138. alias -l entitieshtml {
  139.   if ($mid($1,2,1) == $chr(35)) { return $chr($mid($1,3)) }
  140.   elseif ($findtok(&amp;&lt;&gt;&Agrave;&Aacute;&Acirc;&Atilde;&Auml;&Aring;&AElig;&Ccedil;&Egrave;&Eacute;&Ecirc;&Euml;&Igrave;&Iacute;&Icirc;&Iuml;&ETH;&Ntilde;&Ograve;&Oacute;&Ocirc;&Otilde;&Ouml;&Oslash;&Ugrave;&Uacute;&Ucirc;&Uuml;&Yacute;&THORN;&szlig;&agrave;&aacute;&acirc;&atilde;&auml;&aring;&aelig;&ccedil;&egrave;&eacute;&ecirc;&euml;&igrave;&iacute;&icirc;&iuml;&eth;&ntilde;&ograve;&oacute;&ocirc;&otilde;&ouml;&oslash;&ugrave;&uacute;&ucirc;&uuml;&yacute;&thorn;&yuml;&nbsp;&iexcl;&cent;&pound;&curren;&yen;&brvbar;&sect;&uml;&copy;&ordf;&laquo;&not;&shy;&reg;&macr;&deg;&plusmn;&sup2;&sup3;&acute;&micro;&para;&cedil;&sup1;&ordm;&raquo;&frac14;&frac12;&frac34;&iquest;&times;&divide;&forall;&part;&exist;&empty;&nabla;&isin;&notin;&ni;&prod;&sum;&minus;&lowast;&radic;&prop;&infin;&ang;&and;&or;&cap;&cup;&int;&there4;&sim;&cong;&asymp;&ne;&equiv;&le;&ge;&sub;&sup;&nsub;&sube;&supe;&oplus;&otimes;&perp;&sdot;&Alpha;&Beta;&Gamma;&Delta;&Epsilon;&Zeta;&Eta;&Theta;&Iota;&Kappa;&Lambda;&Mu;&Nu;&Xi;&Omicron;&Pi;&Rho;&Sigma;&Tau;&Upsilon;&Phi;&Chi;&Psi;&Omega;&alpha;&beta;&gamma;&delta;&epsilon;&zeta;&eta;&theta;&iota;&kappa;&lambda;&mu;&nu;&xi;&omicron;&pi;&rho;&sigmaf;&sigma;&tau;&upsilon;&phi;&chi;&psi;&omega;&thetasym;&upsih;&piv;&OElig;&oelig;&Scaron;&scaron;&Yuml;&fnof;&circ;&tilde;&ensp;&emsp;&thinsp;&zwnj;&zwj;&lrm;&rlm;&ndash;&mdash;&lsquo;&rsquo;&sbquo;&ldquo;&rdquo;&bdquo;&dagger;&Dagger;&bull;&hellip;&permil;&prime;&Prime;&lsaquo;&rsaquo;&oline;&euro;&trade;&larr;&uarr;&rarr;&darr;&harr;&crarr;&lceil;&rceil;&lfloor;&rfloor;&loz;&spades;&clubs;&hearts;&diams,$1,59)) {
  141.     return $chr($gettok(38;60;62;192;193;194;195;196;197;198;199;200;201;202;203;204;205;206;207;208;209;210;211;212;213;214;216;217;218;219;220;221;222;223;224;225;226;227;228;229;230;231;232;233;234;235;236;237;238;239;240;241;242;243;244;245;246;248;249;250;251;252;253;254;255;160;161;162;163;164;165;166;167;168;169;170;171;172;173;174;175;176;177;178;179;180;181;182;184;185;186;187;188;189;190;191;215;247;8704;8706;8707;8709;8711;8712;8713;8715;8719;8721;8722;8727;8730;8733;8734;8736;8743;8744;8745;8746;8747;8756;8764;8773;8776;8800;8801;8804;8805;8834;8835;8836;8838;8839;8853;8855;8869;8901;913;914;915;916;917;918;919;920;921;922;923;924;925;926;927;928;929;931;932;933;934;935;936;937;945;946;947;948;949;950;951;952;953;954;955;956;957;958;959;960;961;962;963;964;965;966;967;968;969;977;978;982;338;339;352;353;376;402;710;732;8194;8195;8201;8204;8205;8206;8207;8211;8212;8216;8217;8218;8220;8221;8222;8224;8225;8226;8230;8240;8242;8243;8249;8250;8254;8364;8482;8592;8593;8594;8595;8596;8629;8968;8969;8970;8971;9674;9824;9827;9829;9830,$v1,59))
  142.   }
  143. }
  144. alias -l c { return $chr(9679) }