alias sping { set -u60 %sping $uptime(system) | quote -q PING $me }
on ^*:PONG: {
  if (!%sping) return | %sping = $calc($uptime(system) - %sping)
  if (%sping < 1000) %sping = $+(%sping,ms)
  else %sping = $+($round($calc(%sping /1000),2),s)
  msg $active Ping from $server $+ : %sping | unset %sping | halt
}