Orkuncakilkaya
0af0ef681f
Minutes of fuel that burn down in game time, twice as fast in the rain with nothing over the ring, and the hours it held under cover. Lighting and feeding are decided (fire_decide), costed in wood (fire_cost) and applied (fire_apply) apart, so a machine that does not own the world can ask the one that does. Warmth and cooking by distance are queries. FIRE_LIT, FIRE_WENT_OUT and FIRE_LOW_FUEL are facts; the rain, the tarp, the ban and who owns the world come through the FireWorld port. Its own save section. Uses ludic_base only; 8 tests. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
55 lines
1.6 KiB
Text
55 lines
1.6 KiB
Text
# verbs.ludic - the fire burning down, and the only other ways it changes
|
|
function fr_out() -> void {
|
|
fr_lit = false
|
|
fr_fuel = 0.0
|
|
fr_fact(FIRE_WENT_OUT)
|
|
}
|
|
|
|
# `gh` game hours of burning; in the rain it burns twice as fast with nothing over the ring,
|
|
# and under cover it counts the hours it held. Only the machine that owns the world burns it.
|
|
export function fire_run(gh: float) -> void {
|
|
if not fr_lit or not FireWorld.owns_world() { return }
|
|
let was = fr_fuel
|
|
fr_fuel = fr_fuel - gh * 60.0
|
|
if FireWorld.is_wet() {
|
|
if FireWorld.sheltered() { fr_rain_h = fr_rain_h + gh } else { fr_fuel = fr_fuel - gh * 60.0 }
|
|
}
|
|
if fr_fuel < 0.0 {
|
|
fr_out()
|
|
return
|
|
}
|
|
if was >= fr_low_minutes and fr_fuel < fr_low_minutes { fr_fact(FIRE_LOW_FUEL) }
|
|
}
|
|
|
|
# put out, and nothing said (the night burns it down)
|
|
export function fire_out() -> void {
|
|
fr_lit = false
|
|
fr_fuel = 0.0
|
|
}
|
|
|
|
# burning with `fuel` minutes, and nothing said (staging, a test)
|
|
export function fire_set_burning(fuel: float) -> void {
|
|
fr_lit = true
|
|
fr_fuel = fuel
|
|
}
|
|
|
|
# what the machine that owns the world says the fire is; going out is a fact when `say`
|
|
export function fire_told(lit: bool, fuel: float, say: bool) -> void {
|
|
let was = fr_lit
|
|
fr_lit = lit
|
|
fr_fuel = fuel
|
|
if was and not lit and say { fr_fact(FIRE_WENT_OUT) }
|
|
}
|
|
|
|
# the rain hours outright (staging, a test)
|
|
export function fire_set_rain_hours(h: float) -> void { fr_rain_h = h }
|
|
|
|
# a new day: the rain hours start again
|
|
export function fire_morning() -> void { fr_rain_h = 0.0 }
|
|
|
|
export function fire_reset() -> void {
|
|
fr_lit = false
|
|
fr_fuel = 0.0
|
|
fr_rain_h = 0.0
|
|
q_clear(fire_facts())
|
|
}
|