mIRC Bot imgur Script

on $*:TEXT:/^[~!@\.^]imgur ./i:#: {
  sockclose imgur
  set %imgur# $chan
  set %imgurURL /upload?url= $+ $2
  set %imgurI . $+ $gettok($gettok($2,-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) {
      var %i = $replace($gettok(%i,2,32),http://,http://i.) $+ %imgurI
      msg %imgur# $iif(http://i.imgur.com/?error isin $gettok(%i,2,32),imgur: Error,%i)
      unset %imgur*
      sockclose imgur
      return
    }
    sockread %i
  }
}