menu menubar,status,channel {
  . Proxy Koruması
  ..Açık:.enable #MKSProxy | echo -a %mksLogo 14,1 Proxy Koruması 4,1Devrede.. 
  ..Kapalı:.disable #MKSProxy | echo -a %mksLogo 14,1 Proxy Koruması 4,1Devredışı..  
}
#MKSProxy off

on ^*:snotice:*: { 
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
}
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128 
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 8000
  sockopen $+(kontrol,$r(1,999999999)) $1- 6588
  sockopen $+(kontrol,$r(1,999999999)) $1- 3124
  sockopen $+(kontrol,$r(1,999999999)) $1- 50050
  sockopen $+(kontrol,$r(1,999999999)) $1- 8008
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gline *@ $+ $sock($sockname).ip +0 9,1PrøXy 4,1ƒø®ßiddêñ0,1!!  %mksLogo 
    echo -a 4,1Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4,1 $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 
  }
}

#MKSProxy end