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
}