LagCheck by Protheus

alias lagcheck {
  if (%hilag == $null) { set %hilag -1 }
  if (%lolag == $null) { set %lolag 999 }
  set %lagchan $chan
  .enable #lagcheck 
  .raw $ticks 
}
menu channel { 
  Check lag:lagcheck 
}
#lagcheck off
raw 421:*: {
  var %lag = $calc(($ticks - $2) / 1000)
  if (%lag > %hilag) { set %hilag %lag }
  if (%lag < %lolag) { set %lolag %lag }
  msg %lagchan 3{14-3 %lag 14seconds. $& 14Highest:3 %hilag $+ s; 14Lowest:3 %lolag $+ s. 14-3} 
  .disable #lagcheck 
  haltdef
}
#lagcheck end

on *:TEXT:*:#: {
  if $1 == .lag {
    /lagcheck
  }
}