X MO CAPSLOCK

KOpi N MiLo Je Kat New Remote

on @*:TEXT:*:#: {
  if ($chan == %temp.flood. [ $+ [ $chan ] ]) { return }
  if (%capspunc == on) {
    if ($nick isop #) || ($level($nick) == friend) || ($nick == $me) { return } {
      if ($len($1-) < 9) || ($nick isop #) || ($level($nick) == friend) return
      var %text = $strip($remove($1-,$chr(32)))
      var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
      var %full.line = $len(%text)
      var %percent = $calc(1 - (%non.caps / %full.line))
      if (%percent >= 0.8) {
        set -u3600 %cp. [ $+ [ $address($2,2) ] ] $calc( %cp. [ $+ [ $address($2,2) ] ] + 1)
        if (%cp. [ $+ [ $address($2,2) ] ] == 1) .notice $nick Please don't use 100 percent caps! - this is your first warning!
        if (%cp. [ $+ [ $address($2,2) ] ] == 2) .notice $nick I said don't use 100 percent caps! - this is your last warning!
        if (%cp. [ $+ [ $address($2,2) ] ] >= 3) {
          ban -u60 # $nick 11
          kick # $nick Your text contains $calc(%percent * 100) percent caps. This is not acceptable
        }
      }
    }
    if ($calc($count($1-,?) + $count($1-,!)) >= 10) {
      set -u3600 %pn. [ $+ [ $address($2,2) ] ] $calc( %pn. [ $+ [ $address($2,2) ] ] + 1)
      if (%pn. [ $+ [ $address($2,2) ] ] == 1) .notice $nick Please don't use too many Punctuation 4!? - this is your first warning!
      if (%pn. [ $+ [ $address($2,2) ] ] == 2) .notice $nick I said don't use too many Punctuation 4!? - this is your last warning!
      if (%pn. [ $+ [ $address($2,2) ] ] >= 3) {
        ban -u6o # $nick 11
        kick # $nick You used too many !?'s ( $+ $count($1-,?) $+ ?'s and $count($1-,!) $+ !'s)
      }
    }
  }
}


;#######################facebooirc/#barzakhrules########################