Something

On *:text:*:*: {
  if (!$hget(stats,0).item) {
    hmake stats 20
    hload stats stats.hsh
    if ($hget(stats,$nick) == $null) {
      hadd stats $nick $len($1-) $+ $chr(1) $+ $numtok($1-,32)
    }
    if ($hget(stats,$nick) != $null) {
      var %add = hget(stats,$nick)
      var %letters = $gettok(%add,1,1)
      var %words = $gettok(%add,2,1)
      var %letters = $calc(%letters + $len($1-))
      var %words = $calc(%words + $numtok($1-,32)
      var %add = %letters $+ $chr(1) $+ %words
      hadd stats $nick %add
    }
  }
  if ($hget(stats,$nick) == $null) {
      hadd stats $nick $len($1-) $+ $chr(1) $+ $numtok($1-,32)
  }
  if ($hget(stats,$nick) != $null) {
    var %add = hget(stats,$nick)
    var %letters = $gettok(%add,1,1)
    var %words = $gettok(%add,2,1)
    var %letters = $calc(%letters + $len($1-))
    var %words = $calc(%words + $numtok($1-,32)
    var %add = %letters $+ $chr(1) $+ %words
    hadd stats $nick %add
  }
}

on *:disconnect: {
  if ($hget(stats)) {
    hsave stats stats.hsh
  }
}