ctcp 1:PING:{ var %i == 0
  if (!%anti [ $+ [ $nick ] ]) {
    set -u20 %anti [ $+ [ $nick ] ] 1
    .ctcpreply $nick Grr  OMG, Did you just CTCP ping me?
    .ctcpreply $nick Grr  Why did you do it?
    .ctcpreply $nick Grr  Why?!?
    .ctcpreply $nick Grr  Now I will have to torture you
    .ctcpreply $nick Grr by counting to 100
    .ctcpreply $nick Grr by using ctcp ping reply
    .timer 100 2 .ctcpreply $nick Grr $calc(%i + 1)
    .timer 1 113 ctcpreply $nick Grr Had enough yet or want some more?
    .timer 1 114 ctcpreply $nick Grr I hope you learnt your lesson
    .timer 1 115 ctcpreply $nick Grr Now go play
    .timer 1 116 ctcpreply $nick Grr And don't CTCP Ping me ever  again
    .timer 1 118 ctcpreply $nick Grr or else, you'll get another torture, I'm not joking. 
.halt
}
}