API tools faq
paste
Advertisement
illpastethat

YouTube Script (Parse Vids and Search) v2.4

illpastethat
Jul 10th, 2011
412
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 9.32 KB | None | 0 0
raw download clone embed print report
  1. ;YouTube Script (Parse Vids and Search) v2.4
  2. ;Made by nick1
  3. ;Last edit July 10 2011
  4.  
  5. raw 408:*: msg $2 $remove($strip($13-),$chr(9))
  6.  
  7. on $*:text:/^[!@]y(outube|t|tsearch|search|ousearch|outubesearch)/Si:*:{
  8.   if ($($+(%,botflood.,$nick),2)) {
  9.     if ($($+(%,botflood.,$nick),2) >= 50) {
  10.       ignore -u60 $address($nick,0)
  11.       msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot.
  12.       halt
  13.     }
  14.     elseif ($($+(%,botflood.,$nick),2) >= 40) {
  15.       msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot.
  16.       inc -z $+(%,botflood.,$nick) 20
  17.       halt
  18.     }
  19.     else {
  20.       inc -z $+(%,botflood.,$nick) 25
  21.     }
  22.   }
  23.   else {
  24.     inc -z $+(%,botflood.,$nick) 25
  25.   }
  26.   var %ticks $ticks
  27.   if ($2) {
  28.     set $+(%,ysearch.,%ticks,.msgtype) $iif($left($strip($1),1) == @,msg $chan,notice $nick)
  29.     set $+(%,ysearch.,%ticks,.search) $replace($2-,$chr(32),+)
  30.     sockopen $+(ysearch.,%ticks) youtube.com 80
  31.   }
  32.   elseif ($2 == $null) {
  33.     msg $chan $+(4,$nick,,$chr(44)) 10Incorrect Syntax: Try ! or @ 4YOUTUBE10 <search term>
  34.   }
  35. }
  36.  
  37. on *:input:*:{
  38.   if (($remove($1,$left($strip($1),1)) == ysearch) || ($remove($1,$left($strip($1),1)) == ytsearch) || ($remove($1,$left($strip($1),1)) == yt) || ($remove($1,$left($strip($1),1)) == youtubesearch)) {
  39.     set $+(%,ysearch.,$ticks,.msgtype) msg $active
  40.     set $+(%,ysearch.,$ticks,.search) $replace($2-,$chr(32),+)
  41.     sockopen $+(ysearch.,$ticks) youtube.com 80
  42.   }
  43.   elseif (*youtube.com* iswm $1-) {
  44.     var %i 1
  45.     while (%i <= $numtok($1-,32)) {
  46.       if ((*youtube.com* iswm $($+($,%i),2)) || (*youtu.be* iswm $($+($,%i),2))) {
  47.         set $+(%,youtube.,$ticks,.url) $($+($,%i),2)
  48.         set $+(%,youtube.,$ticks,.tag) $remove($strip($($+($,%i),2)),http://,www.,youtube.com,youtu.be/,/watch?v=,$chr(31))
  49.       }
  50.       inc %i
  51.     }
  52.     set $+(%,youtube.,$ticks,.msgtype) msg $active
  53.     set $+(%,youtube.,$ticks,.nick) $nick
  54.     set $+(%,youtube.,$ticks,.chan) $chan
  55.     set $+(%,youtube.,$ticks,.network) $network
  56.     sockopen $+(youtube.,$ticks) youtube.com 80
  57.   }
  58.   elseif (($1 == !youtubelinks) || ($1 == !youtubefetch) || ($1 == !youtube)) {
  59.     set %youtubefetch $addtok(%youtubefetch,$iif(($2),$2,$chan),44)
  60.     echo -ac info I will message $iif(($2),$2,$chan) with youtube info...
  61.   }
  62.   elseif (($1 == !noyoutubelinks) || ($1 == !noyoutubefetch) || ($1 == !noyoutube)) {
  63.     set %youtubefetch $remtok(%youtubefetch,$iif(($2),$2,$chan),44)
  64.     echo -ac info I wont message $iif(($2),$2,$chan) with youtube info...
  65.   }
  66. }
  67.  
  68. alias checkifsockopen {
  69.   if ($sock(%checksockname)) { sockclose %checksockname
  70.     $($+(%,youtube.,$remove(%checksockname,youtube.,ysearch.).msgtype),2) $+(12[4,YOUTUBE,12])10 Error Encountered!
  71.   }
  72. }
  73.  
  74. on *:sockopen:ysearch*: {  
  75.   sockwrite -nt $sockname GET /results?search_query= $+ $($+(%,ysearch.,$remove($sockname,ysearch.),.search),2) HTTP/1.1
  76.   sockwrite -nt $sockname Host: www.youtube.com
  77.   sockwrite -nt $sockname $crlf
  78. }
  79.  
  80. alias nohtml { return $regsubex($$1-,/^[^<]*>|<[^>]*>|<[^>]*$/g,) }
  81.  
  82. on *:SOCKREAD:ysearch*: {
  83.   if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  84.   sockread %sockreader
  85.   if (*<h3>* iswm %sockreader) {
  86.     set $+(%,ysearch.,$remove($sockname,ysearch.),.title) $regsubex($nohtml($replace($remove(%sockreader,|),<b>,,</b>,,&quot;,",&amp;,&)),/&#(\d\d?\d?\d?);/g,$chr(\1))
  87.     tokenize 34 %sockreader
  88.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $2
  89.   }
  90.   elseif (*</div><h3* iswm %sockreader) {
  91.     set $+(%,ysearch.,$remove($sockname,ysearch.),.title) $regsubex($nohtml($replace($remove(%sockreader,|),<b>,,</b>,,&quot;,",&amp;,&)),/&#(\d\d?\d?\d?);/g,$chr(\1))
  92.     tokenize 34 %sockreader
  93.     set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $4
  94.   }
  95.   elseif (*<span class="video-time">* iswm %sockreader) {
  96.     set $+(%,ysearch.,$remove($sockname,ysearch.),.time) $nohtml($remove(%sockreader,Add to,Added,to,queue))
  97.   }
  98.   elseif (*<span class="username-prepend">* iswm %sockreader) {
  99.     set $+(%,ysearch.,$remove($sockname,ysearch.),.user) $remove($nohtml(%sockreader),by)
  100.   }
  101.   elseif (*<span class="viewcount">* iswm %sockreader) {
  102.     set $+(%,ysearch.,$remove($sockname,ysearch.),.viewcount) $remove($nohtml(%sockreader),|,views)
  103.     $($+(%,ysearch.,$remove($sockname,ysearch.),.msgtype),2) 1,0You0,4Tube 10Link:4 http://youtube.com $+ $($+(%,ysearch.,$remove($sockname,ysearch.),.tag),2) 10Title:4 $($+(%,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)
  104.     unset $+(%,ysearch.,$remove($sockname,ysearch.),*)
  105.     sockclose $sockname
  106.   }
  107. }
  108.  
  109.  
  110.  
  111. on $*:text:/youtu(.be|be.com)/Si:*: {
  112.   if (($chan != #nova) && ($nick != Runescript)) {
  113.     if ($($+(%,botflood.,$nick),2)) {
  114.       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 }
  115.       elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
  116.       else { inc -z $+(%,botflood.,$nick) 10 }
  117.     }
  118.     else { inc -z $+(%,botflood.,$nick) 10 }
  119.     var %i 1
  120.     var %ticks $ticks
  121.     while (%i <= $numtok($1-,32)) {
  122.       if ((*youtube.com* iswm $($+($,%i),2)) || (*youtu.be* iswm $($+($,%i),2))) {
  123.         set $+(%,youtube.,%ticks,.url) $($+($,%i),2)
  124.         set $+(%,youtube.,%ticks,.tag) $remove($strip($($+($,%i),2)),http://,www,$chr(46),youtube,com,youtu,be,/,watch?v=,$chr(31))
  125.       }
  126.       inc %i
  127.     }
  128.     if (($me == Mafbot) || ($nick($chan,$me,@&~)) || ($istok(%youtubefetch,$chan,44))) {
  129.       set $+(%,youtube.,%ticks,.msgtype) msg $chan
  130.     }
  131.     elseif (($me != Mafbot) && (!$nick($chan,$me,@&~)) && (!$istok(%youtubefetch,$chan,44))) {
  132.       set $+(%,youtube.,%ticks,.msgtype) echo -a
  133.     }
  134.     if (($($+(%,youtube.,%ticks,.tag),2) != %_youtube.last) && ($($+(%,youtube.,%ticks,.tag),2) != $null)) {
  135.       set $+(%,youtube.,%ticks,.nick) $nick
  136.       set $+(%,youtube.,%ticks,.chan) $chan
  137.       set $+(%,youtube.,%ticks,.network) $network
  138.       sockopen $+(youtube.,%ticks) youtube.com 80
  139.     }
  140.   }
  141. }
  142.  
  143. on *:sockopen:youtube*: {
  144.   sockwrite -nt $sockname GET $+(/,watch?v=,$($+(%,youtube.,$remove($sockname,youtube.),.tag),2)) HTTP/1.1
  145.   sockwrite -nt $sockname Host: www.youtube.com
  146.   sockwrite -nt $sockname $crlf
  147. }
  148.  
  149. on *:SOCKREAD:youtube*: {
  150.   if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  151.   else {
  152.     var %sockreader
  153.     sockread %sockreader
  154.     if (*Location: http://www.youtube.com/verify_age?next_url=* iswm %sockreader) {
  155.       if ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) != echo -a) {
  156.         $($+(%,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.
  157.         halt
  158.       }
  159.       set %_youtube.last $($+(%,youtube.,$remove($sockname,youtube.),.tag),2)
  160.       unset $+(%,youtube.,$remove($sockname,youtube.),*)
  161.       sockclose youtube
  162.       halt
  163.     }
  164.     elseif (*<meta name="title"* iswm %sockreader) {
  165.       tokenize 32 %sockreader
  166.       set $+(%,youtube.,$remove($sockname,youtube.),.title) $replace($remove(%sockreader,<meta name="title" content=",">),&amp;quot;,",&amp;#39;,',&quot;,",&amp;,&,&#39;,')
  167.     }
  168.     elseif (*<span class="watch-view-count">* iswm %sockreader) {
  169.       set $+(%,youtube.,$remove($sockname,youtube.),.viewcheck) on
  170.     }
  171.     elseif (*<a id="watch-username" class="inline-block" rel="author" href="/user/* iswm %sockreader) {
  172.       set $+(%,youtube.,$remove($sockname,youtube.),.user) $nohtml(%sockreader)
  173.     }
  174.     elseif (*<a id="watch-userbanner" class="inline-block" rel="author" href="/user/* iswm %sockreader) {
  175.       tokenize 34 %sockreader
  176.       set $+(%,youtube.,$remove($sockname,youtube.),.user) $10
  177.     }
  178.     elseif ((*<strong>* iswm %sockreader) && ($($+(%,youtube.,$remove($sockname,youtube.),.viewcheck),2) == on)) {
  179.       set $+(%,youtube.,$remove($sockname,youtube.),.viewcount) $nohtml(%sockreader)
  180.       if ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) == echo -a) {
  181.         $($+(%,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)    
  182.       }
  183.       elseif ($($+(%,youtube.,$remove($sockname,youtube.),.msgtype),2) != echo -a) {
  184.         $($+(%,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)
  185.       }
  186.       set %_youtube.last $($+(%,youtube.,$remove($sockname,youtube.),.tag),2)
  187.       unset $+(%,youtube.,$remove($sockname,youtube.),*)
  188.       sockclose youtube
  189.     }
  190.   }
  191. }
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!