<?php
function filtrado($texto, $reemplazo = false) {
$filtradas = 'p?uta, mierda, pendej[ao]s?';

$f = explode(',', $filtradas);
$f = array_map('trim', $f);
$filtro = implode('|', $f);

return ($reemplazo) ? preg_replace("#$filtro#i", $reemplazo, $texto) : preg_match("#$filtro#i", $texto) ;
}
?>

Ahora la explicación:

• Línea 3: Aquí se definen las palabras a buscar separadas por coma. Se puede hacer uso de comodines. Por ejemplo, “p?uta” censura “puta” y “uta“; “pendej[ao]s?” censura “pendeja“, “pendejo“, “pendejos“, “pendejas“.
• Línea 5: Dividimos las palabras en un arreglo.
• Línea 6: Limpiamos los posibles espacios en blanco alrededor de la palabra.
• Línea 7: Las unimos con el caracter |.
• Línea 9: El segundo parametro es opcional. Si se pone, se retorna la cadena del primer parametro con las palabras prohibidas reemplazadas por el texto que se haya pasado como segundo parametro. Si no se especifica el segundo parametro, entonces la funcion retorna verdadero en caso de que se haya encontrado alguna palabra en el texto o falso en caso de que la cadena este limpia.

on 1:INPUT:*: {
if ($regex(,$1,^([+-][qaohvmb]+)+$)) { mode # $1- | halt }
if ($1 == .kr) { msg # Haciendo kick al azar~ | kick # $nick(#,$rand(1,$nick(#,0))) Kick no Jutsu~ | halt }
}

1. Acciones a relizar cuando escribimos algo.
2. Si el texto que escribimos comienza con + o -, seguido de una letra que sea ‘qaohvmb’, le damos el status correspondiente al nick. Ej: +o oso96_2000
3. Realiza un kick al azar de entre los usuarios del canal (uno mismo incluido).

on 1:INPUT:#{
	if($1 == +a) { mode # +a $2 }
	if($1 == -a) { mode # -a $2 }
	if($1 == +o) { mode # +o $2 }
	if($1 == -o) { mode # -o $2 }
	if($1 == +h) { mode # +h $2 }
	if($1 == -h) { mode # -h $2 }
	if($1 == +v) { mode # +v $2 }
	if($1 == -v) { mode # -v $2 }
}

Lo que hace es que al escribir yo mismo +o nick, le daría status de operador al nick mencionado. Pero entonces, despues de una pequeña charla, resulto que un amigo tenia en una sola linea lo necesario para hacer lo que yo hacia.. y la linea tenia 100 caracteres aproximadamente.. y como no quiso decirme como lo tenia, fue mi turno de ponerme a investigar y tratar de realizarla en menos caracteres.

Después de un rato pensando e intentando cosas, deje mi función en aproximadamente 120 caracteres, lo que aun hacia que perdiera el pequeño reto, ya que la de el tenia aun menos.. como parte de eso, habíamos quedado que el que tuviera mas caracteres mostraría su código, así que me toco hacerlo.. cuando lo vio, dijo que podía hacer su código aun mas corto.. y después de un rato dijo que ahora eran solo alrededor de 85 caracteres.. entonces yo seguí pensando como hacerlo, pero en lo mas que pude dejarlo fueron 90 caracteres u_u..

Al fin, me mostró como tenia su código, eran ya como 70-80 caracteres.. y de ahí, discutiendo sobre algunas cosas fuimos reduciendo el código hasta que quedo en esto:

on 1:INPUT:#:{if ($regex(,$1,^[-+][vhoa])){ mode # $1 $2- } }

¡61 caracteres! Cumple exactamente la misma función (y hasta mejor) que el código que tenia al principio, requiere un poco mas de comprensión, pero se simplifica mucho lo que se hace. Francamente, me encanto hacer eso.. me distraje de un ensayo que tenia que hacer (que termine ya muy noche, por lo que tengo sueño u-u) pero valió la pena, y aun creemos que podemos disminuirlo un poco mas ese código..

En fin, solo quería escribir esto xD.. ya que fue algo que me pareció por demás interesante, y chance a alguien le llegue a servir algún día o.O… y si puedes disminuir el código, déjalo en los comentarios xD

Edito: Mmh.. nueva linea.. 2 caracteres mas pero la expresión regular esta mejorada para corregir algunos problemas al escribir ciertas cosas =P

on 1:INPUT:#:{if ($regex(,$1,^([+-][aohv]+)+$)){ mode # $1- } }