on @*:text:*:#:{
  if ($nick !isreg #) { return }
  elseif $hfind(badwords,$strip($1-),1,W).data {
    ban -u5000 # $nick 3
    kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S),.window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S ==>0,1 # 12Kanalında uzaklaştırılan 0,1NiCK:4[ $nick ]12 yasağa takılan mask:0,1 $hget(badwords,$hfind(badwords,$strip($1-),1,W).data)
  }
}
alias badwords {
  if ($1 == ekle) && $regex($2,[A-Za-z]) {
    .hadd -ms badwords $left($md5($ticks),$r(10,25)) $strip($2)
    .hsave badwords badwords.data
    secho  $strip($2)  4veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) && $regex($2,[A-Za-z]) {
    if $hget(badwords,$strip($2)).data {
      .hdel -ms badwords $hfind(badwords,$strip($2),1,W).data
      .hsave badwords badwords.data
      secho $strip($2) 11veritabanindan başarıyla silindi
    }
    else { secho $strip($2) 7veritabaninda bulunamadı }
  }
  elseif ($1 == list) {
    if !$hget(badwords,0).data { secho Liste boş.. }
    else {
      secho Badwords list..
      secho -
      var %b = 1 | while %b <= $hget(badwords,0).data { secho $+(%b,-4,$chr(41),) $hget(badwords,%b).data | inc %b }
      secho -
      secho Badwords list sonu..
    }
  }
  else { secho 11hatalı işlem }
}
alias secho {
  $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S),.window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(badwords) { hmake badwords 1000 }
  if !$isfile(badwords.data) { hsave badwords badwords.data } 
  hload badwords badwords.data 
}