if $read($kufurs.txt,w,$1-)

if $read(kufurs.txt,w,$+(*,$1-,*))

on *:text:*:?:if $read(kufurs.txt,w,$+(*,$1-,*)) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick }

var %kufur = 1 | while %kufur <= $lines(kufurs.txt) {
if ($read(kufurs.txt,%kufur) isin $1-) {
ignore $nick
Vs. vs.
break
}
İnc %kufur
}

on *:text:*:?: { 
 if $read(kufurs.txt,w,$1-) { 
 .ignore $nick 
 .msg $nick Özelime küfür ettiğiniz tespit edildi , otomatik ignore edildiniz.
 .close -m $nick
 .echo -a $nick ignore edildi, kullandığı cümle : $1-
 } 
}

on $!*:text:/kelime1|kelime2|kelime3|kelime4|kelime5/Si:?:{ 
  ignore $nick 2
  msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. 
  echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- 
  closemsg $nick 
}

on !*:text:*:?:{ 
  var %a 1
  while %a <= $lines(kufurs.txt) {
    if $read(kufurs.txt,%a) isin $1- { 
      ignore $nick 2
      msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. 
      echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- 
      closemsg $nick
      break 
    }
    inc %a 
  }
}