feat(packages): ludic.npc - the other people in a place: kinds, spots, acts, names and lines as open registries (a kind's routine is steps by the hour - a spot, an act, how long - with its own start and plan as function values, readable from .lres), a census on the half hour by weight (after dark only who stays out) with an extra the place asks for, walking round what is in the way and never into the water or up a scramble, no act where the place says nobody stops, facing a player within notice and back to the errand, leaving only out of every player's sight, unique names, posts that never walk (a vendor), lines by prio and chance with the story's words through a port and choices, a guest's copy of a host's people; greeted, talked and arrived as facts

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

packages/ludic.npc/tests/fake/index.ludic

@@ -0,0 +1,61 @@
+# fake - a place for the people: dry flat ground east of x = -50 and a lake west of it, a camp at
+# (40, 0) nobody may stop in, two players, and what the port was asked to draw
+numbers float
+var fk_hour: float = 12.0
+var fk_day: int = 1
+var fk_want: int = 0
+var fk_extra: int = -1
+var fk_px: []float = null
+var fk_pz: []float = null
+var fk_on: []bool = null
+var fk_born: int = 0
+var fk_gone: int = 0
+
+function fk_setup() -> void {
+  fk_hour = 12.0
+  fk_day = 1
+  fk_want = 0
+  fk_extra = -1
+  fk_px = [500.0, 900.0]
+  fk_pz = [500.0, 900.0]
+  fk_on = [true, false]
+  fk_born = 0
+  fk_gone = 0
+  npc_clear()
+  npc_reset()
+  npc_seed(7)
+  npc_config(10)
+}
+
+function fk_ground(x: float, z: float) -> float { return 0.0 }
+function fk_water(x: float, z: float) -> float {
+  if x < -50.0 { return 1.0 }
+  return -100.0
+}
+function fk_allowed(x: float, z: float) -> bool { return npc_d(x, z, 40.0, 0.0) > 15.0 }
+function fk_hour_now() -> float { return fk_hour }
+function fk_day_now() -> int { return fk_day }
+function fk_players() -> int { return 2 }
+function fk_player_on(i: int) -> bool { return fk_on[i] }
+function fk_x(i: int) -> float { return fk_px[i] }
+function fk_z(i: int) -> float { return fk_pz[i] }
+function fk_wanted() -> int { return fk_want }
+function fk_extra_kind() -> int { return fk_extra }
+function fk_taken(n: string) -> bool { return n == "Ada" }
+function fk_on_born(p: NpcPerson) -> void { fk_born += 1 }
+function fk_on_gone(p: NpcPerson) -> void { fk_gone += 1 }
+
+function fk_player_at(x: float, z: float) -> void {
+  fk_px[0] = x
+  fk_pz[0] = z
+}
+
+# seconds of the place, in twentieths
+function fk_run(secs: float) -> void { for k in 0 .. int(secs * 20.0) { npc_tick(0.05) } }
+
+function fk_count(what: int) -> int {
+  let fs = q_drain(npc_facts())
+  var n = 0
+  for i in 0 .. len(fs) { if fs[i].what == what { n += 1 } }
+  return n
+}

packages/ludic.npc/tests/kinds.lres

@@ -0,0 +1,19 @@
+# kinds.lres - the test's kinds: a camper who fishes the shore by day and sits at home by night, a
+# hiker who wanders, and a vendor at a post the census never draws
+camper {
+  weight: 1, night: true, stays: true
+  steps: [
+    { from: 21.0, to: 5.0, spot: NPCS_HOME, act: NPCA_SIT, lo: 60, hi: 150 },
+    { from: 5.0, to: 21.0, spot: NPCS_SHORE_HERE, act: NPCA_FISH, far: 80.0, lo: 60, hi: 90 }
+  ]
+}
+hiker {
+  weight: 3
+  start: fn tk_start
+  steps: [
+    { weight: 2, spot: NPCS_NEAR_HERE, act: NPCA_IDLE, near: 5.0, far: 20.0 },
+    { weight: 1, spot: NPCS_HERE, act: NPCA_SIT },
+    { weight: 1, spot: NPCS_WANDER, act: NPCA_IDLE }
+  ]
+}
+vendor { weight: 0, notice: 15.0 }

packages/ludic.npc/tests/lines.lres

@@ -0,0 +1,6 @@
+# lines.lres - the test's lines: a fisher's hush, the story's news when it has any, a greeting with
+# two choices, and the answer to the first
+hush { act: NPCA_FISH, prio: 3, text: "Shh." }
+news { prio: 2, fill: true }
+hello { prio: 1, text: "Morning.", choices: [{ text: "Any fish?", line: "fish_no", code: 7 }, { text: "Bye.", line: "" }] }
+fish_no { prio: -1, kind: NPCK_CAMPER, text: "Not today." }

packages/ludic.npc/tests/names.lres

@@ -0,0 +1,15 @@
+# names.lres - two pools of seven, one per body, and one the place keeps (Ada) that is never given
+nora { name: "Nora", body: 1 }
+wren { name: "Wren", body: 1 }
+ada { name: "Ada", body: 1 }
+dev { name: "Dev", body: 0 }
+cal { name: "Cal", body: 0 }
+tom { name: "Tom", body: 0 }
+ines { name: "Ines", body: 1 }
+ruth { name: "Ruth", body: 1 }
+pia { name: "Pia", body: 1 }
+bea { name: "Bea", body: 1 }
+sol { name: "Sol", body: 0 }
+gus { name: "Gus", body: 0 }
+ozan { name: "Ozan", body: 0 }
+rafe { name: "Rafe", body: 0 }

packages/ludic.npc/tests/npc_test.ludic

@@ -0,0 +1,230 @@
+# npc_test.ludic - the census by the hour and by weight, unique names, walking to a spot and never
+# into the water, a routine's steps by the hour, turning to a player and greeting them once, leaving
+# out of sight, lines and choices, a post, and a guest's copy
+import "ludic.npc"
+import "ludic.base"
+import "fake"
+program NpcTest {
+  numbers float
+  bind NpcWorld {
+    ground: fn fk_ground
+    water: fn fk_water
+    allowed: fn fk_allowed
+    hour: fn fk_hour_now
+    day: fn fk_day_now
+    players: fn fk_players
+    player_on: fn fk_player_on
+    player_x: fn fk_x
+    player_z: fn fk_z
+    want: fn fk_wanted
+    extra: fn fk_extra_kind
+    taken: fn fk_taken
+    born: fn fk_on_born
+    gone: fn fk_on_gone
+  }
+  bind NpcTalk { say: fn tk_say, greeting: fn tk_greeting }
+
+  def NpcActs sit { }
+  def NpcActs fish { turns: false }
+  def NpcKinds from "kinds.lres"
+  def NpcNames from "names.lres"
+  def NpcLines from "lines.lres"
+
+  var news_on: bool = false
+  function tk_say(p: NpcPerson, line: int) -> string {
+    if news_on { return `{p.name} saw a bear.` }
+    return ""
+  }
+  function tk_greeting(p: NpcPerson) -> string { return "What'll it be?" }
+  function tk_start(p: NpcPerson) -> void { npc_start_near(p, 0.0, 0.0, 0.0, 10.0) }
+
+  function one(kind: int) -> NpcPerson {
+    fk_setup()
+    fk_want = 1
+    let p = npc_spawn(kind)
+    npc_set_at(p, 0.0, 0.0)
+    return p
+  }
+
+  test "the tables: the package's acts and spots, and the game's kinds, names and lines" {
+    expect_eq(NPCA_WALK, 0)
+    expect_eq(NPCA_IDLE, 1)
+    expect_eq(npcspots_find("shore_here"), NPCS_SHORE_HERE)
+    expect_eq(NPCK_COUNT, 3)
+    expect(NpcKinds[NPCK_CAMPER].stays)
+    expect_eq(len(NpcKinds[NPCK_HIKER].steps), 3)
+    expect_eq(NPCN_COUNT, 14)
+  }
+
+  test "the census fills to what the place wants, by weight, and after dark only who stays out" {
+    fk_setup()
+    fk_want = 4
+    npc_tick(0.05)
+    expect_eq(npc_count(), 4)
+    expect_eq(fk_born, 4)
+    expect_eq(npc_name_clashes(), 0)
+    for i in 0 .. len(npc_walkers()) { expect(npc_walkers()[i].kind != NPCK_VENDOR) }
+    fk_setup()
+    fk_want = 3
+    fk_hour = 23.0
+    npc_tick(0.05)
+    expect_eq(npc_count(), 3)
+    for i in 0 .. len(npc_walkers()) { expect_eq(npc_walkers()[i].kind, NPCK_CAMPER) }
+  }
+
+  test "no name twice, and never one the place keeps" {
+    fk_setup()
+    fk_want = 6
+    npc_tick(0.05)
+    expect_eq(npc_count(), 6)
+    expect_eq(npc_name_clashes(), 0)
+    for i in 0 .. 6 { expect(npc_walkers()[i].name != "Ada") }
+  }
+
+  test "it walks to where it is going and begins there, facing what it came for" {
+    let p = one(NPCK_HIKER)
+    npc_go(p, 20.0, 0.0, NPCA_SIT, 30.0)
+    npc_face(p, 30.0, 0.0)
+    fk_run(30.0)
+    expect_eq(p.act, NPCA_SIT)
+    expect(npc_d(p.x, p.z, 20.0, 0.0) < 1.3)
+    expect(p.phase > 20.0)
+    expect_eq(fk_count(NPC_F_ARRIVED), 1)
+    expect_near(p.fx, 30.0, 0.01)
+  }
+
+  test "nobody walks into the lake" {
+    let p = one(NPCK_HIKER)
+    npc_go(p, -80.0, 0.0, NPCA_SIT, 30.0)
+    var west = 0.0
+    for k in 0 .. 1200 {
+      npc_tick(0.05)
+      west = Math.min(west, p.x)
+    }
+    expect(west > -50.5)
+  }
+
+  test "a step's spot is where its hours say: the shore by day, home by night" {
+    let p = one(NPCK_CAMPER)
+    npc_set_at(p, -20.0, 0.0)
+    fk_hour = 12.0
+    npc_plan(p)
+    expect_eq(p.act, NPCA_WALK)
+    expect_eq(p.next_act, NPCA_FISH)
+    expect(p.fx < -50.0)
+    fk_hour = 23.0
+    npc_plan(p)
+    expect_eq(p.act, NPCA_SIT)
+  }
+
+  test "an act is not begun where the place says nobody stops" {
+    let p = one(NPCK_HIKER)
+    npc_set_at(p, 40.0, 0.0)
+    npc_do(p, NPCA_SIT, 30.0)
+    expect_eq(p.act, NPCA_WALK)
+    expect(fk_allowed(p.tx, p.tz))
+  }
+
+  test "it turns to a player who comes near, greets them once, and again after they have gone" {
+    let p = one(NPCK_HIKER)
+    npc_do(p, NPCA_IDLE, 100.0)
+    p.yaw = 0.0
+    fk_player_at(0.0, 0.0 - 5.0)
+    fk_run(2.0)
+    expect(Math.abs(p.yaw) < 0.05)
+    fk_player_at(5.0, 0.0)
+    fk_run(3.0)
+    expect(Math.abs(npc_wrap(p.yaw + 1.5707963)) < 0.05)
+    fk_run(1.0)
+    expect_eq(fk_count(NPC_F_GREETED), 1)
+    fk_player_at(40.0, 0.0)
+    fk_run(0.5)
+    fk_player_at(5.0, 0.0)
+    fk_run(0.5)
+    expect_eq(fk_count(NPC_F_GREETED), 1)
+  }
+
+  test "a fisher keeps its eyes on the water, whoever is near" {
+    let p = one(NPCK_HIKER)
+    npc_do(p, NPCA_FISH, 100.0)
+    p.yaw = 0.0
+    npc_face(p, 0.0, -10.0)
+    fk_player_at(5.0, 0.0)
+    fk_run(2.0)
+    expect(Math.abs(p.yaw) < 0.05)
+  }
+
+  test "the day ends out of sight, and not in it" {
+    let p = one(NPCK_HIKER)
+    npc_do(p, NPCA_IDLE, 1000.0)
+    fk_hour = 22.5
+    fk_player_at(20.0, 0.0)
+    fk_run(0.5)
+    expect(p.active)
+    fk_player_at(500.0, 0.0)
+    fk_run(0.5)
+    expect(not p.active)
+    expect_eq(fk_gone, 1)
+    let c = one(NPCK_CAMPER)
+    npc_do(c, NPCA_IDLE, 1000.0)
+    fk_hour = 22.5
+    fk_run(0.5)
+    expect(c.active)
+  }
+
+  test "lines: the highest that has something to say, the story's words, and choices" {
+    let p = one(NPCK_CAMPER)
+    npc_do(p, NPCA_FISH, 100.0)
+    expect_eq(npc_talk(p, 0), NPCL_HUSH)
+    expect(npc_said() == "Shh.")
+    expect(npc_talked_today(p))
+    npc_do(p, NPCA_IDLE, 100.0)
+    expect_eq(npc_line_for(p), NPCL_HELLO)
+    news_on = true
+    expect_eq(npc_line_for(p), NPCL_NEWS)
+    expect(npc_said() == `{p.name} saw a bear.`)
+    news_on = false
+    expect_eq(npc_choose(p, NPCL_HELLO, 0, 0), NPCL_FISH_NO)
+    expect(npc_said() == "Not today.")
+    expect_eq(npc_choose(p, NPCL_HELLO, 1, 0), -1)
+    let fs = q_drain(npc_facts())
+    expect_eq(len(fs), 3)
+    expect_eq(fs[1].choice, 7)
+    expect(npc_greeting(p) == "What'll it be?")
+  }
+
+  test "a post stands where it was put, is not counted, and turns back when nobody is near" {
+    fk_setup()
+    let v = npc_place(NPCK_VENDOR, 0.0, 0.0, 0.0, "Mateo", 5)
+    expect(v.fixed)
+    expect_eq(npc_count(), 0)
+    fk_player_at(8.0, 0.0)
+    fk_run(3.0)
+    expect(Math.abs(npc_wrap(v.yaw + 1.5707963)) < 0.05)
+    fk_player_at(300.0, 0.0)
+    fk_run(3.0)
+    expect(Math.abs(v.yaw) < 0.05)
+    expect(npc_d(v.x, v.z, 0.0, 0.0) < 0.001)
+    expect(npc_by_id(v.id).name == "Mateo")
+  }
+
+  test "a guest's copy: the host's slot put, heard and eased toward, and not drawn once it goes quiet" {
+    fk_setup()
+    fk_want = 2
+    npc_tick(0.05)
+    npc_mirror(true)
+    expect_eq(npc_count(), 0)
+    let p = npc_put(3, 99, NPCK_HIKER, 12, 1.5, "Wren", 10.0, 10.0)
+    expect(p.active)
+    expect_eq(npc_count(), 1)
+    npc_heard(3, 10.0, 0.0, 10.0, 0.0, 1.2, NPCA_WALK, false)
+    npc_heard(3, 12.0, 0.0, 10.0, 0.0, 1.2, NPCA_WALK, false)
+    for k in 0 .. 40 { npc_mirror_tick(0.05) }
+    expect_near(p.x, 12.0, 0.01)
+    expect(p.phase > 0.0)
+    npc_tick(0.05)
+    expect_near(p.x, 12.0, 0.01)
+    for k in 0 .. 140 { npc_mirror_tick(0.05) }
+    expect(not npc_heard_lately(p))
+  }
+}