Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{
var %i 1
while $read(kelimeler.txt,%i) {
if ($read(kelimeler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) { ban -k $nick 2 Küfür etme a nokta q ,p }
inc %i
}
}
içinde * / \ vs.. gibi karakterlerin olmadıını varsayalım.. (:
kelimeler.txt ye küfürleri alt alta eklersin..
*salak*
*aptal*
gibi..
verdiim sadece örnek bu şekilde kullanılabilr.