on *:text:#:{
  if ($hget(count,$nick) == $null) {
    hadd -m Count $nick 1
  }
  if ($ghet(count,$nick) != $null) {
    hinc -m Count $nick 1
  }
}
on *:input:#:{
  if ($1 == !hcount) {
    if ($hget(Count,$2) != $null) {
      msg $chan $2 has written $hget(Count,$2) lines today.
    }
    if ($hget(count,$2) == $null) {
      msg $chan No hash table for $2
    }
  }
}
on *:text:!hcount:#:{
  if ($hget(Count,$2) != $null) {
    msg $chan $2 has written $hget(Count,$2) lines today.
  }
  if ($hget(count,$2) == $null) {
    msg $chan No hash table for $2
  }
}