;this line is just the on text with a match any text wildcard in the match text area. :D
on *:TEXT:*:#:{
if ($left($1,1) == @ || !) { $iif($left($1,1) == @,set %dest msg $chan,set %dest notice $nick) | set %firstword $right($1,-1) }
;if they don't yet have a variable in their name, this line sets it :D
if (%words. [ $+ [ $nick ] ] == $null) { set %words. [ $+ [ $nick ] ] $numtok($1-,32) }
;if they already have a variable in their name, this adds the amount of words to their variable.
if (%words. [ $+ [ $nick ] ] != $null) { inc %words. [ $+ [ $nick ] ] $numtok($1-,32) }
;if $1 is !words, and there is no second parameter ($2) this line returns the activating nicks amount of words.
if ((%firstword == words) && (!$2)) { %dest $nick you have said %words. [ $+ [ $nick ] ] words. }
;if $1 is !words, and there is a second parameter ($2) returns the total words or if $2 hasn't said anything will tell you so
if ((%firstword == words) && ($2)) { $iif(%words. [ $+ [ $2 ] ] != $null,%dest $nick $2 %words. [ $+ [ $2 ] ] words.,%dest $2 hasn't said anything yet.) }
}