alias hkn { dialog -m hknprv hknprv }
on *:open:?:*:{
  if !$istok(%krq,$nick,32) == $true { halt }
  close -m $nick
  ignore $nick
  notice $nick Özelime Yazdığınız İçin Engellendiniz.
}
on *:text:$(* $+ $me $+ * ):#:{
  if !$istok(%krq,$nick,32) == $true { halt }
  close -m $nick
  ignore $nick
  notice $nick Kanal Genelinde Nickimi Yazdığınız İçin Engellendiniz.
}
dialog hknprv {
  title "Nick Engelleme"
  size -1 -1 101 140
  option dbu
  list 1, 1 0 97 106, size
  edit "", 2, 3 110 62 11, center
  button "Ekle", 3, 67 110 29 11
  text "Silmek için nickin üstüne çift tıkla", 4, 9 127 85 8
}
on *:dialog:hknprv:init:0: {
  if (%krq) .didtok $dname 1 32 $ifmatch
}
on *:dialog:hknprv:sclick:*: {
  if ($did == 3) {
    if ($did(2) != $null) {
      set -u %ozel $did(2) 
      if (%ozel) && (!$istok(%krq,%ozel,32)) {
        .set %krq $addtok(%krq,%ozel,32) 
        did -a $dname 1 %ozel 
      } 
    }
  }
}
on *:dialog:hknprv:dclick:*: {
  if ($did(1).sel > 0) { 
    .ignore -r $did(1).seltext
    .set %krq $remtok(%krq,$did(1).seltext,1,32) 
    did -d $dname 1 $did(1).sel 
    did -c $dname 1 1 
  }
}

on *:notice:*:?: {
  if !$istok(%krq,$nick,32) { halt }
  close -m $nick
  ignore $nick
  notice $nick Bana notice attığınız için engellendiniz.
}

on *:text:$(* $+ $me $+ * ):#:{
if ($nick == Ali) { .ignore $nick | close -m $nick | notice $nick Kanalda Nickimi Yazdığın İçin İgnore Edildin. }
}