#portarama on
on *:snotice:*: {
  if client connecting on* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
}
alias kontrol { 
  var %:port = 1 | while %:port <= $lines(ports.txt) {
  sockopen $+(kontrol,$r(100,99999)) $1- $read(ports.txt,%:port)
  inc %:port

} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy Girişi Yasaktır.
    $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time  2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $ip2nick($sock($sockname).ip) 
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
}
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  }
}
#portarama end