on *:text:!ping*:*: {
  ctcp $nick ping
  set %room $chan
}
on *:ctcpreply:ping*: {
  if ( $nick != $me ) {
    %ping = $ctime - $2
    set %ping.theme $rand(2,15)
    msg %chan 0,1[ $+ %ping.theme $+ $nick $+ 0] jou vertraging met  $+ %ping.theme $+ $server $+  0is $+ %ping.theme $duration($calc(%ping))
  }
  unset %ping
  unset %ping.theme
  unset %room
}