; CTCP Ping reply in milliseconds
; http://dev.adiirc.com/boards/5/topics/594
; v0.1 by pereba

on ^*:ctcpreply:ping *:{
  if ($($+(%,ping,$nick),2)) {
    haltdef
    echo -atc ctcp $replacex($prefixctcp,$chr(32),$chr(160)) $replacex($adilang(CTCPReply0From1),{0},$chr(2) $+ PING $calc(($ticks - $v1)/1000) $+ ms $+ $chr(2),{1},$chr(2) $+ $nick $+ $chr(2))
    unset %ping [ $+ [ $nick ] ]
  }
}

alias ctcp {
  if ($2 == ping) set -u100 %ping $+ $1 $ticks
  !ctcp $1-
}