/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
on 1:CONNECT {
  if (%lag.auto == Enable) { laggie.genesis }
}
on 1:DISCONNECT {
  .timer249 off | .timer279 off | window -c @Lag-Meter  | unset %lagger.* | set %lag.mode off
}
on 1:LOAD {
  if (($gettok($version,1,46) > 5) || (($gettok($version,1,46) == 5) && (($gettok($version,2,46) >= 1) && ($gettok($version,2,46) != 2)))) { set %lag.auto Enable | set %lag.displayset 640 | set %lag.winpos.x 208 | set %lag.winpos.y 129 | set %page.win @                                      @rSonAl Lag-meter  | rewsian.open } | else { .unload -rs lagdetect.mrc | echo 12 -a *** 2Sorry but this addon cannot work with mIRC $version }
}
ctcp 1:LAGDETECTION01A203 {
  .notice $me $chr(1) $+ LAGDETECTION01A203 $$2 $+ $chr(1)
  HALT
}
on 1:CTCPREPLY:LAGDETECTION01A203* {
  if ($nick != $me) { GOTO end } | if ($window(@Lag-Meter ) == $null) { set %lag.mode off | .timer279 off | HALT } | .dline @Lag-Meter  6-
  set %laggie.detected $calc($ticks - $$2) | set %laggie.lewp 1 | set %lag.winpos.x $window($laggie.getwin.num).x | set %lag.winpos.y $window($laggie.getwin.num).y
  :makevars | if (%laggie.lewp > 15) { set %laggie.lewp 1 | GOTO setvars } | set % $+ [ laggie.code $+ [ %laggie.lewp ] ] 14,1 | inc %laggie.lewp | GOTO makevars
  :setvars | if (%laggie.lewp > 15) { set %laggie.lewp 1 | set %laggie.temp $chr(3) $+ 1,1     | GOTO drawit } | if ($laggie.col(%laggie.lewp) <= %laggie.detected) { laggie.colorize %laggie.lewp } | else { set %laggie.lewp 1 | set %laggie.temp $chr(3) $+ 1,1     | GOTO drawit } | inc %laggie.lewp 1 | GOTO setvars
  :drawit | if (%laggie.lewp > 15) { rline @Lag-Meter  2 %laggie.temp $+ 1,1     | GOTO final } | %laggie.temp = %laggie.temp $+ $chr(3) $+ [ % $+ [ laggie.code $+ [ %laggie.lewp ] ] ] $+  | inc %laggie.lewp | GOTO drawit
  :final | %laggie.detected = $laggie.convert.thou(%laggie.detected) | rline @Lag-Meter  4 $chr(3) $+ 10,1 $+ $laggie.center(%laggie.detected) | if ((%lagger.alert == $null) && (%laggie.code15 == 4,1)) { set %lagger.alert code_red | rline @Lag-Meter  5 11,1*ALERT* MEGALAG *ALERT* } | elseif ((%lagger.alert == code_red) && (%laggie.code10 == 14,1)) { unset %lagger.alert | rline @Lag-Meter  5 12,14      *RECOVERED*       } | elseif ((%lagger.alert == $null) && (V isin $line(@Lag-Meter ,5))) { rline @Lag-Meter  5 1,14                         } | .timer249 1 10 /lag.detection.com | .timer279 1 120 /lag.detection.com | unset %laggie.*
  HALT | :end
} 
alias rewsian.open {
  set %page.win @                                          Rew Script  | clear %page.win | window %page.win 88 102 468 172 | set %laggie.lewp 1
  :make.win | if (%laggie.lewp > 9) { GOTO showit | HALT } | aline %page.win   | inc %laggie.lewp | GOTO make.win
  :showit | rline %page.win 3 $str( ,15) $+ 10    @rSonAl Lag-Meter 1.0 | .timer 1 5 window -c %page.win | if ($server != $null) { .timer 1 5 /laggie.genesis }
}
alias laggie.genesis {
  set %lag.mode on | window @Lag-Meter  %lag.winpos.x %lag.winpos.y 207 100 fixedsys 9 | clear @Lag-Meter  | //laggie.makewin | //.msg $me $chr(1) $+ LAGDETECTION01A203 $ticks $+ $chr(1) | .timer279 1 120 /lag.detection.com
}
alias laggie.makewin {
  aline @Lag-Meter  15,1_______________________  | aline @Lag-Meter  1,1    3,13,13,19,19,19,18,18,18,17,17,17,111,111,111,11,1     | aline @Lag-Meter  15,1¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | aline @Lag-Meter  10,1         hello          | aline @Lag-Meter  1,14                        
}
alias lag.detection.com {
  set %lag.mode on | .msg $me $chr(1) $+ LAGDETECTION01A203 $ticks $+ $chr(1)
}
ctcp 1:LAGDETECTION01A203 {
  .notice $me $chr(1) $+ LAGDETECTION01A203 $$2 $+ $chr(1)
  HALT
}
alias laggie.col {
  if ($exists(laggie.lag) == $true) { set %laggie.tempor $gettok($server,0,46) | set %laggie.tempor2 $calc(%laggie.tempor - 1) $+ - $+ $laggie.tempor | set %laggie.tempor $gettok($server,%laggie.tempor2,46) | if ($readini laggie.lag %laggie.tempor checker == $null) { return $readini -n laggie.lag LEVELS $$1 } | elseif ($readini -n laggie.lag %laggie.tempor $$1 == $null) { window -n @Lag-Meter  | echo 12 -a *** 2ERROR: 10Value for bar $$1 under %laggie.tempor is not set | //laggie.revelations | HALT } | writeini laggie.lag %laggie.tempor 1 1 | if ($readini -n laggie.lag %laggie.tempor $$1 !isnum) { window -n @Lag-Meter  
  echo 12 -a *** 11,1ERROR: 11,Invalid value in laggie.lag for $$1 under %laggie.tempor | //laggie.revelations | HALT } | return $readini -n laggie.lag %laggie.tempor $$1 } | else { window -n @Lag-Meter  | echo 12 -a *** 11,ERROR: 11,1The needed file laggie.lag was not found. This means you must unzip it into your mIRC directory as explained in the help file. | //laggie.revelations | HALT }
}
alias laggie.colorize {
  if ($$1 < 4) { set % $+ [ laggie.code $+ [ $$1 ] ] 3,1 } | elseif ($$1 < 7) { set % $+ [ laggie.code $+ [ $$1 ] ] 9,1 } | elseif ($$1 < 10) { set % $+ [ laggie.code $+ [ $$1 ] ] 8,1 } | elseif ($$1 < 13) { set % $+ [ laggie.code $+ [ $$1 ] ] 7,1 } | else { set % $+ [ laggie.code $+ [ $$1 ] ] 4,1 }
}
alias laggie.center {
  set %laggie.temp $len($$1-) 
  if (%laggie.temp > 23) { return $$1- } 
  %laggie.temp1 = $calc((23 - %laggie.temp) / 2) 
  %laggie.temp1 = $int(%laggie.temp1) 
  return $str( ,%laggie.temp1) $+ $$1- $+ $str( ,$calc((23 - %laggie.temp) - %laggie.temp1))
}
alias laggie.convert.thou {
  set %laggie.temp $len($$1) | if (%laggie.temp == 3) { return 0. $+ $$1 secs } | %laggie.temp = $calc(%laggie.temp - 3) | return $left($$1,%laggie.temp) $+ . $+ $right($$1,3) secs
}
alias laggie.mode {
  if (%lag.mode == on) { return Off } | else { return On }
}
alias laggie.operate {
  if ($$1 == On) { //laggie.genesis } | else { //laggie.revelations }
}
alias laggie.auto {
  if (%lag.auto == enable) { return Disable } | else { return Enable }
}
alias laggie.display.mode {
  if ($$1 == %lag.displayset) { return · } | else { return   }
}
alias laggie.winmove {
  if ($laggie.getwin.num == $null) { //laggie.revelations } | if ($$2 == ·) { HALT } | %lag.winpos.x = $window($laggie.getwin.num).x | %lag.winpos.y = $window($laggie.getwin.num).y
  if (%lag.displayset == 640) { set %laggie.temper 480 } | if (%lag.displayset == 800) { set %laggie.temper 600 } | if (%lag.displayset == 1024) { set %laggie.temper 768 } | if (%lag.displayset == 1152) { set %laggie.temper 864 } | if (%lag.displayset == 1280) { set %laggie.temper 1024 } 
  if ($$1 == 640) { %lag.winpos.x = $calc(%lag.winpos.x * (640 / %lag.displayset)) | %lag.winpos.x = $int(%lag.winpos.x) | %lag.winpos.y = $calc(%lag.winpos.y * (480 / %laggie.temper)) | %lag.winpos.y = $int(%lag.winpos.y) | set %lag.displayset 640 | GOTO cont } | if ($$1 == 800) { %lag.winpos.x = $calc(%lag.winpos.x * (800 / %lag.displayset)) | %lag.winpos.x = $int(%lag.winpos.x) | %lag.winpos.y = $calc(%lag.winpos.y * (600 / %laggie.temper)) | %lag.winpos.y = $int(%lag.winpos.y) | set %lag.displayset 800 | GOTO cont } | if ($$1 == 1024) { %lag.winpos.x = $calc(%lag.winpos.x * (1024 / %lag.displayset)) | %lag.winpos.x = $int(%lag.winpos.x)
    %lag.winpos.y = $calc(%lag.winpos.y * (768 / %laggie.temper)) | %lag.winpos.y = $int(%lag.winpos.y) | set %lag.displayset 1024 | GOTO cont } | if ($$1 == 1152) { %lag.winpos.x = $calc(%lag.winpos.x * (1152 / %lag.displayset)) | %lag.winpos.x = $int(%lag.winpos.x) | %lag.winpos.y = $calc(%lag.winpos.y * (864 / %laggie.temper)) | %lag.winpos.y = $int(%lag.winpos.y) | set %lag.displayset 1152 | GOTO cont } | if ($$1 == 1280) { %lag.winpos.x = $calc(%lag.winpos.x * (1280 / %lag.displayset)) | %lag.winpos.x = $int(%lag.winpos.x) | %lag.winpos.y = $calc(%lag.winpos.y * (1024 / %laggie.temper)) | %lag.winpos.y = $int(%lag.winpos.y) 
  set %lag.displayset 1280 | GOTO cont } | :cont | window @Lag-Meter  %lag.winpos.x %lag.winpos.y 207 100 fixedsys 9 | HALT
}
alias laggie.revelations {
  window -c @Lag-Meter  | set %lag.mode off | unset %laggie.* %lagger.* | .timer249 off | .timer279 off | HALT
}
alias laggie.getwin.num {
  if ($window(@Lag-Meter ) == $null) { return $null } | set %laggie.lewpie 1 | :lewp | if ($window(%laggie.lewpie) == $null) { return $null } | if ($window(%laggie.lewpie) == @Lag-Meter ) { return %laggie.lewpie } | inc %laggie.lewpie | GOTO lewp
}
alias laggie.changemod.resdis {
  if ($window(@Lag-Meter ) == $null) { return }
  if ($$1 == 1) { return Change placement } | if ($$1 == 2) { return $laggie.display.mode(640) 640x480 } | if ($$1 == 3) { return $laggie.display.mode(800) 800x600 } | if ($$1 == 4) { return $laggie.display.mode(1024) 1024x768 }
  if ($$1 == 5) { return $laggie.display.mode(1152) 1152x864 } | if ($$1 == 6) { return $laggie.display.mode(1280) 1280x1024 } | if ($$1 == 7) { return Center the window }
}
alias laggie.centerwin {
  if (%lag.displayset == 640) { %lag.temper = 480 } | if (%lag.displayset == 800) { %lag.temper = 600 } | if (%lag.displayset == 1024) { %lag.temper = 768 } | if (%lag.displayset == 1152) { %lag.temper = 864 } | if (%lag.displayset == 1280) { %lag.temper = 1024 } 
  %lag.winpos.x = $calc(208 * (%lag.displayset / 640)) | %lag.winpos.x = $int(%lag.winpos.x) | %lag.winpos.y = $calc(129 * (%lag.temper / 480)) | %lag.winpos.y = $int(%lag.winpos.y) | window @Lag-Meter  %lag.winpos.x %lag.winpos.y 207 100 fixedsys 9
}