Code:
  

on *:text:!ping:#:{ ctcp $nick ping | set %pingchan $chan }

on *:ctcpreply:*ping*:{
if ($2 == $null) { halt }
 var %pt = $ctime - $2
if (%pt < 0) { %pt = 0 }
msg %pingchan 4 $+ $nick Your ping reply was: [12 $+ %pt $+ 4] I'm your Hero.
}