Lag Check

Platform: mIRC

Published Mar 26, 2004

Updated Sep 04, 2008

597 1

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

}

Comments

ShowstoppeR - Jun 19, 2004

nic3 one!

Respond