on *:join:#kanal:if (*!*@ip.* iswm $fulladdress)  { .ban -k # $nick Sebep! }

alias h.s { dialog -m hhst hhst }
dialog hhst {
  title "x"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  button "Ekle", 6, 20 200 70 20
  list 2, 10 20 180 135, sort  
  edit "", 4, 10 165 180 20, autohs
  box "Host Adresi", 3, 5 5 190 145
  box "Eklenecek Host`u Girin", 5, 5 150 190 45
  box "BILGI:", 7, 5 225 190 35 
  text "Host Silmek icin Host`a Cift Tıklayın", 8, 25 240 180 45  
}
on *:dialog:hhst:dclick:2:{ .ruser $did(2).seltext  | did -d hhst 2 $did(2).sel }
on *:dialog:hhst:sclick:6:{ if ($did(4) != $null) { did -a hhst 2 $did(4) | .auser hst $did(4) | did -fr hhst 4 } }
on *:dialog:hhst:init:*:{ 
  y.hst | did -f hhst 4
}      
alias y.hst {
  did -a hhst 2 $str($chr(160),18) Host Listesi
  var %x = 1
  while (%x <= $ulist(*,hst,0)) { 
    did -a hhst 2 $ulist(*,hst,%x)
    inc %x 
  }
}
on *:join:#kanal: {  if $level($gettok($address($nick,2),2,64)) == hst { mode $chan +b $nick   | kick $chan $nick yasak host } }