Forums Scripts & Popups $regsubex help

 
on ^!@*:text:*:#: { if ($nick isreg #) { .signal -n c # $nick $1- | haltdef } }
on *:signal:*: { 
  if ($signal == c) {
    if ($regex($3-,/[[:cntrl:]]/g) > 49) { .signal -n d $1 $2 codes }
    if ($regex($3-,/[[:upper:]]/Sg) > 49) { .signal -n d $1 $2 caps }
    if ($regex($3-,/\d/Sg) > 49) { .signal -n d $1 $2 number }
    if ($regex($3-,/[[:punct:]]/Sg) > 49) { .signal -n d $1 $2 symbol }
    if ($regex($3-,/[ $chr(174) ]/Sg) > 49) { .signal -n d $1 $2 ascii }
    if ($regex($3-,/[ $chr(160) ]/Sg) > 49) { .signal -n d $1 $2 blur } 
    if ($regex($3-,/./Sg) > 199) { .signal -n d $1 $2 lenght }
    if ($regex($3-,/(www.)|(http:)|#/Sig)) { .signal -n d $1 $2 advertise } 
    if ($regex($3-,/\b(bitch|suck)\b/Sig)) { .signal -n d $1 $2 swear } 
  }
  if ($signal == d) {
    if ($2 ison $1) {
      .hinc -u2m d y 
      if ($hget(d,y) < 22) { !.quote -q kick $1 $2 $3 }
      Else { Halt } 
      .hadd -u2m o $+($2,*@*banned*)
    .timer_ 1 3 !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 } 
  } 
}