Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215package Lacuna::AI::Saben;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::AI';use 5.010;use Lacuna::Util qw(randint format_date);use Log::Any qw($log);
use constant empire_id => -1;
has viable_colonies => ( is => 'ro', lazy => 1, default => sub { return Lacuna->db->resultset('Lacuna::DB::Result::Map::Body')->search( { empire_id => undef, orbit => 7, size => { between => [30,70]}}, ); });
sub empire_defaults { return { name => 'Sābēn Demesne', status_message => 'Waging war!', description => 'We see you looking at our description. Know this, we have looked at your description as well, and found it lacking. You do not deserve to share our Demesne.', species_name => 'Sābēn', species_description => 'A solitary people who wish to be left alone.', min_orbit => 1, max_orbit => 7, manufacturing_affinity => 4, deception_affinity => 7, research_affinity => 1, management_affinity => 7, farming_affinity => 1, mining_affinity => 1, science_affinity => 7, environmental_affinity => 1, political_affinity => 1, trade_affinity => 7, growth_affinity => 1, is_isolationist => 0, };}
sub colony_structures { return ( ['Lacuna::DB::Result::Building::Waste::Sequestration',30], ['Lacuna::DB::Result::Building::Development', 5], ['Lacuna::DB::Result::Building::Intelligence', 30], ['Lacuna::DB::Result::Building::Security', 30], ['Lacuna::DB::Result::Building::Espionage', 30], ['Lacuna::DB::Result::Building::Permanent::CitadelOfKnope',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::Shipyard',30], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SpacePort',25], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::SAW',30], ['Lacuna::DB::Result::Building::MunitionsLab', 25], ['Lacuna::DB::Result::Building::Propulsion', 25], ['Lacuna::DB::Result::Building::Trade', 20], ['Lacuna::DB::Result::Building::Observatory', 10], ['Lacuna::DB::Result::Building::Permanent::CrashedShipSite',25], ['Lacuna::DB::Result::Building::Permanent::Volcano',30], ['Lacuna::DB::Result::Building::Permanent::NaturalSpring',30], ['Lacuna::DB::Result::Building::Permanent::InterDimensionalRift',30], ['Lacuna::DB::Result::Building::Permanent::GratchsGauntlet',20], ['Lacuna::DB::Result::Building::Permanent::GeoThermalVent',30], ['Lacuna::DB::Result::Building::Permanent::KalavianRuins',25], ['Lacuna::DB::Result::Building::Permanent::MalcudField',30], ['Lacuna::DB::Result::Building::Permanent::AlgaePond',30], ['Lacuna::DB::Result::Building::Permanent::BlackHoleGenerator',30], ['Lacuna::DB::Result::Building::Permanent::PantheonOfHagness',30], ['Lacuna::DB::Result::Building::Food::Syrup',15], ['Lacuna::DB::Result::Building::Food::Burger',15], ['Lacuna::DB::Result::Building::Permanent::OracleOfAnid',15], );}
sub extra_glyph_buildings { return { quantity => 0, min_level => 1, max_level => 1, }}
sub spy_missions { return ( 'Incite Rebellion', 'Incite Mutiny', 'Appropriate Technology', );}
sub ship_building_priorities { return ( ['drone', 50], ['scanner', 10], ['sweeper', 250], ['spy_pod', 10], ['probe', 5], ['scow', 50], ['scow_fast', 50], ['bleeder', 25], ['snark', 20], ['snark2', 60], ['snark3', 75], );}
sub run_hourly_colony_updates { my ($self, $colony) = @_; $self->demolish_bleeders($colony); $self->kill_prisoners($colony, 24); $self->set_defenders($colony); $self->pod_check($colony, 25); $self->repair_buildings($colony); $self->train_spies($colony,50, 1); $self->build_ships($colony); $self->run_missions($colony);}
sub destroy_world { my ($self, $colony) = @_; if ($colony->is_bhg_neutralized) { $log->debug(sprintf("BHG of %s is neutralized by a space station.",$colony->name)); return; } my $enemies = Lacuna->db->resultset('Lacuna::DB::Result::Spies') ->search({on_body_id => $colony->id, task => 'Sabotage BHG', empire_id => { '!=' => $self->empire_id }})->count; if ($enemies) { $log->debug("Annoying non-saben on planet trying to Sabotage our BHG"); return; } $log->debug("Looking for world to destroy..."); my $targets = Lacuna->db->resultset('Map::Body')->search({ "me.zone" => $colony->zone, size => { between => [46, 75] }, empire_id => undef, # where there isn't a bhgneut law. "bhgneut_laws.id" => undef, }, { join => { star => 'bhgneut_laws' }, } );
# two queries to find a random element which is supposed to # be faster than order by rand(). Since we're only getting back # one number and one row, this should be fairly light on the # database communication level as well. my $numtargets = $targets->count(); my $targetidx = Lacuna::Util::randint(0,$numtargets - 1);
my $target = $targets->search({}, { offset => $targetidx, rows => 1, order_by => 'me.id' })->first;
if ($target) { $log->debug("Found ".$target->name); my @to_demolish = @{$target->building_cache}; $target->delete_buildings(\@to_demolish); $target->update({ class => 'Lacuna::DB::Result::Map::Body::Asteroid::A'.randint(1,Lacuna::DB::Result::Map::Body->asteroid_types), size => randint(1,10), usable_as_starter_enabled => 0, }); $log->debug("Turned into ".$target->class); $colony->add_news(100, 'We are Sābēn. We have destroyed '.$target->name.'. Leave now.'); } else { $log->debug("Nothing to destroy."); }}
no Moose;__PACKAGE__->meta->make_immutable;