diff options
-rwxr-xr-x | escato.pl | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -13,8 +13,10 @@ my $text = <>; # Indicios de que alguien ha cagado my @DUMP_TRIGGERS = ( - "caga", "jiñ", "vientr", # Verbos - "pino", "pinaco", "ñordo", "truñ", "chusc", "caca", "mierda" # Sustantivos + "caga", "cagu", "jiñ", "vientr", "plant", "deposit", "bomb", "defec", # Verbos + "pino", "pinaco", "ñordo", "truñ", "chusc", "caca", "caco", "baño", + "mierda", "topo", "mojón", "zurullo", "wc", "roca", "retrete", # Sustantivos + "a gust" # Otros ); my @PHRASES = ( "Estoy orgulloso de ti, %s.", |