What I am trying to achieve is for incomming msg. I want this script tokenize each word in a msg window to see if any word in the text is in a hash table of spam words. any input as to what I have done wrong or how to correct the problem would be greatly appreciated.

Code:
  [color:red]
on *:text:*:?: {
  set %a $strip($1-,burc)
  set %ac $findtok(%a,0,32)
  while %i <= %ac {
    if $hfind(spam,%a,1,W).data {
      close -cm $nick
    }
    dec %i
  }
}
  [/color]