Code:
on ^!@*:text:*:#: { if ($nick isreg #) { .signal -n c # $nick $1- | .set %e $event | haltdef } } 
on *:signal:*: {
  if ($signal == c) { 
    if ($regex($3-,/[[:upper:]]/gS) > 49) { .signal -n d $1-2 caps } 
   } 
  if ($signal == d) {
    if ($2 ison $1) { 
      .hinc -mu15 d y  
      if ($hget(d,y) < 22) { .sockwrite -tn ni3* !kick $1 $2 $3 on %e }
      .hadd -mu10 o $+($2,*@*faked*)
      .timer_ 1 4 !mode $chan $1 $+(+,$str(b,$hget(o,*).item)) $hget(o,1).item $hget(o,2).item $hget(o,3).item $hget(o,4).item $hget(o,5).item $hget(o,6).item $hget(o,7).item $hget(o,8).item $hget(o,9).item $hget(o,10).item $hget(o,11).item $hget(o,12).item 
    } 
  }
}


What i need is my socket kick and ban what i was detect.
If someone use over caps on text i will detect and my socket kick and ban. Thanks