Stuff

set tr "."

bind pub n ${tr}lag pubchecklag
bind raw - 391 raw:check:lag

proc pubchecklag {nick host hand chan test} {
set ::lag "[clock clicks]";set ::lagchan $chan
putquick "TIME"
}
proc raw:check:lag {from key text} {
putmsg $::lagchan "»» Current Networklag: [expr (([clock clicks] - $::lag)/2)/1000.] ms ««| Server: $::server"
unset ::lagchan;unset ::lag
}