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

         alias b:save  hsave b~ badword.db 
alias b:load hmake b~ 10000 | hload b~ badword.db 
on *:connect: b:load
alias bw {
  if $regex($1,/([-+][wr])/) && $2 {
    if $1 == +r {
      if $hget(b~,$2) { echo 4 *** Bu Kelime ekli  | return }
      if !$hget(b~,$2) { hadd -m b~ $2 r | echo 3 **  Kelime eklendi  }
    }
    if $1 == -r  {
      if $hget(b~,$2) {  hdel b~ $2 |  echo 4 ** Kelime silindi  | return  }
      if !$hget(b~,$2) { echo 4 ** Kelime bulunamadı  }
    }
    if $1 == +w { 
      if $hget(b~,$2) {  echo 4 *** Bu Kelime ekli | return  }
      if !$hget(b~,$2) { hadd -m b~ $2  w  | echo 3 ** Kelime eklendi }
    }
    if $1 == -w { 
      if $hget(b~,$2) {  hdel b~ $2 |  echo 4 ** Kelime silindi  | return  }
      if !$hget(b~,$2)  { echo 4 ** Kelime bulunamadı }
    }
    b:save 
  }
  elseif $prop == ? { 
    if $hfind(b~,$1-,0,R) || $hfind(b~,$1-,0,W)  { return $true }
  }
  else { 
    echo 5 *** hatalı ve eksik parametre 
    echo 5 * /bw [+|-][W|R] (wildcard|regex) [wildcard text| regex text] 
    echo 5 * orn: /bw +r [pb][i!İı1][cç\[]
    echo 5 * orn: /bw +w *****
  }
}