dialog ipbu {
  title "IP Listesi"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Yasak IP", 3, 5 5 190 145 
  edit "", 4, 10 165 180 20, autohs
  box "Eklenecek IP Girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "BILGI:", 7, 5 225 190 35 
  text " IP SiLmek için üzerine Çift TıkLa", 8, 25 240 180 45  
}
on *:dialog:ipbu:dclick:2:{ .ruser ipim $did(2).seltext | did -d ipbu 2 $did(2).sel }
on *:dialog:ipbu:sclick:6:{ if ($did(4) != $null) { did -a ipbu 2 $did(4) | .auser ipim $did(4) | did -fr ipbu 4 } }
on *:dialog:ipbu:init:*:{ 
  if ($ulist(*,ipim,0) != $null) { 
    set %ccppuu 0
    while (%ccppuu < $ulist(*,ipim,0)) { 
      inc %ccppuu 1 
      did -a ipbu 2 $ulist(*,ipim,%ccppuu) 
    }      
    unset %ccppuu 
  }
}
on *:snotice:*connecting on*:{
  if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
  if ($level($9) == muafnlist) { halt }
  var %:ip $remove($gettok($10,2,64),$chr(41))
  if $level($remove($gettok($10,2,64),$chr(41))) == ipim {
     .gline $+(*@,%:ip) 1d yasaklı listesindesiniz.. 
  }
}
menu query,channel,status {
  .» Yasaklı IP:.Dialog -m ipbu ipbu
}