on *:text:!version *:#:{
  set %version. $+ $2 $nick
  ctcp $2 version
}
on *:ctcpreply:version:{
  notice $($+(%,version.$nick),2) $nick is using $1-
  unset $+(%,version,$nick)
}