]>
iEval git - filters.git/blob - pirate
3 # an array, not a hash. because order is important
6 '\bboss\b' => 'admiral',
7 '\bmanager\b' => 'admiral',
8 '\b[Cc]aptain\b' => "Cap'n",
9 '\bmyself\b' => 'meself',
12 '\bfriend\b' => 'matey',
13 '\bfriends\b' => 'maties',
14 '\bco[-]?worker\b' => 'shipmate',
15 '\bco[-]?workers\b' => 'shipmates',
16 '\bearlier\b' => 'afore',
20 '\bdon\'t\b' => "dern't",
21 '\bdo not\b' => "dern't",
22 '\bnever\b' => "no nay ne'er",
27 '\bdon\'t know\b' => "dinna",
28 '\bhadn\'t\b' => "ha'nae",
29 '\bdidn\'t\b' => "di'nae",
30 '\bwasn\'t\b' => "weren't",
31 '\bhaven\'t\b' => "ha'nae",
33 '\bbetween\b' => 'betwixt',
34 '\baround\b' => "aroun'",
36 '\bit\'s\b' => "'tis",
37 '\bIt\'s\b' => 'It be',
38 '\bwoman\b' => 'wench',
39 '\blady\b' => 'wench',
42 '\bgirls\b' => 'lassies',
43 '\bguy\b' => 'lubber',
44 '\bman\b' => 'lubber',
45 '\bfellow\b' => 'lubber',
46 '\bdude\b' => 'lubber',
48 '\bboys\b' => 'laddies',
49 '\bchildren\b' => 'minnows',
50 '\bkids\b' => 'minnows',
51 '\bhim\b' => 'that scurvey dog',
52 '\bher\b' => 'that comely wench',
53 '\bhim\.\b' => 'that drunken sailor',
54 '\bHe\b' => 'The ornery cuss',
55 '\bShe\b' => 'The winsome lass',
56 '\bhe\'s\b' => 'he be',
57 '\bshe\'s\b' => 'she be',
58 '\bwas\b' => "were bein'",
60 '\bher\.\b' => 'that lovely lass',
63 '\broads\b' => 'seas',
64 '\bstreet\b' => 'river',
65 '\bstreets\b' => 'rivers',
66 '\bhighway\b' => 'ocean',
67 '\bhighways\b' => 'oceans',
69 '\bcars\b' => 'boats',
70 '\btruck\b' => 'schooner',
71 '\btrucks\b' => 'schooners',
73 '\bmachine\b' => 'contraption',
74 '\bairplane\b' => 'flying machine',
75 '\bjet\b' => 'flying machine',
76 '\bdriving\b' => 'sailing',
77 '\bdrive\b' => 'sail',
87 while (@trans_table) {
88 $key=shift @trans_table;
89 $value=shift @trans_table;
95 s/(\.( |\t|$))/avast($1,3)/eg;
96 s/([!\?]( \t|$))/avast($1,2)/eg; # Greater chance after exclamation
100 return 'r' x
(rand(5)+1) if rand > 0.5;
111 ", and a bottle of rum!",
112 ", by Blackbeard's sword$stub",
113 ", by Davy Jones' locker$stub",
114 "$stub Walk the plank!",
118 ", and dinna spare the whip!",
119 ", with a chest full of booty$stub",
120 ", and a bucket o' chum$stub",
121 ", we'll keel-haul ye!",
122 "$stub Shiver me timbers!",
123 "$stub And hoist the mainsail!",
124 "$stub And swab the deck!",
125 ", ye scurvey dog$stub",
126 "$stub Fire the cannons!",
128 ", I'll warrant ye$stub",
129 "$stub Arr, me hearty!",
132 if (int rand($chance) == 1) {
133 return @shouts[rand @shouts]." ";
This page took 0.062292 seconds and 4 git commands to generate.