#echo %%% Loading dccping.irc...

on ^send_dcc_chat "% 
PING %
*" {
  # if ([$VERBOSE_CTCP]==[ON]) {ne ${aw}You pinged =$0=.}
  @ dcc_pinged[$encode($0)] = dcc_pinged[$encode($0)] + 1
}

on ^dcc_chat "% 
PING %
*" {
  if ([$VERBOSE_CTCP]==[ON]) {ne ${aw}DCC: =$0= pinged you.}
  # note no ^A after $2, it's included in that
  ^msg =$0 
PONG $2
  # no pingmsg, since unless we send it back through the DCC we can't
  # know it's the same nick, or even if the person is on the same net..
}


# CTCP reply
on ^dcc_chat "% 
PONG %
" {
  if ([$dcc_pinged[$encode($0)]) {
    @ dcc_pinged[$encode($0)] = dcc_pinged[$encode($0)] - 1
    if (([$strip(
0123456789 $2)]==[])&&([$2]!=[0
]))
      {xecho -level crap ### DCC: Ping reply from =$0=, delay $tdiff(${time() - [$strip(
 $2)]})}
      {xecho -level crap ### DCC: Ping reply from =$0=, time unknown.}
  }
    # else ignore
}

alias dp dccping
alias dccping {
  if ([$0]) {
    if (match(=* $0)) {
      ^assign dccpingee $0
    } {
      ^assign dccpingee =$0
    }
    msg $dccpingee 
PING $time()
 :This is a DCC ping, ircII script available from Wizzu <wizzu@dal.net>
    ^assign -dccpingee
  } {
    eval xecho -level crap ### Usage: ${K}dccping =nick
  }
}

eval xecho -level crap ### DCCPing by Wizzu, 8-Jun-96.  Usage: ${K}dp =nick