API tools faq
paste
Advertisement
illpastethat

YouTube Script (Parse Vids and Search) v3.6

illpastethat
Dec 9th, 2011
389
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 15.87 KB | None | 0 0
raw download clone embed print report
  1. ;YouTube Script (Parse Vids and Search) v3.6
  2. ;Made by nick1
  3. ;Last edit December 9 2011
  4. ;For help type /YouTube in mIRC
  5. ;2D0 -- Download videos in a few formats [[possible?]], anything else?
  6. ;EDITS -- Removed formatting for embedded videos, fixed parse and @youtube errors for queries, now parses embedded videos, updated to new youtube design
  7.  
  8. menu status,channel,query {
  9.   YouTube:youtube
  10. }
  11. alias YouTube {
  12.   dialog -m YouTube YouTube
  13. }
  14.  
  15. dialog Youtube {
  16.   title "YouTube Script (Parse Vids and Search) v3.5"
  17.   size -1 -1 187 132
  18.   option dbu
  19.   icon $mircdir $+ Youtube.ico, 0
  20.   link "View Script On Hawkee -- Report Bugs Here", 1, 39 2 105 8
  21.   button "Exit", 7, 54 120 72 12, cancel
  22.   tab "About", 10, 1 9 183 106
  23.   button "On", 15, 20 98 37 12, tab 10
  24.   button "Off", 16, 120 98 37 12, tab 10
  25.   text "This script was created by nick1 (Rizon Network)", 18, 2 24 116 8, tab 10
  26.   text "Last updated on September 28, 2011", 19, 2 32 104 11, tab 10
  27.   text "Please post suggestions, complaints, or bugs on the hawkee link", 20, 2 41 167 8, tab 10
  28.   text "The script automatically will attempt to protect itself from spam", 21, 2 50 174 8, tab 10
  29.   text "!commands will notice the user; @commands will be public to the channel", 13, 2 79 175 8, tab 10
  30.   text "On/Off Buttons will Enable/Disable the entire script", 17, 26 90 135 7, tab 10
  31.   text "By default the script will run on every channel. To disable for a channel use the Channel Settings tab.", 65, 2 59 176 21, tab 10
  32.   link "Chat Here", 66, 120 24 30 8, tab 10
  33.   tab "Parse", 11
  34.   button "On", 111, 20 98 37 12, tab 11
  35.   button "Off", 9, 120 98 37 12, tab 11
  36.   text "This part of the script will automatically find youtube links that other people post and message the channel with info about the video.", 22, 3 26 177 14, tab 11
  37.   text "The script will return the following information: Title, Views, and User. ", 23, 3 43 174 10, tab 11
  38.   text "There is automatic flood protection enabled so the script will not process the same link twice in a row", 24, 3 56 179 13, tab 11
  39.   text "On/Off Buttons will Enable/Disable the parsing section of the script", 25, 8 90 162 7, tab 11
  40.   tab "Search", 2
  41.   button "On", 5, 20 98 37 12, tab 2
  42.   button "Off", 14, 120 98 37 12, tab 2
  43.   text "This part of the script will automatically find the most relevant YouTube video to the provided search terms.", 57, 4 24 174 13, tab 2
  44.   text "The script will return the following information: Link, Title, Length, Views, and User.", 58, 4 40 176 13, tab 2
  45.   text "Commands may be prefixed with an ! or an @; with !commands private and @commands public to the channel.", 59, 4 54 176 13, tab 2
  46.   box "Search Commands -- Prefix With ! or @ --", 60, 4 68 175 22, tab 2
  47.   text "On/Off Buttons will Enable/Disable the search section of the script", 61, 8 90 159 7, tab 2
  48.   text "ysearch <search terms>; ytsearch <search terms>;youtube <search terms>", 62, 15 75 156 14, tab 2
  49.   tab "Channel Settings", 3
  50.   list 6, 7 56 168 54, tab 3 sort size extsel hsbar vsbar
  51.   edit "", 8, 4 24 140 25, tab 3 multi return autohs autovs
  52.   text "List of channels the script will NOT run on", 12, 27 49 101 7, tab 3
  53.   button "Add", 4, 145 25 37 12, tab 3
  54.   button "Remove", 63, 145 38 37 12, tab 3
  55.   button "Click here to enter #channels ...", 64, 5 25 138 23, tab 3
  56.   tab "Just For Fun", 26
  57.   text "See if you can check all the checkboxes! Warning: there might not be a reward.", 27, 22 50 144 17, tab 26
  58.   check "Check Box", 28, 4 23 50 10, tab 26
  59.   check "Check Box", 29, 5 33 50 10, tab 26
  60.   check "Check Box", 30, 39 23 50 10, tab 26
  61.   check "Check Box", 31, 24 31 50 10, tab 26
  62.   check "Check Box", 32, 3 41 50 10, tab 26
  63.   check "Check Box", 33, 15 78 50 10, tab 26
  64.   check "Check Box", 34, 73 80 50 10, tab 26
  65.   check "Check Box", 35, 84 71 50 10, tab 26
  66.   check "Check Box", 36, 91 29 50 10, tab 26
  67.   check "Check Box", 37, 122 80 50 10, tab 26
  68.   check "Check Box", 38, 129 98 50 10, tab 26
  69.   check "Check Box", 39, 79 90 50 10, tab 26
  70.   check "Check Box", 40, 26 91 50 10, tab 26
  71.   check "Check Box", 41, 109 65 50 10, tab 26
  72.   check "Check Box", 42, 125 56 50 10, tab 26
  73.   check "Check Box", 43, 127 30 50 10, tab 26
  74.   check "Check Box", 44, 120 22 50 10, tab 26
  75.   check "Check Box", 45, 44 35 50 10, tab 26
  76.   check "Check Box", 46, 78 39 50 10, tab 26
  77.   check "Check Box", 47, 128 88 50 10, tab 26
  78.   check "Check Box", 48, 11 66 50 10, tab 26
  79.   check "Check Box", 49, 23 99 50 10, tab 26
  80.   check "Check Box", 50, 36 67 50 10, tab 26
  81.   check "Check Box", 51, 127 71 50 10, tab 26
  82.   check "Check Box", 52, 76 61 50 10, tab 26
  83.   check "Check Box", 53, 132 40 50 10, tab 26
  84.   check "Check Box", 54, 45 97 50 10, tab 26
  85.   check "Check Box", 55, 87 96 50 10, tab 26
  86.   check "Check Box", 56, 30 81 50 10, tab 26
  87. }
  88.  
  89. on *:dialog:youtube:init:0: {
  90.   FillChannelBox
  91. }
  92.  
  93. alias FillChannelBox {
  94.   did -r youtube 6
  95.   var %y 1
  96.   while (%y <= $numtok(%youtubefetch,44)) {
  97.     did -a youtube 6 $gettok(%youtubefetch,%y,44)
  98.     inc %y
  99.   }
  100. }
  101.  
  102. on *:dialog:youtube:sclick:*: {
  103.   if ($did == 1) {
  104.     run http://www.hawkee.com/snippet/8577/
  105.   }
  106.   elseif ($did == 66) {
  107.     run https://qchat.rizon.net/?&channels=#rsbot_help&nick=YouTube..
  108.   }
  109.   elseif ($did == 15) {
  110.     enable #search
  111.     enable #parse
  112.   }
  113.   elseif ($did == 16) {
  114.     disable #search
  115.     disable #parse
  116.   }
  117.   elseif ($did == 111) {
  118.     enable #parse
  119.   }
  120.   elseif ($did == 9) {
  121.     disable #parse
  122.   }
  123.   elseif ($did == 5) {
  124.     enable #search
  125.   }
  126.   elseif ($did == 14) {
  127.     disable #search
  128.   }
  129.   elseif ($did == 4) {
  130.     set %youtubefetch $addtok(%youtubefetch,$iif(($left($did(8),1) == $chr(35)),$did(8),$+($chr(35),$did(8))),44)
  131.     did -r youtube 8
  132.     FillChannelBox
  133.   }
  134.   elseif ($did == 63) {
  135.     set %youtubefetch $remtok(%youtubefetch,$iif(($left($did(8),1) == $chr(35)),$did(8),$+($chr(35),$did(8))),44)
  136.     did -r youtube 8
  137.     FillChannelBox
  138.   }
  139.   elseif ($did isnum 28-56) {
  140.     $iif(($r(1,3) == 1),.timercheck -m 1 13 did -c youtube $r(28,56),.timeruncheck -m 1 13 did -u youtube $r(28,56))
  141.   }
  142. }
  143.  
  144. raw 408:*: msg $2 $remove($strip($13-),$chr(9))
  145.  
  146. #search on
  147. on $*:text:/^[!@]y(outube|t|tsearch|search|ousearch|outubesearch)/Si:*: {
  148.   $iif($istok(%youtubefetch,$chan,44),halt,noop)
  149.   if ($($+(%,botflood.,$nick),2)) {
  150.     if ($($+(%,botflood.,$nick),2) >= 50) {
  151.       ignore -u60 $address($nick,0)
  152.       msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot.
  153.       halt
  154.     }
  155.     elseif ($($+(%,botflood.,$nick),2) >= 40) {
  156.       msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot.
  157.       inc -z $+(%,botflood.,$nick) 20
  158.       halt
  159.     }
  160.     else {
  161.       inc -z $+(%,botflood.,$nick) 25
  162.     }
  163.   }
  164.   else {
  165.     inc -z $+(%,botflood.,$nick) 25
  166.   }
  167.   var %ticks $ticks
  168.   if ($2) {
  169.     set $+(%,ysearch.,%ticks,.msgtype) $iif($chan,$iif($left($strip($1),1) == @,msg $chan,notice $nick),msg $nick)
  170.     set $+(%,ysearch.,%ticks,.search) $replace($2-,$chr(32),+)
  171.     sockopen $+(ysearch.,%ticks) youtube.com 80
  172.   }
  173.   elseif ($2 == $null) {
  174.     msg $nick 4Incorrect Syntax - Use10 $1 <search term>
  175.   }
  176. }
  177.  
  178. on *:input:*:{
  179.   if (($remove($1,$left($strip($1),1)) == ysearch) || ($remove($1,$left($strip($1),1)) == ytsearch) || ($remove($1,$left($strip($1),1)) == youtube) || ($remove($1,$left($strip($1),1)) == yt) || ($remove($1,$left($strip($1),1)) == youtubesearch)) {
  180.     if ($left($1,1) != /) {
  181.       if ($2 != $null) {
  182.         set $+(%,ysearch.,$ticks,.msgtype) msg $active
  183.         set $+(%,ysearch.,$ticks,.search) $replace($2-,$chr(32),+)
  184.         sockopen $+(ysearch.,$ticks) youtube.com 80
  185.       }
  186.       elseif ($2 == $null) {
  187.         .timerYTInputSyntax -m 1 100 echo -at 4Incorrect Syntax - Use10 $1 <search term>
  188.       }
  189.     }
  190.   }
  191.   elseif ((*youtube.com* iswm $1-) || (*youtu.be* iswm $1-)) {
  192.     if ($left($1,1) != /) {
  193.  
  194.       var %i 1
  195.       while (%i <= $numtok($1-,32)) {
  196.         if ((*youtube.com* iswm $($+($,%i),2)) || (*youtu.be* iswm $($+($,%i),2))) {
  197.           set $+(%,youtube.,$ticks,.url) $($+($,%i),2)
  198.           set $+(%,youtube.,$ticks,.tag) $remove($strip($($+($,%i),2)),feature=player_embedded&,http://,www.,/v/,youtube.com,youtu.be/,/watch?v=,/watch,?v=,$chr(31),&feature=feedu,#!)
  199.         }
  200.         inc %i
  201.       }
  202.       set $+(%,youtube.,$ticks,.msgtype) msg $active
  203.       set $+(%,youtube.,$ticks,.nick) $nick
  204.       set $+(%,youtube.,$ticks,.chan) $chan
  205.       set $+(%,youtube.,$ticks,.network) $network
  206.       sockopen $+(youtube.,$ticks) youtube.com 80
  207.     }
  208.   }
  209.   elseif (($1 == !youtubelinks) || ($1 == !youtubefetch)) {
  210.     set %youtubefetch $remtok(%youtubefetch,$iif(($2),$2,$chan),44)
  211.     echo -ac info I will message $iif(($2),$2,$chan) with youtube info...
  212.   }
  213.   elseif (($1 == !noyoutubelinks) || ($1 == !noyoutubefetch)) {
  214.     set %youtubefetch $addtok(%youtubefetch,$iif(($2),$2,$chan),44)
  215.     echo -ac info I won't message $iif(($2),$2,$chan) with youtube info...
  216.   }
  217. }
  218.  
  219. on *:sockopen:ysearch*: {  
  220.   sockwrite -nt $sockname GET $+(/results?search_query=,$($+(%,ysearch.,$remove($sockname,ysearch.),.search),2)) HTTP/1.1
  221.   sockwrite -nt $sockname Host: www.youtube.com
  222.   sockwrite -nt $sockname $crlf
  223. }
  224.  
  225. alias nohtml { return $regsubex($$1-,/^[^<]*>|<[^>]*>|<[^>]*$/g,) }
  226.  
  227. on *:SOCKREAD:ysearch*: {
  228.   if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  229.   sockread %sockreader
  230.   if (*<h3>* iswm %sockreader) {
  231.     set $+(%,ysearch.,$remove($sockname,ysearch.),.title) $regsubex($nohtml($replace($remove(%sockreader,|),<b>,,</b>,,&quot;,",&amp;,&)),/&#(\d\d?\d?\d?);/g,$chr(\1))
  232.     tokenize 34 %sockreader
  233.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $remove($2,/watch?v=)
  234.     tokenize 38 $($+(%,ysearch.,$remove($sockname,ysearch.),.tag),2)
  235.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $1
  236.   }
  237.   elseif (*</div><h3* iswm %sockreader) {
  238.     set $+(%,ysearch.,$remove($sockname,ysearch.),.title) $regsubex($nohtml($replace($remove(%sockreader,|),<b>,,</b>,,&quot;,",&amp;,&)),/&#(\d\d?\d?\d?);/g,$chr(\1))
  239.     tokenize 34 %sockreader
  240.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $remove($4,/watch?v=)
  241.     tokenize 38 $($+(%,ysearch.,$remove($sockname,ysearch.),.tag),2)
  242.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $1
  243.   }
  244.   elseif (*<span class="video-time">* iswm %sockreader) {
  245.     set $+(%,ysearch.,$remove($sockname,ysearch.),.time) $nohtml($remove(%sockreader,Add to,Added,to,queue,hozzáadás))
  246.   }
  247.   elseif (*<span class="username-prepend">* iswm %sockreader) {
  248.     set $+(%,ysearch.,$remove($sockname,ysearch.),.user) $remove($nohtml(%sockreader),by)
  249.   }
  250.   elseif (*<span class="viewcount">* iswm %sockreader) {
  251.     set $+(%,ysearch.,$remove($sockname,ysearch.),.viewcount) $remove($nohtml(%sockreader),|,views,megtekintés)
  252.     $($+(%,ysearch.,$remove($sockname,ysearch.),.msgtype),2) 1,0You0,4Tube 10Link:4 http://youtu.be/ $+ $($+(%,ysearch.,$remove($sockname,ysearch.),.tag),2) 10Title:4 $iif($($+(%,ysearch.,$remove($sockname,ysearch.),.msgtype),2) == msg #rsbot,$lower($($+(%,ysearch.,$remove($sockname,ysearch.),.title),2)),$($+(%,ysearch.,$remove($sockname,ysearch.),.title),2)) 10Length:4 $($+(%,ysearch.,$remove($sockname,ysearch.),.time),2) 10Views:4 $($+(%,ysearch.,$remove($sockname,ysearch.),.viewcount),2) 10User:4 $($+(%,ysearch.,$remove($sockname,ysearch.),.user),2)
  253.     unset $+(%,ysearch.,$remove($sockname,ysearch.),*)
  254.     sockclose $sockname
  255.   }
  256. }
  257. #search end
  258.  
  259. #parse on
  260. on $*:text:/youtu(.be|be.com)/Si:*: {
  261.   $iif($istok(%youtubefetch,$chan,44),halt,noop)
  262.   $iif($istok(%nolinks,$nick,44),halt,noop)
  263.   if ($($+(%,botflood.,$nick),2)) {
  264.     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 }
  265.     elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
  266.     else { inc -z $+(%,botflood.,$nick) 10 }
  267.   }
  268.   else { inc -z $+(%,botflood.,$nick) 10 }
  269.   var %i 1
  270.   var %ticks $ticks
  271.   while (%i <= $numtok($1-,32)) {
  272.     if ((*youtube.com* iswm $($+($,%i),2)) || (*youtu.be* iswm $($+($,%i),2))) {
  273.       set $+(%,youtube.,%ticks,.url) $($+($,%i),2)
  274.       set $+(%,youtube.,%ticks,.tag) $remove($strip($($+($,%i),2)),feature=player_embedded&,http://,/v/,www,$chr(46),youtube,com,youtu,be,/,watch?v=,$chr(31),&feature=feedu,#!)
  275.     }
  276.     inc %i
  277.   }
  278.   if (!$istok(%youtubefetch,$chan,44)) {
  279.     set $+(%,youtube.,%ticks,.msgtype) msg $iif($chan,$v1,$nick)
  280.   }
  281.   elseif ($istok(%youtubefetch,$chan,44)) {
  282.     halt
  283.   }
  284.   if (($($+(%,youtube.,%ticks,.tag),2) != %_youtube.last) && ($($+(%,youtube.,%ticks,.tag),2) != $null)) {
  285.     set $+(%,youtube.,%ticks,.nick) $nick
  286.     set $+(%,youtube.,%ticks,.chan) $chan
  287.     set $+(%,youtube.,%ticks,.network) $network
  288.     sockopen $+(youtube.,%ticks) youtube.com 80
  289.   }
  290. }
  291.  
  292. on *:sockopen:youtube*: {
  293.   sockwrite -nt $sockname GET $+(/,watch?v=,$($+(%,youtube.,$remove($sockname,youtube.),.tag),2)) HTTP/1.1
  294.   sockwrite -nt $sockname Host: www.youtube.com
  295.   sockwrite -nt $sockname $crlf
  296. }
  297.  
  298. on *:SOCKREAD:youtube*: {
  299.   if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  300.   else {
  301.     var %sockreader
  302.     sockread %sockreader
  303.     if (*Location: http://www.youtube.com/verify_age?next_url=* iswm %sockreader) {
  304.       if ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) != echo -a) {
  305.         $($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) 1,0You0,4Tube 10This content may contain material flagged by YouTube's user community that may be inappropriate for some users.
  306.         halt
  307.       }
  308.       set %_youtube.last $($+(%,youtube.,$remove($sockname,youtube.),.tag),2)
  309.       unset $+(%,youtube.,$remove($sockname,youtube.),*)
  310.       sockclose youtube
  311.       halt
  312.     }
  313.     elseif (*<meta name="title"* iswm %sockreader) {
  314.       tokenize 32 %sockreader
  315.       set $+(%,youtube.,$remove($sockname,youtube.),.title) $replace($remove(%sockreader,<meta name="title" content=",">),&amp;quot;,",&amp;#39;,',&quot;,",&amp;,&,&#39;,')
  316.     }
  317.     elseif (*<span class="watch-view-count">* iswm %sockreader) {
  318.       set $+(%,youtube.,$remove($sockname,youtube.),.viewcheck) on
  319.     }
  320.     elseif (*<a id="watch-userbanner" class="inline-block" rel="author" href="/user/* iswm %sockreader) {
  321.       tokenize 34 %sockreader
  322.       set $+(%,youtube.,$remove($sockname,youtube.),.user) $10
  323.     }
  324.     elseif ((*<strong>* iswm %sockreader) && ($($+(%,youtube.,$remove($sockname,youtube.),.viewcheck),2) == on)) {
  325.       set $+(%,youtube.,$remove($sockname,youtube.),.viewcount) $nohtml(%sockreader)
  326.       unset $+(%,youtube.,$remove($sockname,youtube.),.viewcheck)
  327.     }
  328.     elseif (*class="yt-user-name author"* iswm %sockreader) {
  329.       tokenize 34 %sockreader
  330.       set $+(%,youtube.,$remove($sockname,youtube.),.user) $remove($2,/user/)
  331.       if ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) == echo -a) {
  332.         $($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) 12[4 $+ $($+(%,youtube.,$remove($sockname,youtube.),.chan),2) $+ 12] 1,0You0,4Tube 10Title:4 $($+(%,youtube.,$remove($sockname,youtube.),.title),2) 10Views:4 $($+(%,youtube.,$remove($sockname,youtube.),.viewcount),2) 10User:4 $($+(%,youtube.,$remove($sockname,youtube.),.user),2) 12From4 $($+(%,youtube.,$remove($sockname,youtube.),.nick),2) 10on12 $($+(%,youtube.,$remove($sockname,youtube.),.network),2)    
  333.       }
  334.       elseif ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) != echo -a) {
  335.         $($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) 1,0You0,4Tube 10Title:4 $($+(%,youtube.,$remove($sockname,youtube.),.title),2) 10Views:4 $($+(%,youtube.,$remove($sockname,youtube.),.viewcount),2) 10User:4 $($+(%,youtube.,$remove($sockname,youtube.),.user),2)
  336.       }
  337.       set %_youtube.last $($+(%,youtube.,$remove($sockname,youtube.),.tag),2)
  338.       unset $+(%,youtube.,$remove($sockname,youtube.),*)
  339.       sockclose $sockname
  340.     }
  341.   }
  342. }
  343. #parse end
  344.  
  345.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!