alias proxyy dialog -m proxy proxy
dialog proxy {
  title "Poxy Koruması..."
  size -1 -1 165 104
  option dbu
  box " Proxy Listesi ", 1, 4 6 103 91
  box " İşlemler ", 2, 110 6 50 91
  button "+ EKLE", 3, 116 16 37 12
  text "İp Adres", 4, 7 15 25 8
  edit "", 5, 35 14 68 10
  list 6, 7 26 96 67, size
  button "- SİL", 7, 116 33 37 12
  button "TAMAM", 8, 116 50 37 12, ok
}

on *:dialog:proxy:sclick:*:{
  if ($did = 7) {
    ruser ip $did($dname,6).seltext | did -d proxy 6 $did($dname,6).sel
  }
  if ($did = 3) { if ($did($dname,5) != $null ) { .auser ip $did($dname,5) | did -a proxy 6 $did($dname,5) } }
}

on *:dialog:proxy:init:0: {
  var %x = 1
  while (%x <= $ulist(*,ip,0)) { 
    did -a proxy 6 $ulist(*,ip,%x)
    inc %x 
  }
}

on @ip:join:#: {
  if $istok(%muafn,$nick,32) == $true { halt }
  if $istok(%muafall,#,32) == $true { halt }
  if $istok(%muaf10,#,32) == $true { halt }
  if (%proxy == 1) && ($me isop $chan) && ($nick !isop #) {
    ban # $wildsite | .kick # $nick %proxy.yazi 
    echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Proxy Kullanımı  1Sebebinden Atılmıştır.
  }
}

#MKSProxy on
 
menu menubar,status,channel {
  . 1 $chr(11) Proxy Koruması
  ..Açık:.enable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devrede.. 
  ..Kapalı:.disable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devredışı..  
}
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 14Proxy Girişi Yasaktır %mksLogo 
    echo -a 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 
  }
}
}
#MKSProxy off