on *:SNOTICE:*client connecting*:{
timer 1 5 ctcp $4 version
timer $+ $4 1 15 noreply
}
alias noreply {
notice $4 I did not receive a version reply from you
write noreplylog. $+ $asctime(yyyy-mm-dd) $+ .txt no version reply from $4
}
on 1:CTCPREPLY:VERSION*:{
timer $+ $nick off
write versionlog. $+ $asctime(yyyy-mm-dd) $+ .txt $2- used by $nick
if ($read(versions.txt, s, $2)) wallops Version Alert for $nick using $2- $read(versions.txt, s, $2)
else halt
}