All pastes #419179 Raw Edit

Untitled

public text v1 · immutable
·published 2007-04-01 03:35 UTC
rendered paste body
on *:TEXT:*:#:{
  if (($address($nick,2) == *!*@Swift-1C761045.hsd1.il.comcast.net) || ($address($nick,2) == *!*@Swift-78A11CA8.ipt.aol.com) || ($address($nick,2) == *!*@Swift-762B152F.dsl.pltn13.sbcglobal.net) || ($address($nick,2) == *!*@Swift-F45E3B4A.ipt.aol.com) || ($address($nick,2) == *!*@Swift-F27DCFDE.hsd1.az.comcast.net) ||  ($address($nick,2) == *!*@Pen.Island.net) || ($address($nick,2) == *!*@FDDF892C.E85CBFBD.6BD85B65.IP) || ($address($nick,2) == *!*@Swift-3CC4022D.bchsia.telus.net)) { halt } 
  else {
    if ($nick isreg $chan) {
      if ($len($1-) > 10) && ($round($calc($regex($1-,/[A-Z]/g) / $len($remove($1-,$chr(32))) * 100),0) > 66) {
        //set %capkickcount $v1
        if (!$($+(%,caps.,$address($nick,2)),2)) {
          inc -u120 $+(%,caps.,$address($nick,2))
          kick $chan $nick 14Drop the caps!
        }
        elseif ($($+(%,caps.,$address($nick,2)),2) == 1) {
          inc -u300 $+(%,caps.,$address($nick,2))
          ban -u120 $chan $address($nick,2)
          kick $chan $nick 14Drop the caps! 4- $+(%capkickcount,%) used 12[2-Minute Ban]3
        }
        elseif ($($+(%,caps.,$address($nick,2)),2) == 2) {
          inc -u1200 $+(%,caps.,$address($nick,2))
          ban -u600 $chan $address($nick,2)
          kick $chan $nick 14Drop the caps! 4- $+(%capkickcount,%) used 12[10-Minute Ban]3
        }
        elseif ($($+(%,caps.,$address($nick,2)),2) >= 3) {
          inc -u6000 $+(%,caps.,$address($nick,2))
          ban -u1800 $chan $address($nick,2)
          kick $chan $nick 14Drop the caps! 4- $+(%capkickcount,%) used 12[30-Minute Ban]3
        }
      }
    }
  }
}