+void Memory::TrackStay(const Location &l, double t) {
+ const world::TileType &type = l.planet->TypeAt(l.surface, l.coords.x, l.coords.y);
+ auto entry = known_types.find(type.id);
+ if (entry != known_types.end()) {
+ if (c.GetSimulation().Time() - entry->second.last_been > c.GetProperties().Lifetime() * 0.1) {
+ // "it's been ages"
+ if (entry->second.time_spent > c.Age() * 0.25) {
+ // the place is very familiar
+ c.GetStats().Boredom().Add(-0.2);
+ } else {
+ // infrequent stays
+ c.GetStats().Boredom().Add(-0.1);
+ }
+ }
+ entry->second.last_been = c.GetSimulation().Time();
+ entry->second.last_loc = l;
+ entry->second.time_spent += t;
+ } else {
+ known_types.emplace(type.id, Stay{
+ c.GetSimulation().Time(),
+ l,
+ c.GetSimulation().Time(),
+ l,
+ t
+ });
+ // completely new place, interesting
+ // TODO: scale by personality trait
+ c.GetStats().Boredom().Add(-0.25);
+ }
+}
+
+
+NameGenerator::NameGenerator()
+: counter(0) {
+}
+
+NameGenerator::~NameGenerator() {
+}
+
+std::string NameGenerator::Sequential() {
+ std::stringstream ss;
+ ss << "Blob " << ++counter;
+ return ss.str();
+}
+
+
+Situation::Situation()
+: planet(nullptr)
+, state(glm::dvec3(0.0), glm::dvec3(0.0))
+, surface(0)
+, type(LOST) {
+}
+
+Situation::~Situation() {
+}
+
+bool Situation::OnPlanet() const noexcept {
+ return type == PLANET_SURFACE;
+}
+
+bool Situation::OnSurface() const noexcept {
+ return type == PLANET_SURFACE;
+}
+
+bool Situation::OnTile() const noexcept {
+ glm::ivec2 t(planet->SurfacePosition(surface, state.pos));
+ return type == PLANET_SURFACE
+ && t.x >= 0 && t.x < planet->SideLength()
+ && t.y >= 0 && t.y < planet->SideLength();
+}
+
+glm::ivec2 Situation::SurfacePosition() const noexcept {
+ return planet->SurfacePosition(surface, state.pos);
+}
+
+world::Tile &Situation::GetTile() const noexcept {
+ glm::ivec2 t(planet->SurfacePosition(surface, state.pos));
+ return planet->TileAt(surface, t.x, t.y);
+}
+
+const world::TileType &Situation::GetTileType() const noexcept {
+ glm::ivec2 t(planet->SurfacePosition(surface, state.pos));
+ return planet->TypeAt(surface, t.x, t.y);
+}
+
+void Situation::Move(const glm::dvec3 &dp) noexcept {
+ state.pos += dp;
+ EnforceConstraints(state);
+}
+
+void Situation::Accelerate(const glm::dvec3 &dv) noexcept {
+ state.vel += dv;
+ EnforceConstraints(state);
+}
+
+void Situation::EnforceConstraints(State &s) noexcept {
+ if (OnSurface()) {
+ if (Surface() < 3) {
+ if (s.pos[(Surface() + 2) % 3] < GetPlanet().Radius()) {
+ s.pos[(Surface() + 2) % 3] = GetPlanet().Radius();
+ s.vel[(Surface() + 2) % 3] = std::max(0.0, s.vel[(Surface() + 2) % 3]);
+ }
+ } else {
+ if (s.pos[(Surface() + 2) % 3] > -GetPlanet().Radius()) {
+ s.pos[(Surface() + 2) % 3] = -GetPlanet().Radius();
+ s.vel[(Surface() + 2) % 3] = std::min(0.0, s.vel[(Surface() + 2) % 3]);
+ }
+ }
+ }
+}
+
+void Situation::SetPlanetSurface(world::Planet &p, int srf, const glm::dvec3 &pos) noexcept {
+ type = PLANET_SURFACE;
+ planet = &p;
+ surface = srf;
+ state.pos = pos;
+ EnforceConstraints(state);
+}
+
+
+Steering::Steering(const Creature &c)
+: c(c)
+, target(0.0)
+, haste(0.0)
+, max_force(1.0)
+, max_speed(1.0)
+, min_dist(0.0)
+, max_look(0.0)
+, separating(false)
+, halting(true)
+, seeking(false)
+, arriving(false) {
+}
+
+Steering::~Steering() {
+}
+
+void Steering::Separate(double min_distance, double max_lookaround) noexcept {
+ separating = true;
+ min_dist = min_distance;
+ max_look = max_lookaround;
+}
+
+void Steering::DontSeparate() noexcept {
+ separating = false;
+}
+
+void Steering::ResumeSeparate() noexcept {
+ separating = true;
+}
+
+void Steering::Halt() noexcept {
+ halting = true;
+ seeking = false;
+ arriving = false;
+}
+
+void Steering::Pass(const glm::dvec3 &t) noexcept {
+ target = t;
+ halting = false;
+ seeking = true;
+ arriving = false;
+}
+
+void Steering::GoTo(const glm::dvec3 &t) noexcept {
+ target = t;
+ halting = false;
+ seeking = false;
+ arriving = true;
+}
+
+glm::dvec3 Steering::Force(const Situation::State &s) const noexcept {
+ double speed = max_speed * glm::clamp(max_speed * haste * haste, 0.25, 1.0);
+ double force = max_speed * glm::clamp(max_force * haste * haste, 0.5, 1.0);
+ glm::dvec3 result(0.0);
+ if (separating) {
+ // TODO: off surface situation
+ glm::dvec3 repulse(0.0);
+ const Situation &s = c.GetSituation();
+ for (auto &other : s.GetPlanet().Creatures()) {
+ if (&*other == &c) continue;
+ glm::dvec3 diff = s.Position() - other->GetSituation().Position();
+ if (length2(diff) > max_look * max_look) continue;
+ double sep = length(diff) - other->Size() * 0.707 - c.Size() * 0.707;
+ if (sep < min_dist) {
+ repulse += normalize(diff) * (1.0 - sep / min_dist);
+ }
+ }
+ SumForce(result, repulse, force);
+ }
+ if (halting) {
+ SumForce(result, s.vel * -force, force);
+ }
+ if (seeking) {
+ glm::dvec3 diff = target - s.pos;
+ if (!allzero(diff)) {
+ SumForce(result, TargetVelocity(s, (normalize(diff) * speed), force), force);
+ }
+ }
+ if (arriving) {
+ glm::dvec3 diff = target - s.pos;
+ double dist = length(diff);
+ if (!allzero(diff) && dist > std::numeric_limits<double>::epsilon()) {
+ SumForce(result, TargetVelocity(s, diff * std::min(dist * force, speed) / dist, force), force);
+ }
+ }
+ return result;
+}
+
+bool Steering::SumForce(glm::dvec3 &out, const glm::dvec3 &in, double max) const noexcept {
+ if (allzero(in) || anynan(in)) {
+ return false;
+ }
+ double cur = allzero(out) ? 0.0 : length(out);
+ double rem = max - cur;
+ if (rem < 0.0) {
+ return true;
+ }
+ double add = length(in);
+ if (add > rem) {
+ // this method is off if in and out are in different
+ // directions, but gives okayish results
+ out += in * (1.0 / add);
+ return true;
+ } else {
+ out += in;
+ return false;
+ }
+}