why not make it count words typed and also use an ini file instead of vars cuz vars will just fill up ur list. at lest make somthing out of it.. maybe somthing like

on *:text:*:#:{ 
  $iif(!$readini(wcount.ini,$nick,$+($server,.,$chan)),writeini wcount.ini $nick $+($server,.,$chan) $numtok($1-,32),writeini wcount.ini $nick $+($server,.,$chan) $calc($readini(wcount.ini,$nick,$+($server,.,$chan)) + $numtok($1-,32))) 
  if ($strip($1) == !wordcount && !$($+(%,wcount,.,flood,.,$nick),2)) {
    set -u3 $+(%,wcount,.,flood,.,$nick) $nick
    if (!$2)  { msg # ERROR! please type !wordcount nick ex: !wordcount sick0 }
    else { msg # $2 Has typed $iif(!$readini(wcount.ini,$2,$+($server,.,$chan)),0,$readini(wcount.ini,$2,$+($server,.,$chan))) words in Channel # }
  }
}