LAG MÈTRE V1.2 BÊTA Lag, Ping, connexion, ctcp, server, Source N°44188

Information sur la source

Catégorie :AddOns Classé sous : Lag, Ping, connexion, ctcp, server Niveau : Débutant Date de création : 24/09/2007 Date de mise à jour : 24/09/2007 22:32:08 Vu / téléchargé: 1 876 / 20

Auteur : Temp_Area

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Voici un petit lag mètre que j'ai fait au début due à des problèmes de connexion afin de m'avertir quand le retour du ping ne revenait plus.

Je l'ai développé un peu plus et j'ai amélioré le design pour le partager aux autres.

Source

dialog lagm {
title "LagMètre"
size -1 -1 57 25
option dbu
box "", 1, 1 -1 30 14
icon 2, 32 2 11 11, lagm\blank.jpg
button "Quit", 3, 9 30 37 12, ok cancel
text "#LOAD#", 4, 3 4 26 8, center
edit "version 1.3 Bêta", 5, 1 14 55 10, read center
button "?", 6, 44 2 11 10, flat
}
dialog lagm.apropos {
title "A propos - Lag mètre"
size -1 -1 174 122
option dbu
icon 1, 2 2 73 43, lagm\lag.png, 0, noborder
button "Ok", 2, 160 108 12 12, ok cancel
text "Version 1.3 Bêta", 3, 21 46 53 8, right
text "Codeur : TempArea", 4, 77 4 48 8
text "Contact :", 5, 77 12 23 8
link "mailto:TempArea@gmail.com", 6, 100 12 72 8
text "Ce script a été créé entièrement par l'auteur et non copié, merci de respecter le code source.", 7, 80 23 91 22, center
text "Légende : ", 8, 2 55 25 8
icon 9, 2 65 10 10, lagm\warn.png, 0
text "Le script ne reçois plus de retour après 3sec. (Ping TimeOut)", 10, 15 67 157 8
icon 11, 2 77 10 10, lagm\arrow_up.jpg, 0
icon 12, 2 89 10 10, lagm\arrow_down.jpg, 0
text "Envoie de la requête PING", 13, 15 78 157 8
text "Réception de la requête PING", 14, 15 90 141 8
text "Merci à TeXoR pour les tests de Ping TimeOut", 15, 5 109 109 8, right
box "Spécial Thanks :)", 16, 2 101 114 19
}
Alias Lag.Init {
unset %lagm*
if (!$dialog(lagm)) { dialog -m lagm lagm }
did -g lagm 2 lagm\blank.jpg
set %lagm.connect on
set %lagm.server $server
.timerlagm 0 3 .lagm
lagm
}
On *:CONNECT:lag.init
On *:DISCONNECT:{
if ($server == %lagm.server) { unset %lagm* | .timerlagm* off | did -g lagm 2 lagm\err.jpg | did -r lagm 4 }
}
Alias Lagm {
if (%lagm.send == 1) { set %lagm.warn 1 | did -g lagm 2 lagm\warn.png }
else { set %lagm.ticks $dll(lagm\game_tools.dll,ticks,.) | .ctcp $me LAGM %lagm.ticks | lag.up | set %lagm.send 1 | .timerlagm.timeout 1 300 lagm }
}
Alias Lag.Up { did -g lagm 2 lagm\arrow_up.jpg | .timerlagmsend -m 1 500 $iif(arrow_up isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
Alias Lag.Down { did -g lagm 2 lagm\arrow_down.jpg | .timerlagmget -m 1 500 $iif(arrow_down isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
Ctcp *:LAGM:*:{
if (%lagm.send == 1) { unset %lagm.send | lag.down }
if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) > 3) { set %lagm.result $calc(($dll(lagm\game_tools.dll,ticks,.) - $2) / 1000) $+ s }
if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) < 4) { set %lagm.result $calc($dll(lagm\game_tools.dll,ticks,.) - $2) $+ ms }
did -ar lagm 4 %lagm.result
if ($did(lagm,5) != $ip ) { did -ar lagm 5 $ip }
lag.down
if ($timer(lagm.timeout)) { .timerlagm.timeout off }
halt
}
On *:DIALOG:lagm:sclick:6:dialog -m lagm.apropos lagm.apropos

dialog lagm {
  title "LagMètre"
  size -1 -1 57 25
  option dbu
  box "", 1, 1 -1 30 14
  icon 2, 32 2 11 11, lagm\blank.jpg
  button "Quit", 3, 9 30 37 12, ok cancel
  text "#LOAD#", 4, 3 4 26 8, center
  edit "version 1.3 Bêta", 5, 1 14 55 10, read center
  button "?", 6, 44 2 11 10, flat
}

dialog lagm.apropos {
  title "A propos - Lag mètre"
  size -1 -1 174 122
  option dbu
  icon 1, 2 2 73 43, lagm\lag.png, 0, noborder
  button "Ok", 2, 160 108 12 12, ok cancel
  text "Version 1.3 Bêta", 3, 21 46 53 8, right
  text "Codeur : TempArea", 4, 77 4 48 8
  text "Contact :", 5, 77 12 23 8
  link "mailto:TempArea@gmail.com", 6, 100 12 72 8
  text "Ce script a été créé entièrement par l'auteur et non copié, merci de respecter le code source.", 7, 80 23 91 22, center
  text "Légende : ", 8, 2 55 25 8
  icon 9, 2 65 10 10, lagm\warn.png, 0
  text "Le script ne reçois plus de retour après 3sec. (Ping TimeOut)", 10, 15 67 157 8
  icon 11, 2 77 10 10, lagm\arrow_up.jpg, 0
  icon 12, 2 89 10 10, lagm\arrow_down.jpg, 0
  text "Envoie de la requête PING", 13, 15 78 157 8
  text "Réception de la requête PING", 14, 15 90 141 8
  text "Merci à TeXoR pour les tests de Ping TimeOut", 15, 5 109 109 8, right
  box "Spécial Thanks :)", 16, 2 101 114 19
}

Alias Lag.Init {
  unset %lagm*
  if (!$dialog(lagm)) { dialog -m lagm lagm }
  did -g lagm 2 lagm\blank.jpg
  set %lagm.connect on
  set %lagm.server $server
  .timerlagm 0 3 .lagm
  lagm
}

On *:CONNECT:lag.init
On *:DISCONNECT:{ 
  if ($server == %lagm.server) { unset %lagm* | .timerlagm* off | did -g lagm 2 lagm\err.jpg | did -r lagm 4 }
}

Alias Lagm {
  if (%lagm.send == 1) { set %lagm.warn 1 | did -g lagm 2 lagm\warn.png }
  else { set %lagm.ticks $dll(lagm\game_tools.dll,ticks,.) | .ctcp $me LAGM %lagm.ticks | lag.up | set %lagm.send 1 | .timerlagm.timeout 1 300 lagm } 
}

Alias Lag.Up { did -g lagm 2 lagm\arrow_up.jpg | .timerlagmsend -m 1 500 $iif(arrow_up isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
Alias Lag.Down { did -g lagm 2 lagm\arrow_down.jpg | .timerlagmget -m 1 500 $iif(arrow_down isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }

Ctcp *:LAGM:*:{
  if (%lagm.send == 1) { unset %lagm.send | lag.down }
  if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) > 3) { set %lagm.result $calc(($dll(lagm\game_tools.dll,ticks,.) - $2) / 1000) $+ s }
  if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) < 4) { set %lagm.result $calc($dll(lagm\game_tools.dll,ticks,.) - $2) $+ ms  }
  did -ar lagm 4 %lagm.result
  if ($did(lagm,5) != $ip ) { did -ar lagm 5 $ip }
  lag.down
  if ($timer(lagm.timeout)) { .timerlagm.timeout off }
  halt
}

On *:DIALOG:lagm:sclick:6:dialog -m lagm.apropos lagm.apropos

Conclusion

Extraire le dossier "lagm" dans la racine de mIRC
- /load -rs lagm\lagm.txt
- Je n'ai pas mis de On Load, c'est /lag.init pour lancer le script ou redémarrer mIRC

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

lagm
- arrow_down.jpg 22 394 octets
- arrow_up.jpg 22 408 octets
- blank.jpg 21 744 octets
- CHANGELOG.txt 1 014 octets
- err.jpg 22 930 octets
- game_tools.dll8 801 octets
- lag.png 13 554 octets
- lagm.txt 2 770 octets
- warn.png 3 522 octets

Télécharger le zip

Historique

24 septembre 2007 21:15:21 :: #################### #24.09.07# v1.2 Bêta #################### #[ADD] : Ajoute d'une sécurité en cas de déconnexion #[ADD] : Ajoute d'une image "Erreur" qui s'affiche si le lag mètre n'est pas connecté #[FIX] : Modification des images gif pour une compatibilité avec mIRC <= 6.1x #[FIX] : Optimisation du code #################### #23.09.07# v1.1 Bêta #################### #[FIX] : Correction de certain url local #[FIX] : Modification du système d'initialisation #[FIX] : Correction de l'affichage du lag #[FIX] : Il est possible de Copier/Coller l'adresse IP pendant un ping #[FIX] : Correction de bug d'Alias #[FIX] : Opitimisation du code #################### #23.09.07# v1.0 Bêta #################### # Création du lag mètre
24 septembre 2007 21:33:26 :: -
24 septembre 2007 22:32:08 :: #[ADD] : Ajoute de la dll game_tools.dll pour améliorer la précision (Merci ISoKa) #[ADD] : Support de plusieurs serveurs #[FIX] : Modification de certaine commande pour qu'elles devient invisible

Sources du même auteur

IDENTIFICATION REFLEX

Toutes les sources de Temp_Area

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

Commentaires

Commentaire de ISoKa le 24/09/2007 21:25:59

Bonjour,

un lagmetre on en a deja vu pas mal mais bon pk pas. tu devrais mettre le code sur la page pck dld le zip pour mater c lourd surtout qu'il est pas trés long. Pour ce qui est du code bin rien de spé en meme temps comme le code est court pas grand chose à décortiker. toutefois le codage est propre je trouve.
par contre vu qu'on cherche vraiment de la précision dans un lagmetre peut etre que l'appel d'une dll serai plus à propo plutot que $ticks ki est pas forcement super précis http://picwin.scriptsdb.org/comments.php?id=23 de plus pense à unset les var ke tu utilises.
Le point que j'aime bien c'est que ton truc est relativement bien présenté nivo dialog c agréable à l'oeil.Mais pense tout de meme à develloper un peu ca pck ca peche un peu par manke d'originalité.
Commentaire de Temp_Area le 24/09/2007 21:41:02

"un lagmetre on en a deja vu pas mal mais bon pk pas"
Je n'en trouvais pas des comme je voulais ^^ Je suis difficile

Le dll est bizard, je passe de 15ms à 24ms, c'est possible ? Si c'est vrai en effet c'est pas très précis les $ticks ^^ Je le rajouterai dans la prochaine version.

Les var se unset à chaque démarrage ou déconnexion du script. Je ne voyais pas trop l'utiliter d'unset des vars qui change toutes les 3sec.

"Mais pense tout de meme à develloper un peu ca pck ca peche un peu par manke d'originalité."
Comment sa ? :/ Mon but est justement de faire une dialog compacte et discrèt ^^ J'aimerai bien la transformer en barre mais c'est inutil de se lancer avec des dll dans tout les coins ^^
Commentaire de wims le 25/09/2007 19:50:55

Comme dis plus haut, poster une bars de lag n'est pas des plus original, qui plus est en dialog... mais bon cependant, c'est plutot bien fait (d'après le screen).
Bon ça peut paraitre con a dire mais le faire en picwin aurait été mille fois mieux, tu évites ainsi les icone, et tu utilise s les couleurs pour exprimé l'intensité du lag.Je ne vois pas le rapport avec l'ip.Ce n'est pas assez configurable, on ne peut choisir le temps de rafraichissement du lag, et avoir un dialog comme ça en plein milieu tout le temps, c'est pas top non plus, quitte a utilisé une dll, docké le dialog serait pas une mauvaise chose.

Et quant a l'utilisation de la dll gametool pour avoir un ticks plus précis, c'est vraiment pas utile je crois, la dll ne renvois qu'une valeur plus précise, donc au lieu d'avoir 150,3 ms de lag, tu aura 150,2876 un truc dans le genre enfin bon, pas utile selon moi mais pas sur :)
Commentaire de KiNdErMaXi le 29/09/2007 16:34:31

Niveau fonctionnement :
Le timer se coupe pas quand on ferme le dialog, ce qui donne lieu à des "* /did: invalid parameters (line 55, lagm.txt)".
Et à mon avis, la fréquence de requête est trop rapide, j'ai peur que ça fasse ramer plutôt qu'autre chose.

Voilà :)

Ajouter un commentaire

Discussions en rapport avec ce code source

Connexion list par DiGhan

connexion automatique sur chat-land.org par J4Gu4R

Server Irc.mondial.fr par Floorfilla91

Demande par alexandre9000

lag intempestif par Camanche

Server irc.Telethon.fr par Floorfilla91

sockudp aide svp :) par zeprex

notice d'nvitation server par doob666

executions des bonnes commandes selon le server par lebaronrouge