on *:TEXT:*:#:{

if ($me isop $chan) {

var %i 1

while $read(kufurler.txt,%i) {

if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick }

inc %i

}

}

}