alias prx {
inc -u4 %xxxx
sockopen prx $+ %xxxx imanlisohbet.net 80
sockmark $+(prx*,%xxxx) $1
}
on *:sockopen:prx*:{
sockwrite -n $sockname GET /ips.php?q= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Host: imanlisohbet.net $+ $crlf $+ $crlf
}
on *:sockread:prx*:{
var %prx
sockread %prx
if (proxy listed isin %prx) {
.gzline *@ $+ $sock($sockname).mark : Proxy-yasak
sockclose $sockname
}
}
raw 352:*:{ prx $4 } 
on *:snotice:*Client connecting*: { .who +I $9 }