Put this in remotes

on ^*:connect: {
  .timer5000. $+ $cid 0 15 Lag-Detect
}

alias Lag-Detect {
  if (%Lag-Detect.001 == $null) {
    raw -q Lag-Detect- $+ $ticks $+ - $+ $ctime
    halt
  }
  inc %Lag-Detect.002
  if (%Lag-Detect.002 == 4) || (%Lag-Detect.002 == 8) {
    raw -q Lag-Detect- $+ $ticks $+ - $+ $ctime
  }
  if (%Lag-Detect.002 == 10) {
    server EFnet
    titlebar 2min 30sec No Replay From Server Jumping Servers
    halt
  }
  titlebar ** Lag is ( $+ $duration($calc(%Lag-Detect.002 * 15)) at $atime $+ ) UpTime: ( $+ $uptime(system,2) $+ ) OnLine ( $+ $uptime(server,2) $+ ) **
}

alias atime {
  return $time(h:nn tt)
}

;Unknown command Lag Detect
raw 421:*Lag-Detect*: {
  ;Lag-Detect- $+ $ticks $+ - $+ $ctime Unknown command
  var %Lag-Detect.sec $calc($ctime - $gettok($gettok($1-,4,45),1,32))
  var %Lag-Detect.ms $calc($ticks - $gettok($gettok($1-,3,45),1,32))
  var %Lag-Detect.ms $left($right(%Lag-Detect.ms,4),3)
  titlebar Lag is ( $+ $remove($duration(%Lag-Detect.sec),secs,sec) $+ . $+ %Lag-Detect.ms $+ sec at $atime $+ ) UpTime: ( $+ $uptime(system,2) $+ ) OnLine ( $+ $uptime(server,2) $+ )
  unset %Lag-Detect.*
  halt
}