a mettre dans remote
Source / Exemple :
alias -l dr drawrect $1-
alias -l f return $rgb(210,210,210) | ;couleur de fond
alias -l lb return @lagbar
alias lag {
if (!$hget(lagbar)) { mhlb | lhlb }
$iif($scid($activecid).status == connected,scid $activecid .ctcpreply $me lag $ticks,.vt non connecté)
}
alias lag.off .timerlag off | window -c $lb
;degradé
alias dgd {
var %t = 0,%x = 0,%z = 0,%y = 255,%c = $calc($1 * 51)
while (%t < %c) {
dr -nfr $lb $rgb(%x,%y,0) 1 %z $2 1 $3
$iif(%t > 255,dec %y 4,$iif(%x = 252,%x = 255,inc %x 4))
inc %z | inc %t 4
}
return
}
alias -l vt {
if (!$window($lb)) window -poBdh +dL $lb 0 0 127 20 ; -hopidkdCB +dL | window $lb $hget(lagbar,pos)
dr -nfr $lb $f 0 0 0 127 20
if (!$hget(lagbar,time)) hadd -m lagbar time 1
dgd 10 0 4
dgd $calc($1 * $hget(lagbar,time)) 4 12
dgd 10 16 4
if ($scid($activecid).status == connected) drawtext -nr $lb $rgb(0,0,0) small 11 $calc(36 - $calc($len($1) /2 )) 3 Lag $1 sec | ;text
else drawtext -nr $lb $rgb(0,0,0) small 11 $calc(36 - $calc($len($1-) /2 )) 3 Non connecté
; dr -nrc $lb $rgb(127,127,127) 1 0 0 127 20 | ;pontillé
drawdot $lb
if ($scid($activecid).status == connected) .timerlag 1 5 .lag
}
on 1:active:*:if ($window($lb)) .lag
on *:ctcpreply:lag &:{
if ($nick == $me) && ($2 isnum) {
haltdef
var %x = $calc(($ticks - $2) / 1000)
}
vt %x
}
menu @lagbar {
sclick { deplace $active $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
$iif($group(#lagbar) == on,Ne pas lancer à la connexion,Lancer à la connexion):$iif($group(#lagbar) == on,.disable #lagbar,.enable #lagbar)
-
Base Temps
.1 seconde: hadd -m lagbar time 10
.2 secondes: hadd -m lagbar time 9
.3 secondes: hadd -m lagbar time 8
.4 secondes: hadd -m lagbar time 7
.5 secondes: hadd -m lagbar time 6
.6 secondes: hadd -m lagbar time 5
.7 secondes: hadd -m lagbar time 4
.8 secondes: hadd -m lagbar time 3
.9 secondes: hadd -m lagbar time 2
.10 secondes:hadd -m lagbar time 1
-
Sauver Position:$savehlb
-
Quitter:hfree lagbar | unset %dx %dy | lag.off
}
alias -l mhlb if (!$hget(lagbar)) hmake lagbar 100
alias -l lhlb if ($isfile($hdlb)) hload lagbar $hdlb
alias -l savehlb hsave -o lagbar $hdlb
alias -l hdlb return $scriptdirlagbar.hsh
alias -l deplace {
set %dx $calc($mouse.dx - $2)
set %dy $calc($mouse.dy - $3)
window $1 %dx %dy
if ($mouse.key & 1) { .timer 1 0 deplace $1- | .timerlag off }
else { hadd -m lagbar pos %dx %dy | lag }
}
on 1:APPACTIVE:if ($window($lb)) $iif($appactive,window -o $lb,window -u $lb)
menu status,query,channel,menubar {
$iif(($status == connected) && (!$window($lb)),[LagBar],$style(2) [LagBar]):.lag
}
#lagbar off
on 1:connect:{ if (!$window($lb)) .lag }
#lagbar end
Conclusion :
mis a jour (deplacement, choix du temps de base et sauvegarde de position)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.