API tools faq
paste
Advertisement
illpastethat

YouTube Script (Parse Vids and Search) v3.4

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