feat(packages): ludic.session - a party's roster (slot 0 a port, the others as reported), the roles and who owns the world, the shared night, votes and a world-changing act asking the party; joins, leaves, roles, votes and the night as facts

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

packages/ludic.session/roster.ludic

@@ -0,0 +1,76 @@
+# roster.ludic - who is here. Slot 0 is this machine's player and reads the SessionLocal port
+# live; slots 1.. are remote players, filled by what their machines report.
+export function ply_init() -> void { session__init() }
+
+export function ply_on(p: int) -> bool {
+  if p == 0 { return true }
+  if session__slot == null or p < 0 or p >= PLY_MAX { return false }
+  return session__slot[p].on
+}
+
+export function ply_is_local(p: int) -> bool { return p == 0 }
+
+# the roster slot holding network player `pid`, or -1
+export function ply_slot_of(pid: int) -> int {
+  if session__slot == null or pid <= 0 { return -1 }
+  for p in 1 .. PLY_MAX { if session__slot[p].on and session__slot[p].pid == pid { return p } }
+  return -1
+}
+
+export function ply_count() -> int {
+  var n = 1
+  for p in 1 .. PLY_MAX { if ply_on(p) { n += 1 } }
+  return n
+}
+
+# a remote player comes in, standing where this one stands until they say: the first free
+# slot, or -1 when the party is full
+export function ply_join(pid: int) -> int {
+  session__init()
+  if pid <= 0 { return -1 }                  # 0 is this machine's player
+  for p in 1 .. PLY_MAX {
+    if session__slot[p].on { continue }
+    let r = new PartyMember
+    r.on = true
+    r.pid = pid
+    r.x = SessionLocal.x()
+    r.y = SessionLocal.y()
+    r.z = SessionLocal.z()
+    session__slot[p] = r
+    session__fact(SES_JOINED, p, pid)
+    return p
+  }
+  return -1
+}
+
+export function ply_leave(p: int) -> void {
+  if p <= 0 or not ply_on(p) { return }
+  let r = session__slot[p]
+  r.on = false
+  r.ready = false
+  session__fact(SES_LEFT, p, r.pid)
+}
+
+export function ply_leave_all() -> void { for p in 1 .. PLY_MAX { ply_leave(p) } }
+
+# what a remote player's machine reported this tick
+export function ply_report(p: int, x: float, y: float, z: float, yaw: float, speed: float) -> void {
+  if p <= 0 or not ply_on(p) { return }
+  let r = session__slot[p]
+  r.x = x
+  r.y = y
+  r.z = z
+  r.yaw = yaw
+  r.speed = speed
+}
+
+export function ply_report_rest(p: int, rest: float, sleeping: bool) -> void {
+  if p <= 0 or not ply_on(p) { return }
+  session__slot[p].rest = rest
+  session__slot[p].sleeping = sleeping
+}
+
+export function ply_report_name(p: int, name: string) -> void {
+  if p <= 0 or not ply_on(p) { return }
+  session__slot[p].name = name
+}