on *:snotice:*client*connecting*:pscan $left($gettok($10,2,64),-1)
alias pscan {
  if (!$1) { halt }
  var %ip $1,%random $+($rand(111,999),$rand(111,999),$rand(111,999))
  sockopen $+(port,%random) %ip 9050
  $+(.timer,%random) 1 5 /sockclose $+(port,%random)
}
on *:sockopen:port*:{ if ($sockerr < 1) { gzline *@ $+ $sock($sockname,1).ip +5h Proxy! | echo 4 -at Proxy IP : $sock($sockname,1).ip $sock($sockname,1).port | sockclose $sockname } }