[MasteR06]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:TEXT:*:#: {
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kotusoz,%l)) {
    .echo -a $nick Yasak Listenizdeki Kelimeyi Kullandığı için Yazdıkları Engellendi.
    .ignore -c $nick
    .write kufurcu.txt $nick
  }
}
alias kotusoz {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    hadd kotusoz $2
    echo -a  $2  Yasak Kelime Olarak Eklendi.
  }
  elseif ($1 == sil) {
    if ($hfind(kotusoz,$2)) {
      hdel kotusoz $2
      echo -a $2 Yasak Kelime Listesinden Silindi.
    }
    else { echo -a $2 Yasak Kelime Listesinde Yok. }
  }
  elseif ($1 == list) {
    var %x = 1
    while (%x <= $hget(kotusoz,0).item) {
      set %hkotusoz $addtok(%hkotusoz,$hget(kotusoz,%x).item,1)
      if ($numtok(%hkotusoz,32) >= 7) { echo -a $replace(%hkotusoz,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkotusoz }
      inc %x
    }
    if ($numtok(%hkotusoz,32) >= 1) { echo -a $replace(%hkotusoz,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkotusoz }
  }
}
on *:nick:{ if $read(kufurcu.txt,w,$nick) { echo -a Kufurcu $nick $newnick nickini aldığı için  listeye eklendi. | .write kufurcu.txt $newnick | .ignore -c $newnick  } }
on *:EXIT: hsave -o kotusoz kotusoz.rmt | ignore -r | remove kufurcu.txt
on *:start: {
  hmake kotusoz 1000
  if ($exists(kotusoz.rmt)) { hsave -o kotusoz kotusoz.rmt }
  hload kotusoz kotusoz.rmt
}

Yetkisiz olduğunuz sunucularda kötü söz kullanan kullanıcıların yazdıklarını otomatik olarak engeller. Nicki listeye alır nick değiştirip saldırıya devam ettiğinde otomatik olarak yazdıklarını görmemenizi sağlar.
Mircinizi kapattığınız da nick listesi otomatik olarak temizlenir.
Belirli kısımları düzenleyerek küfür koruması olarak yetkili olduğunuz sunucularda kullanabilirsiniz.

/kotusoz ekle *kelime*
/kotusoz sil *kelime*
/kotusoz list