counter

on *:TEXT:*:#: {
if ($nick isreg $chan) { halt }
if ($1 == !lines) msg $chan 12,9 $iif($2,$2,$nick) 4,9 has a total of 12,9 %line [ $+ [ $iif($2,$2,$nick) ] ] 4,9 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 4,9All lines recorded altogether:12,9 %z
}
inc %line [ $+ [ $nick ] ]
}
}