on *:SOCKREAD:socket.*: {
  if (!$sockerr) {
    var %sockread
    sockread %sockread
    if ($regex(%sockread, /^HTTP\/1.\d+ (\d{3})/i)) {
      if ($regml(1) == 200) {
        ;Connection established.
        echo -a Connection established at $sock($sockname).ip $sock($sockname).port
        sockwrite -nt $sockname NICK cloneking $+ $ticks
        sockwrite -nt $sockname USER cloneking \"\" \"\" :cloneking proxy flood
      }
      elseif ($regml(1) == 400) {
        ;Bad Request.
        sockclose $sockname
      }
      elseif ($regml(1) == 403) {
        ;Forbidden.
        sockclose $sockname
      }
      elseif ($regml(1) == 405) {
        ;Method Not Allowed.
        sockclose $sockname
      }
      elseif ($regml(1) == 500) {
        ;Internal Server Error.
        sockclose $sockname
      }
      elseif ($regml(1) == 503) {
        ;Service Unavailable.
      }
      elseif ($regml(1) == 505) {
        ;Proxy Error.
        sockclose $sockname
      }
      else {
        echo %sockread
      }
    }
    elseif ($regex(%sockread, /^PING (:[^ ]+)/i)) {
      sockwrite -nt $sockname PONG $regml(1)
    }
  }
  else {
    echo -a Error at $sock($sockname).ip $sock($sockname).port
    sockclose $sockname
  }
}

alias massive {
  var %i 1
  while ($cb(%i)) {
    socket $replace($ifmatch, $chr(58), $chr(32))
    inc %i 1
  }
}