From a30ac5026828a182ebb6f30bf0dc30bfa9752090 Mon Sep 17 00:00:00 2001 From: Ian Docherty Date: Sun, 2 Sep 2012 13:00:58 -0400 Subject: [PATCH] Modified messages, fixed mining platform recalc. --- bin/util/revamp_map.pl | 2 +- bin/util/revamp_map_message_1.pl | 23 ++++++++++++++++--- bin/util/revamp_map_message_3.pl | 4 ++-- .../DB/Result/Building/Permanent/Fissure.pm | 2 +- 4 files changed, 24 insertions(+), 7 deletions(-) diff --git a/bin/util/revamp_map.pl b/bin/util/revamp_map.pl index 387d00e5..48d4cc78 100644 --- a/bin/util/revamp_map.pl +++ b/bin/util/revamp_map.pl @@ -113,7 +113,7 @@ out('Recalculating for affected mining platforms'); # Recalculate all bodies that have mining platforms in the affected strip for my $body_id (keys %$colonies_requiring_update) { - my $body = $db->resultset('Body')->find($body_id); + my $body = $db->resultset('Map::Body::Planet')->find($body_id); out("Recalculating mining platforms for ".$body->name); my $ministry = $body->mining_ministry; diff --git a/bin/util/revamp_map_message_1.pl b/bin/util/revamp_map_message_1.pl index f8ff0df2..caffe917 100644 --- a/bin/util/revamp_map_message_1.pl +++ b/bin/util/revamp_map_message_1.pl @@ -29,11 +29,28 @@ if (not $all) { $empires = $empires->search({ id => {'>' => 1}}); -my $message = q{Over the past three years the Expanse has seen an explosion of new races seeking assylum from whatever they left behind. We were glad to have the new trading partners. However, some of you may have inadvertantly destroyed us all. The Sābēn Demesne were nothing compared to the threat we face now. - +my $message = q{Over the past three years the Expanse has seen an explosion of new races seeking assylum from whatever they left behind. We were glad to have new trading partners. However, some of you may have inadvertantly destroyed us all. The Sābēn Demesne were nothing compared to the threat we face now. + +Our distant automatic monitoring systems recently intercepted this urgent plea; + +*From: The Sābēn Demesne, colony: Accueil Temporaire - (deep space outpost). +To: The Sābēn Demesne Homeworld. + +Unknown anomaly detected, thought to be Cosmic String, dragging in and combining with smaller Cosmic Strings, rapidly growing in strength and power. + +Our scientist subspecies estimate that within a galactic week this anomaly will reach critical mass and envelope the entire Expanse. + +-- Static, screeching, scream's, sounds of distant explosions, plea's for help. -- + +Homeworld ...we have been impacted by a small cosmic string, massive damage to every building on this outpost. Our Black Hole Generator has gone into critical instability, we are doing all we can to stabilise it but we don't know if we will succeed in time. + +-- sounds of a massive explosion, silence.......... -- + +-- End of intercepted message. --* + It has come to my attention that some of you have been experimenting with singularities through devices you call Black Hole Generators. These technologies are barely within your comprehension, yet you use them as freely as you peel a Beeldeban! These devices are dangerous. I'm sure you've experienced some of their side-effects, but what you do not understand can kill us all. -A storm approaches. Those of you manipulating these singularities have built up a form of energy on the entire expanse. It's like the static electricity that's built up on your body when you walk across carpet in wool socks; only in this case, the energy envelops the entire expanse. When this energy discharges, it could form a cosmic string, ripping a hole in the fabric of space and time itself! +A storm approaches. Those of you manipulating these singularities have built up a form of energy on the entire expanse. It's like the static electricity that's built up on your body when you walk across a carpet in wool socks; only in this case, the energy envelops the entire expanse. When this energy discharges, it could form a cosmic string, ripping a hole in the fabric of space and time itself! Stop using these blasted devices now, while we try to sort out how to resolve this mess. diff --git a/bin/util/revamp_map_message_3.pl b/bin/util/revamp_map_message_3.pl index 765918e5..27a8aa32 100644 --- a/bin/util/revamp_map_message_3.pl +++ b/bin/util/revamp_map_message_3.pl @@ -28,11 +28,11 @@ $empires = $empires->search({ id => {'>' => 1}}); my $message = q{Luckily we appear to have weathered the storm, but it appears that the Expanse is forever changed. -Early sensor data indicates that the energy ribbon did not in-fact destroy the Expanse, but rather evolved it. Many bodies have changed their very composition. In many ways this is an entirely new Expanse. While I'm sure that adventure seekers will love the opportunities for exploration, but we stand reserved. +Early sensor data indicates that the energy ribbon did not in-fact destroy the Expanse, but rather evolved it. Many bodies have changed their very composition. In many ways this is an entirely new Expanse. While I'm sure that adventure seekers will love the opportunities for exploration, we reserve our opinion. Your immaturity as a species is showing. You rush to use the latest technologies without fully understanding the implications of that usage. Your decisions affect not only your empire, but the whole Expanse. You didn't destroy us this time, but we were pushed to the brink of annihilation. Please pursue a higher aptitude with the technologies you acquire before putting them to use in the future. -Now that we know there is a future, we look forward to hearing your reports about what you find in this new Expanse. Our probes are showing some anomalous readings. They're indicating that there are entirely new planetary compositions in the Expanse. This seems unlikely, but perhaps you would be so kind to verify our readings. +Now that we know there is a future, we look forward to hearing your reports about what you find in this new Expanse. Our probes are showing some anomalous readings. They're indicating that there are entirely new planetary compositions in the Expanse. This seems unlikely, but perhaps you would be so kind as to verify our readings. Good luck. And please be careful. diff --git a/lib/Lacuna/DB/Result/Building/Permanent/Fissure.pm b/lib/Lacuna/DB/Result/Building/Permanent/Fissure.pm index 2018fd3c..f059de59 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/Fissure.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/Fissure.pm @@ -65,7 +65,7 @@ before downgrade => sub { sub cost_to_fill_in_fissure { my $self = shift; - return $self->current_level_cost * 1350; + return int($self->current_level_cost * 1350); } sub has_resources_to_fill_in_fissure { -- 2.51.2