[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias ticks.decode return $replace($1,1,a,2,b,3,c,4,d,5,e,6,f,7,g,8,h,9,i,0,s)
alias ticks.encode return $replace($1,a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8,i,9,s,0)
alias c.lag {
  var %w $+(@Lags,$r(1,99)), %b $colour($color(background)), %t $colour($color(msg)), %d $colour(14), %a 255, %s 1
  .window -k0ph %w 0 0 400 100
  drawrect -rn %w %b 2000 0 0 0 0
  drawtext -ro %w %t $qt(Courier New) 12 10 15 [Lag]
  drawtext -ro %w %t $qt(Courier New) 12 155 15 [S/Ms]:
  drawtext -ro %w %a $qt(Courier New) 12 205 15  $replace($1,.,/)
  drawtext -ro %w %t $qt(Courier New) 12 255 15 [Saat]: $time(HH:nn)
  drawrect -r %w %t 1 50 14 100 20
  while %s <= 92 {
    drawrect -r %w %d 5 $calc(52 + %s) 17 5 15
    inc %s 6
  }
  tokenize 32 $mls($1)
  var %q $iif($1 >= 0 && $1 <= 100,10,$iif($1 >= 101 && $1 <= 200,20,$iif($1 >= 201 && $1 <= 400,30,$iif($1 >= 401 && $1 <= 600,50,$iif($1 >= 601 && $1 <= 1000,60,$iif($1 >= 1001 && $1 <= 1500,70,$iif($1 >= 1501 && $1 <= 2000,80,92))))))), %s 1
  while %s <= %q {
    drawrect -r %w %a 5 $calc(52 + %s) 17 5 15
    inc %s 6
  }
  .drawsave -q100 %w sounds\lags.jpg
  if ($window($active).type = status) .background -ap $shortfn(sounds\lags.jpg) 
  if ($istok(custom channel query,$window($active).type,32)) .background -p $active $shortfn(sounds\lags.jpg)
  .window -c %w
}
alias lag.bars .ctcp $me Lag $ticks.decode($ticks)
alias mls if $regex($1,\.) && $gettok($1,1,46) = 0 { return $gettok($1,2,46) } | else return $remove($1,.)
ctcp ^*:lag*:c.lag $calc($calc($ticks - $ticks.encode($2)) / 1000) | haltdef
on *:connect:$+(.timerlag,$network) 0 2 lag.bars