1 files changed, 30 insertions, 6 deletions

diff --git a/src/LivingVillage.Desktop/Interaction.fs b/src/LivingVillage.Desktop/Interaction.fs
index dd372ef..bfe26c8 100644
--- a/src/LivingVillage.Desktop/Interaction.fs
+++ b/src/LivingVillage.Desktop/Interaction.fs
@@ -49,7 +49,9 @@ type M5View =
       HomeMode: HomeMode
       Prompt: string option
       PromptTargetPos: Vec2 option
-      Task: Occupation.State option }
+      Task: Occupation.State option
+      /// 世界种子（与 Game.fs 的开局种子同源），供剧情线开线日哈希使用。
+      Seed: uint64 }
 
 module InteractionResolver =
 
@@ -211,7 +213,8 @@ module M5Interaction =
           HomeMode = Outside
           Prompt = None
           PromptTargetPos = None
-          Task = None }
+          Task = None
+          Seed = 42UL }
 
     let worldInputAllowed (view: M5View) : bool =
         view.Panel = WorldPanel
@@ -299,17 +302,37 @@ module M5Interaction =
             match List.tryItem index menu.Options with
             | None -> world, { view with Status = "invalid dialogue option" }
             | Some intent ->
-            match Sim.chooseDialogue menu.Target intent world with
+            // P-d：回应经职业偏差纯函数；无职业走既有 identity 路径（逐字节不变）。
+            let respond =
+                match view.Task with
+                | Some task -> Occupation.biasResponse (Some task.Profile.Kind)
+                | None -> Sim.responseFor
+            match Sim.chooseDialogueWith respond menu.Target intent world with
                 | DialogueSucceeded(outcome, next) ->
-                    next,
+                    // P-d 剧情线：每次玩家对话至多推进一段，摘要写年鉴（StoryAnnal）。
+                    let storyWorld, storyTask =
+                        match view.Task with
+                        | Some task ->
+                            let nextState, summary = Occupation.Story.onDialogue view.Seed task next
+                            let withAnnal =
+                                match summary with
+                                | Some text ->
+                                    Sim.appendAnnal
+                                        { Tick = next.Tick; Kind = StoryAnnal; Summary = text }
+                                        next
+                                | None -> next
+                            withAnnal, Some nextState
+                        | None -> next, None
+                    storyWorld,
                     { view with
                         Panel = WorldPanel
                         Menu = None
-                        Chronicle = Sim.annalText next
+                        Chronicle = Sim.annalText storyWorld
                         Prompt = None
                         PromptTargetPos = None
+                        Task = storyTask
                         Status = sprintf "dialogue intent=%A response=%A" outcome.Intent outcome.Response
-                        StatusTick = Some next.Tick }
+                        StatusTick = Some storyWorld.Tick }
                 | DialogueRejected(failure, next) ->
                     next,
                     { view with
@@ -536,6 +559,7 @@ module M5Interaction =
                     quantity
                     unitPrice
             | _ -> "交易记录"
+        | StoryAnnal -> entry.Summary
 
     let private chronicleLines (world: World) : string list =
         world.Annals