Simple is the keyword. You don't need any registrations or API keys.
Just load the script and it should work in any channel your bot is in.
Important: mIRC v7.56+ is required, because of $urlget function.

How to install:

Let's assume your mIRC is installed in D:\mIRC\

1. Copy and save the script code in a file. For example: youtube_title.mrc
2. Put the saved file in your scripts folder (example: D:\mIRC\scripts)
3. Open mIRC and do: //load -rs scripts/youtube_title.mrc

How to Uninstall:

1. Open mIRC and do: //unload -rs scripts/youtube_title.mrc
   That's it. No garbage or variables left behind.

The script can easily break if YouTube make changes to their website.
If it is broken or you find a bug or you have a suggestion - leave a comment below.
I will try to keep the script in working condition and fix bugs as soon as possible.

; Simple YouTube Title Announcer v0.1 - MMX 2022
; Requires mIRC v7.56+ (because of $urlget)

ON $*:TEXT:/(https\x3a\/\/|www\.)([\S]*youtube\.com[\S]+v\=|youtu\.be\/)([\S]{11})/Si:#:{
  if ($regml(3)) {
    var %url $+(https://m.youtube.com/watch?persist_app=1&app=m&v=,$regml(3))
    var %id $urlget(%url,gbi,&ytdata,yt_get_title $chan)
  }
}
alias -l yt_get_title {
  var %chan $1, %id $2
  if ($bfind($urlget(%id).target,1,/title":\{"runs":\[\{"text":"(.*?)"\}/Sig).regex) {
    msg %chan 01You00,04Tube: $yt_dehex($regml(1))
  }
}
alias -l yt_dehex {
  var %title $regsubex($1-,/\\u(.{4})/ig,$chr($base(\1,16,10)))
  return $replace(%title,\",",\\,\,\\\\,\\)
}

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 }

Requested by H0LLYWOOD

 

 

Remote script for a bot that will resolve valid Youtube links and return the title and some other information about the video to channels the script is turned on for.

SCREEN:

 

Usage:

Copy this code, paste it to a new remote and save with a unique filename.

Type +ytdetect in each channel you want the script to run in.(Requires Ops or higher)

-ytdetect to turn the script off for a channel.

>;YouTube Link detector by Ford_Lawnmower irc.Geekshed.net #Script-Helpalias -l GetLinkDetectorForYoutube {  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Start Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;; Change %tagcolor to the color you want for tags:  var %tagcolor $+($chr(15),$chr(2))  ;;;; Change %textcolor to the color you want for normal text  var %textcolor $+($chr(15),$chr(3),04)  ;;;; Change %logo to change the YouTube logo  var %logo $+($chr(2),$chr(3),01,$chr(44),00You,$chr(3),00,$chr(44),04Tube,$chr(2))  ;;;; Change %tagSelection to choose the tags you want displayed.  ;;;; Valid tags are: title views likes dislikes uploader and date   var %tagSelection title views likes dislikes uploader date  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  var %sockname $+(LinkDetectorForYoutube,$network,$2,$ticks,$r(1,1000))  hadd -m %sockname tags %tagSelection  hadd %sockname tagcolor %tagcolor  hadd %sockname textcolor %textcolor  hadd %sockname logo %logo  sockopen %sockname www.youtube.com 80  sockmark %sockname $1-2 $+(/watch?v=,$3)}menu Channel,Status {  .$iif($group(#LinkDetectorForYoutube) == On,$style(1)) LinkDetectorForYoutube  ..$iif($group(#LinkDetectorForYoutube) == On,$style(2)) On: .enable #LinkDetectorForYoutube  ..$iif($group(#LinkDetectorForYoutube) == Off,$style(2)) Off: .disable #LinkDetectorForYoutube}#LinkDetectorForYoutube onOn $*:Text:/(^[\+-])ytdetect$|(http\x3a\/\/|www\.)[\S]*youtube.com[\S]+\=([\w\d-\S]{11})/Si:#: {  var %action $strip($regml(1)), %id $strip($regml(2))  if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) {    if (%action == +) {      if ($istok(%LinkDetectorForYoutubeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is already running the LinkDetectorForYoutube script }      else {         .enable #LinkDetectorForYoutube        set %LinkDetectorForYoutubeChanList $addtok(%LinkDetectorForYoutubeChanList,$+($network,$chan),32)        .msg $chan $nick has activated the LinkDetectorForYoutube script for $chan .      }    }    else {      if (!$istok(%LinkDetectorForYoutubeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is not running the LinkDetectorForYoutube script }      else {         Set %LinkDetectorForYoutubeChanList $remtok(%LinkDetectorForYoutubeChanList,$+($network,$chan),1,32)        .msg $chan $nick has deactivated the LinkDetectorForYoutube script for $chan .       }    }  }  elseif (!$timer($+(LinkDetectorForYoutube,$network,$nick))) && ($istok(%LinkDetectorForYoutubeChanList,$+($network,$chan),32)) {    .timer $+ $+(LinkDetectorForYoutube,$network,$nick) 1 4 noop    GetLinkDetectorForYoutube .msg # %id  }}#LinkDetectorForYoutube endOn *:sockopen:LinkDetectorForYoutube*: {  if (!$sockerr) {    sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0    sockwrite -n $sockname Host: $sock($sockname).addr    sockwrite -n $sockname $crlf  }  else { sockclose $sockname | return }}On *:sockread:LinkDetectorForYoutube*: {  if ($sockerr) { sockclose $sockname | return }  else {    var %LinkDetectorForYoutube | sockread %LinkDetectorForYoutube    if ($regex(%LinkDetectorForYoutube,/(.*?).*(.*?)/)) {       hadd $sockname likes $+($hget($sockname,tagcolor),Likes:) $+($hget($sockname,textcolor),$regml(1))       hadd $sockname dislikes $+($hget($sockname,tagcolor),Disikes:) $+($hget($sockname,textcolor),$regml(2))      if ($hget($sockname,tags)) $gettok($sock($sockname).mark,1-2,32) $hget($sockname,logo) $Xchr($regsubex($v1,/([\S]+)/g,$hget($sockname,\t)))      if ($hget($sockname)) hfree $sockname      sockclose $sockname    }    elseif ( isin %LinkDetectorForYoutube) hadd $sockname viewsFound 1    elseif ($hget($sockname,viewsFound)) && ($regex(%LinkDetectorForYoutube,/(.*?)/)) {      hadd $sockname viewsFound 0      hadd $sockname views $+($hget($sockname,tagcolor),Views:) $+($hget($sockname,textcolor),$regml(1))     }    elseif ($regex(%LinkDetectorForYoutube,/(.*?).*class="watch-video-date"\s>(.*?)/)) {      hadd $sockname uploader $+($hget($sockname,tagcolor),Uploader:) $+($hget($sockname,textcolor),$regml(1))      hadd $sockname date $+($hget($sockname,tagcolor),Upload Date:) $+($hget($sockname,textcolor),$regml(2))    }    elseif ($regex(%LinkDetectorForYoutube,/class="long-title".*title="(.*?)">/)) {      hadd $sockname title $+($hget($sockname,tagcolor),Title:) $+($hget($sockname,textcolor),$regml(1))    }    elseif ($regex(%LinkDetectorForYoutube,//)) {      hadd $sockname title $+($hget($sockname,tagcolor),Title:) $+($hget($sockname,textcolor),$regml(1))    }  }}on *:sockclose:LinkDetectorForYoutube*: if ($hget($sockname)) hfree $socknamealias -l Xchr {   var %return $regsubex($regsubex($1-,/([A-F0-9]{1,2});/g,$chr($base($regml(\n),16,10))),/([0-9]{2});/g,$chr(\1))   return $replacecs(%return,–,–,·,·,»,»,«,«,Ü,Ü,ü,ü,Á,Á,á,á,É,$&    É,é,é,Í,Í,í,í,Ó,Ó,ó,ó,Ñ,Ñ,ñ,ñ,Ú,Ú,ú,ú, ,$chr(32),$&    æ,æ,",")} 

IMPORTANT:

I do not own youtube.com...

 

VERSIONS:

v1.0 (original) http://pastebin.com/ydjkA3E2 --Initial Upload (Search and Parse)

v2.1 http://pastebin.com/VaqPj282 -- Updated for youtu.be and included multiple links

v2.2 (current) http://pastebin.com/Xf3sJZ7G -- Update to remove some formatting [[$chr(31)]]

 

INFO:

April 25, 2011

My Second Snippet to post.

Just posting because it would be interesting to get some feedback.

I know no coding languages besides mSl and I am limited in that.

I can be contacted via reply.anonymouse+forward@gmail.com

I can be found at irc.rizon.net:6667 #rsbot_help name nick1

Quick Chat Link, feel free to leave a message for me http://t.ard.me/be or just to chat.

 

DIRECTIONS:

Copy entire code and paste into remote section of a new script (File

Used to automatically parse youtube links and give info either by an echo to you or via a channel message

Default is to message a channel with info only if you are an op or above, OR you have specified you want to by typing in the channel !youtube (to shut off use !noyoutube)

Search using @ysearch

Or search using commands such as @youtube

"!" commands will notice the user "@" commands will be public

 

Let me know when its broken//what you want changed.

 

--Feedback greatly appreciated

 

--If you don't like it lick it.

>;YouTube Script (Parse Vids and Search) v2.2;Made by nick1;Last edit June 2 2011 raw 408:*: msg $2 $remove($strip($13-),$chr(9)) on $*:text:/^[!@]y(outube|t|tsearch|search|ousearch|outubesearch)/Si:*:{  if ($($+(%,botflood.,$nick),2)) {    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 }    elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }    else { inc -z $+(%,botflood.,$nick) 25 }  }  else { inc -z $+(%,botflood.,$nick) 25 }  var %ticks $ticks  if ($2) {    set $+(%,ysearch.,%ticks,.msgtype) $iif($left($strip($1),1) == @,msg $chan,notice $nick)    set $+(%,ysearch.,%ticks,.search) $replace($2-,$chr(32),+)    sockopen $+(ysearch.,%ticks) youtube.com 80  }  elseif ($2 == $null) { msg $chan $+(4,$nick,,$chr(44)) 10Incorrect Syntax: Try ! or @ 4YOUTUBE10  }} on *:input:*:{  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)) == youtube) || ($remove($1,$left($strip($1),1)) == youtubesearch)) {    set $+(%,ysearch.,$ticks,.msgtype) msg $active    set $+(%,ysearch.,$ticks,.search) $replace($2-,$chr(32),+)    sockopen $+(ysearch.,$ticks) youtube.com 80  }  elseif (*youtube.com* iswm $1-) {    set %i 1    while (%i 12[4,YOUTUBE,12])10 Error Encountered! | unset %youtube.*  }} on *:sockopen:ysearch*: {    set %checksockname $sockname   .timerCheck 1 5 checkifsockopen   sockwrite -nt $sockname GET /results?search_query= $+ $($+(%,ysearch.,$remove($sockname,ysearch.),.search),2) HTTP/1.1  sockwrite -nt $sockname Host: www.youtube.com  sockwrite -nt $sockname $crlf} alias nohtml { return $regsubex($$1-,/^[^|]*>|]*$/g,) } on *:SOCKREAD:ysearch*: {   if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }  sockread %sockreader  if (** iswm %sockreader) {    set $+(%,ysearch.,$remove($sockname,ysearch.),.title) $regsubex($nohtml($replace($remove(%sockreader,|),[b],,[/b],,",",&,&)),/(\d\d?\d?\d?);/g,$chr(\1))    tokenize 34 %sockreader    set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $2  }  elseif (*
,[/b],,",",&,&)),/(\d\d?\d?\d?);/g,$chr(\1))    tokenize 34 %sockreader    set $+(%,ysearch.,$remove($sockname,ysearch.),.tag) $4  }  elseif (** iswm %sockreader) {    set $+(%,ysearch.,$remove($sockname,ysearch.),.time) $nohtml($remove(%sockreader,Add to,Added,to,queue))  }  elseif (** iswm %sockreader) {    set $+(%,ysearch.,$remove($sockname,ysearch.),.user) $remove($nohtml(%sockreader),by)  }  elseif (** iswm %sockreader) {    set $+(%,ysearch.,$remove($sockname,ysearch.),.viewcount) $remove($nohtml(%sockreader),|,views)    $($+(%,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)    unset $+(%,ysearch.,$remove($sockname,ysearch.),*)    sockclose $sockname  }}   on $*:text:/youtu(.be|be.com)/Si:*: {  if (($chan != #nova) && ($nick != Runescript)) {    if ($($+(%,botflood.,$nick),2)) {      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 }      elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }      else { inc -z $+(%,botflood.,$nick) 10 }    }    else { inc -z $+(%,botflood.,$nick) 10 }    set %i 1    var %ticks $ticks    while (%i 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)          else { $($+(%,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) }      set %_youtube.last $($+(%,youtube.,$remove($sockname,youtube.),.tag),2)      unset $+(%,youtube.,$remove($sockname,youtube.),*)      sockclose youtube    }  }} 

on *:load:if (!$isdir(YouTube Videos)) mkdir "YouTube Videos"

alias yvs { dialog $iif($dialog(yvs),-v,-md) yvs yvs }

dialog -l yvs {

  title "Youtube Video Searcher"

  size -1 -1 157 44

  option dbu

  box "Search", 1, 0 0 156 48

  edit "", 2, 8 9 140 10

  button "Search", 3, 63 21 36 12

  text "Click Search to Search www.youtube.com", 4, 0 35 156 8, center

  box "Results", 5, 0 48 156 124

  list 6, 4 57 148 111, size

  box "Video Search Info", 7, 0 172 156 64

  text "Name:", 8, 6 182 18 8

  edit "", 9, 30 181 122 10, read autohs

  text "Length:", 10, 6 194 21 8

  edit "", 11, 29 193 44 10, read autohs

  text "Rating:", 12, 78 194 19 8

  edit "", 13, 101 193 50 10, read autohs

  text "Date Added:", 14, 6 205 32 8

  edit "", 15, 44 204 107 10, read autohs

  text "Author:", 16, 78 215 21 8

  edit "", 17, 101 214 50 10, read autohs

  link "", 18, 23 225 109 9

  text "Total Views:", 19, 6 215 30 8

  edit "", 20, 39 214 35 10, read autohs

}

on *:dialog:yvs:*:*: {

  if ($devent == init && !$isdir($mircdirYoutube Videos)) { mkdir "Youtube Videos" }

  elseif ($devent == sclick) {

    if ($did == 3 && $did(2) && !$sock(yvs.yt)) {

      dialog -s yvs -1 -1 314 344

      did -ra yvs 4 Searching www.youtube.com

      did -r yvs 6

      did -ra YVS 5 Results

      if ($hget(YVS)) .hfree YVS

      if ($hget(YTS)) .hfree YTS

      sockopen yvs.yt youtube.com 80

      sockmark yvs.yt $replace($did(2),$chr(32),+)

    }

    elseif ($did == 6) {

      dialog -s yvs -1 -1 314 472

      var %a = 11 18 20 9 17 15 13,%b = 1

      did -ra YVS $replace(%a,$chr(32),$chr(44))

      while ($gettok(%a,%b,32)) {

        did -ra YVS $v1 $iif($gettok($hget(YVS,$did(6).sel),%b,9),$v1,Not Found.)

        inc %b

      }

    }

    elseif ($did == 18) { url -an $did(18) }

  }

  elseif ($devent == dclick && $did(6).sel) {

    yt.s $gettok($hget(YVS,$did(6).sel),2,9)

    .hadd -m YTS Name $did(6).seltext

  }

}

on *:sockopen:yvs.yt: {

  sockwrite -nt $sockname GET $+(/results?search_query=,$sock($sockname).mark,&search_type=&aq=f) HTTP/1.1

  sockwrite -n $sockname HOST: youtube.com $+ $crlf $+ $crlf

}

on *:sockread:yvs.yt: {

  var %yt | sockread %yt

  if (No videos found for isin %yt) {

    sockclose $sockname

    did -ra YVS 4 No Videos Found.

    dialog -s YVS -1 -1 314 96

  }

  elseif ($regex(%yt,/