Ping timeout preventor for mIRC

This is a script I made to help prevent ping timeouts on IRC. Just copy and paste into mIRC. It will only reduce your chances of ping timouts, I will make no gurantee that it will completely stop them.

;<--------COPY EVERYTHING BELOW THIS LINE AND PASTE IT INTO mIRC------------>

;Ping Timeout Preventer 1.0
;By Neo`Nemesis
on *:LOAD: {
var %ping = $true
var %pingtime = 85
.ping PING?
/pinger
}
on *:START: {
if (%ping == $null) { var %ping = $true }
if (%pingtime == $null) { var %pingtime = 85 }
}
on *:CONNECT: {
if (%ping == $true) { .ping PING? | .pinger }
}
on *:PING: {
if (%ping == $true) { .pong PING? }
}
alias pinger {
.ping PING?
.timerpg 1 %pingtime /pingerr
}
alias pingerr { /pinger }
menu status,menubar,channel,nicklist,query {
Ping Timeout Preventer
.Set Interval
..$iif(%pingtime == 75,*) 75secs:/set %pingtime 75
..$iif(%pingtime == 80,*) 80secs:/set %pingtime 80
..$iif(%pingtime == 85,*) 85secs:/set %pingtime 85
..$iif(%pingtime == 90,*) 90secs:/set %pingtime 90
..$iif(%pingtime == 95,*) 95secs:/set %pingtime 95
..$iif(%pingtime == 100,*) 100secs:/set %pingtime 100
.Status $iif(%ping == $true,ON,OFF)
..$iif(%ping == $true,*) ON:/set %ping $true | /pinger
..$iif(%ping != $true,*) OFF:/set %ping $false | .timerpg off
}