on *:snotice:*: {
  if *Client connecting on port* iswm $1- {
    prx $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(64))
  }
}
alias prx {
  var %port   9051 81 3128 6345 8080 36081 3129 83 8086 8888 8123 443 82 54321 6515 8001 1080 48191 49145 1062 49739 1283 1218 1751 1553 8090
  var %i = 1
  while %i <= $gettok(%port,0,32)  {
    sockopen $+($1,:,$gettok(%port,%i,32)) $1 $gettok(%port,%i,32) )
    $+(.timer,$1,:,$2)) 1 3 sockclose $+($1,:,$gettok(%port,%i,32))
    inc %i
  } 
}
 
on *:sockopen:*.*.*: {
  if ($sockerr) { sockclose $sockname | return } 
  else {
    ;echo Proxy:  $sock($sockname).port - $sock($sockname).ip Tip: $sock($sockname).type Durum: $portfree($sockerr)
    if $portfree($sockerr) { 
      pun  $sock($sockname).ip 1d $+([proxy=,$sock($sockname).ip,:,$sock($sockname).port,]) 
    }
  }
}
 
on *:sockread:*.*.*: {
  sockread %s
  tokenize 32 %s
  if *.*.*:* iswm $sockname {
    if $regex(%s,.*HTTP\/1\.. 200 .*) {
      pun  $sock($sockname).ip 1d $+([proxy=,$sock($sockname).ip,:,$sock($sockname).port,@]) 
    }
    if *<?>* iswm %s && $regex(%s,.*HTTP ERROR: 501 Method+NICK+.*) {
      pun  $sock($sockname).ip 1d $+([proxy=,$sock($sockname).ip,:,$sock($sockname).port,-]) 
    }
 
  }
}
alias pun { gzline $+(*@,$1-) | .sockclose $+($1,*) }