#port on
on *:snotice:*: { 
  if client connecting* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    kontrol %:ip 
    hadd -m kontrol %:ip $9 
    halt 
  } 
} 
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8000 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8118
}
alias kontrol {
  var %i 1
  while %i <= $hget(proxyport,0).item {
    if $hget(proxyport,%i).item == [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 {
      if 81.21* !iswm $1- {
        sockopen $+(kontrol,$r(1,999999999)) $1- 80
      }
    }
    else {
      sockopen $+(kontrol,$r(1,999999999)) $1- $hget(proxyport,%i).item 
    }
    inc %i
  }
}
on *:sockopen:kontrol*: { 
  if !$sockerr {
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } | echo $color(info) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(,$sock($sockname).ip,3:,$sock($sockname).port,).ip) 
    echo -s Proxy giriş tespit edildi: IP: $sock($sockname).ip - port: $sock($sockname).port
    sockclose $sockname
  }
}
alias _hx {
  if $prop !=   {
  }
  var %l 1, %r
  while %l <= $len($1-) {
    %r = %r $+ $base($asc($mid($1-,%l,1)),10,16,2)
    inc %l
  }
  return %r
}
#port end

sockopen $+(kontrol,$r(1,999999999)) $1- 8080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8000 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8118