relcn

alias relcn {
global cnick cuh crep crep1
say "CTCP \002$crep\002 REPLY from ${cnick}!${cuh}: [join $crep1]"
complete
}
on ctcp_reply {
add2hash [string tolower [nick]] [user]@[host]
global cnick cuh crep crep1
set cnick [nick]
set cuh [user]@[host]
set crep [lindex [args] 1]
set crep1 [lrange [args] 2 end]
}