Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LAGBAR EN PICWIN DEGRADÉ


Information sur la source

Catégorie :AddOns Niveau : Initié Date de création : 24/03/2004 Date de mise à jour : 30/07/2006 04:14:07 Vu : 3 555

Note :
Aucune note

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
a mettre dans remote

 

Source

  • 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
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)
 

Historique

26 juillet 2006 01:03:43 :
mis a jour (deplacement, choix du temps de base et sauvegarde de position)
26 juillet 2006 01:20:45 :
mis a jour (deplacement, choix du temps de base et sauvegarde de position)
30 juillet 2006 04:13:19 :
screenshot
30 juillet 2006 04:14:07 :
capture

Commentaires et avis

signaler à un administrateur
Commentaire de Seregon le 24/03/2004 07:34:53

Au lieu de passer par ctcpreply pour calculer ton lag je te conseille d'envoyer un ping au server

signaler à un administrateur
Commentaire de ennery le 24/03/2004 14:30:54

je me suis servi du snippet de ClickHeRe

signaler à un administrateur
Commentaire de SornDrixer le 24/03/2004 17:22:35 administrateur CS

J'aurais bien aimé un screenshot de la lagbar, pour voir se que cela donne.

signaler à un administrateur
Commentaire de DarKiNg virus le 25/03/2004 10:50:04

recadre la....

signaler à un administrateur
Commentaire de KiNdErMaXi le 01/09/2004 02:18:26

lé très zolie :)
bvo

signaler à un administrateur
Commentaire de Damien520 le 28/01/2005 18:44:30

Oui c dommage qu'elle ne soit pas bien placé
Sinon bvo

signaler à un administrateur
Commentaire de KiNdErMaXi le 28/01/2005 18:56:19

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

signaler à un administrateur
Commentaire de Kti le 27/12/2005 19:00:10

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 ^^

signaler à un administrateur
Commentaire de aurel212 le 17/05/2006 17:43:53

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
++

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,328 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.