miRC Auto Ping

on *:text:!ping*:*: { ctcp $nick ping }
on *:text:lag*:*: { ctcp $nick ping }
on *:text:*ping*:*: { ctcp $nick ping }
on *:ctcpreply:PING*: {
  if ($2 == $null) halt
  else {
    %pt = $ctime - $2
    if (%pt < 0) set %pt 0
    if (%pt > 35) .notice $nick 14 Your ping was real bad!:12 $duration($calc($ctime - $2)) 
    .notice $nick 0,14 Your ping reply was 0,4 $str($chr(124),%pt) $+  $+ $str($chr(124),$calc(35 - ($ctime - $2))) 0,12 $duration($calc($ctime - $2))
  }
  halt
}