feat(ludic.clock): the hours, the day, the moon and a calendar as a mechanic package
A ClockWorld port (owns_world, rest_scale, seed), verbs to set and advance it, clock_new_day, a DayTurned queue (stayed up past midnight, or slept), a calendar whose month, year and season are pure functions of the day, and a System (PH_INPUT) with its own save section. Nine test blocks in tests/clock_test.ludic with fakes for the port. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
parent
b1ccaf08bd
commit
05b09b4c98
9 changed files with 400 additions and 0 deletions
27
packages/ludic.clock/system.ludic
Normal file
27
packages/ludic.clock/system.ludic
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
# system.ludic - the clock as a system: it runs first (PH_INPUT) so every later system reads this
|
||||
# frame's hour, and it saves its own section
|
||||
function clock_tick(t: Tick) -> void { clock_advance(t.hours) }
|
||||
|
||||
export function clock_save() -> Val {
|
||||
let v = Value.object()
|
||||
sv_put_int(v, "day", ck_day)
|
||||
sv_put_float(v, "hours", ck_hours)
|
||||
sv_put_float(v, "moon", ck_moon)
|
||||
return v
|
||||
}
|
||||
|
||||
export function clock_load(v: Val, version: int) -> void {
|
||||
ck_day = sv_int(v, "day", 1)
|
||||
clock_set_hours(sv_float(v, "hours", ck_start_hours))
|
||||
ck_moon = sv_float(v, "moon", 0.5)
|
||||
q_clear(clock_days())
|
||||
}
|
||||
|
||||
export function clock_system() -> System {
|
||||
let s = system_new("clock", PH_INPUT)
|
||||
s.reset = fn clock_reset
|
||||
s.tick = fn clock_tick
|
||||
s.save = fn clock_save
|
||||
s.load = fn clock_load
|
||||
return s
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue