Someone

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


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
}

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