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 ( Kanalda Küfürlu Konuşmak YASAKTIR! )
}
alias kkufur dialog -m kkufur kkufur
menu status,menubar,channel {
  Küfür Koruması:kkufur
}
dialog kkufur {
  title "Küfür Ekleme (Kanala Küfür Koruması)"
  size -1 -1 300 177
  option pixels
  icon $iconn
  button "Tamam", 5, 20 137 136 30, flat ok
  text "Eklenmiş oLan Küfürler:", 921, 170 5 123 15
  list 2, 170 23 119 152
  text "Eklenecek Küfür:", 9, 40 5 93 15
  edit "", 3, 16 25 140 20
  button "Ekle", 6, 18 69 66 25, flat
  button "Sil", 7, 90 69 66 25, flat
}
on 1:DIALOG:kkufur:*:*: {
  if ($devent == init) {
	kkufurview 
  }
  if ($devent == sclick) {
	if ($did == 6) { kkufuradd $did(2) $did(3)  }
	if ($did == 7) {
	  if ($did(2,$did(2).sel)) { kkufurdel $did(2,$did(2).sel) }
	}
	if ($did == 12) && ($did(12).state == 1) 
	if ($did == 13) && ($did(13).state == 1) 
	if ($did == 14) && ($did(14).state == 1)
  }
}
alias kkufurdel {
  if ($1 != $null) { set %del $1 }
  write -ds $+ %del $mircdir\kanalkufur.txt | unset %del 
  kkufurview $$1 
}
alias kkufuradd {
  if ($1 == $null) { goto end }
  if ($1 != $null) { set %add $1 }
  write -ds $+ %add $mircdir\kanalkufur.txt | write $mircdir\kanalkufur.txt %add |  unset %add 
  kkufurview $$1 
  :end
  unset %add 
}
alias kkufurview  {
  set %sw.file $mircdir\kanalkufur.txt
  did -r kkufur 2
  if ($lof(%sw.file) == 0) { halt }
  set %e $lines(%sw.file) | set %num 1
  :start
  did -a kkufur 2 $read -l $+ %e %sw.file
  dec %e 1 | inc %num | if (%e < 1) { unset %e | unset %num | halt }
  else { goto start }
}
alias kkufur  { 
  set %sw.file $mircdir\kanalkufur.txt
  set %e 0 | set %lines $lines(%sw.file)
  if (%lines == 0) { goto end }
  :start | inc %e
  if (%e > %lines) { goto end }
  if (%e < %lines) { goto start }
  :end 
  unset %lines %sw.file %e  %add
}