From e2bfdb48b090e3f7b2f93b1b80405c1d1b3df369 Mon Sep 17 00:00:00 2001 From: joey Date: Wed, 19 Sep 2007 18:26:52 +0000 Subject: [PATCH] * pirate: Roll r's. Also, conjugate 'is' in first person, and add some more phrases. Closes: #443213 --- debian/changelog | 7 +++++++ pirate | 17 ++++++++++++++++- 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index b261f8b..9d7fbe6 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +filters (2.41) unstable; urgency=low + + * pirate: Roll r's. Also, conjugate 'is' in first person, and add some + more phrases. Closes: #443213 + + -- Joey Hess Wed, 19 Sep 2007 14:26:41 -0400 + filters (2.40) unstable; urgency=low * Update url to web page in README. diff --git a/pirate b/pirate index 33fe861..67ad872 100755 --- a/pirate +++ b/pirate @@ -19,7 +19,7 @@ '\bof\b' => "o'", '\bdon\'t\b' => "dern't", '\bdo not\b' => "dern't", - '\bnever\b' => "ne'er", + '\bnever\b' => "no nay ne'er", '\bever\b' => "e'er", '\bover\b' => "o'er", '\bYes\b' => 'Aye', @@ -34,6 +34,7 @@ '\baround\b' => "aroun'", '\bto\b' => "t'", '\bit\'s\b' => "'tis", + '\bIt\'s\b' => 'It be', '\bwoman\b' => 'wench', '\blady\b' => 'wench', '\bwife\b' => 'lady', @@ -74,6 +75,13 @@ '\bjet\b' => 'flying machine', '\bdriving\b' => 'sailing', '\bdrive\b' => 'sail', + '\bwith\b' => "wi'", + '\bam\b' => 'be', + '\bis\b' => 'be', + '\bare\b' => 'be', + '\bwas\b' => 'be', + '\bwere\b' => 'be', + '\bwere\b' => 'be', ); while (@trans_table) { @@ -86,6 +94,12 @@ s/ing\b/in'/g; s/ings\b/in's/g; s/(\.( |\t|$))/avast($1,3)/eg; s/([!\?]( \t|$))/avast($1,2)/eg; # Greater chance after exclamation +s/\Br\B/roll()/eg; + +sub roll { + return 'r' x (rand(5)+1) if rand > 0.5; + return 'r'; +} sub avast { my $stub=shift; @@ -112,6 +126,7 @@ sub avast { "$stub Fire the cannons!", ", to be sure$stub", ", I'll warrant ye$stub", + "$stub Arr, me hearty!", ); if (int rand($chance) == 1) { -- 2.30.2