feat(packages): ludic.wildlife - a valley's animals: species handed in as data, ranges placed against the ground and moved with the season, the day's steering, the senses and a net alert that settles, feeding, lures and snares, birds, spawning and repopulation, its own dice, facts and a save section

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

packages/ludic.wildlife/store.ludic

@@ -0,0 +1,95 @@
+# store.ludic - the animals, their own dice, and the verbs that make and take one away
+var wl_list: []WildAnimal = null
+var wl_keys: int = 0
+var wl_dice: Rng = null
+var wl_hold: bool = false      # staged: nobody thinks, everybody keeps their speed
+const WL_TAU: float = 6.2831853
+
+export function wildlife_all() -> []WildAnimal {
+  if wl_list == null { wl_list = new []WildAnimal }
+  return wl_list
+}
+
+export function wildlife_count_all() -> int { return len(wildlife_all()) }
+
+# a new valley: every animal forgotten, quietly (the game has already let its drawings go)
+export function wildlife_clear() -> void { wl_list = new []WildAnimal }
+
+function wl_rng() -> Rng {
+  if wl_dice == null { wl_dice = rng_new(97) }
+  return wl_dice
+}
+
+function wl_rnd() -> float { return rng_float(wl_rng()) }
+
+# the package's dice from a known place (a spawn, a test)
+export function wildlife_seed(seed: int) -> void { rng_seed(wl_rng(), seed) }
+
+# an individual exactly as given: the host's own, or the host's on a guest
+export function wildlife_make(sp: int, x: float, z: float, legend: bool, yaw: float, variant: int, scale: float, nid: int) -> WildAnimal {
+  let s = wildlife_species(sp)
+  if s == null { return null }
+  let a = new WildAnimal
+  wl_keys += 1
+  a.key = wl_keys
+  a.nid = nid
+  a.sp = sp
+  a.x = x
+  a.z = z
+  a.home_x = x
+  a.home_z = z
+  a.tx = x
+  a.tz = z
+  a.y = WildlifeWorld.ground(x, z)
+  a.yaw = yaw
+  a.variant = variant
+  a.scale = scale
+  a.legend = legend
+  a.state = WILD_IDLE
+  push(wildlife_all(), a)
+  WildlifeWorld.born(a)
+  return a
+}
+
+# a new individual of a species at (x, z), off the package's dice
+export function wildlife_new(sp: int, x: float, z: float, legend: bool) -> WildAnimal {
+  let s = wildlife_species(sp)
+  if s == null { return null }
+  let yaw = wl_rnd() * WL_TAU
+  let variant = rng_between(wl_rng(), 0, 11)
+  let scale = s.scale * (0.88 + wl_rnd() * 0.24)
+  let a = wildlife_make(sp, x, z, legend, yaw, variant, scale, WildlifeWorld.next_id())
+  a.thirst = wl_rnd() * 50.0
+  a.hunger = wl_rnd() * 50.0
+  a.scat_t = 40.0 + wl_rnd() * 180.0
+  if s.flies {
+    a.state = WILD_FLY
+    a.fly_h = 10.0 + wl_rnd() * 20.0
+  }
+  a.timer = wl_rnd() * 6.0
+  return a
+}
+
+# gone for good: not drawn, not ticked
+export function wildlife_remove(a: WildAnimal) -> void {
+  if a == null { return }
+  a.alive = false
+  a.shown = false
+}
+
+# staged for a picture: nobody thinks, and everybody keeps the speed they were given
+export function wildlife_hold(on: bool) -> void { wl_hold = on }
+
+export function wildlife_by_nid(nid: int) -> WildAnimal {
+  let all = wildlife_all()
+  for i in 0 .. len(all) { if all[i].nid == nid { return all[i] } }
+  return null
+}
+
+# how many of a species are alive, legends apart
+export function wildlife_count(sp: int) -> int {
+  var n = 0
+  let all = wildlife_all()
+  for i in 0 .. len(all) { if all[i].alive and all[i].sp == sp and not all[i].legend { n += 1 } }
+  return n
+}