From 8e9d9c74e00fd31e1e2d760b7c14cbc9f70711c2 Mon Sep 17 00:00:00 2001
From: Imzogelmo <Imzogelmo@gmail.com>
Date: Wed, 25 Mar 2015 12:13:39 -0500
Subject: [PATCH] Update Volcano.pm

Numbers make headlines more shocking
---
 lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm b/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm
index d6ab256e..2eabcdb0 100644
--- a/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm
+++ b/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm
@@ -4,6 +4,7 @@ use Moose;
 use utf8;
 no warnings qw(uninitialized);
 extends 'Lacuna::DB::Result::Building::Permanent';
+use Lacuna::Util qw(randint);
 
 with "Lacuna::Role::Building::UpgradeWithHalls";
 with "Lacuna::Role::Building::CantBuildWithoutPlan";
@@ -19,10 +20,10 @@ sub image_level {
 
 after finish_upgrade => sub {
     my $self = shift;
-    $self->body->add_news(30, 'A volcano erupted on %s today spewing tons of ash on the inhabitants.', $self->body->name);
+    $self->body->add_news(30, 'A volcano erupted on %s today spewing %s million tons of ash on the inhabitants.', $self->body->name, randint(50,250) );
 };
 
-use constant name => 'Volcano';
+use constant name => 'Volcano'; 
 use constant ore_production => 4000;
 
 use constant time_to_build => 0;
-- 
2.51.2