Simple little counter script for Quit/Join/Part/NickChange/Parts/Kicks/Words/Chrs/Sentences/DiffNicks.
Tho this script is easy I figured i'd post something after soo long and you will have to supply your own color alias :) enjoy.

on *:text:*:*:{
  /incchrs $len($1-)
  /incsen
  /incwords $numtok($1-,32)
  /incnicks $nick
}
alias incchrs {
  hinc -m Info chrs $1
  hsave Info info.hsh
}
alias incsen {
  hinc -m Info sentence 1
  if (!$hget(info,date)) {
    hadd -m Info date $asctime
  }
}
alias incwords {
  hinc -m Info words $1
}
alias incnicks {
  if (!$hget(Nicks,$1)) {
    hadd -m Nicks $1 true
    hsave Nicks Nicks.hsh
  }
}
on *:quit:{
  hinc -m Info quit 1
}
on *:nick:{
  hinc -m Info nick 1
}
on *:kick:#:{
  hinc -m Info kick 1
}
on *:part:#:{
  hinc -m Info part 1
}
on *:join:#:{
  hinc -m Info join 1
}

alias ginfo {
  $iif($1,msg $active,echo -a) $c2(Since) $c1($hget(info,date)) $c2(I have seen a total of) $&
    $c1($num($hget(Nicks,0).item))) $c2(different nicknames $+ $chr(44)) $&
    $c1($num($hget(Info,sentence))) $c2(sentences $+ $chr(44)) $&
    $c1($num($hget(Info,words))) $c2(words $+ $chr(44) and) $c1($num($hget(Info,chrs))) $c2(characters.) $&
    $c2(I've also seen) $c1($num($hget(Info,nick))) $c2(nick changes $+ $chr(44)) $c1($num($hget(Info,join))) $c2(joins $+ $chr(44)) $&
    $c1($num($hget(Info,part))) $c2(parts $+ $chr(44)) $c1($num($hget(Info,kick))) $c2(kicks $+ $chr(44)) $&
    $c2(and) $c1($num($hget(Info,quit))) $c2(people leaving irc.)
}
on 1:Start:{
  hmake Nicks 100
  hmake Info 100
  hload Info Info.hsh
  hload Nicks Nicks.hsh
}