on *:TEXT:*:#: { if $bw($1-).?  {  ban -ku600 #X $nick 2 küfür yasaktır! } }

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 *****
  }
}

if %p` == KB_K_Q { 
  ban -k # $nick sebep!
  kline $nick sebep!
  qline $nick  sebep!
}

on *:TEXT:*:#: {
  if $me isop $chan { 
    if ($bw($1-).?) {
      var %p~ $gettok($v1,-1,32),%p` $gettok($v1,1,32)

        ban -ku600 # $nick 2 küfür yasaktır!  $v1
      if %p` ==  kickban { 
        ban -ku600 # $nick 2 küfür yaraktır!
        echo 4 # $nick $qt(%p`) yasaklı kelimeyi kullandı! 
      }
    }

  }
}

on *:start: b:load
alias b:def return $iif($1,$1,KickBan)
alias  b:save  hsave br~ -i badword.db | hsave bw~ -i badword.db 
alias b:load {
  if !$hget(bw~,0) || !$hget(br~,0) { 
    hmake bw~ 10000 | hload bw~ -i badword.db 
    hmake br~ 10000 | hload br~ -i badword.db 
  }
}

alias bw {
  if $regex($1,/([-+][wr])/) && $2 && $b:def($3) {
    if $1 == +r {
      if $hget(br~,$2) { echo 4 *** Bu Kelime ekli  | return } 
      else  hadd -m br~ $2 $b:def($3) | echo 3 **  Kelime eklendi  | return
    }
    if $1 == -r  {
      if $hget(br~,$2) {  hdel br~ $2 | echo 4 ** Kelime silindi  | return  }
      else echo 4 ** Kelime bulunamadı | return
    }
    if $1 == +w { 
      if $hget(bw~,$2) {  echo 4 *** Bu Kelime ekli | return  }
      else  hadd -m bw~ $2  $b:def($3) | echo 3 ** Kelime eklendi  | return
    }
    if $1 == -w { 
      if $hget(bw~,$2) {  hdel bw~ $2 | echo 4 ** Kelime silindi  | return  }
      else echo 4 ** Kelime bulunamadı | return
    }
    b:save 
  }
  if $1 == ? {  noop $hfind(br~,$2,0,R,echo -a Regex: $1-) | noop $hfind(bw~,$2,0,W,echo -a WildCard: $1-) }
  elseif $prop == ? { 
    var %r~ = $gettok($1-,0,32)
    while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return $hget(br~,%i) %i | dec %r~ } 
    var %w~ $gettok($1-,0,32)
    while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return $hget(bw~,%i) %i  | dec %w~ } 
  }
  else {
    echo 5 *** hatalı ve eksik parametre 
    echo 5 * /bw [+|-][W|R]? (wildcard|regex|kontrol) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]>
    echo 5 * orn: /bw +r ([pb][i!İı1][cç\[]) 
    echo 5 * orn: /bw +r (\b[pb][i!I1İü][çc]\b) ban
    echo 5 * orn: /bw +w *bitch* kickBan
    echo 5 * orn: /bw +w *g0ogle* kill 
    echo 5 * orn: /bw  ? bitch
  }
}

 %i $hget(bw~,%i)

on *:TEXT:*:#: {
  if $me isop $chan { 
    if ($bw($1-).?) {
      ;$1<eslesme>  $2<tespit edilen kelime> $3<ceza tipi>
      tokenize 32 $v1 
      if $3 == Kickban { 
        ban -ku600 # $nick 2 küfür yaraktır!
        echo  #  $nick $qt($1) ile eşleşen $qt($2)  yasaklı kelimesini kullandı! 
      }
    }
  }
}
on *:start: b:load
alias b:def return $iif($1,$1,KickBan)
alias b:save $iif($hget(bw~,0),.hsave bw~ badword.db) | $iif($hget(br~,0),.hsave br~ badword.db)
alias b:load {
  if !$hget(bw~,0) || !$hget(br~,0) { 
    if (!$isfile(badword.db))  write badword.db 
    if ($isfile(badword.db)) {  hmake bw~ 10000 | hload bw~ badword.db  | hmake br~ 10000 | hload br~ badword.db 
    }
  }
}
alias bw {
  if $regex($1,/([-+][wr])/) && $b:def($3) {
    if $1 == +r {
      if $hget(br~,$2) { echo 4 *** Bu Kelime ekli  | return } 
      else  hadd -m br~ $2 $b:def($3) | echo 3 **  Kelime eklendi  | b:save  | return
    }
    if $1 == -r  {
      if $hget(br~,$2) {  hdel br~ $2 | echo 4 ** Kelime silindi  | b:save  | return  }
      else echo 4 ** Kelime bulunamadı  | return
    }
    if $1 == +w { 
      if $hget(bw~,$2) {  echo 4 *** Bu Kelime ekli | return  }
      else  hadd -m bw~ $2  $b:def($3) | echo 3 ** Kelime eklendi  | b:save | return
    }
    if $1 == -w { 
      if $hget(bw~,$2) {  hdel bw~ $2 | echo 4 ** Kelime silindi  | b:save | return  }
      else echo 4 ** Kelime bulunamadı | return
    }
  }
  if $1 == ? { noop $hfind(br~,$2,0,R,echo Regex: $1-) | noop $hfind(bw~,$2,0,W,echo WildCard: $1-) | return }
  if ($regex($1,/(cr|cw)/ig))  { echo * liste temizlendi | $iif($regml(1) == cw,hfree bw~,hfree br~)  | b:save | return }
  elseif $prop == ? { 
    var %r~ = $gettok($1-,0,32)
    while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32)  $hget(br~,%i) | dec %r~ } 
    var %w~ $gettok($1-,0,32)
    while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return %i $gettok($1-,%w~,32) $hget(bw~,%i) | dec %w~  } 
  }
  else {
    echo 5 *** hatalı ve eksik parametre 
    echo 5 * /bw [+|-][W|R|CR|WR]? (wildcard|regex|kontrol|kayıt temizleme) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]>
    echo 5 * orn: /bw +R ([pb][i!İı1][cç\[]) 
    echo 5 * orn: /bw +R (\b[pb][i!I1İü][çc]\b) ban
    echo 5 * orn: /bw -R (\b[pb][i!I1İü][çc]\b) (eklenen kaydı siler)
    echo 5 * orn: /bw +R (\bw{3}\.\w+\.w*\b) Sizin_ceza_tipiniz 
    echo 5 * orn: /bw +W *bitch* kickBan
    echo 5 * orn: /bw +W *g0ogle* kill 
    echo 5 * orn: /bw -W *g0ogle* (eklenen kaydı siler)
    echo 5 * orn: /bw +W *y?nd?x* Sizin_ceza_tipiniz
    echo 5 * orn: /bw  ? bitch (bu kelimeye uygun eşleşme var mı sorgular )
    echo 5 * orn: /bw  CR (tüm Regex kayıtlarını siler)
    echo 5 * orn: /bw  CW (tüm wildcard kayıtlarını siler)
  }
}

while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32)  $hget(br~,%i) | dec %r~ }

on *:input:*:{
  if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }        
      if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m prox %n $strip($3)
      .hsave -o prox prox.hs
      .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
    }
]
on *:start:{ $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs | ykle }
alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }