|:|:|:| Lag meter |:|:|:|

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	1.0
Scores Submitted	1
Date Added	Nov 03, 2007
Last Updated	Nov 03, 2007
Tags	fun lag meter mirc script

Introduction

well I was bored so i made a lag meter so hope you enjoy it :)

Grab the Code

;LagMeter v1.5
on *:load:{ echo -a 4Noa Destiny's LAG METER v1.5 | echo -a 4Please type: /lag.open to begin. }
alias lag.open {
  if ($window(@Lag).x == $null) || ($1 == reset) || ($1 == reopen) { 
    if ($window(@Lag).x != $null) { set %lag.x $window(@Lag).x | set %lag.y $window(@Lag).y }
    if ($1 == reopen) { window -c @Lag }
    if (%lag.x == $null) { set %lag.x 100 } | if (%lag.y == $null) { set %lag.y 100 }
    if ($1 != reset) { set %lag.tot 0 | set %lag.num 0 | window $iif($_vr(lagmeter,set.lag.top) == yes,-doapf,-apf) +f @Lag %lag.x %lag.y 160 135 @Lag }
    if (%set.lag.size != small) { drawpic -n @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " }
    if ($1 == reset) {
      if (%set.lag.size == small) { 
        set %^lag.h 138
        :start1
        dec %^lag.h 3
        window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
        if (%^lag.h !=< 24) goto start1
      }
      else {
        set %^lag.h 21
        :start2
        inc %^lag.h 3
        window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
        if (%^lag.h !=> 135) goto start2
      }
    }
    if (%lag.tot == 0) { drawpic -n @Lag 0 0 0 0 160 135 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " | set %lag.back $getdot(@Lag,80,70) }
    if (%set.lag.size == small) { 
      window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 24 
      drawpic @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
      set %lag.small.back $getdot(@Lag,95,12)
    }
    drawdot @Lag
  } 
  else { 
    if ($timer(Lag) != $null) { .timerLag off | return } 
  }
  if ($_vr(lagmeter,set.lag.delay) !isnum) { _vw lagmeter set.lag.delay 5 }
  if ($timer(Lag) == $null) && ($1 != reset) && ($1 != reopen) { lag.send | .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send }
  titlebar @Lag $server
}
alias lag.about {
  window -dohpkf +f @About�LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About�LagMeter
  drawpic @About�LagMeter 0 0 " $+ $findfile($mircdir,lagabout1.jpg,1) $+ "
  window -doapf +f @About�LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About�LagMeter
}
alias lag.menu.1 {
  if ($window(@Lag).x == $null) return &Open
  elseif ($timer(Lag) == $null) return &Unpause
  else return &Pause
}
alias lag.menu.2a {
  if ($window(@Lag).x != $null) return &Close
}
alias lag.menu.2b {
  if ($window(@Lag).x != $null) window -c @Lag
}
alias mouse { 
  if ($mouse.key == 1) { 
    if (%mouse.x == $null) || (%mouse.y == $null) halt
    set %^mouse.x $calc( [ $window($$1).x ] + [ $calc( [ $mouse.x ] - [ %mouse.x ] ) ] )
    set %^mouse.y $calc( [ $window($$1).y ] + [ $calc( [ $mouse.y ] - [ %mouse.y ] ) ] )
    window -r $$1 %^mouse.x %^mouse.y
  }
}
alias lag.send { .raw privmsg $me :T $ticks }
alias lag.setup {
  if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
  if ($$?!="Start Lag Meter on Connect?" == $true)  _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
  if ($$?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
menu Status,menubar {
  -
  -=-=][iRC Lag Meter][=-=-
  .-
  .$lag.menu.1 $+ : lag.open
  .$lag.menu.2a $+ : $lag.menu.2b
  .$iif($window(@Lag).dh isnum,$iif($window(@Lag).dh == 24,&Bigger,S&maller)): {
    if ($window(@Lag).dh == 24) set %set.lag.size large
    if ($window(@Lag).dh == 135) set %set.lag.size small
    lag.open reset 
  }
  .-
  .&Setup
  ..Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
  ..Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
  ..Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
menu @About�LagMeter {
  dclick { window -c @About�LagMeter }
  sclick { window -c @About�LagMeter }
  &Close { window -c @About�LagMeter }
}
menu @Lag {
  dclick {
    if ($window(@Lag).dh == 24) set %set.lag.size large
    if ($window(@Lag).dh == 135) set %set.lag.size small
    lag.open reset 
  }
  sclick {
    if ( $inrect($mouse.x,$mouse.y,148,0,12,12) == $true ) {
      .timerlag off | window -c @Lag
      unset %mouse.x | unset %mouse.y
      halt
    }
    if ($window(@Lag).dh == 24) {
      if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
        set %set.lag.size large
        lag.open reset 
        unset %mouse.x | unset %mouse.y
        halt
      }
    }
    else { 
      if ( $inrect($mouse.x,$mouse.y,123,1,23,22) == $true ) {
        lag.setup
        unset %mouse.x | unset %mouse.y
        halt
      }
      if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
        set %set.lag.size small
        lag.open reset
        unset %mouse.x | unset %mouse.y
        halt
      }
    } 
    %mouse.x = $mouse.x | %mouse.y = $mouse.y
  }
  mouse { 
    mouse @Lag 
  }
  &About Lag Meter v1.5: lag.about
  -
  $lag.menu.1 $+ : lag.open
  $lag.menu.2a $+ : $lag.menu.2b
  $iif($window(@Lag).dh == 24,&Bigger,S&maller): {
    if ($window(@Lag).dh == 24) set %set.lag.size large
    if ($window(@Lag).dh == 135) set %set.lag.size small
    lag.open reset 
  }
  -
  &Setup
  .Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
  .Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
  .Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
raw 301:*: { if ($2 == $me) && ($timer(Lag) != $null) halt }
on *:connect: { set %lag.num 0 | if ($_vr(lagmeter,set.lag.open) == on) { lag.open } }
ctcp *:t: {
  if ($window(@Lag).x == $null) { .timerlag off | halt }
  if ($timer(Lag) == $null) { halt }
  if ($nick != $me) return
  if ($ticks <= $2) return
  set %^lag $left($round($calc(($ticks - $2) / 1000),3),5)
  inc %lag.num
  set %lag.tot $calc(%lag.tot + %^lag)
  set %^lag.avg $left($round($calc(%lag.tot / %lag.num),3),5)
  set %^lag.n %^lag *  127.5
  set %^lag.avg.n %^lag.avg *  127.5
  if ( %^lag.n > 255) {
    set %^lag.r  255
    set %^lag.g 510 - %^lag.n
  }
  else {
    set %^lag.g 255
    set %^lag.r %^lag.n
  }
  if ( %^lag.avg.n > 255) {
    set %^lag.avg.r 255
    set %^lag.avg.g 510 - %^lag.avg.n
  }
  else {
    set %^lag.avg.g 255
    set %^lag.avg.r %^lag.avg.n
  }
  if (%^lag.g < 0) set %^lag.g 0
  if (%^lag.r < 0) set %^lag.r 0
  set %^lag.color $rgb( %^lag.r , %^lag.g ,0)
  if (%^lag.avg.g < 0) set %^lag.avg.g 0
  if (%^lag.avg.r < 0) set %^lag.avg.r 0
  set %^lag.avg.color $rgb( %^lag.avg.r , %^lag.avg.g ,0)
  set %^lag.len $round($calc(105 - (%^lag * 20)),0)
  if (%^lag.len < 26) set %^lag.len 26
  drawscroll -n @Lag -3 0 11 25 138 82
  drawpic -nc @Lag 146 25 146 25 3 82 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
  ;drawline -rn @Lag %lag.back 3 147 26 147 105
  drawline -rn @Lag %^lag.color 3 147 %^lag.len 147 105
  drawpic -nc @Lag 23 123 23 123 113 10 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
  drawtext -ron @Lag %^lag.color Arial 16 23 120 %^lag
  drawtext -ron @Lag %^lag.avg.color Arial 16 105 120 %^lag.avg
  drawline -rn @Lag 16777215 1 11 85 149 85
  drawline -rn @Lag 16777215 1 11 65 149 65
  drawline -rn @Lag 16777215 1 11 45 149 45
  if ($window(@Lag).dh == 24) {
    set %^lag.len2 $round($calc(145 - (%^lag * 20)),0)    
    if (%^lag.len2 < 46) set %^lag.len2 46
    drawscroll -n @Lag 0 -3 45 3 100 18
    drawline -rn @Lag %lag.small.back 3 143 19 46 19
    drawline -rn @Lag %^lag.color 3 143 19 %^lag.len2 19
    drawline -rn @Lag 16777215 1 125 3 125 21
    drawline -rn @Lag 16777215 1 105 3 105 21
    drawline -rn @Lag 16777215 1 85 3 85 21
    drawline -rn @Lag 16777215 1 65 3 65 21
    drawpic -nc @Lag 11 1 11 1 31 22 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
    drawtext -ron @Lag %^lag.color Arial 16 11 -2 %^lag
    drawtext -ron @Lag %^lag.avg.color Arial 16 11 10 %^lag.avg
  }
  drawline @Lag
  halt
}
;[read write data/setting.ini]
alias _vr {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  return $readini data\setting.ini $1 $2 
}
alias _vw {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  writeini data\setting.ini $1 $2 $3-

Comments

(1) RSS

Go to Bottom

KuTsuM

Comments: 137

mIRC Snippet: |:|:|:| Lag meter |:|:|:|
Posted on Dec 5, 2007 9:04 pm

This doesn\'t work. You get a /drawpic error.

|:|:|:| Lag meter |:|:|:|

Introduction

Grab the Code

Comments

Noa Destiny

My Snippet Tags

Contact

Friends (8)

Sponsors


Last seen: May 22, 2008 Profile Friends (8) Snippets (29) Images (2) Comments Received (114) Comments Submitted (29)