;Event (on action)
on @*:action:*:#:bdwchk # $nick $1-

;(/bdwchk): /bdwchk #kanal-ismi nick mesaj
alias bdwchk { 
  var %1 = 1,%2 = $iif($hget(bdw,0).item >= 1,$v1) 
  while (%1 <= %2) { 
    if ($regex($3-,$hget(bdw,%1).item)) { 
      ban -k $1 $2 5 BAN SEBEBİ.
      break 
    } 
    inc %1 
  } 
}

;(/bdwekle): /bdwekle kelime (Listeye kelime ekler)
alias bdwekle { 
  if ($1) { 
    if (!$hget(bdw,$1)) { 
      hadd -m bdw $1 1 
      hsave -i bdw bdw.hash 
      echo -at $1 kelimesi listeye eklendi. 
    } 
    else echo -at $1 kelimesi listede. 
    return
  } 
  else echo -at Kelime girmediniz. 
}

;(/bdwsil): /bdwsil kelime (Listeden kelime siler)
alias bdwsil {
  if ($1) { 
    if ($hget(bdw,$1)) {
      hdel bdw $1 
      hsave -i bdw bdw.hash 
      echo -at $1 kelimesi listeden silindi. 
    } 
    else echo -a $1 kelimesi listede yok. 
    return
  } 
  else echo -at Kelime girmediniz.
}

;(/bdwlist): /bdwlist (Listeyi sıralar)
alias bdwlist { 
  if (!$hget(bdw) || $hget(bdw,0).item < 1) echo -at Liste boş. 
  else $iif(!$window(@Bdwlist),window -adlCk0 +L @Bdwlist 0 0 200 200) 
  var %s = 1 
  while (%s <= $hget(bdw,0).item) { 
    aline @Bdwlist $hget(bdw,%s).item 
    inc %s 
  }
}

;on start event(Tabloyu yükletmek için)
on *:start: { 
  if ($isfile(bdw.hash)) { 
    hmake bdw 50 
    hload -i bdw bdw.hash 
  }
}