menu channel,status,menubar,query {
  -
  $iif($network,$network $+ 's Lag) { lag }
  -
}
menu @chelag.* {
  Close { window -c $+(@chelag.,$network) | end }
}
alias lag {  
  window -c $+(@chelag.,$network)  
  window -poCdw0k0 +tn $+(@chelag.,$network) -1 -1 350 105
  %lag = $ticks
  if ($server) { start }
}
alias -l start {
  %lag = $ticks
  .quote PING $ticks
  .timerlag $+ $network 0 5 .quote PING $!ticks
}
alias -l end {
  .timerlag $+ $network off
}
on *:disconnect:{
  .timerlag $+ $network off
}
on ^*:PONG:{
  if (%lag && $window($+(@chelag.,$network))) {
    clear $+(@chelag.,$network)
    drawrect -f $+(@chelag.,$network) 01 16 0 0 375 100
    drawrect -f $+(@chelag.,$network) 14 12 10 10 322 30  
    var %b = $calc($ticks - $iif($2 isnum,$2,%lag))
    if (%b >= 400) { var %color = 04 }
    elseif (%b >= 300) { var %color = 07 }
    elseif (%b >= 200) { var %color = 08 }
    elseif (%b >= 100) { var %color = 11 }
    elseif (%b isnum 1-559) { var %color = 09 }

    if (%b >= 400) { drawrect -f $+(@chelag.,$network) %color 14 10 10 322 30 } 
    elseif (%b >= 1) { drawrect -f $+(@chelag.,$network) %color 14 10 10 %b 30 } 

    drawtext $+(@chelag.,$network) 00 10 45 Lag: %b $+ ms Sunucu: $network
  }
  halt
}