Badword Protection

[BeRkaN]

#### Topic: Badword Protection
#### Coder: BeRkaN

Kod: Tümünü seç

on *:TEXT:*:#: {
  var %r = 1
  while (%r <= $lines(badword.txt)) {
    if ($read(badword.txt,%r) isin $1-) {
      inc % [ $+ [ $nick ] ]
      badwordskickchecker $nick $chan
    }
    inc %r 
  }
}
alias badwordsKickchecker {
  if (% [ $+ [ $1 ] ] == 1) {
    msg $2  [ Badword Detected ] $1 No excessive swearing please! 1,0 «4•1»
  }
  elseif (% [ $+ [ $1 ] ] == 2) {
    kick $2 $1 No excessive swearing please! 
  }
  elseif (% [ $+ [ $1 ] ] == 3) {
    ban -k $2 $1 2 No excessive swearing please!
    unset % [ $+ [ $1 ] ]
  }
}

mIRC in ana klasörüne badword.txt Dosyasi aciyoruz we icine istedigimiz badword leri koyuyoruz!
Nasil Calisiyor ?
1. Küfür de Uyario
2. Küfür Kickliyor
3. Küfür der Banliyor

Soru ve Yardim icin Konuya msj attin

Saygilar