Afisare lag picwin

mIRC snippet ce afiseaza lag-ul curent pe baza de picwin.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	entropy	toolbar	Cod netestat	402	2023-12-09 22:38:20

; Lag Meter v1.1 (multi network) - by entropy 2018

menu channel,status,menubar,query {
  -
  $iif($network,$network $+ `s Lag) { lag }
  -
}
menu @lag.* {
  Close { window -c $+(@lag.,$network) | end }
}
alias lag {  
  window -c $+(@lag.,$network)  
  window -poCdw0k0 +tn $+(@lag.,$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($+(@lag.,$network))) {
    clear $+(@lag.,$network)
    drawrect -f $+(@lag.,$network) 01 16 0 0 375 100
    drawrect -f $+(@lag.,$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 $+(@lag.,$network) %color 14 10 10 322 30 } 
    elseif (%b >= 1) { drawrect -f $+(@lag.,$network) %color 14 10 10 %b 30 } 

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