@almadar/std 16.188.0 → 16.190.0

package/behaviors/lolo/ui/game/atoms/std-pad-lock.lolo

@@ -1,5 +1,5 @@
 app std-pad-lock "1.0.0"
-"Headless pad-lock mechanic: floor pads that light when the player steps on them, completing a set when every pad is lit. Listens BODY_MOVED and lights any unlit live pad the player's rect touches (|dx| <= reachX, |dy| <= reachY of the pad center); a lit pad stays lit. Pads may carry a group number (grp 0 = ungrouped, always live): when groups are used, only pads of the lowest uncompleted group are live — pads of later groups refuse to light until the current group finishes, so one sum must be finished before the next. When a group completes the trait emits PAD_GROUP_COMPLETED once for it (first newly completed group reports; the shared entity carries the rest); when every pad in the set is lit it stamps completed and emits PAD_SET_COMPLETED once. RESTART unlights every pad and resets the set. Renders nothing; boards draw the pads and read lit from the shared entity (the render authority)."
+"Headless pad-lock mechanic: floor pads that light when the player steps on them, completing a set when every pad is lit. Listens BODY_MOVED and lights any unlit live pad the player's rect touches (|dx| <= reachX, |dy| <= reachY of the pad center); a lit pad stays lit. Pads may carry a group number (grp 0 = ungrouped, always live): when groups are used, only pads of the lowest uncompleted group are live — pads of later groups refuse to light until the current group finishes, so one sum must be finished before the next. When a group completes the trait emits PAD_GROUP_COMPLETED once for it (first newly completed group reports; the shared entity carries the rest); when every pad in the set is lit it stamps completed and emits PAD_SET_COMPLETED once. The lowest uncompleted group is stamped on the shared entity as currentGrp so boards can pulse exactly the live pads (0 = no group open / ungrouped pads). RESTART unlights every pad and resets the set. Renders nothing; boards draw the pads and read lit from the shared entity (the render authority)."
 orbital PadLockOrbital {
   type PadLock = {
     id : string!
@@ -13,6 +13,7 @@ orbital PadLockOrbital {
     id : string!
     pads : [PadLock] = []
     groupsDone : [number] = []
+    currentGrp : number = 0
     completed : boolean = false
   }
 
@@ -23,6 +24,7 @@ orbital PadLockOrbital {
       INIT -> active
         (set @entity.pads (array/map @config.pads (fn p (object/merge @p { lit: false }))))
         (set @entity.groupsDone [])
+        (set @entity.currentGrp 0)
         (set @entity.completed false)
 
       BODY_MOVED -> active when @config.running
@@ -35,6 +37,7 @@ orbital PadLockOrbital {
         (let ((newlyGrp (array/filter @doneNow (fn g (== (array/len (array/filter @entity.groupsDone (fn d (== @d @g)))) 0)))))
         (do
           (set @entity.pads @newPads)
+          (set @entity.currentGrp (if (== @currentGrp 9999) 0 @currentGrp))
           (if (> (array/len @newlyGrp) 0)
             (do
               (set @entity.groupsDone @doneNow)
@@ -49,6 +52,7 @@ orbital PadLockOrbital {
       RESTART -> active
         (set @entity.pads (array/map @config.pads (fn p (object/merge @p { lit: false }))))
         (set @entity.groupsDone [])
+        (set @entity.currentGrp 0)
         (set @entity.completed false)
     }
 

package/behaviors/lolo/ui/game/atoms/std-platformer-body.lolo

@@ -1,5 +1,5 @@
 app std-platformer-body "1.0.0"
-"Headless run/jump platformer-physics authority: the SOLE writer of body + fell + hazardId + goalId on side-view boards. Where std-motion-body owns free 2D drift (no collision), this atom owns the platformer contract: every 33ms physics tick it integrates gravity into the body's vertical velocity, steps position in per-second units, and collides the body rect against the config platforms with one-way semantics — a body moving in the gravity direction that overlaps a ground/platform tile lands on its anti-gravity face (vy zeroed, grounded set), while a body moving against gravity passes through, so jumping up through a platform and walking up a staircase both just work. The sign of gravity IS the vertical convention: positive pulls toward +y (screen boards, y down — sprite canvases), negative toward −y (math canvases, y up); jumps always fire against it. Intents: STEER sets horizontal velocity (dir −1/0/1 × moveSpeed, hold-to-run: keydown steers, keyup steers 0), JUMP kicks vertical velocity when grounded, PLACE teleports (spawns, hazard respawns), RESTART reseeds. Emits BODY_MOVED every tick for the render layer (boards that don't subscribe pay nothing), plus the sparse rule signals a board needs to score: BODY_JUMPED, BODY_LANDED (with impact speed), BODY_HAZARD (once per hazard entry, re-arms on exit), BODY_GOAL (same arming), BODY_FELL (once per fall past killY, re-armed by PLACE/RESTART). Drift regions: config.driftRegions lists axis-aligned rects each carrying a constant acceleration (ax, ay) applied with the same 0.033s dt whenever the body's center is inside (empty list = zero behavior change). Curve skating: when config.skate is on and the grounded body comes within skateSnap of the config.skateCurve surface, the body rides the curve — y snaps to the interpolated surface and tangential gravity (g·slope/(1+slope²)) accelerates vx, so the body slides downhill along the graph itself and launches ballistically off its ends; jumping kicks free. Sparse BODY_SKATE_START/BODY_SKATE_END signals fire on engage/disengage so boards can layer fx. Lives, score, and win/lose stay downstream — this atom simulates, it never judges. Renders nothing."
+"Headless run/jump platformer-physics authority: the SOLE writer of body + fell + hazardId + goalId on side-view boards. Where std-motion-body owns free 2D drift (no collision), this atom owns the platformer contract: every 33ms physics tick it integrates gravity into the body's vertical velocity, steps position in per-second units, and collides the body rect against the config platforms with one-way semantics — a body moving in the gravity direction that overlaps a ground/platform tile lands on its anti-gravity face (vy zeroed, grounded set), while a body moving against gravity passes through, so jumping up through a platform and walking up a staircase both just work. The sign of gravity IS the vertical convention: positive pulls toward +y (screen boards, y down — sprite canvases), negative toward −y (math canvases, y up); jumps always fire against it. Intents: STEER sets horizontal velocity (dir −1/0/1 × moveSpeed, hold-to-run: keydown steers, keyup steers 0), JUMP kicks vertical velocity when grounded, PLACE teleports (spawns, hazard respawns), RESTART reseeds. Emits BODY_MOVED every tick for the render layer (boards that don't subscribe pay nothing), plus the sparse rule signals a board needs to score: BODY_JUMPED, BODY_LANDED (with impact speed), BODY_HAZARD (once per hazard entry, re-arms on exit), BODY_GOAL (same arming), BODY_FELL (once per fall past killY, re-armed by PLACE/RESTART). Drift regions: config.driftRegions lists axis-aligned rects each carrying a constant acceleration (ax, ay) applied with the same 0.033s dt whenever the body's center is inside (empty list = zero behavior change). Curve skating: when config.skate is on and the grounded body comes within skateSnap of the config.skateCurve surface, the body rides the curve — y snaps to the interpolated surface and tangential gravity (g·slope/(1+slope²)) accelerates vx, and the vertical velocity is the tangential projection (s = vx·cos θ, vy = s·sin θ — no discontinuous jumps at sample boundaries), so the body slides downhill along the graph itself and launches ballistically off its ends; jumping kicks free. Sparse BODY_SKATE_START/BODY_SKATE_END signals fire on engage/disengage so boards can layer fx. Lives, score, and win/lose stay downstream — this atom simulates, it never judges. Renders nothing."
 orbital PlatformerBodyOrbital {
   type PlatformerBody = {
     x : number!
@@ -32,12 +32,20 @@ orbital PlatformerBodyOrbital {
     ax : number!
     ay : number!
   }
+  type CurveMod = {
+    x0 : number!
+    x1 : number!
+    a : number!
+    h : number!
+    k : number!
+  }
 
   entity PlatformerBodyData [runtime, shared] {
     id : string!
     body : PlatformerBody = { x: 0, y: 0, width: 1, height: 1, vx: 0, vy: 0, grounded: false, facingRight: true }
     fell : boolean = false
     hazardId : string = ""
+    curveMods : [CurveMod] = []
     goalId : string = ""
     skating : boolean = false
   }
@@ -66,8 +74,12 @@ orbital PlatformerBodyOrbital {
         (set @entity.hazardId "")
         (set @entity.skating false)
 
+      CURVE_MOD_ADD -> active when @config.curveModsEnabled
+        (set @entity.curveMods (array/append @entity.curveMods { x0: @payload.x0, x1: @payload.x1, a: @payload.a, h: @payload.h, k: @payload.k }))
+
       RESTART -> active
         (set @entity.body @config.spawn)
+        (set @entity.curveMods [])
         (set @entity.fell false)
         (set @entity.hazardId "")
         (set @entity.goalId "")
@@ -95,11 +107,20 @@ orbital PlatformerBodyOrbital {
         (let ((rightSamp (if @inRange (array/first (array/filter @config.skateCurve (fn s (> (object/get @s x) @cx)))) { x: 1, y: 0 })))
         (let ((slope (if @inRange (/ (- (object/get @rightSamp y) (object/get @leftSamp y)) (- (object/get @rightSamp x) (object/get @leftSamp x))) 0)))
         (let ((curveY (if @inRange (+ (object/get @leftSamp y) (* @slope (- @cx (object/get @leftSamp x)))) 0)))
+        (let ((curveMod (if (and @config.curveModsEnabled @inRange) (array/find @entity.curveMods (fn m (and (>= @cx (object/get @m x0)) (<= @cx (object/get @m x1))))) null)))
+        (let ((modX (if (== @curveMod null) @cx (- @cx (object/get @curveMod h)))))
+        (let ((modInRange (and (!= @curveMod null) (and (>= @modX (object/get (array/first @config.skateCurve) x)) (< @modX (object/get (array/last @config.skateCurve) x))))))
+        (let ((modLeft (if @modInRange (array/last (array/filter @config.skateCurve (fn s (<= (object/get @s x) @modX)))) @leftSamp)))
+        (let ((modRight (if @modInRange (array/first (array/filter @config.skateCurve (fn s (> (object/get @s x) @modX)))) @rightSamp)))
+        (let ((modSlope (if @modInRange (/ (- (object/get @modRight y) (object/get @modLeft y)) (- (object/get @modRight x) (object/get @modLeft x))) @slope)))
+        (let ((modCurveY (if @modInRange (+ (object/get @modLeft y) (* @modSlope (- @modX (object/get @modLeft x)))) @curveY)))
+        (let ((slope (if (== @curveMod null) @slope (* (object/get @curveMod a) @modSlope))))
+        (let ((curveY (if (== @curveMod null) @curveY (+ (* (object/get @curveMod a) @modCurveY) (object/get @curveMod k)))))
         (let ((movingUp (< (* @vy1 @gdir) -0.01)))
         (let ((skateNow (and @inRange (and (<= (math/abs (- @ny2 @curveY)) @config.skateSnap) (and (or @landed @entity.skating) (or @entity.body.grounded (not @movingUp)))))))
         (let ((vx2 (if @skateNow (math/clamp (+ @entity.body.vx (* (/ (* @config.gravity @slope) (+ 1 (* @slope @slope))) 0.033)) (- 0 @config.maxFallSpeed) @config.maxFallSpeed) @entity.body.vx)))
         (let ((vx3 (if (== @drift null) @vx2 (math/clamp (+ @vx2 (* @dax 0.033)) (- 0 @config.maxFallSpeed) @config.maxFallSpeed))))
-        (let ((fy (if @skateNow @curveY @ny2)) (fvy (if @skateNow (* @slope @vx2) @vy2)) (fgrounded (or @landed @skateNow)))
+        (let ((fy (if @skateNow @curveY @ny2)) (fvy (if @skateNow (* (* @vx2 (math/cos (math/atan @slope))) (math/sin (math/atan @slope))) @vy2)) (fgrounded (or @landed @skateNow)))
         (let ((hazardHit (array/find @config.platforms (fn p (and (== (object/get @p type) "hazard") (geo/aabb-overlap @rect { x: @p.x, y: @p.y, w: @p.width, h: @p.height }))))))
         (let ((goalHit (array/find @config.platforms (fn p (and (== (object/get @p type) "goal") (geo/aabb-overlap @rect { x: @p.x, y: @p.y, w: @p.width, h: @p.height }))))))
         (let ((fellNow (if (> @gdir 0) (> @fy @config.killY) (< @fy @config.killY))))
@@ -134,7 +155,7 @@ orbital PlatformerBodyOrbital {
                 (set @entity.fell true)
                 (emit BODY_FELL { x: @nx, y: @fy }))
               null)
-            (emit BODY_MOVED { x: @nx, y: @fy, vx: @entity.body.vx, vy: @fvy, grounded: @fgrounded, skating: @skateNow, speed: (math/hypot @entity.body.vx @fvy) }))))))))))))))))))))))))))))
+            (emit BODY_MOVED { x: @nx, y: @fy, vx: @entity.body.vx, vy: @fvy, grounded: @fgrounded, skating: @skateNow, speed: (math/hypot @entity.body.vx @fvy) })))))))))))))))))))))))))))))))))))))
     }
 
     emits {
@@ -201,6 +222,7 @@ orbital PlatformerBodyOrbital {
       STEER { dir : number! }
       JUMP { id : string }
       PLACE { x : number!, y : number! }
+      CURVE_MOD_ADD { x0 : number!, x1 : number!, a : number!, h : number!, k : number! }
       RESTART { id : string }
     }
 
@@ -221,6 +243,10 @@ orbital PlatformerBodyOrbital {
         @label "Gravity"
         @description "Units/s² added to vertical velocity; the SIGN is the vertical convention — positive pulls toward +y (screen boards, y down), negative toward −y (math canvases, y up) — and jumps always fire against it"
         @tier "domain"
+      curveModsEnabled : boolean = false
+        @label "Curve Mods Enabled"
+        @description "When true, entity.curveMods reshape the skate surface inside each mod's x-range: the road samples the base curve at (x − h) and applies a·y + k (slope scales by a) — coefficient pads lift/tilt the segment the player is riding. Default off: boards without coef pads pay nothing."
+        @tier "domain"
       jumpStrength : number = 11
         @label "Jump Strength"
         @description "Vertical speed in units/s imparted by JUMP, directed against gravity; apex height ≈ jumpStrength² / (2·|gravity|)"

package/behaviors/lolo/ui/game/atoms/std-zone-card.lolo

@@ -0,0 +1,95 @@
+app std-zone-card "1.0.0"
+"Headless zone-guidance mechanic for side-view boards: tracks which band of the world the player is in and holds up that zone's card — name, concept, objective — for a while after every crossing. Listens BODY_MOVED and, when the player's x crosses into a different config zone, stamps the shared entity (zoneId, card, enteredAt) and emits ZONE_CHANGED carrying the card fields; the card self-clears ttlTicks BODY_MOVED ticks later (a per-move tick counter on the entity, so pauses at speed zero still age it out) and boards clear it early via CARD_DISMISS (renamed to a board-scoped progress event) on any mechanic completion. RESTART clears the card and the clock. Renders nothing; boards draw the card from the shared entity (the render authority)."
+orbital ZoneCardOrbital {
+  type ZoneCard = {
+    name : string!
+    concept : string
+    objective : string
+  }
+  type ZoneCardZone = {
+    id : string!
+    name : string!
+    concept : string
+    objective : string
+    x0 : number!
+    x1 : number!
+  }
+
+  entity ZoneCardData [runtime, shared] {
+    id : string!
+    zoneId : string = ""
+    card : ZoneCard
+    enteredAt : number = 0
+    ticks : number = 0
+  }
+
+  trait ZoneCard -> @rebindable ZoneCardData [lifecycle] {
+    initial: active
+
+    state active {
+      INIT -> active
+        (set @entity.zoneId "")
+        (set @entity.card null)
+        (set @entity.enteredAt 0)
+        (set @entity.ticks 0)
+
+      BODY_MOVED -> active when @config.running
+        (set @entity.ticks (+ @entity.ticks 1))
+        (let ((zmatch (array/filter @config.zones (fn z (and (>= @payload.x (object/get @z x0)) (< @payload.x (object/get @z x1)))))))
+        (do
+          (if (and (> (array/len @zmatch) 0) (!= @entity.zoneId (object/get (array/first @zmatch) id)))
+            (do
+              (set @entity.zoneId (object/get (array/first @zmatch) id))
+              (set @entity.card { name: (object/get (array/first @zmatch) name), concept: (object/get (array/first @zmatch) concept), objective: (object/get (array/first @zmatch) objective) })
+              (set @entity.enteredAt @entity.ticks)
+              (emit ZONE_CHANGED { id: (object/get (array/first @zmatch) id), name: (object/get (array/first @zmatch) name), concept: (object/get (array/first @zmatch) concept), objective: (object/get (array/first @zmatch) objective) }))
+            null)
+          (if (and (!= @entity.card null) (> (- @entity.ticks @entity.enteredAt) @config.ttlTicks))
+            (set @entity.card null)
+            null)))
+
+      CARD_DISMISS -> active
+        (set @entity.card null)
+
+      RESTART -> active
+        (set @entity.zoneId "")
+        (set @entity.card null)
+        (set @entity.enteredAt 0)
+        (set @entity.ticks 0)
+    }
+
+    emits {
+      ZONE_CHANGED -> external {
+        id : string!
+        name : string!
+        concept : string
+        objective : string
+      }
+        @description "The player crossed into a different zone; carries the zone's card fields (name, concept, objective) so boards can swap banners/guides and hold the card up. Fires once per crossing."
+        @tier "domain"
+    }
+
+    listens {
+      BODY_MOVED { x : number!, y : number!, vx : number!, vy : number!, grounded : boolean!, skating : boolean!, speed : number! }
+      CARD_DISMISS { id : string }
+      RESTART { id : string }
+    }
+
+    config {
+      running : boolean = true
+        @label "Running"
+        @description "When true, BODY_MOVED tracks the current zone and ages the card; toggle to freeze the card as-is."
+        @tier "domain"
+      zones : [ZoneCardZone] = []
+        @label "Zones"
+        @description "One row per world band: id, display name, the one-line concept, the zone's objective text, and the x-range (x0..x1) the band covers."
+        @tier "domain"
+      ttlTicks : number = 120
+        @label "TTL Ticks"
+        @description "BODY_MOVED ticks the card stays up after a zone crossing (≈ 4s at 30 moves/s) before it clears itself."
+        @tier "domain"
+    }
+  }
+
+  page "/zone-card" as ZoneCardPage -> ZoneCard
+}

package/behaviors/lolo/ui/game/organisms/std-platformer-board-2d.lolo

@@ -79,6 +79,14 @@ orbital PlatformerBoard2DOrbital {
     right : Asset
   }
 
+  type BoardCurveMod = {
+    x0 : number!
+    x1 : number!
+    a : number!
+    h : number!
+    k : number!
+  }
+
   entity GameState [runtime, shared] {
     id : string!
     body : PlatformerBody = { x: 80, y: 320, width: 32, height: 48, vx: 0, vy: 0, grounded: false, facingRight: true }
@@ -86,6 +94,7 @@ orbital PlatformerBoard2DOrbital {
     hazardId : string = ""
     goalId : string = ""
     skating : boolean = false
+    curveMods : [BoardCurveMod] = []
     fx : [Fx] = []
     result : string = "none"
     score : number = 0

package/behaviors/registry/ui/core/atoms/std-calendar.orb

@@ -237,13 +237,7 @@
               "type": "string"
             },
             "agendaItemActions": {
-              "default": [
-                {
-                  "event": "SELECT_DAY",
-                  "icon": "eye",
-                  "label": "View"
-                }
-              ],
+              "default": [],
               "description": "Per-item action buttons on agenda-list rows — data-list itemActions descriptors (label/event/icon/variant). Consumers override to wire their own row actions (View/Edit/Delete) so agenda hosts never need a second table for actions.",
               "items": {
                 "properties": {
@@ -624,13 +618,7 @@
                         "variant": "badge"
                       }
                     ],
-                    "itemActions": [
-                      {
-                        "event": "SELECT_DAY",
-                        "icon": "eye",
-                        "label": "View"
-                      }
-                    ],
+                    "itemActions": "@config.agendaItemActions",
                     "look": "@config.tableLook",
                     "type": "data-list"
                   }
@@ -717,6 +705,17 @@
               "tier": "presentation",
               "type": "[FilterSpec]"
             },
+            "include": {
+              "default": [],
+              "description": "Entity relation field names to hydrate on fetch (e.g. a `category : Category` field named `category`), so chip bindings can use dot-paths like @item.category.name. Empty = no hydration, the default.",
+              "items": {
+                "type": "string"
+              },
+              "label": "Which relation fields to hydrate?",
+              "synonyms": "relation hydration, populate relations, joined fields, hydrate relations",
+              "tier": "internal",
+              "type": "[string]"
+            },
             "onEventClick": {
               "default": "",
               "description": "Event emitted when a calendar chip is clicked: UI:{onEventClick} with { event } carrying the clicked row. Empty means chips are not clickable.",
@@ -963,13 +962,21 @@
               "tier": "internal"
             },
             {
-              "description": "Emitted when a calendar chip is clicked: UI:{onEventClick} with { event } carrying the clicked row.",
+              "description": "Emitted when a calendar chip is clicked ({ event } carries the clicked row) or an agenda/upcoming row action fires ({ id, row }). Consumers routing it should read the row from ?event or ?row, whichever the payload carries.",
               "event": "@config.onEventClick",
               "eventId": "evt_01KYBV098PMR56F9NQ5CWWPX36",
               "payloadSchema": [
                 {
                   "name": "event",
-                  "type": "object"
+                  "type": "@entity"
+                },
+                {
+                  "name": "id",
+                  "type": "string"
+                },
+                {
+                  "name": "row",
+                  "type": "@entity"
                 }
               ],
               "scope": "external",
@@ -1103,14 +1110,22 @@
                 "name": "Retry"
               },
               {
-                "description": "Emitted when a calendar chip is clicked: UI:{onEventClick} with { event } carrying the clicked row.",
+                "description": "Emitted when a calendar chip is clicked ({ event } carries the clicked row) or an agenda/upcoming row action fires ({ id, row }). Consumers routing it should read the row from ?event or ?row, whichever the payload carries.",
                 "id": "evt_01KYBV098PMR56F9NQ5CWWPX36",
                 "key": "@config.onEventClick",
                 "name": "@config.on event click",
                 "payloadSchema": [
                   {
                     "name": "event",
-                    "type": "object"
+                    "type": "@entity"
+                  },
+                  {
+                    "name": "id",
+                    "type": "string"
+                  },
+                  {
+                    "name": "row",
+                    "type": "@entity"
                   }
                 ],
                 "tier": "presentation"
@@ -1160,7 +1175,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ],
                   [
@@ -1283,7 +1299,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ],
                   [
@@ -1380,7 +1397,8 @@
                             ]
                           ]
                         ]
-                      ]
+                      ],
+                      "include": "@config.include"
                     }
                   ]
                 ],
@@ -1408,7 +1426,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ]
                 ],
@@ -1436,7 +1455,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ]
                 ],
@@ -1471,7 +1491,8 @@
                           ],
                           "@payload.searchTerm"
                         ]
-                      ]
+                      ],
+                      "include": "@config.include"
                     }
                   ]
                 ],
@@ -1506,7 +1527,8 @@
                           ],
                           "@payload.value"
                         ]
-                      ]
+                      ],
+                      "include": "@config.include"
                     }
                   ]
                 ],
@@ -1524,7 +1546,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ],
                   [
@@ -1549,7 +1572,8 @@
                       "emit": {
                         "failure": "CalendarEventLoadFailed",
                         "success": "CalendarEventLoaded"
-                      }
+                      },
+                      "include": "@config.include"
                     }
                   ],
                   [