IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershelldamlasu
bizimkiler sihirlisohbet sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 12 Haziran 2019, 23:48   #1
Çevrimiçi
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
lag bar.


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

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

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bar, lag, lag bar
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık