mIRC Alias TinyURL Script

alias tiny {
  sockclose TinyURL
  set %TinyURL /api-create.php?url= $+ $iif($1,$1,$gettok($cb,1,32))
  sockopen TinyURL tinyurl.com 80
}

on *:SOCKOPEN:TinyURL: {
  sockwrite -n TinyURL GET %TinyURL HTTP/1.1
  sockwrite -n TinyURL Host: tinyurl.com
  sockwrite TinyURL $crlf
}

on *:SOCKREAD:TinyURL: {
  var %T
  sockread %T
  while ($sockbr) {
    if (http://tinyurl.com/ isin %T) {
      clipboard %T
      echo -ag 4TinyURL: %T
      unset %TinyURL
      sockclose TinyURL
      return
    }
    sockread %T
  }
}