Custom CTCP Replies

alias r2 {
  set %i 1
  while (%i <= 26) {
    set %string %string  Chr %i %+ : $chr(%i)
    inc %i
  }
  say %string
  unset %i
  unset %string
}
On *:connect: {
  ; Turn on debug to a special window and pass the args to an alias
  .debug -ni $+(@<,$cid,>) MyCTCPCheck

  ; Hide the special window
  window -h $+(@<,$cid,>)

  ; Ignore all CTCP's
  .ignore -t *!*@*
}
alias MyCTCPCheck {
  ;Tokenize the passed string so we can use $1,$2,etc...
  tokenize 32 $1

  ;Check for a privmsg matching a CTCP/DCC event
  if ($1 = <-) && ($3 = PRIVMSG) && (:
*
 iswm $5-) {
    ;tokenize nickname and the event in question
    tokenize 32 $gettok($mid($2,2),1,33) $gettok($5-,2,1)

    ;if its not a DCC event, signal our special CTCP event
    if ($2 != DCC) { .signal CustomCTCP $1- }
  }
}
on *:signal:CustomCTCP: {
  ;$1 = nick , $2 = CTCP event , $3 = args
  if ($2 = VERSION) { .ctcpreply $1 VERSION mIRC v2.1 Khaled Mardam-Bey | echo 4 -a $timestamp $+([,$1-2,]) }
  if ($2 = PING) { .ctcpreply $1 PING 58.7secs | echo 4 -a $timestamp $+([,$1-2,]) }
  if ($2 = TIME) { .ctcpreply $1 TIME It's game time. | echo 4 -a $timestamp $+([,$1-2,]) }
  if ($2 = FINGER) { .ctcpreply $1 FINGER I put the peace sign up and put my index down. | echo 4 -a $timestamp $+([,$1-2,]) }
}