Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354use 5.010;use strict;use lib '/home/lacuna/server/lib';use Lacuna::DB;use Lacuna;use Lacuna::Util qw(format_date);use Getopt::Long;
$|=1;our $quiet;our $add_one;GetOptions( quiet => \$quiet,# addone => \$add_one,);
out('Started');my $start = time;out('Loading DB');our $db = Lacuna->db;my $config = Lacuna->config;my $empires = $db->resultset('Lacuna::DB::Result::Empire');my $ai = Lacuna::AI::Jackpot->new;my $viable_colonies = $db->resultset('Lacuna::DB::Result::Map::Body')->search( { zone => '0|0', empire_id => undef, size => { between => [40,60]}}, { rows => 1, order_by => 'rand()' } );my $jackpot = $empires->find(-4);unless (defined $jackpot) { out('Creating new empire'); $jackpot = $ai->create_empire();}
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; }}