Youtube IGBot

on *:text:!tube *:#:{
  set %tube.site http://gdata.youtube.com/feeds/api/videos?q= $+ $2- $+ &v=2&alt=jsonc&max-results=2&start-index=1
  set %tube.1.title $json(%tube.site,data,items,0,title)
  set %tube.1.time.min $round($calc($json(%tube.site,data,items,0,duration) / 60 ),0)
  set %tube.1.time.sec $calc($json(%tube.site,data,items,0,duration) - $calc(%tube.1.time.min * 60))
  if (%tube.1.time.sec < 10) { set %tube.1.time %tube.1.time.min $+ :0 $+ %tube.1.time.sec }
  if (%tube.1.time.sec >= 10) { set %tube.1.time %tube.1.time.min $+ : $+ %tube.1.time.sec }
  set %tube.1.type $json(%tube.site,data,items,0,category)
  set %tube.1.uploader $json(%tube.site,data,items,0,uploader)
  set %tube.1.view $json(%tube.site,data,items,0,viewCount)
  set %tube.uploaded $mid( $json(%tube.site,data,items,0,uploaded),1,10)
  set %tube.1.link $json(%tube.site,data,items,0,player,default)
  set %tube.1.id $json(%tube.site,data,items,0,id)
  set %tube.1.desc $mid($json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.1.id $+ ?v=2&alt=jsonc,data,description),1,229)
  msg $chan 1,0You0,4Tube 4Title  $+ %tube.1.Title 4Length  $+ %tube.1.Time 4Type  $+ %tube.1.Type 4Views  $+ %tube.1.View 4 Added  $+ %tube.Uploaded 4Link  $+ %tube.1.Link
  msg $chan 4Description  $+ %tube.1.desc
  unset %tube.*
}
on *:text:*:#:{
  if (*http://www.youtube.com/watch?v=* iswm $1-) {
    var %tube.link $strip($wildtok($1-,*http://www.youtube.com/watch?v=*,1,32))
    set %tube.bid $remove(%tube.link,http://www.youtube.com/watch?v=)
    set %tube.id $mid(%tube.bid,1,11)
    set %tube.chan $chan
    /youtube
  }
  elseif (*http://www.youtube.com/v/* iswm $1-) {
    set %tube.link $strip($wildtok($1-,*http://www.youtube.com/v/*,1,32))
    set %tube.bid $remove(%tube.link,http://www.youtube.com/v/)
    set %tube.id $mid(%tube.bid,1,11)
    set %tube.chan $chan
    /youtube
  }
  elseif (*http://m.youtube.com/* iswm $1-) {
    set %tube.link $strip($wildtok($1-,*http://m.youtube.com/*,1,32))
    set %tube.bid $remove(%tube.link,http://m.youtube.com/details?v=)
    set %tube.id $mid(%tube.bid,1,11)
    set %tube.chan $chan
    /youtube
  }
}
alias youtube {
  set %tube.title $json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,title)
  set %tube.uploader $json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,uploader)
  set %tube.view $json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,viewCount)
  set %tube.uploaded $mid($json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,uploaded),1,10)
  set %tube.desc $mid($json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,description),1,229)
  set %tube.time.min $round($calc($json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,duration) / 60 ),0)
  set %tube.time.sec $calc($json(http://gdata.youtube.com/feeds/api/videos/ $+ %tube.id $+ ?v=2&alt=jsonc,data,duration) - $calc(%tube.time.min * 60))
  if (%tube.time.sec < 10) { set %tube.time %tube.time.min $+ :0 $+ %tube.time.sec }
  if (%tube.time.sec >= 10) { set %tube.time %tube.time.min $+ : $+ %tube.time.sec }
  msg %tube.chan 1,0You0,4Tube - 4Title:  $+ %tube.Title 4Author:  $+ %tube.Uploader 4Views:  $+ %tube.View 4Time:  $+ %tube.Time 4Added:  $+ %tube.Uploaded
  msg %tube.chan 4Description:  $+ %tube.desc
  unset %tube.*
}