on OpenProxy:join:#:{ if ($nick != $me) { .gline $nick Yasaklanmıştır.. } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
  title "Proxy List Korumasi"
  size -1 -1 200 280 
  button "Tamam", 1, 110 200 70 20,ok, flat
  list 2, 10 20 180 135, sort 
  box "Ceza Listesi", 3, 5 5 190 145 
  edit "*!*@", 4, 10 165 180 20, autohs
  box "Eklenecek İp'yi Girin", 5, 5 150 190 45
  button "İp Ekle", 6, 20 200 70 20, flat
  box "Not:", 7, 5 225 190 45 
  text "İp'yi Kaldirmak icin İp'nin Uzerine Cift Tiklayin", 8, 25 240 140 45  
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{ 
  if ($ulist(*,OpenProxy,0) != $null) { 
    set %prx.Proxy 0
    while (%prx.Proxy < $ulist(*,OpenProxy,0)) { 
      inc %prx.Proxy 1 
      did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy) 
    }      
    unset %prx.Proxy 
  } 
}
on *:snotice:*client connect*:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) | if ($level(%full) == OpenProxy) { .gline $9 Yasaklanmıştır.. }