Argo Kelime Uyarisi ( Kick+Ban )

tarafından
51
Argo Kelime Uyarisi ( Kick+Ban )

Bu Kod Kanal Genelinde Argo Kelime SÖleyen kullanicilara uyari verip daha sonra tekrar ettiklerinde kullaniciyi kanaldan uzaklaştiran bir kod.

on *:text:*:#:{
  if ($nick isreg $chan) {
    if $istok($1-,it,32) || $istok($1-,len,32) || $istok($1-,maymun,32) || $istok($1-,MAL,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,okuz,32) || $istok($1-,Len,32) || $istok($1-,oglum,32) || $istok($1-,gerizekali,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,tınn,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,olum,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,Lan,32) || $istok($1-,kro,32) {
      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan 4[ U y a r ı ]1 : $nick : 4Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
      else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 0,7 Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
      }
    }
  }
}