Skip to content

Commit

Permalink
last one, i swear
Browse files Browse the repository at this point in the history
  • Loading branch information
jckarter committed May 18, 2011
1 parent 662d2b2 commit 207ebc6
Show file tree
Hide file tree
Showing 7 changed files with 107 additions and 23 deletions.
62 changes: 62 additions & 0 deletions Dictionaries/Chorus.pl
Original file line number Diff line number Diff line change
@@ -0,0 +1,62 @@
[
q{
And we were singin'
Bye bye miss American pie
Drove my Chevy to the levee but the levee was dry
Them good ol' boys were drinking whisky and rye
Singin' this'll be the day that I die
This'll be the day that I die
},
q{
You can get anything you want at Alice's Restaurant
},
q{
'Cause I'm <Boss_monster>, yes I'm the real <$0>
All you other <$0>s are just imitating
So won't the real <$0> please stand up
Please stand up
Please stand up
},
q{
We didn't start the fire
It was always burnin'
Since the world's been turnin'
We didn't start the fire
It was always burnin'
Since the world's been turnin'
},
q{
Sweet home <*Location>
Where the skies are so blue
And the <Monster>'s true
Sweet home <*$0>
Lord I'm comin' home to you
},
q{
The answer my friend
Is <Verb>ing in the wind
The answer is <$0>ing in the wind
},
q{
<^It> loves you, yeah yeah yeah
<^$0> loves you, yeah yeah yeah
With a love like that, you know you should be glad
},
q{
And I say to myself
What a wonderful world
},
q{
[?Ow,Yow,Hoo,Ee-hee,Alright]! Take it to the bridge!
},
q{
<^Location> Park is melting in the dark
All the sweet, green icing flowing down
Someone left the cake out in the rain
I don't think I can take it
'Cause it took so long to bake it
And I'll never have that recipe again
},
];
11 changes: 7 additions & 4 deletions Dictionaries/Fable.pl
Original file line number Diff line number Diff line change
Expand Up @@ -215,10 +215,13 @@
And they're all made out of <$Ticky>
And they all look just the same.
},
q{
q{[Chorus=<Chorus>]
<Fable>
<$Chorus>
<Fable>
<$Chorus>
<Fable>
<$Chorus>
<Fable>
And I say to myself
What a wonderful world
},
];
2 changes: 1 addition & 1 deletion Dictionaries/Failure.pl
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
'<_MOVE_><$Opponent> throws you in the back of <Its> <Vehicle> and takes you to <$Player.location> against your will!',
'[$Player.sep_sidekick=<$Player.sidekick>][$Player.sidekick=]<_WOUND_><_MOVE_><$Opponent> clocks you over the head with your <$Loot> and takes you to <$Player.location> against your will![Player.sep_sidekick? You get separated from <$Player.sep_sidekick>!:]',
'[$Player.sep_sidekick=<$Player.sidekick>][$Player.sidekick=]<&Failure>[Player.sep_sidekick?
Meanwhile, the City of Los Angeles buys out your <$Player.sep_sidekick> franchise, which will now be known as the L.A. Super <$Player.sep_sidekick>s.]',
Meanwhile, the City of Los Angeles buys out your <$Player.sep_sidekick> franchise, which will now be known as the L.A. Super <$Player.sep_sidekick>s.:]',
'<_WOUND_><$Opponent> smacks you right in the <Body_part>!',
'<$Opponent> "accidentally" strokes your <Body_part> with <Its> <Body_part>!',
'<_WOUND_><$Opponent> insults your mother whilst kicking dirt in your eye.',
Expand Down
2 changes: 2 additions & 0 deletions Dictionaries/License_plate.pl
Original file line number Diff line number Diff line change
Expand Up @@ -20,4 +20,6 @@
'REVOEVOM',
'<1-9><0-9><0-9>-<Alphabet><Alphabet><Alphabet>',
'<Alphabet><Alphabet><Alphabet>-<1-9><0-9><0-9>',
'MR AWESM',
'HESTHE1',
];
17 changes: 11 additions & 6 deletions Dictionaries/Protip.pl
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@
'Let the wookie win.',
'Let the <Monster> win.',
'Don\'t run with a <Weapon>. You might put a <Body_part> out.',
'<Animal> <Body_part> meat is considered a delicacy in some parts of <Location>.',
'<&Animal> <Body_part> meat is considered a delicacy in some parts of <Location>.',
'<&Policy_violation>ing is grounds for severe punishment, but we usually just make you <Policy_compliance>.',
'Family, friends, religion . . . These are the demons you must slay if you want to succeed at game.pl.',
'Family, <Monster>s, religion . . . These are the demons you must slay if you want to succeed at game.pl.',
Expand All @@ -56,6 +56,7 @@
'It is better to <Policy_compliance> than to <Policy_violation>.',
'A stitch in time saves nine.',
'The <Language> alphabet only contains 12 letters (a, e, i, o, u, h, k, l, m, n, u, and w)',
'The <Language> grammar only contains 12 kinds of tokens, but <1-11> of them are significant whitespace.',
'Vision is the art of seeing things invisible to others.',
'If you would like to see further than others, try standing on the shoulders of giants.',
'Some character types are uniquely suited to certain tasks. For instance, <Monster>s have nimble <Body_part>s and are good at SQL queries, whereas <Monster>s excel at UI-intensive tasks.',
Expand All @@ -64,16 +65,16 @@
'The deadlier creatures will choose you over a piglet because they can always go back and get the piglet.',
'If you are in <$Player.location>, don\'t drink the water.',
'If you experience <Status_affliction>, <Status_affliction>, <Status_affliction> or other symptoms of <Status_affliction>, seek immediate medical attention.',
'<Food> should be cooked to an internal temperatue of <32-1000> degrees fahrenheit.',
'<&Food> should be cooked to an internal temperatue of <32-1000> degrees fahrenheit.',
'When you <Verb> a <Monster>, always use a <Loot> to reduce the chance of contracting <Status_affliction>.',
'Unless your name is <Boss_monster>, you\'d better <Policy_compliance> before you <Policy_violation>.',
"Since <Planet> doesn't have a moon, <God> exists.",
'If your tests are failing, you may feel like <Policy_violation>ing, but don\'t give in to temptation! In the long run, it\'s much better to <Policy_compliance>.',
'If your tests are failing, try <Policy_compliance>ing to increase your karma score.',
'<Monster>s have no kneecaps.',
'<Animal>s are the only animals that can\'t jump.',
'<&Monster>s have no kneecaps.',
'<&Animal>s are the only animals that can\'t jump.',
'Googling for "<Verb>ing" is not worksafe.',
'"<Verb>ing" is slang for "<Verb>ing" in <Location>.',
'"<&Verb>ing" is slang for "<Verb>ing" in <Location>.',
'Heed the wise advice of <Boss_monster>, who said "<Protip>"',
'Don\'t cry over spilled <Soft_drink>.',
'Time heals all wounds, but if you\'re in a hurry, try using <Liquor>.',
Expand All @@ -91,5 +92,9 @@
'Never go with a <Monster> to a second location.',
'Failure to <Policy_compliance> may cause dry socket.',
'A <Animal> in the <Body_part> is worth two in <Location>.',
'<Soft_drink> is not a real doctor.',
'<&Soft_drink> is not a real doctor.',
'<&Material> sharpeneth <$0>, so a <Monster> sharpeneth the countenance of <Its> friend.',
'It\'s not <Status_affliction> if the <Body_part>s don\'t touch.',
'It is insensitive to refer to a <Alien_race> as a "<~Adjective><~Body_part>".',
'Don\'t let the name throw you. The "<Verb>ing floor" isn\'t really a floor: it\'s more of a steel grating that allows [?<Soft_drink>,<Liquor>] to sluice through it for gathering and export.',
];
1 change: 1 addition & 0 deletions Dictionaries/Scroll_label.pl
Original file line number Diff line number Diff line change
Expand Up @@ -13,4 +13,5 @@
'MOAR',
'IMMA CHARGIN MAH LAZER',
'NOT TO BE TAKEN AWAY',
'NOT TO BE TAKEN INTERNALLY',
];
35 changes: 23 additions & 12 deletions Dictionaries/Sidekick_assists.pl
Original file line number Diff line number Diff line change
Expand Up @@ -36,8 +36,14 @@
"Excellent idea, sir!"',
'"Smithers, <Verb> my <Body_part>," you demand.
"With pleasure, sir!"',
'"Smithers," you declare, "I feel like <Policy_violation>ing."
"I\'ll prepare the <Loot>, sir."',
'You ask, "Smithers, who was that <Animal>?"
"Sir, that was <$Opponent>, one of your <Loot>s from <Initech_affiliate>."',
'"Smithers," you muse, "I think I\'ll <Policy_compliance>. . . WHEN <!Animal>s FLY! Haha!"
Suddenly, you see a <$1> flying through the air.
Smithers asks, "Sir, will you be <$0>ing now?"
"No, I\'d still prefer not."',
]));
},
'John Freeman' => sub {
Expand Down Expand Up @@ -66,19 +72,24 @@
},
'Fozzie Bear' => sub {
my $opponent = singular(one_of(['<*$Opponent>']));
$opponent =~ s/^.*\s(\w+)$/$1/;
if ($opponent =~ /r$/) {
return qq{Fozzie quips, "$opponent? I don't even know 'er! Wokka wokka wokka!"};
} elsif ($opponent =~ /m$/) {
return qq{Fozzie quips, "$opponent? I don't even know 'em! Wokka wokka wokka!"};
} elsif ($opponent =~ /[aeiouy]s$/) {
return qq{Fozzie quips, "$opponent? I don't even know us! Wokka wokka wokka!"};
} elsif ($opponent =~ /(oo|u)$/) {
return qq{Fozzie quips, "$opponent? I don't even know you! Wokka wokka wokka!"};
} elsif ($opponent =~ /(ee|[bcdfghjklmnpqrstvwxz]y|i)$/) {
return qq{Fozzie quips, "$opponent? I don't even know ye! Wokka wokka wokka!"};
if ($opponent =~ /\w+r\b/) {
return qq{Fozzie quips, "$&? I don't even know 'er! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+m\b/) {
return qq{Fozzie quips, "$&? I don't even know 'em! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+[eio]tt?\b/) {
return qq{Fozzie quips, "$&? I don't even know it! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+[aeiou]ss?\b/) {
return qq{Fozzie quips, "$&? I don't even know us! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+(oo|u)\b/) {
return qq{Fozzie quips, "$&? I don't even know you! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+(ee|[bcdefghjklmnpqrstvwxz]y|i)\b/) {
return qq{Fozzie quips, "$&? I don't even know ye! Wokka wokka wokka!"};
} elsif ($opponent =~ /\w+[bcdfghjklmnpqrstvwxz]a\b/) {
my $accented = $&;
$accented =~ s/a$/er/g;
return qq{Fozzie quips, "$accented? I don't even know 'er! Wokka wokka wokka!"};
} else {
return qq{Fozzie quips, "Wokka wokka wokka!"};
return qq{Fozzie thinks for a moment, then quips, "Wokka wokka wokka!"};
}
},
Chewbacca => sub {
Expand Down

0 comments on commit 207ebc6

Please sign in to comment.