From ab0d4a2521a8e4f97bd51da5166e6882ce7169de Mon Sep 17 00:00:00 2001 From: lemming552 Date: Sat, 12 May 2012 10:16:04 -0600 Subject: [PATCH] Couple more messages and a small mod. --- lib/Lacuna/DB/Result/Building/Archaeology.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lib/Lacuna/DB/Result/Building/Archaeology.pm b/lib/Lacuna/DB/Result/Building/Archaeology.pm index 0f814fba..de2cd5f1 100644 --- a/lib/Lacuna/DB/Result/Building/Archaeology.pm +++ b/lib/Lacuna/DB/Result/Building/Archaeology.pm @@ -201,16 +201,19 @@ sub dig_it { when ("destroy") { if (randint(0,99) < 5) { my $message = random_element([ + 'Auntie Em, where\'s Toto? Its a twister! Its a twister!', 'Aw, there\'s something behind me, isn\'t there?', 'Dave, this conversation can serve no purpose anymore. Goodbye.', 'Did you notice anything weird a minute ago?', + 'Doh!', 'Good. For a moment there, I thought we were in trouble.', 'Hasta la vista, baby', + 'Hey, what does this red button do?', 'Houston.. we have a problem', 'I say we take off and nuke the site from orbit. It\'s the only way to be sure.', + 'It\'s dead Jim.', 'It\'s just a harmless little bunny...', - 'It\'s full of stars', - 'Auntie Em, where\'s Toto? Its a twister! Its a twister!', + 'It\'s full of stars.', 'Looks like I picked the wrong week to stop sniffing glue.', 'Klaatu Barada Ni*cough*', 'Oh no, not again.', @@ -227,7 +230,7 @@ sub dig_it { 'We have top men working on it now.', ]); $result = { - message => $message, + message => "$message", outcome => "Destroyed", }; $self->body->add_news(10, "$message"); -- 2.51.2