on *:TEXT:*:#:{
  var %i = 0
  while (%i < $numtok(%bwl,46)) {
    inc %i 1
    var %z = 0
    while (%z < $numtok($1-,32)) {
      inc %z 1
      if ($eval($+($,%z),2) == $gettok(%bwl,%i,46)) {
        kick $chan $nick TB [Badword- $eval($+($,%z,]),10) Pooned By KaceyBear $kcount Kicks
      }
    }
  }
}
alias bword {
  if (!$1) echo 2* /bword Insufficient Parameters *
  else {
    var %i = 0
    while (%i < $numtok($1-,46)) {
      inc %i 1
      set %bwl $iif(%bwl == $null,$null,%bwl $+ .) $+ $eval($ $+ %i,2)
      echo -a %bwl    
    }
  }
}
alias kcount {
  inc %kcount 1
  return %kcount
}