mIRC Alias imgur Script

alias imgur {
  sockclose imgur
  set %imgurURL /upload?url= $+ $iif($1,$1,$gettok($cb,1,32))
  set %imgurI . $+ $gettok($gettok($iif($1,$1,$gettok($cb,1,32)),-1,46),1,63)
  sockopen imgur imgur.com 80
}

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

on *:SOCKREAD:imgur: {
  var %i
  sockread %i
  while ($sockbr) {
    if (Location: isin %i) {
      if (http://imgur.com/?error isin %i) {
        echo -ag 4Imgur: Invalid URL
      }
      else {
        var %i = $replace($gettok(%i,2,32),http://,http://i.) $+ %imgurI
        clipboard %i
        echo -ag 4imgur: %i
      }
      unset %imgurI
      unset %imgurURL
      sockclose imgur
      return
    }
    sockread %i
  }
}