IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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 $+(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,$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