word counter zzbooze

on *:text:.stats:#:{
  .msg $chan $chr(91) Word Count: $readini(wlcount.ini,$nick,words) / Letter Count: $&
$readini(wlcount.ini,$nick,letters) $chr(93) .
}
on *:text:*:#:{
if ($1 = .stats) {
halt
}
if $readini(wlcount.ini,$nick,words) = $null && $readini(wlcount.ini,$nick,letters) = $null {
writeini -n wlcount.ini $nick words 0
writeini -n wlcount.ini $nick letters 0
halt
}
else {
var %wscore $calc($0 + $readini(wlcount.ini,$nick,words))
writeini -n wlcount.ini $nick words %wscore
var %lscore $calc($len($remove($1-,$chr(32)))) + $readini(wlcount.ini,$nick,letters))
writeini -n wlcount.ini $nick letters %lscore
}
}