alias ping {
  echo $color(CTCP) -t $active $+([,$$1,$chr(32),PING,])
  .raw PRIVMSG $$1 $+($chr(1),PING) $ticks
}

on *:CTCPREPLY:PING*: {
  haltdef
  echo $color(CTCP) -t $active $+([,$nick,$chr(32),PING,$chr(32),reply]:) $calc($ticks - $2) $+ ms
}