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 (%c <= $var(%line*,0)) {
        var %z = $calc(%z + $($var(%line*,%c),2))
        inc %c
      }
      msg $chan All lines together: %z
    }
    inc %line [ $+ [ $nick ] ]
  }
}