* pirate: Roll r's. Also, conjugate 'is' in first person, and add some

  more phrases. Closes: #443213

diff --git a/debian/changelog b/debian/changelog
index b261f8b7740e7efe43b2d175938be69a0128f92e..9d7fbe69aa0d70d817ecbe59fae3ebd2dd34be51 100644 (file)
--- 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 <joeyh@debian.org>  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 33fe86188b76d243fc473f52aa2c1f95d64e1fb1..67ad872a18149da0f94caccade4e874c5bd7b930 100755 (executable)
--- 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) {