Lag bar sur mirc :)

3/5 (38 avis)

Vue 13 392 fois - Téléchargée 1 254 fois

Description

Hem , tout d'abord je tient a dire que cette source n'est pas du tout de moi ! ( très sincérement je crois que j'en aurait été imcapable ... :) mon niveau étant bien en dessous de ce niveau de scripting )
Bon c'est une petite bar qui mesure en temps réel votre lag sur mIRC .
Euuh bien sur ca marche qd on est connecté ( lol )
Bah voila faut le mettre ds les remote , sinon ya un petit dll qui est ds le zip ... c'est possible que mIRC le demande alors à ce moment là faut le rajouter ds le dossier mIRC :-)

Lapinpsykopate

Ps: J'espère qu'il y aurat plein de commentaire c'est la première source que je met ( même si elle n'est pas de moi ... )

Source / Exemple :


; 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"

Conclusion :


Le script est a mettre ds le remote ...
Euu bah j'pense que ca marche sur toutes les versions de mIRC .
Si mIRC demande tbwin.dll faut regarder ds le zip il y est ...
Enjoy It ^^

Codes Sources

A voir également

Ajouter un commentaire Commentaires
R4diCaL
Messages postés
5
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
12 août 2007

11 janv. 2007 à 22:29
Simpa meme si elle est pas de lui domage en anglais mais sinon un lagbar qui marche enfin bien 10/10 meme si c'est Rip :D
aurel212
Messages postés
24
Date d'inscription
samedi 13 mai 2006
Statut
Membre
Dernière intervention
31 mai 2007

16 mai 2006 à 03:23
elle est horiblement laide mais elle marche nikel sa figurera ptêtre ds mon prochain script :D (avec remerciment pour l'auteur évidemment ;-) ) ++
cs_ced84
Messages postés
5
Date d'inscription
samedi 7 mai 2005
Statut
Membre
Dernière intervention
3 novembre 2006

11 juin 2005 à 18:40
waiiiiii si c'est ps a elle alors boffffff
je met 2/10

mais pour en faire profiter je met 10/10
total 12/20 assez bien

lollollollollollolololol

l00l
pas d'autre commentaire pour moi
pas vrai ?
tonyo08
Messages postés
12
Date d'inscription
jeudi 14 août 2003
Statut
Membre
Dernière intervention
26 juin 2006

23 mai 2005 à 14:07
Ripper sur eXtrem Script ..... ?
cs_DeViL66
Messages postés
152
Date d'inscription
lundi 28 février 2005
Statut
Membre
Dernière intervention
3 novembre 2006

9 mars 2005 à 21:00
saufffff que si je lag de tout ca j'ai un problème :
(21:01:36) <@thedeviltogta> Je lag de 15479338 secondes.
:D
Afficher les 38 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.