begin process at 2010 03 18 03:59:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > LAG BAR SUR MIRC :)

LAG BAR SUR MIRC :)


 Information sur la source

Note :
7,21 / 10 - par 14 personnes
7,21 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Expert Date de création :26/12/2003 Vu / téléchargé :10 018 / 1 138

Auteur : Lapinpsykopate

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

 Description

Cliquez pour voir la capture en taille normale
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

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • lagbar.iniTélécharger ce fichier [Réservé aux membres club]Voir ce fichier14 054 octets
  • tbwin.dllTélécharger ce fichier [Réservé aux membres club]25 600 octets

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture DIALOG SMTP MAIL SUR MIRC

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
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

Commentaires et avis

Commentaire de vesparo le 26/12/2003 22:41:54

rien a dire vu que c'est pas de toi.

Commentaire de ReMi34 le 26/12/2003 23:02:20

Idem ...

Commentaire de t0nt0n le 26/12/2003 23:05:53

The back of "No Comment"

Commentaire de eXcellent le 26/12/2003 23:11:09

Vous faite peur les gars :]
Au moins c'est pas rip et ca fait profiter tout le monde :p

En tout cas niveau design, je trouve la lagbar assez moche :/.. Sinon scripting. . dapres ce que j'ai vu on peut raccourcir quand meme quelques truks.. et pas encore tester donc :]

Commentaire de vesparo le 26/12/2003 23:14:21

eXcellent justement c'est bien qu'il dise que c'est pas de lui :p et je met pas le commentaire pour casser :)

Commentaire de ChAnG-Fu le 26/12/2003 23:15:01

Poulalala....
Riiiiddddiiiiccccuuuulllleeee

Commentaire de eXcellent le 26/12/2003 23:30:47

Ok :] Enfin sinon je peut pas trop critiquer le design aussi, vu que y a pas de mdx donc ^^

Commentaire de Cocles le 27/12/2003 00:25:04

avouez quand même que c'est utile

Commentaire de Lapinpsykopate le 27/12/2003 02:06:05

Merci Cocles de me soutenir ...
Euuh pour le fait que ceci n'est pas de moi , j'suis désolée mais j'pensé que bon c'est toujours utile de faire partager des trucs avec d'autres personne ^^ ... c'est ca le but nah ?
Sinon merci bcp pour les commentaires .. :-P

Commentaire de Lapinpsykopate le 27/12/2003 02:16:37

Ah oui j'oubliais *
Chang-Fu j'ai vu ta source en effet ta l'air de bien maitriser le scripting et tout ...
Mais bon le genre de commentaire:
Poulalala....
Riiiiddddiiiiccccuuuulllleeee

Faut mettre un "lol" après ?
Enfin je veux dire par là que tu peut argumenté ou essayé d'amélioré la source ^^

Commentaire de SornDrixer le 27/12/2003 10:21:47 administrateur CS

Lapinpsykopate : Je ne vois pas l'interêt de commenter une source dont tu n'es pas l'auteur, le seul truc à dire, c'est merci de nous faire partager ça avec nous ;)

Commentaire de Kolibot le 27/12/2003 12:09:06

Tel que la source est ... le fait qu'elle ne sert à rien sur ce site est justifié... je l'ai relu 2fois comme ça, je me suis embrouillé méchement et honnetement je compte pas m'y remettre.

On ne demande pas de faire des commentaires lignes par lignes, cela serait totalement débile. Mais au moins de commenter les structures importantes du code. D'après ce que j'ai lu il a bcp travaillé l'interface avec des windows, cela serait bien de délimité le noyau interface et le noyau du code... pour un début par ex ...

Tu as demandé la permission de l'auteur pour poster ?

Sinon pour l'interet du script, ne t'inquiète pas, tu as fait un adepte :D

Commentaire de t0nt0n le 27/12/2003 14:10:10

Lapinpsykopate, je dois reconnaître ta source est utile, mais pourquoi prendre le temps de commenter alors que tu n'en est pas l'auteur :).
A part ça, côté design c'est pas super, mais faut avouer, pas de mdx donc... et niveau scriptage, c'est pas mal du tout, mais on aurrait pu faire plus court quand même.. sur ceux @++ ;)
tonton*

Commentaire de NaNo45 le 27/12/2003 20:37:37

if ($1 = lagbar) { /ame pas de moi }

^^

Commentaire de Lapinpsykopate le 27/12/2003 23:17:23

Euhh nah j'ai pas demandé l'autorisation de l'auteur et je trouve ca un peu inutile , et  maintenant je crois que je vais retourner sur mon mIRC pour produire quelque chose de moi ;-) ...

Lapinpsykopate

Commentaire de Kerrigan le 28/12/2003 21:58:03

sage initiative comme ça on evite les problemes

Commentaire de ChAnG-Fu le 29/12/2003 02:18:25

Lapinpsykopate
j'ai oublier le lol mais bon dans la titre By &lt;auteur&gt; paske j'était dessu

Bonne continuation :)

Commentaire de antony843 le 30/12/2003 21:49:29

c super ton truc. 10/10

Commentaire de Diabl0 le 31/12/2003 17:31:33

10/10

Commentaire de Lord_Mad le 17/01/2004 20:48:47

j'aime bien

Commentaire de winwarrior le 02/02/2004 09:27:32

10/10 nikel !

Commentaire de croustibat82 le 18/02/2004 21:54:54

C'est vraiment nikel, y a vraiment rien a dire, mais certe si le graphisme n'est pas top, je pense que sa vaut le coup d'y mettre un 10/10
Essaie d'en faire une toi meme maintenant

Commentaire de Leonardo_ le 15/03/2004 09:46:43

euuuhhh g juste un ti soucis , vous aller me prendre pour un novice ,
bon bah en fait javoue c le cas ! lol
en fait jarrive pas a retirer cette ptin de notice qui menvoi mon lag toute les 20 sec , c lourd , je c que quand tu linstal il te demande si tu veu une notice ou pas , mais le probleme c que , quand je le vire , et je le remet , il me demande plus si je veu une notice ou pas .....
alors vala si quelqun peu mexplique comment on fait se srait cool quoi , merci davance =)
Sinon je trouve ca pas trop mal moa ^^
dommage que tu l'est pas scripter ! lol =) merci davance ^^

Commentaire de Leonardo_ le 15/03/2004 10:04:12

BAaaahhhh en fait desoler pour le derangement , mais g reussit a regler le probleme , donc po besoin de votre aide , mais merci quand mm !
Eh au fait votre site ya qu'un truc a dire ...... IL TUE !
vala , bonne continuation ......

Commentaire de druide77 le 28/04/2004 21:29:07

Lapinpsykopate je trouve que tu as bien fait de metre cette source sur ce site mm si tu na pas l'autorisation c'est super utile ... sachant que bcp de script non pas de lags bar... il est vrai que le graphisme n'est pas tres beau et sa honnetement mm en etant pas tres doit tu pe le changer ... mais sa va tres bien avec mon script le ImMoRtAl`ScRiPT bonne continuation et oui essaye de faire des chose de toi mm :) 10/10

druide77 #dessin_maniac

Commentaire de exin le 15/07/2004 10:41:49

You shouldnt post what you didnt make, if I wanted it here I would have submitted it!

Reguards
  Ryan B. (The creator of technique mIRC scripts)

Commentaire de duduchmann le 03/08/2004 12:59:33

comment change t'on les couleurs  : c'est en anglais

Commentaire de fantomus le 04/08/2004 13:52:00

hmm g un blem ca a bugé et j'arrive poas a unload :(

Commentaire de popelechat le 25/12/2004 15:46:23

Impecable, ça fonctionne niquel de mon coté. 10/10

Commentaire de Damien520 le 28/01/2005 17:05:01

La lgabarre est bien mais c dommage qu'on recoi toute les 10seconde une notice qui dit le lag

Commentaire de DeViL66 le 28/02/2005 15:36:07

Salut,
J'aimerai creer pour mon script un truc a partir de cette barre, c'est de dire sur un salon mon temps de lag, mais je sais pas quoi mettre !!
Dire ton lag:/say Je lag de ??? Seconde(s)

Kkun peut me dire par quoi je peux remplacer les ??? ?
merciiiiiiiiii +

Commentaire de eleve le 07/03/2005 21:07:46

/say mon lag est de : $ticks

confirmé j'suis un noob :)

Commentaire de DeViL66 le 09/03/2005 20:33:10

moi plus que toi alors mdrrrr merci

Commentaire de DeViL66 le 09/03/2005 21:00:51

saufffff que si je lag de tout ca j'ai un problème :
(21:01:36) <@thedeviltogta> Je lag de 15479338 secondes.
:D

Commentaire de tonyo08 le 23/05/2005 14:07:13

Ripper sur eXtrem Script ..... ?

Commentaire de ced84 le 11/06/2005 18:40:14

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 ?

Commentaire de aurel212 le 16/05/2006 03:23:34

elle est horiblement laide mais elle marche nikel sa figurera ptêtre ds mon prochain script :D (avec remerciment pour l'auteur évidemment ;-) ) ++

Commentaire de R4diCaL le 11/01/2007 22:29:12

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

 Ajouter un commentaire




Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
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 : 2,184 sec (3)

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