3 files changed, 26 insertions, 14 deletions
diff --git a/src/LivingVillage.Kernel/Occupation.fs b/src/LivingVillage.Kernel/Occupation.fs
index 00cd2e9..c207395 100644
--- a/src/LivingVillage.Kernel/Occupation.fs
+++ b/src/LivingVillage.Kernel/Occupation.fs
@@ -343,18 +343,26 @@ module Occupation =
 
         let endingTextOf (kind: Kind) (ending: Ending) : string =
             match kind, ending with
-            | Farmer, Warm -> "雨水与年成有了结果：乡邻都说雨水匀，今年差不了。"
-            | Farmer, Plain -> "雨水与年成有了结果：雨水尚可，年成将就，照旧耕作。"
-            | Farmer, Distant -> "雨水与年成有了结果：问不出准信，年成只能看天。"
-            | Fisher, Warm -> "水位与收成有了结果：乡邻说得真切，水位稳了，收成坏不了。"
-            | Fisher, Plain -> "水位与收成有了结果：众说平常，水位尚可，收成将就。"
-            | Fisher, Distant -> "水位与收成有了结果：问了几家都淡淡的，水情还得自己看。"
-            | Peddler, Warm -> "新货的路子有了结果：乡邻热心指路，新货不愁卖。"
-            | Peddler, Plain -> "新货的路子有了结果：说法平常，先小量试卖。"
-            | Peddler, Distant -> "新货的路子有了结果：各家都淡淡的，路子还得自己闯。"
-            | Scholar, Warm -> "庙前的争论有了结果：各说各理，事有分晓。"
-            | Scholar, Plain -> "庙前的争论有了结果：众说纷纭，暂无定论。"
-            | Scholar, Distant -> "庙前的争论有了结果：无人理会，先记在册上。"
+            | Farmer, Warm -> "雨水与年成有了结果：乡邻都说雨水匀，今年差不了"
+            | Farmer, Plain -> "雨水与年成有了结果：雨水尚可，年成将就，照旧耕作"
+            | Farmer, Distant -> "雨水与年成有了结果：问不出准信，年成只能看天"
+            | Fisher, Warm -> "水位与收成有了结果：乡邻说得真切，水位稳了，收成坏不了"
+            | Fisher, Plain -> "水位与收成有了结果：众说平常，水位尚可，收成将就"
+            | Fisher, Distant -> "水位与收成有了结果：问了几家都淡淡的，水情还得自己看"
+            | Peddler, Warm -> "新货的路子有了结果：乡邻热心指路，新货不愁卖"
+            | Peddler, Plain -> "新货的路子有了结果：说法平常，先小量试卖"
+            | Peddler, Distant -> "新货的路子有了结果：各家都淡淡的，路子还得自己闯"
+            | Scholar, Warm -> "庙前的争论有了结果：各说各理，事有分晓"
+            | Scholar, Plain -> "庙前的争论有了结果：众说纷纭，暂无定论"
+            | Scholar, Distant -> "庙前的争论有了结果：无人理会，先记在册上"
+
+        /// §3 身份条目：开局写入年鉴（如「以打渔为生」），不带主语、沿年鉴短句风格。
+        let identitySummaryOf (kind: Kind) : string =
+            match kind with
+            | Farmer -> "以耕田为生"
+            | Fisher -> "以打渔为生"
+            | Peddler -> "以贩货为生"
+            | Scholar -> "以读书为生"
 
         /// 用一次玩家对话推进剧情线：同输入两次结果一致。
         /// 返回（新状态, 应写入年鉴的摘要文本 option）；无门控命中时原样返回。
@@ -366,10 +374,10 @@ module Occupation =
             match state.StoryStage with
             | 0 when day >= startDay ->
                 { state with StoryStage = 1 },
-                Some (sprintf "接了件事：%s，得去村里多问问。" (lineNameOf kind))
+                Some (sprintf "接了件事：%s，得去村里多问问" (lineNameOf kind))
             | 1 when day >= startDay + 1L ->
                 { state with StoryStage = 2 },
-                Some "走访了几户人家，改日再问。"
+                Some "走访了几户人家，改日再问"
             | 2 when day >= startDay + 2L ->
                 let ending = endingOf (relationMeanToPlayer world)
                 { state with StoryStage = 3 },
diff --git a/src/LivingVillage.Kernel/Sim.fs b/src/LivingVillage.Kernel/Sim.fs
index 348a60e..0ead9d5 100644
--- a/src/LivingVillage.Kernel/Sim.fs
+++ b/src/LivingVillage.Kernel/Sim.fs
@@ -153,6 +153,8 @@ module Sim =
         | DialogueAnnal of DialogueOutcome
         | RumorAnnal of RumorEvent
         | TradeAnnal of InteractionEvent
+        /// P-d 剧情线/身份条目：文案直接落在 Summary（存档 token "story"，仅带职业的 v3 存档产生）。
+        | StoryAnnal
 
     type AnnalEntry =
         { Tick: int64
diff --git a/src/LivingVillage.Kernel/WorldSave.fs b/src/LivingVillage.Kernel/WorldSave.fs
index b3bdfa9..7f724a3 100644
--- a/src/LivingVillage.Kernel/WorldSave.fs
+++ b/src/LivingVillage.Kernel/WorldSave.fs
@@ -390,12 +390,14 @@ module WorldSave =
         | TradeAnnal event ->
             add tokens "trade"
             writeInteraction tokens event
+        | StoryAnnal -> add tokens "story"
 
     let private readAnnalKind (reader: TokenReader) label =
         match reader.Take(label) with
         | "dialogue" -> DialogueAnnal(readDialogueOutcome reader (label + ".outcome"))
         | "rumor" -> RumorAnnal(readRumor reader (label + ".rumor"))
         | "trade" -> TradeAnnal(readInteraction reader (label + ".event"))
+        | "story" -> StoryAnnal
         | _ -> invalid (sprintf "invalid %s" label)
 
     let private writeAnnal tokens (value: AnnalEntry) =