sirkit / mIRC Lockout Lag Script

on ^*:pong:{
  if ($left($2,4) == lag.) {
    echo -a $timestamp2 %in $+ Lag: $calc(($ticks - $remove($2,lag.)) / 1000) $+ (s) $+ %out
    haltdef
  }
  elseif ($left($2,5) == lag2.) {
    set %lag2 $calc(($ticks - $remove($2,lag2.)) / 1000) $+ secs
    haltdef
} }
alias lag { .raw -q ping $+(lag,.,$ticks) }
alias lag2 { .raw -q ping $+(lag2,.,$ticks) }
alias lag3 { say ›Lag: %lag2 }
on *:start:{ tb }
alias tb { timer 0 60 titlebar Lag: %lag2 }