/ScriptServ

[script]
n0=on 1:CTCPREPLY:PING*: {
n1=  set %lag.time $ctime - $parm2
n2=  inc %lag.count 1
n3=  set %lag.adj.time 100 * %lag.time
n4=  inc %lag.adj.total %lag.adj.time
n5=  set %lag.adj.avg %lag.adj.total / %lag.count
n6=  set %lag.adj.whole %lag.adj.avg / 100
n7=  set %lag.adj.dec %lag.adj.avg % 100
n8=  set %lag.avg %lag.adj.whole $+ . $+ %lag.adj.dec
n9=  titlebar    êVï£-«G»êÑﵧ    ( Current Lag: %lag.avg seconds. )
n10=}