Code:
 
    sockopen proxy <httpproxy> <port>

on *:sockopen:proxy: {
  if ($sock($sockname).status == active) {
    sockwrite -tn $sockname CONNECT <ircserver>:<port> HTTP/1.0
    sockwrite -tn $sockname $lf
  }
}

on *:sockread:proxy: {
  if ($sockerr > 0) return
  :sockread
  sockread %read
  if ($sockbr == 0) return
  if (%read) {
    if (($gettok(%read,2,32) == 200) || ($gettok(%read,2,32) == 504)) {
        sockwrite -n $sockname NICK <nick>
   sockwrite -n $sockname USER ...
}
    if ($gettok(%read,1,32) == PING) {   
       sockwrite -n $sockname PONG : $+ $gettok(%read,2,58)
    }
  }
  goto sockread
}