on *:load: {
  /check
}
on *:start: {
  check
  .timercheck 0 200 /check
}
alias check {
  if (!%status) {
    if ($window(@lagmeter)) {
      set %status Off
    }
    else {
      set %status On
    }
  }
}
menu * {
  .Oliver's Lagmeter 
  ..%status {
    start
  }
  ..Set Refresh Time {
    dialog -md lagmeter lagmeter
  }
  ..Help {
    dialog -md help help
  }
}
alias start {
  if (!$window(@lagmeter)) {
    if ($window(@lagmeter)) {
      window -c @lagmeter
    }
    window -odp +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 98 10
    drawrect @lagmeter 14 1 4 3 100 12 
    update
    if (%repeat == $null) {
      set %repeat 2
    }
    .timerlagmeter 0 %repeat /update
    set %status Off
  }
  else {
    window -c @lagmeter
    .timerlagmeter off
    set %status On
  }
}
alias update {
  set %ticks $ticks 
  .raw ping lagmeter
}
alias box {
  /drawreplace @lagmeter 12 0
  if (%lagtime <= 0.01) { 
    /drawrect -f @lagmeter 12 1 6 5 8 8 
  }
  elseif (%lagtime <= 0.03) {
    /drawrect -f @lagmeter 12 1 6 5 16 8 
  }
  elseif (%lagtime <= 0.05) {
    /drawrect -f @lagmeter 12 1 6 5 24 8 
  }
  elseif (%lagtime <= 0.06) {
    /drawrect -f @lagmeter 12 1 6 5 32 8 
  }
  elseif (%lagtime <= 0.07) {
    /drawrect -f @lagmeter 12 1 6 5 40 8 
  }
  elseif (%lagtime <= 0.08) {
    /drawrect -f @lagmeter 12 1 6 5 48 8 
  }
  elseif (%lagtime <= 0.12) {
    /drawrect -f @lagmeter 12 1 6 5 56 8 
  }
  elseif (%lagtime <= 0.25) {
    /drawrect -f @lagmeter 12 1 6 5 64 8 
  }
  elseif (%lagtime <= 0.4) {
    /drawrect -f @lagmeter 12 1 6 5 72 8 
  }
  elseif (%lagtime <= 0.7) {
    /drawrect -f @lagmeter 12 1 6 5 80 8 
  }
  elseif (%lagtime <= 1) {
    /drawrect -f @lagmeter 12 1 6 5 88 8 
  }
  elseif (%lagtime <= 1.4) {
    /drawrect -f @lagmeter 12 1 6 5 96 8 
  }
  elseif (%lagtime >= 1.4) {
    /drawrect -f @lagmeter 12 1 6 5 96 8 
  }
}
on ^*:PONG: {
  if (!$window(@lagmeter)) { halt }
  if ($2 == lagmeter) {
    set %lagtime $calc(($ticks - %ticks) / 1000)
    unset %ticks
    drawreplace @lagmeter 1 15
    drawtext @lagmeter 1 114 2 %lagtime
    box
    haltdef
  }
}
on *:CLOSE:@lagmeter: {
  .timerlagmeter off
  set %status On
}
dialog lagmeter {
  title "Oliver's LagMeter"
  size -1 -1 82 52
  option dbu
  box "Set Refresh Rate", 1, 3 2 77 48
  button "Set", 2, 23 35 37 12
  edit "", 3, 33 13 17 10
  text "(in seconds)", 4, 26 23 30 8
}
on *:dialog:lagmeter:init:*:{
  /did -ra lagmeter 3 %repeat
  on *:dialog:lagmeter:sclick:2:{
    if (!$did($dname,3)) {
      halt
    }
  }
}
set %repeat $did($dname,3)
/dialog -x lagmeter lagmeter
if ($window(@lagmeter)) {
  .timerlagmeter off
  /update
  .timerlagmeter 0 %repeat /update
}
dialog help {
  title "LagMeter Help File"
  size -1 -1 208 191
  option dbu
  box "Help", 2, 4 3 201 166
  button "Close", 3, 85 174 37 12, ok cancel
  list 4, 10 14 189 149, size hsbar
}
on *:dialog:help:init:*:{
  did -a help 4 .:Moving The Window Around:.
  did -a help 4 $chr(160)
  did -a help 4 You can move the window around the screen with the arrow keys. Simply 
  did -a help 4 click on the meter and then move away!
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 .:Setting The Refresh Rate:.
  did -a help 4 $chr(160)
  did -a help 4 You can change how long before it refreshes your ping by right clicking > 
  did -a help 4 Oliver's LagMeter > Set Refresh Rate. Then you enter the amount of 
  did -a help 4 seconds before it refreshes and click set. It will automatically reload the
  did -a help 4 LagMeter with the new time
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 .:General Info:.
  did -a help 4 $chr(160)
  did -a help 4 The LagMeter outputs everything in seconds. However, it calculates 
  did -a help 4 everything in milliseconds.  Due to a computer $!tick not being exactly   
  did -a help 4 equal to a millisecond, there may be very slight inaccuracies. 
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 $chr(160)
  did -a help 4 .:Suggestions/Contact:.
  did -a help 4 $chr(160)
  did -a help 4 Any suggestions? Contact me on oliverwoodings@hotmail.com or on 
  did -a help 4 irc.swiftirc.net in #mirc. Enjoy the LagMeter!
} 
on *:APPACTIVE: {
  if (!$appactive) {
    if ($window(@lagmeter)) {
      window -c @lagmeter
      set %appactive on
    }
  }
  else {
    if (%appactive == on) {
      start
    }
  }
}
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 }
}