Someone

menu * {
  .Oliver's Lagmeter { 
    if ($window(@lagmeter)) {
      window -c @lagmeter
    }
    window -opd +dL @lagmeter 546 44 170 20
    var %x = 0 
    while (%x <= 15) { 
      drawreplace @lagmeter $iif(%x < 10,0 $+ %x,%x) 15
      inc %x 
    }
    drawrect -f @lagmeter 0 1 5 4 100 10
    drawrect @lagmeter 14 1 4 3 102 12 
    box 6 5 
    update
    if (%repeat == $null) {
      set %repeat 3
    }
    /timerlagmeter 0 %repeat /update
  }
}
alias update {
  set %ticks $ticks 
  .raw ping lagmeter
}
alias box {
  /drawrect -f @lagmeter 12 1 $1 $2 8 8
}
on ^*:PONG: {
  if ($2 == lagmeter) {
    set %lagtime $calc(($ticks - %ticks) / 1000)
    unset %ticks
    drawreplace @lagmeter 1 15
    drawtext @lagmeter 1 110 2 %lagtime
    haltdef
  }
}
on *:APPACTIVE: {
  if ($window(@lagmeter)) {
    if (!$appactive) {
      window -n @lagmeter
    }
    else {
      window -r @lagmeter
    }
  }
}
on *:KEYDOWN:@lagmeter:*: {
  if ($keyval == 40) { window -s @lagmeter $window(@lagmeter).x $calc($window(@lagmeter).y + 2) }
  elseif ($keyval == 39) { window -s @lagmeter $calc($window(@lagmeter).x + 2) $window(@lagmeter).y }
  elseif ($keyval == 38) { window -s @lagmeter $window(@lagmeter).x $calc($window(@lagmeter).y - 2) }
  elseif ($keyval == 37) { window -s @lagmeter $calc($window(@lagmeter).x - 2) $window(@lagmeter).y }
}