From 50ab8dcf8eeae3bc3db4138aaf517b79954d678c Mon Sep 17 00:00:00 2001 From: JT Smith Date: Wed, 29 Sep 2010 22:33:39 -0500 Subject: [PATCH] commented out the news due to subclassing issues --- lib/Lacuna/DB/Result/Building/Permanent.pm | 2 +- .../DB/Result/Building/Permanent/EssentiaVein.pm | 12 ++++++------ .../DB/Result/Building/Permanent/GeoThermalVent.pm | 12 ++++++------ .../Building/Permanent/InterDimensionalRift.pm | 12 ++++++------ .../DB/Result/Building/Permanent/KalavianRuins.pm | 12 ++++++------ .../DB/Result/Building/Permanent/LibraryOfJith.pm | 12 ++++++------ .../DB/Result/Building/Permanent/MassadsHenge.pm | 12 ++++++------ .../DB/Result/Building/Permanent/NaturalSpring.pm | 12 ++++++------ .../DB/Result/Building/Permanent/OracleOfAnid.pm | 12 ++++++------ .../Building/Permanent/TempleOfTheDrajilites.pm | 12 ++++++------ lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm | 12 ++++++------ 11 files changed, 61 insertions(+), 61 deletions(-) diff --git a/lib/Lacuna/DB/Result/Building/Permanent.pm b/lib/Lacuna/DB/Result/Building/Permanent.pm index ad746349..69a806a7 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent.pm @@ -4,7 +4,7 @@ use Moose; no warnings qw(uninitialized); extends 'Lacuna::DB::Result::Building'; -sub build_tags {} +sub build_tags {}; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Building/Permanent/EssentiaVein.pm b/lib/Lacuna/DB/Result/Building/Permanent/EssentiaVein.pm index 3a0154fa..dbfcf68e 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/EssentiaVein.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/EssentiaVein.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(30, sprintf('Though officials on %s tried to keep it secret, news of the discovery of an Essentia vein broke.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(30, sprintf('Though officials on %s tried to keep it secret, news of the discovery of an Essentia vein broke.', $self->body->name)); +# } +#}; use constant name => 'Essentia Vein'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/GeoThermalVent.pm b/lib/Lacuna/DB/Result/Building/Permanent/GeoThermalVent.pm index b02a56dd..44f69356 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/GeoThermalVent.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/GeoThermalVent.pm @@ -20,12 +20,12 @@ sub can_upgrade { use constant image => 'geothermalvent'; -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(30, sprintf('%s considers itself a very efficient planet, much of its energy production coming from thermal vents.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(30, sprintf('%s considers itself a very efficient planet, much of its energy production coming from thermal vents.', $self->body->name)); +# } +#}; sub image_level { my ($self) = @_; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/InterDimensionalRift.pm b/lib/Lacuna/DB/Result/Building/Permanent/InterDimensionalRift.pm index 89d05873..474ef59c 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/InterDimensionalRift.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/InterDimensionalRift.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('An ancient interdimensional rift was opened on %s today. Onlookers stood speechless.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('An ancient interdimensional rift was opened on %s today. Onlookers stood speechless.', $self->body->name)); +# } +#}; use constant name => 'Interdimensional Rift'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/KalavianRuins.pm b/lib/Lacuna/DB/Result/Building/Permanent/KalavianRuins.pm index e40a47cc..83c62716 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/KalavianRuins.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/KalavianRuins.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('Scientists estimate that the Kalavian Ruins they uncovered on %s were buried for 90,000 years.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('Scientists estimate that the Kalavian Ruins they uncovered on %s were buried for 90,000 years.', $self->body->name)); +# } +#}; use constant name => 'Kalavian Ruins'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/LibraryOfJith.pm b/lib/Lacuna/DB/Result/Building/Permanent/LibraryOfJith.pm index ef94d059..cd7dfe6b 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/LibraryOfJith.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/LibraryOfJith.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('Archaeologists discovered the long rumored Library of Jith on %s this morning.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('Archaeologists discovered the long rumored Library of Jith on %s this morning.', $self->body->name)); +# } +#}; use constant name => 'Library of Jith'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/MassadsHenge.pm b/lib/Lacuna/DB/Result/Building/Permanent/MassadsHenge.pm index 2b5e4472..a12699f6 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/MassadsHenge.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/MassadsHenge.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('The discovery of Massad\'s Henge on %s has historians puzzled. It was assumed to only be legend.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('The discovery of Massad\'s Henge on %s has historians puzzled. It was assumed to only be legend.', $self->body->name)); +# } +#}; use constant name => 'Massad\'s Henge'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/NaturalSpring.pm b/lib/Lacuna/DB/Result/Building/Permanent/NaturalSpring.pm index 7a60f99a..20efca92 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/NaturalSpring.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/NaturalSpring.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(30, sprintf('Worries of drought ended today as a natural spring bubbled to the surface of %s today.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(30, sprintf('Worries of drought ended today as a natural spring bubbled to the surface of %s today.', $self->body->name)); +# } +#}; use constant name => 'Natural Spring'; use constant water_production => 4000; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/OracleOfAnid.pm b/lib/Lacuna/DB/Result/Building/Permanent/OracleOfAnid.pm index 29946b10..3c7f5c39 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/OracleOfAnid.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/OracleOfAnid.pm @@ -18,12 +18,12 @@ sub can_upgrade { confess [1013, "You can't upgrade the Oracle of Anid. It was left behind by the Great Race."]; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('As the Oracle of Anid was untombed on %s today, it began to shimmer with a warm red glow.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('As the Oracle of Anid was untombed on %s today, it began to shimmer with a warm red glow.', $self->body->name)); +# } +#}; use constant image => 'oracleanid'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/TempleOfTheDrajilites.pm b/lib/Lacuna/DB/Result/Building/Permanent/TempleOfTheDrajilites.pm index 355a0a32..95c05b1b 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/TempleOfTheDrajilites.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/TempleOfTheDrajilites.pm @@ -18,12 +18,12 @@ sub can_upgrade { confess [1013, "You can't upgrade the Temple of the Drajilites. It was left behind by the Great Race."]; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(50, sprintf('The followers of the Drajilite religion rejoiced when their ancient temple was uncovered on %s.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(50, sprintf('The followers of the Drajilite religion rejoiced when their ancient temple was uncovered on %s.', $self->body->name)); +# } +#}; use constant image => 'templedrajilites'; diff --git a/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm b/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm index fc90782c..266910fc 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/Volcano.pm @@ -25,12 +25,12 @@ sub image_level { return $self->image.'1'; } -after finish_upgrade => sub { - my $self = shift; - if ($self->level == 1) { - $self->body->add_news(30, sprintf('A volcano erupted on %s today spewing tons of ash on the inhabitants.', $self->body->name)); - } -}; +#after finish_upgrade => sub { +# my $self = shift; +# if ($self->level == 1) { +# $self->body->add_news(30, sprintf('A volcano erupted on %s today spewing tons of ash on the inhabitants.', $self->body->name)); +# } +#}; use constant name => 'Volcano'; use constant ore_production => 4000; -- 2.51.2