Someone

menu query,channel { 
  Counter 2.1
  .Total
  ..since %written-start.date - %written-start.time :x
  ..Lines $+ $chr(58) %written.lines :/msg $chan 4 My Total written Lines are: (12 $+ %written.lines $+ 12) 4lines.
  ..Words $+ $chr(58) %written.words :/msg $chan 4 My Total Written Words are: (12 $+ %written.words $+ ) 4words with an average of (12 $+ $round($calc(%written.words / %written.lines),1) $+ 12) 4words per line.
  ..Letters $+ $chr(58) %written.chars :/msg $chan 4 My Total Written Chars are: (12 $+ %written.chars $+ ) 4characters with an average of (12 $+ $round($calc(%written.chars / %written.words),1) $+ 12) 4chars per word and (12 $+ $round($calc(%written.chars / %written.lines),1) $+ ) 4chars per line.
  .Today  
  ..Today $chr(40) $+ $date $+ $chr(41) :x
  ..Lines $+ $chr(58) %written.lines.today :/msg $chan 4 Today I have Typed: (12 $+ %written.lines.today $+ 12) 4lines to day
  ..Words $+ $chr(58) %written.words.today :/msg $chan 4 Today I have typed: (12 $+ %written.words.today $+ 12) 4words to day
  ..Letters $+ $chr(58) %written.chars.today :/msg $chan 4 Today I have Written (12 $+ %written.chars.today $+ 12) 4letters to day
  .Record
  ..Lines $+ $chr(58) $($+(%written.lines.record),1) :/msg $chan 4 My record for Written Lines is: (12 $+ %written.lines.record $+ 12)4With an Average of 412(12 $+ $calc(%written.lines.record / %time.passed) $+ 12) 4Per minute 4lines. This Record was set on,12 %written.lines.record.date $time
  ..Words $+ $chr(58) $($+(%written.words.record),1) :/msg $chan 4  My for Written Words is: (12 $+ %written.words.record $+ 12)4With an Average of 4(12 $+ $round($calc(%written.words.record / %written.lines.record),1) $+ 12)4Per line. 4words. This Record was set on,12 %written.words.record.date $time  
  ..Letters $+ $chr(58) $($+(%written.chars.record),1) :/msg $chan 4  My record for Written Chars is: (12 $+ %written.chars.record $+ 12)4With an Average of 4(12 $+ $round($calc(%written.chars.record / %written.words.record),1) $+ 12)4 Letters per Word. 4letters. This Record was set on,12 %written.chars.record.date $time
  .Testing
  ..WPM : {
    set %all.of.time $calc($ctime - %wpm.starttime) ;;seconds
    set %all.of.time.min $calc(%all.of.time / 60) ;;turns to minutes
    set %wpm.actual.var $calc(%all.of.time.min / %written.words) ;;time(min) / words(all)
    msg $chan testing wpm: %wpm.actual.var ;;actualy wpm????
  }
}
on *:load:{
  echo -a Snippet copyrighted © by 
  echo -a Vegard Veiset    www.clode.us
  echo -a If you find any kind of a bug mail me (clode@clode.us).
  set %written.lines.record 0
  set %written.chars.record 0
  set %written.words.record 0  
  set %date.today $date
  set %wirtten.chars.today 0
  set %written.lines.today 0
  set %written.words.today 0
  set %written.words 0
  set %written.lines 0
  set %written.chars 0
  set %written.chars.record.date $date
  set %written.smilies 0
  set %written.spm 0
  set %written-start.time $date(HH:nn)
  set %written-start.date $date(dd mmm) 
  set %written.start.year $date(yyyy)
  set %wpm.starttime $ctime
}
on @*:INPUT:#:{
  set %smilie :)
  if ($right($1-,1) == ?) { inc %written.spm }
  if (%smilie isin $1-) { inc %written.smilies }
  inc %written.chars $len($1-)
  inc %written.words $0
  inc %written.lines
  inc %written.chars.today $len($1-)
  inc %written.words.today $0
  inc %written.lines.today
  /writtenrecord
}

if (%written.words > %written.words.record) { 
  set %written.words.recoord %written.words
} 

alias x { halt }
alias writtenrecord {
  if ($date != %date.today) { set %date.today $date | unset %written.chars.today | unset %written.words.today | unset %written.lines.today }
  if (%written.chars.today > %written.chars.record) { set %written.chars.record $($+(%written.chars.today),1) | set %written.chars.record.date $date }
  if (%written.words.today > %written.words.record) { set %written.words.record $($+(%written.words.today),1) | set %written.words.record.date $date }
  if (%written.lines.today > %written.lines.record) { set %written.lines.record $($+(%written.lines.today),1) | set %written.lines.record.date $date }
}