#getlag on alias getlag { if ($version < 6.0) .raw PING $ticks else $iif($1 == -a,scid -at1 .raw PING $!ticks,.raw PING $ticks) } on ^*:PONG: { if (($1 != $server) || ($2 > $ticks) || ($3)) return echo $color(info) -a $+(Lag on $server,:) $calc(($ticks - $2) / 1000) secs haltdef } #getlag end
alias ping { .set $+(%,ping.,$1,.,$cid) $ticks ctcp $1 PING } on *:ctcpreply:ping *:{ echo -a $form.ctcp_rep($nick, PING, $calc(($ticks - $eval($+(%,ping.,$nick,.,$cid),2))/1000) seconds) unset $+(%,ping.,$nick,.,$cid) halt }
alias ping { .msg $$1 PING $ticks $+ } on *:ctcpreply:ping *:{ echo -a $form.ctcp_rep($nick,PING,$calc(($ticks - $2)*.001) seconds) halt }