Acme-BOPE

 view release on metacpan or  search on metacpan

lib/Acme/BOPE.pm  view on Meta::CPAN

  s#Capit[ãa]o Nascimento#print Acme::BOPE::fato#gi; # mudar por frase legal

  s{\b(?:naum|não|nao|nunca|jamais)\s+(?:ser(?:á|ão)|é|eh)\b}{ne}gi;
  s{\b(?:naum|não|nao|nunca|jamais)\b}{not}gi;
  s{\bser(?:á|ão|a|ah|ao)\b}{eq}gi;
  s{\b(?:é|eh)\b}{=}gi;
  s{\bfor\b}{eq}gi;

  s{\bvale(?:rá)?\b}{==}gi;

  s{\bvai pra guerra\b}{system}gi;

  s#\bse\s+(.*?)\s+ent[ãa]o\b#if($1){\n#gi;
  s#\bent[ãa]o\b#\{#gi;
  s#\bfaz isso aqui[:]?\b#\{#gi;
  s#\bsen[ãa]o\b#}else{\n#gi;
  s#\bestamos entendidos[?!]*\b#}#gi;
  s#\bos? senhor(?:es)? est(?:[aã]o|[aá]) fazendo (?:o )?seu instrutor muito feliz(?:...)#}#gi;
  s{\bfala(?: agora)?[!:]*}{print}gi;
  s{\bgrita[!:]*\b}{print}gi;
  s{\bvai dar merda,?}{warn}gi;

lib/Acme/BOPE.pm  view on Meta::CPAN

  s#(?:(?:OK)?\s*[!?]+)#;#gi;
 
  s#"(\d+)"#"$quotes[$1]"#g;

};

# hinos do bope:
sub canta_hino {
    my $self = shift;
    my @hinos = (
         'O interrogatório é muito fácil de fazer/pega o favelado e dá porrada até doer/O interrogatório é muito fácil de acabar/pega o bandido e dá porrada até matar',
         'Esse sangue é muito bom/ já provei não tem perigo/é melhor do que café/é o sangue do inimigo',
         'O quintal do inimigo/não se varre com vassoura/se varre com granada/com fuzil, metralhadora',
         'São os homens da caveira/do bornal e do cantil/Sua força combativa/está na ponta do fuzil',
         'Cachorro latindo/Criança chorando/Vagabundo vazando/É o BOPE chegando',
         'Tropa de elite/osso duro de roer/Pega um, pega geral/também vai pegar você',
         'Homem de preto, qual é sua missão?/Entrar pela favela e deixar corpo no chão/Homem de preto, o que é que você faz?/Eu faço coisas que assustam o satanás',
       );
    $hinos[int(rand(@hinos))];

}

lib/Acme/BOPE.pm  view on Meta::CPAN

        'O Capeta vendeu a alma para o Capitão Nascimento.',
        'Capitão Nascimento não sai de lugar nenhum devendo a ninguém, sempre põe na conta do Papa.',
        'Quando Deus disse "Que se faça a luz!". Capitão Nascimento falou "Tá de sacanagem, Sr. 01? Tá com medinho do escuro, Sr. 01?"',
        'Quando Deus resolveu criar o Universo foi pedir permissão ao Capitão Nascimento e ele respondeu: "É 100%? Então senta o dedo nessa porra!"',
        'A roupa do Super-Homem era preta até o Capitão Nascimento dizer: "Tira essa roupa preta que você não é caveira, você é MOLEQUE, ouviu? MO-LE-QUE!"',
        'Capitão Nascimento trabalhou como negociador da polícia. Seu trabalho era ligar para os seqüestradores e dizer: "Pede pra sair, porra!"',
        'Quantos Capitães Nascimento são necessários para trocar uma lâmpada? Nenhum, Capitão Nascimento também mata no escuro.',
        'Capitão Nascimento não lê livros, ele os coloca no saco até conseguir toda a informação que precisa.',
        'Uma vez ele esqueçeu onde deixou as chaves do seu caveirão. Ele se colocou no saco por 40 segundos e lembrou!',
        'Não existiam mesmo armas de destruição em massa no Iraque. Capitão Nascimento mora no Rio de Janeiro.',
        'Porque você acha que não existe terrorismo no Brasil?',
        'Nunca, em nenhuma hipotese, durma na frente do Capitão Nascimento. Ele vai pedir pra você fazer a bondade de segurar a granada.',
        'Em um de seus mandamentos, Deus disse: "Não Matarás". O Capitão Nascimento disse para Deus: "Tá de sacanagem, Sr. 01? Cê tá de sacanagem comigo, Sr. 01?"',
        'Não houve impeachment no Governo Collor. O Capitão Nascimento chegou no Palácio do Planalto e disse para o Collor:: "Pede prá sair!! Pede prá sair!!"',
        'No dia de São Cosme e São Damião, o Capitão Nascimento só pegava saco de doce que tivesse chiclete de Caveira.',
        'Capitão Nascimento fez com que o Seu Madruga pagasse o aluguel - todos os 14 meses atrasados - e adiantasse mais dois.',
        'Capitão Nascimento foi ao programa do Faustão e fez com que ele falasse enquanto o faustão ficava calado.',
        'Capitão Nascimento gritou no centro de Buenos Aires que Pelé é o rei do futebol e todos os argentinos concordaram.',
        'Capitão Nascimento fez um operador de telemarketing dizer: "desculpa, juro que não ligo mais".',
        'Capitão Nascimento resolve o travamento do Windows colocando o PC no saco.',
        'Capitão Nascimento disse pra Will Smith depois de ver "MIB": O senhor é um fanfarrão! Homens de Preto é o caralho, só o BOPE usa preto! Seu viado!',

lib/Acme/BOPE.pm  view on Meta::CPAN

=head1 EQUIVALÊNCIAS

Caso ainda seja novo no batalhão, aqui vão algumas equivalências:

=over 4

=item * I<(print)> - fala, grita

=item * I<(warn "MENSAGEM")> - vai dar merda "MENSAGEM"

=item * I<(system "COMANDO")> - vai pra guerra "COMANDO"

=item * I<(split)> - fatia, fatiou

=item * I<(next)> - passa, passou

=item * I<(last)> - chega!!! pára!!!

=item * I<(die)> - pede pra sair

=item * I<(exit)> - desisto, eu desisto, bota na conta do papa

lib/Acme/BOPE.pm  view on Meta::CPAN

=item * o, a, os, as, no, na, nos, nas, do, da, dos, das

=item * ele, ela, eles, elas, dele, dela, deles, delas, desse, dessa, desses, dessas, nesse, nessa, nesses, nessas

=item * seu, sua, seus, suas

=item * eu

=item * com, sem

=item * porra, merda, viado (e pode adicionar quantas interrogações ou exclamações quiser depois)

=back 

=head1 MAIÚSCULAS E ACENTOS

No linguajar do Bope, nenhuma palavra é sensível a caixa. Você pode sussurar comandos ou gritar com vagabundos, tudo funciona. Exemplos:



=head1 DIAGNÓSTICO