Lagging

ON 1:CTCPREPLY:LAGGC*: { haltdef
if ( $nick == $me ) { set %lag $round($calc((($ticks - $2) / 2) / 1000),2) }
if ( %lag < 1 ) { echo -sti * Lag4: %lag sec(s) 4» Server Info4: $server 4- 15[2Minimum15] | return }
if ( %lag < 5 ) { echo -sti * Lag4: %lag sec(s) 4» Server Info4: $server 4- 15[0Slightly Lagging15] | return }
if ( %lag < 20 ) { echo -sti * Lag4: %lag sec(s) 4» Server Info4: $server 4- 15[8Seriously Lagging15] | return }
else { echo -ati * Lag4: %lag sec(s) 4» Server Info4: $server 4- 15[4Critical!!! Change server pls...15] | sndalert }
}
ON *!:CONNECT: {
/umode -CJRWepm
.timer 1 05 /nick
.timer $+ $server 0 120 .lagcheck
.timer 1 15 /j Channel
}