All pastes #114896 Raw Edit

Stuff

public text v1 · immutable
·published 2006-08-04 07:15 UTC
rendered paste body
on @*:text:*:#:{
if ( $len($1-) >= 15 ) && ( $nick isreg # ) {
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 60 ) kick # $nick $v1 $+ % Caps
  }
}