Lagbar en picwin degradé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 650 fois - Téléchargée 30 fois

Contenu du snippet

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)

A voir également

Ajouter un commentaire Commentaires
Messages postés
24
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
31 mai 2007

elle est magnifique mais super mal placée :/ domage... elle serai ds la toolbar j'aurai mi un ptit 8/10 ( surtout ss dll ni mdx... c'est pa mal =) ) a retravailler
++
Messages postés
4
Date d'inscription
dimanche 20 février 2005
Statut
Membre
Dernière intervention
29 juin 2005

Bonsoir à tous je viens de découvrir cet addon qui est pas mal du tout mais j'aimerai savoir comment rajouter une commande pour dire son lag. Pourriez-vous m'aider ?

Merci d'avance ^^
Messages postés
1052
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2
oui c'est vrai tu pourrai mettre un alias du genre :
alias -l pw.deplace {
window $1 $calc($mouse.dx - $2) $calc($mouse.dy - $3)
if ($mouse.key & 1) .timer $+ $ticks -m 1 0 pw.deplace $1-
}
j'ai trouver ceci sur scriptdb, il permet de faire bouger la fenetre en cliquant dessus
je ne sais plus trop comment cela s'utilise ca doit etre un truc du genre : /pw.deplace @window [placement de la @win en x] [placement de la @win en y] [largeur] [hauteur]
je ne suis sur de rien
Messages postés
13
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
18 juillet 2005

Oui c dommage qu'elle ne soit pas bien placé
Sinon bvo
Messages postés
1052
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2
lé très zolie :)
bvo
Afficher les 9 commentaires

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.