on *:TEXT:*:#:{
  if (%words. [ $+ [ $nick ] ] == $null) { set %words. [ $+ [ $nick ] ] $numtok($1-,32) }
  if (%words. [ $+ [ $nick ] ] != $null) { inc %words. [ $+ [ $nick ] ] $numtok($1-,32) }
  if ($left($1,1) == @) { set %dest msg $chan | goto check1 }
  if ($left($1,1) == !) { set %dest notice $nick | goto check1 }
  halt
  :check1
  if ($right($1,-1) == words) { goto check2 }
  halt
  :check2 
  if (!$2) { $iif(%words. [ $+ [ $nick ] ] != $null,%dest $nick $+ : You have said %words. [ $+ [ $nick ] ] words.,%dest $nick $+ : You havn't said anything yet.) }
  if ($2) { $iif(%words. [ $+ [ $2 ] ] != $null,%dest $nick $+ : $2 has said %words. [ $+ [ $2 ] ] words.,%dest $nick $+ : $2 hasn't said anything yet.) }
}