Forums Scripts & Popups lagchecker

 
---------------------
REMOTE:
--------------------

on 1:CONNECT: {
/lagnow
}

on 1:DISCONNECT: {
/lagstop
}


ON ^*:OPEN:?: {
  if ($nick == $me) {
    if (%lagt = $null) return
    var %lag = $calc(($ticks -$2) /1000)
    /set %lags %lag
   haltdef
 }
}

------------------------
ALIAS:
------------------------

/lagtest if ($server = $null) { halt } | .raw -q pong $server $server | .msg $me Lagt $ticks 
/lagnow { .timerlag 0 20 lagtest }
/lagstop { .timerlag off | .timerlags off }

;where 20 is lag check delay
 

alias lagcheck {
  if ($server) {
    .!ctcp $me LAG $ticks 
  } 
}
ctcp *:LAG:*:if ($cid == $activecid) { redraw_value $calc(($ticks - $2) / 1000) } | halt
on *:connect:{
  lagcheck
  .timerlag 0 10 lagcheck
}
on *:disconnect:{
  .timerlag off
  init_lag_face
}

on *:CONNECT:{ titlebar | $+(.timer.lag.,$cid) 1 10 § $!+ $!ticks | $+(timer.lag.,$cid) -e }
on *:DISCONNECT:$+(.timer.lag.,$cid) off
on me:*:NICK:$+(timer.lag.,$cid) 1 10 § $!+ $!ticks
raw 421:& §*:{ titlebar LAG: $calc(($ticks - $right($2,-1)) / 1000) $+ s | $+(.timer.lag.,$cid) 1 10 § $!+ $!ticks | halt }