ON *:INPUT:*:{
if ($1 == .lag) { .enable #lagmeter | .ctcp $me sping $ticks $chan }
}
ON *:TEXT:.*:#: {
tokenize 32 $strip($1-,burci)
if ($1 == .lag) {
if (!$2) { .msg $chan [ $+ $nick $+ ]: Error, Not enough parameters, try again and enter an nickname! | return }
if ($2 !ison $chan) { .msg $chan [ $+ $nick $+ ]: Error, Cannot find, the $qt($2) nickname is NOT on the channel! | return }
if (%ctcp_nick) { .msg $chan [ $+ $nick $+ ]: Error, Already in use, try again later! | return }
set -eu10 %ctcp_nick $2
set -eu10 %ctcp_user $nick
set -eu10 %ctcp_chan $chan
.enable #lagmeter
.ctcp $2 PING
}
}
#lagmeter off
ctcp *:sping:*: {
msg $3 2[4Lag2] 2[ $+ $calc($calc($ticks - $2) / 1000) $+ 2]
.disable #lagmeter
}
ON *:CTCPREPLY:PING*: {
if (%ctcp_nick) && (%ctcp_nick == %ctcp_user) { .msg %ctcp_chan [ $+ %ctcp_user $+ ]: Your Ping is $+ $calc($ctime - $2) $+ second(s). | goto end | return }
if (%ctcp_nick) { .msg %ctcp_chan [ $+ %ctcp_user $+ ]: The $+ %ctcp_nick $+ Ping is $+ $calc($ctime - $2) $+ second(s). }
:end
unset %ctcp_*
.disable #lagmeter
}
#lagmeter end