dialog 2lag {
  title "Lag Check"
  size -1 -1 91 35
  option dbu
  box "Lag Check", 1, 2 2 87 32
  text "", 2, 4 13 83 8, center
  button "Check", 3, 4 22 20 10, flat
  button "Auto", 4, 24 22 21 10, flat
  button "Clear", 5, 45 22 21 10, flat
  button "Msg", 6, 66 22 21 10, flat
}
menu menubar,channel {
  .Lag Checker { dialog $iif($dialog(2lag),-v,-m) 2lag 2lag }  
}
on *:dialog:2lag:close:0:{ .timer.autolag off }
on *:dialog:2lag:init:0:{ 1lag }
on *:DIALOG:2lag:sclick:*:{
  if ($did == 3) { did -r $dname 2 | 1lag }
  if ($did == 4) { 
    if (!%autolag) { set %autolag on | did -ra $dname 4 Stop | .timer.autolag -m 0 500 1lag }
    else { unset %autolag | did -ra $dname 4 Auto | .timer.autolag off }
  }
  if ($did == 5) { did -r $dname 2 }
  if ($did == 6) { msg $active 14,1[12,1»0,1:: My Lag Is $did(2).text ::12,1«14,1] }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Lag Check 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
alias 1lag { .raw ping $ticks }
on ^*:PONG:{ 
  haltdef
  did -a 2lag 2 $calc(($ticks - $2) / 1000) Sec's
}