begin process at 2010 02 09 20:56:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > LAGBAR EN MDX, TRÈS TRÈS BELLE!

LAGBAR EN MDX, TRÈS TRÈS BELLE!


 Information sur la source

Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Débutant Date de création :28/07/2003 Date de mise à jour :28/07/2003 16:52:01 Vu :7 892

Auteur : KOLANTA

Ecrire un message privé
Commentaire sur cette source (34)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Bon, la dernière source que j'ai ajouté n'était pas originale, je le reconnais, alors j'ai décidé d'en faire une ORIGINALE! Je ne pense pas avoir déjà vu de LagBar en mdx (seulement dans certains scripts) alors voilà, j'en ai fait une. C'est un dialog qui s'ouvrira lors de la connexion et qui s'incrustera à côté de la toolbar de mIRC. Pour que ça fasse beau, vaut mieux mettre un fond noir pour la toolbar et la switchbar de mIRC, pour les utilisateurs un peu plus avancés, changez les codes $rgb. Le code de lag n'est pas de moi, je l'ai trouvé je ne sais plus où (sûrement ici) mais le dialog et tous les autres trucs sont de moi.


Source

  • alias mdx {
  • var %dll = $mircdirmdx $+ \mdx.dll
  • return $dll(%dll,$1,$2-)
  • }
  • dialog lag {
  • size 550 40 175 0
  • title "Lag"
  • text "Lag:",1,6 3 25 17
  • text "",2,33 3 33 17
  • text "30 0 100",3,68 3 100 16
  • }
  • on *:dialog:lag:init:00:{
  • mdx SetMircVersion $version
  • mdx MarkDialog lag
  • mdx SetDialog lag bgcolor $rgb(0,0,0)
  • mdx SetDialog lag style tool
  • mdx SetColor 1,2 text $rgb(255,255,255)
  • mdx SetColor 1,2 background $rgb(0,0,0)
  • mdx SetColor 1,2 textbg $rgb(0,0,0)
  • mdx SetControlMDX lag 3 ProgressBar smooth > $mircdirMDX\ctl_gen.mdx
  • did -i lag 3 1 barcolor $rgb(255,0,0)
  • did -i lag 3 1 bgcolor $rgb(0,0,0)
  • did -a lag 3 1
  • }
  • on *:disconnect:{
  • dialog -x lag lag
  • }
  • on *:connect:{
  • .timer 0 3 lm
  • dialog -m lag lag
  • }
  • alias lm {
  • .ctcpreply $me LC $ticks
  • }
  • ON *:CTCPREPLY:LC &: {
  • set %lag $calc(($ticks -$2) / 1000),-3) s
  • did -a lag 2 %lag
  • if (%lag > 4.00 s) { did -a lag 3 100 }
  • if (%lag <= 4.00 s) && (%lag > 3.00 s) { did -a lag 3 90 }
  • if (%lag <= 3.00 s) && (%lag > 2.00 s) { did -a lag 3 80 }
  • if (%lag <= 2.00 s) && (%lag > 1.00 s) { did -a lag 3 70 }
  • if (%lag <= 1.00 s) && (%lag > 0.90 s) { did -a lag 3 60 }
  • if (%lag <= 0.90 s) && (%lag > 0.70 s) { did -a lag 3 50 }
  • if (%lag <= 0.70 s) && (%lag > 0.50 s) { did -a lag 3 40 }
  • if (%lag <= 0.50 s) && (%lag > 0.30 s) { did -a lag 3 30 }
  • if (%lag <= 0.30 s) && (%lag > 0.10 s) { did -a lag 3 20 }
  • if (%lag <= 0.10 s) && (%lag > 0.01 s) { did -a lag 3 10 }
  • if (%lag <= 0.01 s) { did -a lag 3 1 }
  • halt
  • }
alias mdx {
  var %dll = $mircdirmdx $+ \mdx.dll
  return $dll(%dll,$1,$2-)
}
dialog lag {
  size 550 40 175 0
  title "Lag"
  text "Lag:",1,6 3 25 17
  text "",2,33 3 33 17
  text "30 0 100",3,68 3 100 16
}
on *:dialog:lag:init:00:{
  mdx SetMircVersion $version
  mdx MarkDialog lag 
  mdx SetDialog lag bgcolor $rgb(0,0,0)
  mdx SetDialog lag style tool
  mdx SetColor 1,2 text $rgb(255,255,255)
  mdx SetColor 1,2 background $rgb(0,0,0)
  mdx SetColor 1,2 textbg $rgb(0,0,0)
  mdx SetControlMDX lag 3 ProgressBar smooth  > $mircdirMDX\ctl_gen.mdx
  did -i lag 3 1 barcolor $rgb(255,0,0)
  did -i lag 3 1 bgcolor $rgb(0,0,0)
  did -a lag 3 1
}
on *:disconnect:{
  dialog -x lag lag
}
on *:connect:{
  .timer 0 3 lm
  dialog -m lag lag
}
alias lm { 
  .ctcpreply $me LC $ticks
}
ON *:CTCPREPLY:LC &: { 
  set %lag $calc(($ticks -$2) / 1000),-3) s
  did -a lag 2 %lag
  if (%lag > 4.00 s) { did -a lag 3 100 }
  if (%lag <= 4.00 s) && (%lag > 3.00 s) { did -a lag 3 90 }
  if (%lag <= 3.00 s) && (%lag > 2.00 s) { did -a lag 3 80 }
  if (%lag <= 2.00 s) && (%lag > 1.00 s) { did -a lag 3 70 }
  if (%lag <= 1.00 s) && (%lag > 0.90 s) { did -a lag 3 60 }
  if (%lag <= 0.90 s) && (%lag > 0.70 s) { did -a lag 3 50 }
  if (%lag <= 0.70 s) && (%lag > 0.50 s) { did -a lag 3 40 }
  if (%lag <= 0.50 s) && (%lag > 0.30 s) { did -a lag 3 30 }
  if (%lag <= 0.30 s) && (%lag > 0.10 s) { did -a lag 3 20 }
  if (%lag <= 0.10 s) && (%lag > 0.01 s) { did -a lag 3 10 }
  if (%lag <= 0.01 s) { did -a lag 3 1 }
  halt
}

 Conclusion

Pour faire marcher la lagbar, il vous faut placer les 4 fichiers *.mdx et le fichier MDX.dll dans un dossier appellé mdx et contenu dans votre script bien sûr, vous trouverez ces fichiers un peu partout, ya qua chercher un peu ;)

J'espère que ça vous plaira et que vous trouvez ma source "originale"!

Enjoy, KOLANTA


 Sources du même auteur

COMMANDES FANTAISISTES (!OP, !DEOP, !VOICE...)

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Commentaires et avis

Commentaire de KOLANTA le 28/07/2003 16:56:17

Euh j'ai oublié de changer le niveau, je mettrai ça dans du 2, pas vous?

Commentaire de HeXoR le 28/07/2003 19:03:31

Moi je mettrai pas ça dans du niveau 2, il y a rien de bien compliqué...

Commentaire de doodah le 28/07/2003 19:55:13

j'ai pas compris comment mettre la barre :( tu peus m'expliquer en detail :(

Commentaire de KOLANTA le 28/07/2003 21:17:55

Et bien laissons ce code en catégorie 1 HeXor. Pour mettre la bar, tu copies le code, tu le met dans ton script, tu télécharges les 4 fichiers mdx ainsi que le fichier dll mdx.dll, généralement ils sont tous ensembles, tu crées un dossier "mdx" dans ton script et tu les copies dedans. J'espère que j'ai été clair ;)

J'avoue que c'est pas compliqué à scripter mais j'aimerai avoir ton avis sur l'orginalité HeXoR.

@+

Commentaire de doodah le 28/07/2003 21:23:11

lol mais je les telecharges ou ses fichiers?

Commentaire de thyb le 29/07/2003 00:32:01

bah c une lag bar lol
pour l'originaliter, sa depend sur quel script tu tombe mais il y a souvent des lagbar et heu, au niveau de la beauter de ta lagbar, bah il y a plus beau :) car tu pourrai changer la couleur de ta bar suivant si tu lag bcp ou pas
bonne continuation :)

Commentaire de Cl1cKHer3 le 29/07/2003 10:25:18

niveau 2 :/

Commentaire de KOLANTA le 29/07/2003 11:05:14

Vous pouvez trouver les fichiers mdx à: http://foxscripting.levillage.org/dlls/mdx.zip

Merci pour l'idée thyb de changer la couleur de la barre selon le lag et merci pour tes encouragements. D'après les commentaires donc, laissons cette source en niveau 1. @+

Commentaire de HeXoR le 29/07/2003 15:01:34

J'ai légèrement retouché ton code pour que la couleur de la LagBar se fonce (jaune -&gt; rouge) en fonction du lag. Donc faut remplacer tout ce qu'il y a entre le "ON *:CTCPREPLY:LC &: {" et le "}", par :

ON *:CTCPREPLY:LC &: {
  set %lag $calc(($ticks -$2) / 1000),-3) s
  did -a lag 2 %lag
  did -a lag 3 $calc($remove(%lag, s) * 20)
  did -i lag 3 1 barcolor $rgb(255,$round($calc((100 - $remove(%lag, s) * 20) / 100 * 255), 0), 0),0)
  halt
}

Commentaire de KOLANTA le 29/07/2003 15:08:36

Bah cool de l'avoir fait car les messages le demandaient ;)

Commentaire de HeXoR le 29/07/2003 15:11:53

Oué et puis en même temps ça raccourci ton code : moi en 1 ligne je fais cke ta mis en 10 lignes et en plus précis :p

Commentaire de KOLANTA le 30/07/2003 12:36:59

lol

Commentaire de PuMaZ le 06/08/2003 17:30:16

Pas mal mais même si c inutil t'aurai du fere un truc qui actualise quand le dialog est ouvert , dans l'event init »
.timerlag 0 5 actu

et un alias » alias actu { $iif($dialog(lag).title != $null,lm) }
enfin un truc tout con koi , sinon pas mal en effet

Commentaire de PuMaZ le 06/08/2003 17:31:37

A noté que je sais que ta foutu un une actualisation auto lors de la conenction , mais je vuolais dire quand le dialoog s'ouvre pour quand on le lance , :] car si on es connect l'event peut pa se relancé , tu voi ske jve dire ?

Commentaire de KOLANTA le 06/08/2003 22:33:12

Euh négatif, j'ai pas trop compris ce que tu voulais faire exactement :p

Commentaire de Remi3d le 25/08/2003 21:45:17

hum le site que ta fourni est introuvable (erreur 404) t'en a pas un autre stp?

Commentaire de KOLANTA le 26/08/2003 12:13:27

Eh, suffit de chercher un peu sur Google, voici le lien: http://fiz.blackedout.org/dl/mdx.zip

Voilà mon garçon

Commentaire de Remi3d le 27/08/2003 11:33:34

hu dsl mais g pas compris comment on fait pour l'afficher ta super belle barre la elle est reduite...

Commentaire de Remi3d le 27/08/2003 11:43:08

putain je suis con ou quoi c bon laisse tombvé mon commentaire g compris..

Commentaire de Merakline le 30/08/2003 14:30:28

g fé kome ta di g tou mis ds mdx et g copier le code ds script
mais ou é la barre ?? jla voi pa... :/

Commentaire de KOLANTA le 02/09/2003 12:31:18

Tout d'abord Remi3d j'ai mes raisons de ne pas répondre, j'étais en Angleterre durant 4 jours, je ne peux pas être au four et au moulin en même temps donc tu pourras garder tes réflexions la prochaine fois... Alors si vous avez suivi toutes les instructions, c'est normal que la barre ne se lance pas aussitôt, elle se lance à la connexion et se ferme à la déconnexion. Voilà, ciao

Commentaire de HeXoR le 02/09/2003 13:11:09

Ne gère pas les multi serv :/ un peu embêtant

Commentaire de Merakline le 03/09/2003 13:16:40

he bé jla voi pa kan mm jpense ke mon script il a des protection :) spa grave :)

Commentaire de KOLANTA le 03/09/2003 20:05:07

Bah j'ai le même problème avec ma toolbar HeXoR, elle ne gère pas encore le multi-server mais pour la toolbar désolé je n'ai plus de temps à consacrer au mIRC Scripting :((, je verrai si j'ai le temps l'amélioration de cette barre, ciao

Commentaire de VestaX le 22/12/2003 22:35:53

Hmm moi personnelement la barre ne change pas. ca reste bloqué a 7.22 et la barre n'augmente pas apparament elle beug ta barre

Commentaire de VestaX le 22/12/2003 22:59:32

hmm c bon g trouvé par contre g moddif ton code
set %lag $calc(($ticks -$2) / 1000),-3) s
par
  set %lag $calc(($ticks -$2) / 100),-3) s
pour que ca retourne en secondes.

car par 1000 c trop la merde. Autrement bien joué
:)

Commentaire de duduchmann le 03/08/2004 02:25:43

il y a moy d'avoir une news url pr dl les fichiers : mdx

Commentaire de duduchmann le 03/08/2004 03:49:29

pas de pb , jai trouver grace a un autre script , mais bizarement , je n'ai pas la même chose que lui !!
De plus , il eut changer les couleur , mais pas moi :s

Commentaire de duduchmann le 03/08/2004 04:36:38

j'été trouver un addon vennant d'ici aussi qui à lair de resemlé a celui que vous avez , mais en englais

; technique lag bar v.09 June 6 2002 for mIRC 5.91, 6.0, 6.01 and above by ex|l- (Ryan)
; Contact Email: linxsrc@berlin.com Website: http://techniquescript.cjb.net or http://kickme.to/technique
; For my friends and those who want a sweet pic win lagbar with options!
; Thanks to dohcan for tbwin.dll and sample script from which I learned from. :)
; Important note if you ignore notices or ctcps this wont work, depends on the method! <------------------ IMPORTANT
; The script will stop itself if it detects notice or ctcp ignores on yourself! Change your ignore status
; then type /lag.start to turn back on! Ignores on other users wont affect this, just yourself!
; Use the raw method if you have probs with the ignores!
; If you right click on lagbar it has popup and if you close lagbar to turn it back on type /lag.start
; Leave all this code in the same file and make sure tbwin.dll is in script dir or mirc dir!
; This is a bug fix version with oval switch added as well.
on master:TEXT:`lag:*:{ lag.msg }
menu @lag.win {
    &color
    .&lag
    ..&red:{ lag.red }
    ..&blue:{ lag.blue }
    ..&green:{ lag.green }
    ..&yellow:{ lag.yellow }
    ..&orange:{ lag.orange }
    ..-
    ..&custom:{ lag.custom }
    .-
    .&text:{ lag.stext }
    .&border:{ lag.sborder }
    .&background:{ lag.sface }
    .-
    .&default values:{ lag.defaults }
    .-
    &delay
    .&current $+($lag.delay,s):{ lag.stime }
    &style
    .$iif($readini($lag.spc($script),lagstuff,oval) == 1,$style(1) &oval,&oval):{ lag.oval.set $iif($readini($lag.spc($script),lagstuff,oval) == 1,0,1) | $lag.style }
    .-
    .$iif($readini($lag.spc($script),lagstuff,style) == small,$style(1) &small,&small):{ lag.style.set small | $lag.style }
    .$iif($readini($lag.spc($script),lagstuff,style) == classic,$style(1) &classic,&classic):{ lag.style.set classic | $lag.style }
    -
    $iif($active ischan,&say lag):{ lag.msg }
    &method
    .$iif($readini($lag.spc($script),lagstuff,method) == raw,$style(1) &raw,&raw):{ lag.method.raw }
    .$iif($readini($lag.spc($script),lagstuff,method) == ctcp,$style(1) &ctcp,&ctcp):{ lag.method.ctcp }
    .-
    .$iif($readini($lag.spc($script),lagstuff,method) == notice,$style(1) &notice,&notice):{ lag.method.notice }
    $iif($version >= 6.0,&network)
    .&current $lower($scid($timer(.lag.chk).cid).network):{ echo $color(info) -a *** Currently checking your lag on Network: $+($chr(2),$scid($timer(.lag.chk).cid).network,$chr(2)) Server: $+($chr(2),$scid($timer(.lag.chk).cid).server,$chr(2)) }
    -
    &close:{ lag.stop | echo $color(info) -a *** Stopped all lag bar functions, to turn back on type /lag.start }
}
alias -l lag.bar {
    lag.win.size
    tbwin Attach @lag.win
    var %z = $dll($_tbwin,GetTBInfo,NOT_USED),%w = $gettok(%z,1,32),%h = $gettok(%z,2,32)
    lagbar.size %w %h
    tbwin OnSize /lagbar.size
    lag.update
    window -a @lag.win
}
alias lag.update { if ($window(@lag.win)) { $lag.style } }
alias lag.win.size { window -phB +d @lag.win 0 0 200 22 }
alias lagbar.size { window @lag.win $calc($1 - 195) $int($calc(($2 - 22) / 2)) 200 22 }
alias -l lag.oval.set { writeini -n $lag.spc($script) lagstuff oval $1 }
alias -l lag.oval { return $iif($readini($lag.spc($script),lagstuff,oval) == 1,d)) }
alias -l lag.style.set { writeini $lag.spc($script) lagstuff style $1 }
alias -l lag.sface { writeini -n $lag.spc($script) lagstuff face $$input(Enter a rgb color/value for the background eg. $+($chr(36),rgb,$chr(40),face,$chr(41)),129) | $lag.style }
alias -l lag.style { return $iif($readini($lag.spc($script),lagstuff,style),$+(lag.,$ifmatch),$+(lag.,classic)) }
alias -l lag.face { return $iif($readini($lag.spc($script),lagstuff,face),$ifmatch,$rgb(face))) }
alias -l lag.stext {    writeini -n $lag.spc($script) lagstuff text $$input(Enter a rgb color/value for the text eg. $+($chr(36),rgb,$chr(40),text,$chr(41)),129) | $lag.style }
alias -l lag.text { return $iif($readini($lag.spc($script),lagstuff,text),$ifmatch,$rgb(text))) }
alias -l lag.sborder { writeini -n $lag.spc($script) lagstuff border $$input(Enter a rgb color/value for the border eg. $+($chr(36),rgb,$chr(40),text,$chr(41)),129) | $lag.style }
alias -l lag.border { return $iif($readini($lag.spc($script),lagstuff,border),$ifmatch,$rgb(text))) }
alias -l lag.defaults { remini $lag.spc($script) lagstuff face | remini $lag.spc($script) lagstuff text | remini $lag.spc($script) lagstuff border | remini $lag.spc($script) lagstuff color | $lag.style }
alias -l lag.classic {
    var %l = $hget(txlag,curlag),%t = Lag: $lag.isms($hget(txlag,curlag))
    drawrect -nrf @lag.win $lag.face 1 0 0 200 22
    drawtext -nro @lag.win $lag.text Tahoma -7 $calc(65 - $int($width(%t, Tahoma, -7))) 7 %t
    drawrect $+(-nr,$lag.oval) @lag.win $lag.border 2 83 3 105 18
    drawrect $+(-nrf,$lag.oval) @lag.win $lag.color 1 85 5 $iif(%l > 10,$iif(%l != ??,101,0),$int($calc(%l * 10.1))) 14
    drawdot @lag.win
}
alias -l lag.small {
    var %l = $hget(txlag,curlag),%t = Lag: $lag.isms($hget(txlag,curlag))
    drawrect -nrf @lag.win $lag.face 1 0 0 200 22
    drawtext -nr @lag.win $lag.text Tahoma -7 $int($calc((110 - $width(%t, Tahoma, -7)) / 2)) 7 %t
    drawrect $+(-nr,$lag.oval) @lag.win $lag.border 1 83 7 105 12
    drawrect $+(-nrf,$lag.oval) @lag.win $lag.color 1 85 9 $iif(%l > 10,$iif(%l != ??,101,0),$int($calc(%l * 10.1))) 8
    drawdot @lag.win
}
alias lag.deploy {
    if ($1) { writeini -n $lag.spc($script) lagstuff text $1 }
    if ($2) { writeini -n $lag.spc($script) lagstuff border $2 }
    if ($3) { writeini -n $lag.spc($script) lagstuff color $3 }
    if ($4) { writeini -n $lag.spc($script) lagstuff face $4 }
    lag.stop
    lag.start
}
alias lag.scheme { echo $color(info) -a *** technique lag bar scheme settings, pass this to a friend /lag.deploy $lag.text $lag.border $lag.color $lag.face }
on ^*:notice:lag*:?: {
    if ($nick == $me) && ($2 isnum) && ($hget(txlag)) {
    hadd txlag curlag $calc($calc($ticks - $2) / 1000)
    lag.update
    haltdef
    }
    elseif (!$hget(txlag)) {
    lag.stop
    echo $color(info) -a *** Hash table error shutting down lag bar!
    haltdef
    }
}
ctcp *:lag*:?:{
    if ($nick == $me) && ($2 isnum) && ($hget(txlag)) {
    hadd txlag curlag $calc($calc($ticks - $2) / 1000)
    lag.update  
    halt
    }
    elseif (!$hget(txlag)) {
    lag.stop
    echo $color(info) -a *** Hash table error shutting down lag bar!
    halt
    }
}
raw 421:*:{
    if ($1 == $me) && ($2 isnum) {
    if ($hget(txlag)) hadd txlag curlag $calc($calc($ticks - $2) / 1000)
    lag.update
    halt
    }
}
alias lag.start {
    if (!$readini($lag.spc($script),lagstuff,method)) { lag.method }
    if (!$hget(txlag)) {
    hmake txlag 1
    hadd txlag curlag ??
    }
    lag.bar
    lag.fill
    lag.chk
}
alias -l lag.method {
    $iif($input(Would you like to use a notice for lag check if not press no then a ctcp will be used you can also use the raw method from popup!,8,Lag method.),writeini -n $lag.spc($script) lagstuff method notice,writeini $lag.spc($script) lagstuff method ctcp)
    lag.stop
    $iif($server,lag.start)
}
alias -l _tbwin {
    if ($isfile($+($scriptdir,tbwin.dll))) {
    return $lag.spc($+($scriptdir,tbwin.dll))
    }
    elseif ($findfile($mircdir,tbwin.dll,1)) {
    return $lag.spc($ifmatch)
    }
    else {
    lag.stop
    .timer.lag.error $iif($version >= 6.0,-i) 2 5 echo $color(info) -a *** Couldn't locate tbwin.dll in your mIRC or script directory, please put tbwin.dll in your mIRC or script directory so lag bar can function!
    }
}
alias -l lag.color {
    if ($readini($lag.spc($script),lagstuff,color)) {
    return $ifmatch
    }
    else {
    return $rgb(255,0,0)
    }
}
alias -l lag.spc { return $+($chr(34),$1-,$chr(34)) }
alias -l lag.red { writeini -n $lag.spc($script) lagstuff color $rgb(255,0,0) | lag.fill }
alias -l lag.blue { writeini -n $lag.spc($script) lagstuff color $rgb(0,0,255) | lag.fill }
alias -l lag.green { writeini -n $lag.spc($script) lagstuff color $rgb(12,240,30) | lag.fill }
alias -l lag.yellow { writeini -n $lag.spc($script) lagstuff color $rgb(255,255,0) | lag.fill }
alias -l lag.orange { writeini -n $lag.spc($script) lagstuff color $rgb(252,127,0) | lag.fill }
alias -l lag.custom { writeini -n $lag.spc($script) lagstuff color $$input(Enter a custom rgb color/value which you can get by using $+($chr(36),rgb) identifier!,129) | lag.fill }
alias -l tbwin { dll $_tbwin $1- }
alias -l lag.chk {
    if ($readini($lag.spc($script),lagstuff,method) != raw) {
    .timer.lag.chk $iif($version >= 6.0,-i) 0 $lag.delay $&
        $+(lag.,$readini($lag.spc($script),lagstuff,method)) | lag.ignore.chk
    }
    else {
    .timer.lag.chk $iif($version >= 6.0,-i) 0 $lag.delay $+(lag.,$readini($lag.spc($script),lagstuff,method))
    }
}
alias -l lag.delay { return $iif($readini($lag.spc($script),lagstuff,delay),$ifmatch,20) }
alias lag.stime {
    writeini -n $lag.spc($script) lagstuff delay $$input(Delay in seconds to check lag recommended 10 or more seconds!,129)
    lag.chk
}
alias -l lag.method.raw { writeini -n $lag.spc($script) lagstuff method raw | lag.stop | $iif($server,lag.start) }
alias -l lag.method.ctcp { writeini -n $lag.spc($script) lagstuff method ctcp | lag.stop | $iif($server,lag.start) }
alias -l lag.method.notice { writeini -n $lag.spc($script) lagstuff method notice | lag.stop | $iif($server,lag.start) }
alias -l lag.ctcp { $iif($server,.ctcp $me lag $ticks) }
alias -l lag.notice { $iif($server,.notice $me lag $ticks) }
alias -l lag.raw { $iif($server,.raw $ticks) }
alias -l lag.isms { if ($1 isnum) { return $+($1,s) } | else { return $1 } }
alias -l lag.msg { $iif($active ischan,msg # Currently my lag is: $lag.isms($hget(txlag,curlag))) }
alias lag.stop {
    $iif($window(@lag.win),window -c @lag.win)
    .timer.lag.chk off
    $iif($hget(txlag),hfree txlag)
}
on *:load: {
    if ($version >= 5.91) {
    lag.style.set classic
    lag.oval.set 0
    lag.method
    echo $color(info) -a *** technique lag bar v.09 loaded successfully, right click on lagbar for options!
    }
    else {
    echo $color(info) -a *** This needs mIRC version 5.91+ this is $version , this addon wont work unloading it!
    .unload -rs " $+ $script $+ "
    }
}
on *:connect:{
    if ($version >= 6.0) && (!$window(@lag.win)) {
    lag.start
    }
    elseif ($version == 5.91) {
    lag.start
    }
}
on *:unload:{ lag.stop | remini $lag.spc($script) lagstuff }
on *:active:*:{ if ($version >= 6.0) && ($timer(.lag.chk)) && ($activecid != $timer(.lag.chk).cid) { scid $activecid lag.chk } }
on *:disconnect:{
    if ($version >= 6.0) {
    var %s = 1,%t
    while (%s <= $scon(0)) {
        if ($scon(%s).status == connected) { inc %t }
        inc %s
    }
    $iif(!%t,lag.stop)
    }
    elseif ($version == 5.91) {
    lag.stop
    }
}
alias -l lag.fill {
    if ($hget(txlag)) {
    var %f = 1,%g = 30,%h = $hget(txlag,curlag)
    while (%f <= 10) {
        $+(.timer.lag.fill,$r(1,999)) -h 1 %g hadd txlag curlag %f  
        $+(.timer.lag.fill2,$r(1,9999)) -h 1 $calc(%g + 1) lag.update
        inc %f
        inc %g 30
    }
    }
    if ($hget(txlag)) {
    var %i = 10,%j = 300
    while (%i >= 0) {
        $+(.timer.lag.clr,$r(1,999)) -h 1 %j hadd txlag curlag %i
        $+(.timer.lag.clr2,$r(1,9999)) -h 1 $calc(%j + 1) lag.update
        dec %i
        inc %j 30
    }
    }
    .timer.lag.restore -h 1 1000 hadd txlag curlag %h
    .timer.lag.restore2 -h 1 1050 lag.update
}
alias -l lag.ignore.chk {
    if ($ignore($address($me,5))) && (notice isin $ignore($ifmatch).type) && ($readini($lag.spc($script),lagstuff,method) == notice) {  
    .timer.lag.error2 1 5 echo $color(info) -a *** You are ignoring notice's from yourself lag bar wont work,fix then type /lag.start
    lag.stop
    }
    elseif ($ignore($address($me,5))) && (ctcp isin $ignore($ifmatch).type) && ($readini($lag.spc($script),lagstuff,method) == ctcp) {
    .timer.lag.error3 1 5 echo $color(info) -a *** You are ignoring ctcp's from yourself lag bar wont work, fix then type /lag.start
    lag.stop
    }
    elseif ($ignore(*!*@*)) && (notice isin $ignore($ifmatch).type) && ($readini($lag.spc($script),lagstuff,method) == notice) {
    .timer.lag.error4 1 5 echo $color(info) -a *** You are ignoring notice's, your lag bar wont work, fix then type /lag.start
    lag.stop
    }
    elseif ($ignore(*!*@*)) && (ctcp isin $ignore($ifmatch).type) && ($readini($lag.spc($script),lagstuff,method) == ctcp) {
    .timer.lag.error5 1 5 echo $color(info) -a *** You are ignoring ctcps, your lag bar wont work, fix then type /lag.start
    lag.stop
    }
}

; End of technique lag bar v.09 "Show some technique


Noublions pas Faire Yes Puis No en second

Commentaire de ckemoua2 le 14/08/2004 03:06:20

Pourquoi la lagbarre ne s'integre pas ds ma barre mIRC ?
TS3.7 mIRC 6.16, thx pour une futur réponse ;)

Commentaire de InFerNaLeX le 05/12/2004 03:57:01

rha bah avec un site en anglais je suis meme pas capable de trouvé les fichier mdx et dll donc je peux pas dl =(

Commentaire de Damien520 le 01/02/2005 19:30:36

Bonjour j'aimerais savoir ou on trouve les fichiers svp
de la lag barre de KOLANTA
Merci

Commentaire de VestaX le 23/08/2005 21:50:24

HeXoR, moi ca ne marche pas la couleur, c'est normal?

Commentaire de XavSniper le 10/11/2005 10:32:20

pour les fichiers demande, Google t'apportera surement une réponse lol

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,858 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales