# Ping functions... Sends a notice to the pinger when you are pinged.
# Displays time in minutes and seconds.
# Just the two ping scripts (pingmsg.irc and pingtime.irc) together.

# pingmsg:
# Source: Ripped from the GargOyle script. Modified by Wizzu.
# Date: 1st Jun 1995

# pingtime:
# Written by Wizzu


# This version will send pingmessage on private pings only


alias pingmsg assign PINGMSG

on ^ctcp "% % PING *" {
  if ([$[1]1]==[#])
    {^assign PINGED $1}
    {^assign PINGED you}
  if ([$VERBOSE_CTCP]==[ON]) {echo ### CTCP: $0 pinged $PINGED \($stime($3)\).}
  if (([$pingmsg])&&([$PINGED]==[you])) {^notice $0 $pingmsg}
  ^assign -PINGED
}

on ^ctcp_reply "% PING *" if ([$2])
  {echo ### CTCP: Ping reply from $0, delay $tdiff(${[$time()] - [$2]})}
  {echo ### CTCP: Ping reply from $0, time unknown.}