Any reason why it wont kick something like this?
/\Black_Inviter_v1.01/\ By: henry /\
Code:
 
on $*:text:/^!ctcp (on|off)/Si:*:{ 
  if $nick isop $chan {
    set $+(%,ctcp,.,$chan) $iif($2 == on,$true,$false)
  }
  elseif !$chan {
    var %a = 1, %b = $comchan($nick,0)
    while %a <= %b {
      if $nick isop $comchan($nick,%a) {
        set $+(%,ctcp,.,$comchan($nick,%a)) $iif($2 == on,$true,$false)
 
      }
      inc %a
    }
  }
}
 on @*:join:#:{
 if $($+(%,ctcp,.,$chan),2) && !$($+(%,version.check,.,$address),2) {
 .ctcp $nick VERSION
 set -e $+(%,version.check,.,$address) $chan
 }
 }
on *:ctcpreply:version*:{
  if $($+(%,version.check,.,$address),2) {
    if !$hget(vercheck) { hmake vercheck 10 }
    filter -c CTCP.txt CTCP.txt ?*
    if $filtered { hdel -w vercheck * | hload -n vercheck CTCP.txt }
    if $hfind(vercheck,$strip($2-),1,R).data { ban -k $($+(%,version.check,.,$address),2) $nick 2 14Bad Script Detected }
    halt
  }
}