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 *:join:#:if $level($gettok($address($nick,2),2,64)) == ip && ($nick !isop #) { kline $nick 1d 12Proxy Kullanımı 1Sebebinden Atılmıştır. | echo -s + $timestamp 4 $+ $nick 12Proxy Kullanımı 1Sebebinden Atılmıştır. }