Kötü söz uyarı kodu

menu  {
  .-
  . Uyarılı Kotu Söz Koruması
  ..Açık:.enable #Uyarılı | .echo -a 4,1 Uyarılı Kotu Söz Koruması Açıldı
  ..Kapalı:.disable #Uyarılı | .echo -a 4,1 Uyarılı Kotu Söz Koruması Kapatıldı
  .-
}

#Uyarılı on
on *:text:*:#:{
  if ($nick isreg $chan) {
    if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
      else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 4,1  Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız 4,4| 5,5| 0,1AynaLive 0,14 5,5| 4,4| 1,0 | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ]  }
      }
    }
  }
}
#Uyarılı end

Remotelere ekleyin gerisine karışmayın:))