Restore ADV wait indicator

engine/Age.Engine.Tests/AdvTextOpsTests.cs

@@ -30,4 +30,27 @@ public class AdvTextOpsTests
         Assert.Equal((1, 75, 47), Assert.Single(host.TextCursors));
         Assert.Equal((13, 1, 1, "speaker"), Assert.Single(host.SurfaceStrings));
     }
+
+    [Fact]
+    public void WaitIndicatorConfigurationReachesHost()
+    {
+        var table = OpcodeTableJson.Load(Paths.OpcodesJson);
+        var script = ScriptAssembler.Assemble(table, "WAITMARK",
+            new List<(int, Operand[])>
+            {
+                (0x73, new[]
+                {
+                    new Operand(0, 1), new Operand(0, 385), new Operand(0, 140), new Operand(0, 12),
+                    new Operand(0, 0), new Operand(0, 0), new Operand(0, 30), new Operand(0, 27),
+                    new Operand(0, 12), new Operand(0, 48),
+                }),
+                (0x2, Array.Empty<Operand>()),
+            }, Array.Empty<string>());
+        var host = new RecordingHost();
+
+        new VirtualMachine(script, table, host).Run();
+
+        Assert.Equal(new Age.Engine.Hosting.AdvWaitIndicatorConfig(1, 385, 140, 12, 0, 0, 30, 27, 12, 48),
+                     Assert.Single(host.WaitIndicators));
+    }
 }

engine/Age.Engine.Tests/TestSupport.cs

@@ -16,6 +16,7 @@ internal sealed class RecordingHost : IHost
     public readonly List<(int Offset, string Text)> Lines = new();
     public readonly List<(int Slot, int X, int Y)> TextCursors = new();
     public readonly List<(int Surface, int X, int Y, string Text)> SurfaceStrings = new();
+    public readonly List<AdvWaitIndicatorConfig> WaitIndicators = new();
     public readonly List<long> SleptDurations = new();
     public readonly List<(long Resource, int Channel)> SfxLoads = new();
     public readonly List<int> SfxStarts = new();
@@ -26,6 +27,7 @@ internal sealed class RecordingHost : IHost
     public void SetAdvTextCursor(int layoutSlot, int x, int y) => TextCursors.Add((layoutSlot, x, y));
     public void DrawStringToSurface(int surfaceSlot, int x, int y, string text)
         => SurfaceStrings.Add((surfaceSlot, x, y, text));
+    public void ConfigureAdvWaitIndicator(AdvWaitIndicatorConfig config) => WaitIndicators.Add(config);
     public void WaitForInput() => Waits++;
     public void Sleep(long duration) => SleptDurations.Add(duration);
     public void FrameYield() { }

engine/Age.Engine/Hosting/IHost.cs

@@ -1,6 +1,12 @@
 using Age.Engine.Model;
 
 namespace Age.Engine.Hosting;
+
+public readonly record struct AdvWaitIndicatorConfig(
+    int LayoutSlot, int X, int Y, int SurfaceSlot,
+    int SourceX, int SourceY, int CellWidth, int CellHeight,
+    int TerminalFrame, long FramePeriodMs);
+
 public interface IHost
 {
     void ShowText(int offset, string text);
@@ -8,7 +14,9 @@ public interface IHost
     // op 0x204 rasterizes a string into a numbered surface before 0x1fb binds that surface.
     void SetAdvTextCursor(int layoutSlot, int x, int y) { }
     void DrawStringToSurface(int surfaceSlot, int x, int y, string text) { }
+    void ConfigureAdvWaitIndicator(AdvWaitIndicatorConfig config) { }
     void WaitForInput();
+    void WaitForInput(int layoutSlot) => WaitForInput();
     void Sleep(long duration);
     void FrameYield();
     // Native 0x1c7/0x1cc query two distinct ADV skip channels. Headless and non-interactive

engine/Age.Engine/Vm/VirtualMachine.cs

@@ -283,13 +283,19 @@ public sealed class VirtualMachine
                 return pc + 1;
             case "set-adv-text-cursor": // 0x7a (layout slot, x, y); slot 0 means current natively
                 _host.SetAdvTextCursor((int)Read(a[0]), (int)Read(a[1]), (int)Read(a[2])); return pc + 1;
+            case "configure-adv-wait-indicator": // 0x73: per-layout animated input-wait marker
+                _host.ConfigureAdvWaitIndicator(new AdvWaitIndicatorConfig(
+                    (int)Read(a[0]), (int)Read(a[1]), (int)Read(a[2]), (int)Read(a[3]),
+                    (int)Read(a[4]), (int)Read(a[5]), (int)Read(a[6]), (int)Read(a[7]),
+                    (int)Read(a[8]), Read(a[9])));
+                return pc + 1;
             case "draw-string": // 0x204 (surface slot, x, y, string)
                 _host.DrawStringToSurface((int)Read(a[0]), (int)Read(a[1]), (int)Read(a[2]), ReadStr(a[3]));
                 return pc + 1;
             case "wait-for-input":
                 // Faithful headless: no player => halt here rather than plow past every prompt (see VmOptions).
                 if (_o.HaltAtWaitForInput) { HaltReason ??= "wait-for-input"; return HALT; }
-                _host.WaitForInput(); return pc + 1;
+                _host.WaitForInput((int)Read(a[0])); return pc + 1;
             case "sleep":   // 0xc8 (duration) — pause the host duration ms; headless hosts no-op (parity). Frame pacing.
                 _host.Sleep(Read(a[0])); return pc + 1;
             case "get-message-skip": // 0x1c7: Ctrl/message fast-forward run-state bit