on *:start: { if $isfile(kufur.save) { hmake kufur 100 | hload -i kufur kufur.save } }
alias yasak $iif(!$dialog(kufur),dialog -m kufur kufur,halt) 
dialog kufur {
  title "Yasak kelimeler."
  size -1 -1 110 81
  option dbu
  button "Ekle", 1, 65 27 37 12
  edit "", 2, 65 14 37 10
  button "Sil", 3, 65 41 37 12
  button "Kapat", 4, 65 55 37 12
  box "", 5, 3 3 105 72
  list 6, 8 14 50 53, size
}
on *:dialog:kufur:sclick:*: {
  if $did == 1 { 
    if $did(2) == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Uyarı) == $true,halt,halt) }
    if $hmatch(kufur,$did(2)) { $iif($input(Kelime zaten listede.,ohud,Uyarı) == $true,halt,halt) }
    else { var %i = $did(2).text | hadd -m kufur %i 1 | hsave -i kufur kufur.save | did -a $dname 6 %i | did -r $dname 2 }
  }  
  if $did == 3 {
    var %s = $did($dname,6).sel,%q = $did($dname,6).seltext
    if !%s { $iif($input(Listeden herhangi bir kelime seçmediniz.,ohud,Uyarı) == $true,halt,halt) }
    else { did -d $dname 6 %s | hdel kufur %q | hsave -i kufur kufur.save }
  }
  if $did == 4 { dialog -x kufur kufur }
}
on *:dialog:kufur:init:*: { var %7 = 1,%77 = $hget(kufur,0).item | while %7 <= %77 { did -a $dname 6 $hget(kufur,%7).item | inc %7 } }
on *:text:*:#: { 
  if $me isop # && $nick isreg # { var %1 = 1,%2 = $hget(kufur,0).item | while %1 <= %2 {
      if $hget(kufur,%1).item iswm $1- { var %& = $remove($v1,*) | ban -k # $nick 2 Kullandığınız cümlede $qt(%&) kelimesi algılandı. }
      inc %1
    }
  }
}