alias kpro {
  inc -u6 %xxxx
  sockopen kpro $+ %xxxx abc.com 80
  sockmark $+(kpro*,%xxxx) $1
}
on *:sockopen:kpro*:{
  sockwrite -n $sockname GET /proxyip.htm $+ $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
}
on *:sockread:kpro*:{
  var %kpro
  sockread %kpro
  if ($+ $sock($sockname).mark  isin %kpro) { halt }
else {
  sw $sockname privmsg #operlog $sock($sockname).mark +0 Proxy Girisi Yasak! $date $time $+([,$pbotnick,]) 
    sockclose $sockname
  }
}