on 1:start:{
  hmake kufur
  hload kufur kufur.bugra
}
on 1:text:*:#:{
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    mode # +b $nick
    msg # $nick küfürlü konuştunuz Bu yuzden kanalda infaz edildiniz .) Küfürünüz de >4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
  }
  if $chan == #Bugra {
    if $gettok($1-,1,32) == !kotusoz {
      hadd -m kufur $r(1000,999999) $gettok($1-,2-,32)
      hsave kufur kufur.bugra
      msg # Kötü Söz Eklendi: $gettok($1-,2-,32)
    }
    if $gettok($1-,1,32) == !kotusil {
      if $hfind(kufur,$gettok($1-,2-,32),1,W).data {
        hdel kufur $ifmatch
        hsave kufur kufur.bugra
        msg # Kötü Söz Silindi: ( $+ $ifmatch $+ ) $gettok($1-,2-,32)
      }
    }
  }
}

/hmake kufur
/hload kufur kufur.bugra