Something

menu * {
  .Oliver's Lagmeter { 
    window -opd +dL @lagmeter 748 44 150 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 
    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
    /drawtext @lagmeter 1 2 110 10 %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 }
}