on *:text:*:#:{
var %words = $readini(stats.ini,n,words,$nick)
var %lines = $readini(stats.ini,n,lines,$nick)
if !%words { var %words = $numtok($1-,32), %lines = 1 }
else {
inc %words $numtok($1-,32)
inc %lines 1
}
.writeini stats.ini words $nick %words
.writeini stats.ini lines $nick %lines
if ($1 == !stats) && (!$2) {
.msg $chan $nick $+ 's Stats: %words words ( $+ $round($calc(%words / %lines),2) words per line $+ )
}
}