napa182 commented on a Page, Caps Kick   -  Oct 11, 2010

um how is it a 10 min time out? If all you are doing is kicking them...

could also do

on @*:TEXT:*:#:{
  if ($nick !isop # && %capskick && $len($1-) > 5) {
    var %caps.percent $calc($regex($1-,/[A-Z]/Sg)/$len($1-)*100)
    if (%caps.percent > %caps.allowed) {
      inc %kick
      ban -ku600 # $nick 2 $round(%caps.percent,0) $+ % CAPS! 4[ $+ %kick $+ ]
      .msg $nick You got 10 minute time-out automatically for using Caps Lock!
    }
  }
  if ($regex($1-,/^!!capskick\s(o(n|ff)?|set)?\s?(\d+)?/iS) && $nick isop #) {
    if ($istok(on off,$regml(1),32)) { 
      $+($iif($regml(1) = off,un),set) %capskick on
      msg # Capskick is  $iif(%capskick,on,off) 
    }
    if ($regml(1) = set && $regml(2)) {
      set %caps.allowed $v1
      msg # Caps allowed set to $v1 $+ %
    }
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.