| immortaL | 12 Haziran 2019 23:48 |
lag bar.
Kod:
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
|
