From 7d8a808ba470776eea72531adc08c848b8053170 Mon Sep 17 00:00:00 2001
From: Mark Lemming <lemming@quirkyqatz.com>
Date: Sat, 29 Dec 2012 18:51:05 -0700
Subject: [PATCH] Added message when fissure grows and damages energy
 buildings.

---
 bin/tick_fissures.pl                       | 19 ++++++++++---------
 var/messages/fissure_collateral_damage.txt |  2 +-
 var/messages/fissure_damaged_energy.txt    |  8 ++++++++
 3 files changed, 19 insertions(+), 10 deletions(-)
 create mode 100644 var/messages/fissure_damaged_energy.txt

diff --git a/bin/tick_fissures.pl b/bin/tick_fissures.pl
index 3e494f18..f0b7a7c0 100644
--- a/bin/tick_fissures.pl
+++ b/bin/tick_fissures.pl
@@ -61,12 +61,13 @@ for my $body_id (sort keys %has_fissures) {
                     $bld->efficiency(0) if $bld->efficiency < 0;
                     $bld->update;
                 }
-                # Send email to empire and N19 news
-                #
-                #
-                #
-                # 
-                
+                if ($body->empire_id) {
+                    $body->empire->send_predefined_message(
+                        tags        => ['Alert'],
+                        filename    => 'fissure_damaged_energy.txt',
+                        params      => [$body->name, $building->x,$building->y, $fissure_level],
+                    );
+                }
             }
         }
         out("    set to ".$fissure->efficiency."% containment efficiency");
@@ -75,10 +76,10 @@ for my $body_id (sort keys %has_fissures) {
         $fcnt_30++ if ($fissure->level >= 30);
         if ($fcnt_30 == 2) {  #If it's more than 2, then we're doomed anyway
             if ($body->empire_id) {
-                $body->add_news(100, sprintf('Scientists have detected a critical mass of Illudium Q-36 on %s.',$body->name));
+                $body->add_news(50, sprintf('Scientists have detected a critical mass of Illudium Q-36 on %s.',$body->name));
             }
             else {
-                $body->add_news(100, sprintf('Neighbors of %s,  fear the planet will implode soon.',$body->name));
+                $body->add_news(50, sprintf('Neighbors of %s,  fear the planet will implode soon.',$body->name));
             }
         }
     }
@@ -168,7 +169,7 @@ for my $body_id (sort keys %has_fissures) {
                 }
             }
 
-            $body->add_news(100, sprintf('Scientists fear that %s is starting to tear itself apart.',$body->name));
+            $body->add_news(50, sprintf('Scientists fear that %s is starting to tear itself apart.',$body->name));
             if ($body->empire_id) {
                 $body->needs_recalc(1);
                 $body->tick;
diff --git a/var/messages/fissure_collateral_damage.txt b/var/messages/fissure_collateral_damage.txt
index b0e220e9..c1f18b65 100644
--- a/var/messages/fissure_collateral_damage.txt
+++ b/var/messages/fissure_collateral_damage.txt
@@ -1,4 +1,4 @@
-Fissure causes local destruction
+Fissure causes destruction
 ~~~
 The collapse of the Fissure Containment System on %s sent out a sub-ether shock-wave resulting in damage to many planets including %s.
 
diff --git a/var/messages/fissure_damaged_energy.txt b/var/messages/fissure_damaged_energy.txt
new file mode 100644
index 00000000..09346720
--- /dev/null
+++ b/var/messages/fissure_damaged_energy.txt
@@ -0,0 +1,8 @@
+Fissure grows!
+~~~
+The bad maintenance of the Fissure Containment System on %s resulted in the fissure at %s,%s growing to a level %s Fissure. It also caused damage to your energy buildings on planet.  Take immediate steps to remove the Fissure before your planet implodes!
+
+Regards,
+
+Your Humble Assistant
+
-- 
2.51.2