on $*:text:/^!ctcp (on|off)/Si:*:{
on ^*:ctcpreply:version*:{ if $($+(%,version.check,.,$fulladdress),2) { if $read(ctcp.txt,nwt,$2-) { ban -ku3600 $($+(%,version.check,.,$fulladdress),2) $nick 2 Bad script! } unset $+(%,version.check,.,$fulladdress), halt } }