You can shorten your On ctcpreply event to this

Code:
 on *:CTCPREPLY:PING*:{

  %pingz = $round($calc(($ticks - %ping) / 1000),4) 

  echo -a $theme(ctcp) 1,1 $str($chr(160),10) 09 $theme(ctcp ping reply from $nick %pingz sec(s))

halt

}

If you have a plastic floor runner over your tiles, then you're one Hella Pinoy!