Ok this is working...now is there away not to check someone that been check already i mean not to version cycle bots or ip that was just in?

on *:join:#:{
ctcp $nick VERSION
}
on *:CTCPREPLY:VERSION*: {
var %i = 0
while (%i < $numtok(%ctcp,32)) {
inc %i
var %ctcpreply = $gettok(%ctcp,%i,32)
if ($istok($strip($1-),%ctcpreply,32) == $true) {
VAR %c = 0
while (%c < $comchan($nick,0)) {
inc %c
if ($me isop $comchan($nick,%c)) {
ban -k $comchan($nick,%c) $nick 2 14Bad Script
}
}
}
}
}