alias kpro {
  inc -u6 %xxxx
  sockopen kpro $+ %xxxx swiftbl.org 80
  sockmark $+(kpro*,%xxxx) $1
}
on *:sockopen:kpro*:{
  sockwrite -n $sockname GET /lookup?i= $+ $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 (This IP is listed  isin %kpro) {
    .gzline *@ $+ $sock($sockname).mark +0 Proxy Girisi Yasak! $date $time $+([,$pbotnick,]) 
    sockclose $sockname
  }
}
raw 352:*:{ kpro $4 } 
on *:snotice:*Client connecting*: { .who +I $9 }