on *:text:!stats*:#: {
  if (!$2) {
    if ($hget(stats,$nick) == $null) {
      msg $chan No stats for $nick
    }
    if ($hget(stats,$nick) != $null) {
      msg $chan Stats for $nick $+ : $gettok($hget(stats,$nick),1,1) letters and $gettok($hget(stats,$nick),2,1) words
    }
  }
  if ($2) {
    if ($hget(stats,$2) == $null) {
      msg $chan No stats for $nick
    }
    if ($hget(stats,$2) != $null) {
      msg $chan Stats for $2 $+ : $gettok($hget(stats,$2),1,1) letters and $gettok($hget(stats,$2),2,1) words
    }
  }
}

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
  }
}