Feelings that change

using System.Text.Json;
using System.Text.Json.Serialization;
using Kallamo.Umwelt;
using var engine = UmweltEngine.Create("ilvar.umw");
const string projectId = "ilvar";
var json = new JsonSerializerOptions
{
    DefaultIgnoreCondition = JsonIgnoreCondition.WhenWritingNull,
    Converters = { new JsonStringEnumConverter(JsonNamingPolicy.KebabCaseLower) },
};
void Print(string label, object? value) => Console.WriteLine($"@@{label}\n{JsonSerializer.Serialize(value, json)}");

var court = new Dictionary<string, string> { ["aurel"] = "Prince Aurel", ["sabine"] = "Sabine, the envoy", ["caspar"] = "Sir Caspar" };
// The world, declared once: sending the same manifest again changes nothing.
engine.WorldEnsure(new EnsureWorldInput
{
    Project = new WorldProject { Id = projectId, Name = "The court of Ilvar", Timescale = "act" },
    EntityTypes = new()
    {
        new WorldEntityType { Id = "courtier", Name = "Courtier", Kind = EntityKind.Agent },
    },
    Entities = court.Select(courtier => new WorldEntity { Id = courtier.Key, TypeId = "courtier", Name = courtier.Value }).ToList(),
});
// Act 1: how each of them stands toward the others. One arrow at a time:
// what Aurel feels for Sabine says nothing about what she feels for him.
DispositionSetting Feels(string holder, string target, string dimension, double value) =>
    new() { Holder = holder, Target = target, Dimension = dimension, Value = JsonSerializer.SerializeToElement(value) };
engine.DispositionSetBatch(new SetDispositionsInput
{
    ProjectId = projectId, AttemptId = "act-1", Position = Position.At(1),
    Dispositions = new()
    {
        Feels("aurel", "sabine", "trust", 0.9), Feels("aurel", "sabine", "affection", 0.7),
        Feels("sabine", "aurel", "trust", 0.4), Feels("sabine", "aurel", "affection", 0.6),
        Feels("caspar", "sabine", "trust", 0.3), Feels("caspar", "sabine", "fear", 0.2),
        Feels("sabine", "caspar", "affection", 0.5), Feels("caspar", "aurel", "trust", 0.95),
    },
});
// Your rules for what events do to feelings. Umwelt keeps each new value as the current one.
Dictionary<string, double> Current(string holder, string target, long tick)
{
    var felt = engine.Dispositions(new DispositionsPayload { ProjectId = projectId, Holder = holder, Target = target, At = new At { Tick = tick } });
    var now = new Dictionary<string, double>();
    foreach (var record in felt.OfType<Record.Disposition>())
    {
        now[record.Dimension] = record.Value.GetDouble();
    }
    return now;
}
double Clamp(double x) => Math.Round(Math.Min(1, Math.Max(0, x)) * 100, MidpointRounding.AwayFromZero) / 100;
double Or(Dictionary<string, double> values, string key, double fallback) => values.TryGetValue(key, out var v) ? v : fallback;

// Act 2, the hunt: Sabine saves Caspar. Only the one who was saved changes.
var saved = Current("caspar", "sabine", 2);
engine.DispositionSetBatch(new SetDispositionsInput
{
    ProjectId = projectId, AttemptId = "act-2", Position = Position.At(2),
    Dispositions = new()
    {
        Feels("caspar", "sabine", "trust", Clamp(Or(saved, "trust", 0.5) + 0.4)),
        Feels("caspar", "sabine", "affection", Clamp(Or(saved, "affection", 0) + 0.5)),
        Feels("caspar", "sabine", "fear", 0),
    },
});

// Act 3, the letters: Aurel finds Sabine has been reading his correspondence.
var betrayed = Current("aurel", "sabine", 3);
engine.DispositionSetBatch(new SetDispositionsInput
{
    ProjectId = projectId, AttemptId = "act-3", Position = Position.At(3),
    Dispositions = new()
    {
        Feels("aurel", "sabine", "trust", Clamp(Or(betrayed, "trust", 0.5) - 0.7)),
        Feels("aurel", "sabine", "fear", Clamp(Or(betrayed, "fear", 0) + 0.4)),
    },
});
// Every arrow in every act, read back from Umwelt.
var acts = new Dictionary<string, List<object[]>>();
foreach (var act in new long[] { 1, 2, 3 })
{
    acts[act.ToString()] = new();
    foreach (var holder in court.Keys)
    {
        foreach (var target in court.Keys.Where(t => t != holder))
        {
            foreach (var (dimension, value) in Current(holder, target, act))
            {
                acts[act.ToString()].Add(new object[] { holder, target, dimension, value });
            }
        }
    }
}
Print("acts", acts);

// The same pair, both ways, after the letters.
Print("both-ways", new { aurelToSabine = Current("aurel", "sabine", 3), sabineToAurel = Current("sabine", "aurel", 3) });