From 9bc0c8caa9891943ff1b22429c6af9f1376252a1 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Fri, 12 Nov 2010 10:06:38 -0600
Subject: [PATCH] random scare tactics

---
 bin/saben/send_attack.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/bin/saben/send_attack.pl b/bin/saben/send_attack.pl
index 2841d84d..1b6dba09 100644
--- a/bin/saben/send_attack.pl
+++ b/bin/saben/send_attack.pl
@@ -22,11 +22,31 @@ our $empires = $db->resultset('Lacuna::DB::Result::Empire');
 our $spies = $db->resultset('Lacuna::DB::Result::Spies');
 our $ships = $db->resultset('Lacuna::DB::Result::Ships');
 our $targets = $db->resultset('Lacuna::DB::Result::SabenTarget');
+my $config = Lacuna->config;
 
 out('getting empires...');
 my $saben = $empires->find(-1);
 my $lec = $empires->find(1);
 
+out('Send Network 19 messages....');
+my $news = $db->resultset('Lacuna::DB::Result::News');
+my @messages = (
+    'We are Sābēn. We have penetrated your defenses, and found them lacking. Goodbye.',
+    'We are Sābēn. We have studied you, and found your weaknesses. You do not have long.',
+    'We are Sābēn. You are in our Demesne. You are not welcome here.',
+);
+my $message = $messages[ rand @messages ];
+foreach my $x (int($config->get('map_size/x')->[0]/250) .. int($config->get('map_size/x')->[1]/250)) {
+    foreach my $y (int($config->get('map_size/y')->[0]/250) .. int($config->get('map_size/y')->[1]/250)) {
+        my $zone = $x.'|'.$y;
+        say $zone;
+        $news->new({headline => '$%^#%^#!%~!~!*::::::::........', zone => $zone })->insert;
+        sleep 1;
+        $news->new({headline => $message, zone => $zone })->insert;
+        sleep 1;
+        $news->new({headline => '^#%$$^#!%~!~:::::::........', zone => $zone })->insert;
+    }
+}
 
 out('Looping through colonies...');
 while (my $target = $targets->next) {
-- 
2.51.2