; Millisecond Pinger snippet by eXonyte
; Type /mping <nickname> to ping someone in milliseconds instead of seconds.
; Also attempts to maintain compatibility with normal /ctcp <nick> PING replies,
; and will display the text normally if someone replies with text instead of a number.
; Alias to send a millisecond ping
alias mping {
; Sends the actual ping as a raw
.raw PRIVMSG $$1 : $+ $chr(1) $+ PING $ticks $+ $chr(1)
; Echoes a CTCP PING lookalike to the active window
echo $colour(ctcp) -t $+ $iif($active == Status Window,se,a) -> [[ $+ $$1 $+ ]] PING
}
; Handles CTCP PING replies
on *:CTCPREPLY:PING*: {
; If the reply isn't a number, let mIRC handle it
if ($2 !isnum) { return }
; If the current $ticks minus the reply is greater than 0
if ($calc($ticks - $2) > 0) {
; Echo the ping reply to the active window
echo $colour(ctcp) -at $+ $iif($active == Status Window,e) [[ $+ $nick PING reply]: $calc(($ticks - $2)/1000) $+ secs
; And halt so that mIRC doesn't show its own ping reply
halt
}
}Использовать командой /mping ник, можно также вписать его в привычный попапс, заместо стандартного.CTCP
.Ping:/mping $$1
Выгдядет примерно так:
[02:32:42] -> [ChanServ] PING
[02:32:42] [ChanServ PING reply]: 0.094secs
Автор © Yardiff
