on 1:TEXT:*:#: {
  set %i 0
  :checking
  inc %i 1
  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 
  if (%currentsword == $null) { .unset %i | goto end }
  else {
    if (%currentsword isin $1-) { goto offense }
    else { goto checking }
  }
  :offense
  /kkufuralert
  goto end  
  :end
}
on 1:action:*:#: {
  set %i 0
  :checking
  inc %i 1
  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 
  if (%currentsword == $null) { .unset %i | goto end }
  else {
    if (%currentsword isin $1-) { goto offense }
    else { goto checking }
  }
  :offense
  /kkufuralert
  .goto end  
  :end
}
on 1:notice:*:#: {
  if (Serv isin $nick) || ($nick == Wcoc) || ($nick == global) || ($nick == $network) { goto end }
  set %i 0
  :checking
  inc %i 1
  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 
  if (%currentsword == $null) { .unset %i | goto end }
  else {
    if (%currentsword isin $1-) { goto offense }
    else { goto checking }
  }
  :offense
  /kkufuralert 
  .goto end  
  :end
}
alias kkufuralert {
  if ($nick !ison $chan) {
    ban -u180 $chan $nick 2
  }  
  ban -u180 $chan $nick 2
  kick $chan $nick Küfürlü konuşmak yasaktır.
}