on *:connect: {
.timer(lag-o-meter) 0 1 /lag-o-meter
}
alias lag-o-meter { .ctcp $me lag-o-meter $ticks }
ctcp ^*:*: {
if ((lag-o-meter* iswm $$1-) && ($nick == $me)) {
titlebar Lag: $lag-o-meter
haltdef
}
}
alias lag-o-meter return $round($calc(($ticks / 1000) - ($2 / 1000)),3)
