Sign in to follow this  
chain

YouTube Infos

IF THE SCRIPT DOES NOT WORK FOR YOU MAKE SURE COM IS NOT LOCKED IN MIRC OPTIONS AND THAT YOU HAVE INSTALLED WINDOWS SCRIPTING HOST 5.7 OR LATER!

 

Requires the $download snippet from http://www.mircscrip...ts.php?cid=2968

 

 

>; No need to change anything normally; Simply paste it to remote and you will get an echo after someone pasted a youtube uri; if you wanna use it for a bot change the post alias to return $true;; Update: 21.01.2012; - added some errorchecking; - changed Wildmatch; - better parsing; - added youtu.be-links[/font][font=Courier New]alias -l post { return $false }on *:text:*youtube*v=*:*: {var %url = $wildtok($1-,*youtube.com/*v=*, 1, 32)if ($youtube(%url)) {tokenize 9 $ifmatch; Author -> $1; Duration -> $2; Rating -> $3; Date (last updated OR published) -> $4; Preview Picture -> $5; Title -> $6$iif($post,msg,echo $color(info)) $iif($chan,$chan,$nick) 1,15You0,4Tube: $6 (Rating: $3 $+ ) from: $1 Date: $4 Duration: $2 Preview: $5}}on *:text:*youtu.be*:*:{var %url = $wildtok($1-,http://youtu.be/*, 1, 32)if ($len(%url)) {%url = /?v= $+ $gettok(%url,3,47)if ($youtube(%url)) {tokenize 9 $ifmatch$iif($post,msg,echo $color(info)) $iif($chan,$chan,$nick) 1,15You0,4Tube: $6 (Rating: $3 $+ ) from: $1 Date: $4 Duration: $2 Preview: $5}}}alias youtube {; http://www.youtube.com/watch?v=B0fFDk2M0zE&feature=fvhl#cookie; example: $youtube(...youtube.com/watch?v=vid)var %x = $gettok($1-,1,35) , %o = $null, %r = $null, %y = 0%x = $gettok(%x,2-,63)%y = $numtok(%x,38)while (%y) {%o = $gettok(%x,%y,38)if ($gettok(%o,1,61) == v) { %r = $gettok(%o,2,61) }dec %y}if (!$len(%r)) { return $false }else { %x = %r }if ($download(tmpfile,GET,http://gdata.youtube.com/feeds/api/videos/ $+ %x ,2)) {bread tmpfile 0 $lof(tmpfile) &binvar %string = $b(&bin,<author>)if ($regex(%string,/<author><name>(.*)</name>/ig)) { var %author = $regml(1) }var %string = $b(&bin,<yt:duration)if ($regex(%string,/<yt:duration seconds='([d]+)'/>/ig)) { var %duration = $duration($regml(1),3) }var %string = $b(&bin,<gd:rating)if ($regex(%string,/average='([^']+)' max='([d]+)'/ig)) { var %rating = $round($regml(1),3) }var %string = $b(&bin,<title)if ($regex(%string,/type='text'>([^<]+)/ig)) { var %title = $regml(1) }var %string = $b(&bin,<updated>)if ($regex(%string,/<updated>([d]{4})-([d]{2})-([d]{2})T([d]{2}:[d]{2}):/ig)) { var %date = $regml(3) $+ . $+ $regml(2) $+ . $+ $regml(1) $regml(4) }else {var %string = $b(&bin,<published>)if ($regex(%string,/<published>([d]{4})-([d]{2})-([d]{2})T([d]{2}:[d]{2}):/ig)) { var %date = $regml(3) $+ . $+ $regml(2) $+ . $+ $regml(1) $regml(4) }}var %preview = http://i.ytimg.com/vi/ $+ %x $+ /0.jpgif ($isfile(tmpfile)) { !.remove tmpfile }if (!$len(%author)) var %author = n/aif (!$len(%duration)) var %duration = 00:00:00if (!$len(%date)) var %date = n/aif (!$len(%preview)) var %preview = n/aif (!$len(%title)) var %title = n/aif (!$len(%rating)) var %rating = n/a%x = $t(%author,%duration,%rating,%date,%preview,%title)}else { var %x = $false }if ($isfile(tmpfile)) { !.remove tmpfile }return %x}alias -l t { var %x = $0,%o | while (%x) { %o = $ [ $+ [ %x ] ] $+ $chr(9) $+ %o | dec %x } | return %o }alias -l b { return $bvar($1,$bfind($1,1,$2).text,$iif($version > 6.31,4000,800)).text }

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this