+#include "BlobBackgroundTask.hpp"
#include "Goal.hpp"
#include "IdleGoal.hpp"
+#include "IngestGoal.hpp"
#include "LocateResourceGoal.hpp"
#include "Creature.hpp"
#include "../app/Assets.hpp"
+#include "../ui/string.hpp"
#include "../world/Planet.hpp"
#include "../world/Resource.hpp"
#include "../world/Simulation.hpp"
#include "../world/TileType.hpp"
+#include <cstring>
#include <iostream>
+#include <sstream>
#include <glm/gtx/io.hpp>
namespace blobs {
namespace creature {
+BlobBackgroundTask::BlobBackgroundTask(Creature &c)
+: Goal(c)
+, breathing(false)
+, drink_subtask(nullptr)
+, eat_subtask(nullptr) {
+}
+
+BlobBackgroundTask::~BlobBackgroundTask() {
+}
+
+std::string BlobBackgroundTask::Describe() const {
+ return "being a blob";
+}
+
+void BlobBackgroundTask::Tick(double dt) {
+ if (breathing) {
+ // TODO: derive breathing ability
+ int gas = Assets().data.resources["air"].id;
+ // TODO: check if in compatible atmosphere
+ double amount = GetCreature().GetStats().Breath().gain * -(1.5 + 0.5 * GetCreature().ExhaustionFactor());
+ GetCreature().GetStats().Breath().Add(amount * dt);
+ // maintain ~1% gas composition
+ double gas_amount = GetCreature().GetComposition().Get(gas);
+ if (gas_amount < GetCreature().GetComposition().TotalMass() * 0.01) {
+ double add = std::min(GetCreature().GetComposition().TotalMass() * 0.025 - gas_amount, -amount * dt);
+ GetCreature().Ingest(gas, add);
+ }
+ if (GetCreature().GetStats().Breath().Empty()) {
+ breathing = false;
+ }
+ }
+}
+
+void BlobBackgroundTask::Action() {
+ CheckStats();
+ CheckSplit();
+ CheckMutate();
+}
+
+void BlobBackgroundTask::CheckStats() {
+ Creature::Stats &stats = GetCreature().GetStats();
+
+ if (!breathing && stats.Breath().Bad()) {
+ breathing = true;
+ }
+
+ if (!drink_subtask && stats.Thirst().Bad()) {
+ drink_subtask = new IngestGoal(GetCreature(), stats.Thirst());
+ for (const auto &cmp : GetCreature().GetComposition()) {
+ if (Assets().data.resources[cmp.resource].state == world::Resource::LIQUID) {
+ drink_subtask->Accept(cmp.resource, 1.0);
+ }
+ }
+ drink_subtask->OnComplete([&](Goal &) { drink_subtask = nullptr; });
+ GetCreature().AddGoal(std::unique_ptr<Goal>(drink_subtask));
+ }
+
+ if (!eat_subtask && stats.Hunger().Bad()) {
+ eat_subtask = new IngestGoal(GetCreature(), stats.Hunger());
+ for (const auto &cmp : GetCreature().GetComposition()) {
+ if (Assets().data.resources[cmp.resource].state == world::Resource::SOLID) {
+ eat_subtask->Accept(cmp.resource, 1.0);
+ }
+ }
+ eat_subtask->OnComplete([&](Goal &) { eat_subtask = nullptr; });
+ GetCreature().AddGoal(std::unique_ptr<Goal>(eat_subtask));
+ }
+
+ // when in bad shape, don't make much effort
+ if (stats.Damage().Bad() || stats.Exhaustion().Bad() || stats.Fatigue().Critical()) {
+ GetCreature().GetSteering().DontSeparate();
+ } else {
+ GetCreature().GetSteering().ResumeSeparate();
+ }
+}
+
+void BlobBackgroundTask::CheckSplit() {
+ if (GetCreature().Mass() > GetCreature().OffspringMass() * 2.0
+ && GetCreature().OffspringChance() > Assets().random.UNorm()) {
+ GetCreature().GetSimulation().Log() << GetCreature().Name() << " split" << std::endl;
+ Split(GetCreature());
+ return;
+ }
+}
+
+void BlobBackgroundTask::CheckMutate() {
+ // check for random property mutation
+ if (GetCreature().MutateChance() > Assets().random.UNorm()) {
+ double amount = 1.0 + (Assets().random.SNorm() * 0.05);
+ math::Distribution &d = GetCreature().GetGenome().properties.props[Assets().random.UInt(9)];
+ if (Assets().random.UNorm() < 0.5) {
+ d.Mean(d.Mean() * amount);
+ } else {
+ d.StandardDeviation(d.StandardDeviation() * amount);
+ }
+ }
+}
+
+namespace {
+
+std::string summarize(const Composition &comp, const app::Assets &assets) {
+ std::stringstream s;
+ bool first = true;
+ for (const auto &c : comp) {
+ if (first) {
+ first = false;
+ } else {
+ s << " or ";
+ }
+ s << assets.data.resources[c.resource].label;
+ }
+ return s.str();
+}
+
+}
+
+IngestGoal::IngestGoal(Creature &c, Creature::Stat &stat)
+: Goal(c)
+, stat(stat)
+, accept()
+, locate_subtask(nullptr)
+, ingesting(false)
+, resource(-1)
+, yield(0.0) {
+ Urgency(stat.value);
+}
+
+IngestGoal::~IngestGoal() {
+}
+
+void IngestGoal::Accept(int resource, double value) {
+ accept.Add(resource, value);
+}
+
+std::string IngestGoal::Describe() const {
+ if (resource == -1) {
+ return "ingest " + summarize(accept, Assets());
+ } else {
+ const world::Resource &r = Assets().data.resources[resource];
+ if (r.state == world::Resource::SOLID) {
+ return "eat " + r.label;
+ } else {
+ return "drink " + r.label;
+ }
+ }
+}
+
+void IngestGoal::Enable() {
+}
+
+void IngestGoal::Tick(double dt) {
+ Urgency(stat.value);
+ if (locate_subtask) {
+ locate_subtask->Urgency(Urgency() + 0.1);
+ }
+ if (ingesting) {
+ if (OnSuitableTile() && !GetSituation().Moving()) {
+ // TODO: determine satisfaction factor
+ GetCreature().Ingest(resource, yield * dt);
+ stat.Add(-1.0 * yield * dt);
+ if (stat.Empty()) {
+ SetComplete();
+ }
+ } else {
+ // left tile somehow, some idiot probably pushed us off
+ ingesting = false;
+ Interruptible(true);
+ }
+ }
+}
+
+void IngestGoal::Action() {
+ if (ingesting) {
+ // all good
+ return;
+ }
+ if (OnSuitableTile()) {
+ if (GetSituation().Moving()) {
+ // break with maximum force
+ GetSteering().Haste(1.0);
+ GetSteering().Halt();
+ } else {
+ // finally
+ Interruptible(false);
+ ingesting = true;
+ }
+ } else {
+ locate_subtask = new LocateResourceGoal(GetCreature());
+ for (const auto &c : accept) {
+ locate_subtask->Accept(c.resource, c.value);
+ }
+ locate_subtask->Urgency(Urgency() + 0.1);
+ locate_subtask->OnComplete([&](Goal &){ locate_subtask = nullptr; });
+ GetCreature().AddGoal(std::unique_ptr<Goal>(locate_subtask));
+ }
+}
+
+bool IngestGoal::OnSuitableTile() {
+ if (!GetSituation().OnTile()) {
+ return false;
+ }
+ const world::TileType &t = GetSituation().GetTileType();
+ auto found = t.FindBestResource(accept);
+ if (found != t.resources.end()) {
+ resource = found->resource;
+ yield = found->ubiquity;
+ return true;
+ } else {
+ resource = -1;
+ return false;
+ }
+}
+
+
Goal::Goal(Creature &c)
: c(c)
, on_complete()
}
void IdleGoal::Action() {
- double fert = GetCreature().Fertility();
- double rand = Assets().random.UNorm();
- if (fert > rand) {
- std::cout << "[" << int(GetCreature().GetSimulation().Time())
- << "s] splitting " << GetCreature().Name()
- << " because " << fert << " > " << rand << std::endl;
- Split(GetCreature());
- }
}
-LocateResourceGoal::LocateResourceGoal(Creature &c, int res)
+LocateResourceGoal::LocateResourceGoal(Creature &c)
: Goal(c)
-, res(res)
+, accept()
, found(false)
, target_pos(0.0)
, target_srf(0)
, target_tile(0)
-, searching(false) {
+, searching(false)
+, reevaluate(0.0) {
}
LocateResourceGoal::~LocateResourceGoal() noexcept {
}
+void LocateResourceGoal::Accept(int resource, double value) {
+ accept.Add(resource, value);
+}
+
std::string LocateResourceGoal::Describe() const {
- return "locate " + GetCreature().GetSimulation().Resources()[res].name;
+ return "locate " + summarize(accept, Assets());
}
void LocateResourceGoal::Enable() {
- LocateResource();
+
}
void LocateResourceGoal::Tick(double dt) {
+ reevaluate -= dt;
}
void LocateResourceGoal::Action() {
- if (!found) {
+ if (reevaluate < 0.0) {
+ LocateResource();
+ reevaluate = 3.0;
+ } else if (!found) {
if (!searching) {
LocateResource();
} else {
} else {
GetSteering().GoTo(target_pos);
}
+ GetSteering().Haste(Urgency());
}
void LocateResourceGoal::LocateResource() {
- if (GetSituation().OnSurface()) {
+ if (GetSituation().OnTile()) {
const world::TileType &t = GetSituation().GetTileType();
- auto yield = t.FindResource(res);
+ auto yield = t.FindBestResource(accept);
if (yield != t.resources.cend()) {
// hoooray
GetSteering().Halt();
glm::ivec2 loc = planet.SurfacePosition(srf, pos);
glm::ivec2 seek_radius(2);
glm::ivec2 begin(glm::max(glm::ivec2(0), loc - seek_radius));
- glm::ivec2 end(glm::min(glm::ivec2(planet.SideLength() - 1), loc + seek_radius));
+ glm::ivec2 end(glm::min(glm::ivec2(planet.SideLength()), loc + seek_radius + glm::ivec2(1)));
- const world::TileType::Yield *best = nullptr;
- glm::ivec2 best_pos;
- double best_distance;
+ double rating[end.y - begin.y][end.x - begin.x];
+ std::memset(rating, 0, sizeof(double) * (end.y - begin.y) * (end.x - begin.x));
- for (int y = begin.y; y <= end.y; ++y) {
- for (int x = begin.x; x <= end.x; ++x) {
+ // find close and rich field
+ for (int y = begin.y; y < end.y; ++y) {
+ for (int x = begin.x; x < end.x; ++x) {
const world::TileType &type = planet.TypeAt(srf, x, y);
- auto yield = type.FindResource(res);
+ auto yield = type.FindBestResource(accept);
if (yield != type.resources.cend()) {
- double dist = glm::length2(planet.TileCenter(srf, x, y) - pos);
- if (!best) {
- best = &*yield;
- best_pos = glm::ivec2(x, y);
- best_distance = dist;
- } else if (yield->ubiquity - (dist * 0.125) > best->ubiquity - (best_distance * 0.125)) {
- best = &*yield;
- best_pos = glm::ivec2(x, y);
- best_distance = dist;
- }
+ glm::dvec3 tc(planet.TileCenter(srf, x, y));
+ if (!GetCreature().PerceptionTest(tc)) continue;
+ // TODO: subtract minimum yield
+ rating[y - begin.y][x - begin.x] = yield->ubiquity * accept.Get(yield->resource);
+ double dist = std::max(0.125, 0.25 * glm::length(tc - pos));
+ rating[y - begin.y][x - begin.x] /= dist;
+ }
+ }
+ }
+
+ // demote crowded tiles
+ for (auto &c : planet.Creatures()) {
+ if (&*c == &GetCreature()) continue;
+ if (c->GetSituation().Surface() != srf) continue;
+ glm::ivec2 coords(c->GetSituation().SurfacePosition());
+ if (coords.x < begin.x || coords.x >= end.x) continue;
+ if (coords.y < begin.y || coords.y >= end.y) continue;
+ rating[coords.y - begin.y][coords.x - begin.x] *= 0.8;
+ }
+
+ glm::ivec2 best_pos(0);
+ double best_rating = -1.0;
+
+ for (int y = begin.y; y < end.y; ++y) {
+ for (int x = begin.x; x < end.x; ++x) {
+ if (rating[y - begin.y][x - begin.x] > best_rating) {
+ best_pos = glm::ivec2(x, y);
+ best_rating = rating[y - begin.y][x - begin.x];
}
}
}
- if (best) {
+
+ if (best_rating) {
found = true;
searching = false;
target_pos = planet.TileCenter(srf, best_pos.x, best_pos.y);
target_pos[(srf + 1) % 3] += Assets().random.SNorm();
// bias towards current direction
target_pos += glm::normalize(GetSituation().Velocity()) * 0.5;
+ target_pos = clamp(target_pos, -planet.Radius(), planet.Radius());
GetSteering().GoTo(target_pos);
}
}