From: joey <joey@a4a2c43b-8ac3-0310-8836-e0e880c912e2>
Date: Wed, 19 Sep 2007 18:26:52 +0000 (+0000)
Subject: * pirate: Roll r's. Also, conjugate 'is' in first person, and add some
X-Git-Tag: 2.41
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=e2bfdb48b090e3f7b2f93b1b80405c1d1b3df369;p=filters.git

* 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 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 <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 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) {