From 28896221ae67c3b745a1e4da2261ab4c4e9ab0d0 Mon Sep 17 00:00:00 2001
From: Mark Lemming <lemming@quirkyqatz.com>
Date: Thu, 24 Dec 2015 20:29:20 -0700
Subject: [PATCH] Christmas 2015

---
 bin/util/christmas_2015.pl | 92 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100644 bin/util/christmas_2015.pl

diff --git a/bin/util/christmas_2015.pl b/bin/util/christmas_2015.pl
new file mode 100644
index 00000000..31325838
--- /dev/null
+++ b/bin/util/christmas_2015.pl
@@ -0,0 +1,92 @@
+use 5.010;
+use strict;
+use lib '/data/Lacuna-Server/lib';
+use Lacuna::DB;
+use Lacuna;
+use Lacuna::Util qw(randint format_date);
+use Getopt::Long;
+$|=1;
+our $quiet;
+our $all;
+GetOptions(
+    'quiet' => \$quiet,
+    'all'   => \$all,
+);
+
+
+out('Started');
+my $start = time;
+
+out('Loading DB');
+our $db = Lacuna->db;
+my $empires = $db->resultset('Empire');
+
+my $lec = $empires->find(1);
+
+if (not $all) {
+    $empires = $empires->search({ is_admin => 1 });
+}
+
+$empires = $empires->search({ id => {'>' => 1}});
+
+my $message = q{As it is approaching what your Species calls 'Christmas' it seems that it is now traditional to send gifts to each other at this time.
+
+In order to foster good will between all species we have taken the liberty of sending you two plans for Sub Space Depots, a plan for a sculpture, and increased your boost time by one of your traditional months.
+
+How you use the the plans is up to you. You may use them yourselves, perhaps on one of your new colonies. Some of the more mature species may decide that at your level of technology you have little use for them yourselves, in which case you may wish to extend the hand/tenticle/pseudopod (delete as appropriate) of friendship and share them with some of the less developed empires.
+
+In any case, we wish you well for your next solar orbital period.
+
+Your Trading Partner,
+
+Tou Re Ell
+
+Lacuna Expanse Corp};
+
+out('Sending Messages');
+while (my $empire = $empires->next) {
+    my $home = $empire->home_planet;
+    next unless defined $home;
+    out('Sending message to '.$empire->name);
+    $empire->send_message(
+        tag         => 'Correspondence',
+        subject     => 'A Gift.',
+        from        => $lec,
+        body        => $message,
+    );
+
+    my $btype = $home->get_type;
+    unless ($btype eq 'habitable planet' or $btype eq 'gas giant') {
+        out('Home planet type is '.$btype.'! Skipping.');
+        next;
+    }
+    $home->add_plan('Lacuna::DB::Result::Building::SubspaceSupplyDepot', 1, 0, 2);
+    $home->add_plan('Lacuna::DB::Result::Building::Permanent::MetalJunkArches', 1, 1, 1);
+
+    for my $boost ('ore_boost','water_boost','energy_boost','food_boost','happiness_boost','storage_boost','building_boost','spy_training_boost') {
+        my $start = DateTime->now;
+        $start = $empire->$boost if ($empire->$boost > $start);
+        $start->add(days=>14);
+        $empire->planets->update({needs_recalc=>1, boost_enabled=>1});
+        $empire->$boost($start);
+        $empire->update;
+    }
+}
+
+my $finish = time;
+out('Finished');
+out((($finish - $start)/60)." minutes have elapsed");
+
+
+###############
+## SUBROUTINES
+###############
+
+sub out {
+    my $message = shift;
+    unless ($quiet) {
+        say format_date(DateTime->now), " ", $message;
+    }
+}
+
+
-- 
2.51.2