on *:text:*ping*me:?: {
  .ctcp $nick ping
  set %pingchan $chan
  set %pingnick $nick
}

on *:text:*ping*:#: {
  if ($2 == $null) || ($2 = me) {
    .ctcp $nick ping
    set %pingchan $chan
    set %pingnick $nick
  }
  if ($2 != $null) {
    ctcp $2 ping
    set %pingchan $chan
    set %pingnick $2
  }
}
on *:ctcpreply:*ping*: {
  set %pingy $calc($ctime - $2)
  if (%pingy == 0) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,1 000 saniye  15 }
  if (%pingy == 1) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,115,1 001 Second  15 }
  if (%pingy == 2) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,115,1 002 saniye  15 }
  if (%pingy == 3) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,115,1 003 saniye  15 }
  if (%pingy == 4) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,1815,1 004 saniye  15 }
  if (%pingy == 5) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,1815,1 005 saniye  15 }
  if (%pingy == 6) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,1815,1 006 saniye  15 }
  if (%pingy == 7) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,1815,1 007 saniye  15 }
  if (%pingy == 8) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,18715,1 008 saniye  15 }
  if (%pingy == 9) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,18715,1 009 saniye  15 }
  if (%pingy == 10) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,18715,1 0010 saniye  15 }
  if (%pingy == 11) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,18715,1 0011 saniye  15 }
  if (%pingy == 12) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,187415,1 0012 saniye  15 }
  if (%pingy == 13) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,187415,1 0013 saniye  15 }
  if (%pingy == 14) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,187415,1 0014 saniye  15 }
  if (%pingy == 15) { msg %pingchan Ping yanıtı 0,1 %pingnick 9,187415,1 0015 saniye  15 }
  if (%pingy > 15) { msg %pingchan Ping yanıtı 0,1 %pingnick 4,1 00Over 15 saniye  15 }
}