on *:TEXT:*:#: {
  if ($nick !isreg $chan) {
    if ($1 == !lines) msg $chan $iif($2,$2,$nick) has a total of %line [ $+ [ $iif($2,$2,$nick) ] ] lines recorded.
    if ($1 == !totallines) {
      var %c = 1
      while ($var(%lines*,%c)) {
        var %z %z + $v1
        inc %c
      }
      msg $chan All lines together: %z
    }
    inc %line [ $+ [ $nick ] ]
  }
}