YouTube Infos

[chain]

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 }