Orkuncakilkaya
71735b10a2
ludic.base's Queue<T> carries a QueueTag (its name and pending count): queue_new(name), q_push(q, v), q_drain(q), q_clear(q) take no BaseState, and core_undrained(tags) names the given queues still holding facts. A reducer on a package's state can now call that package's verbs (wallet_earn(wallet_st, n)). ludic migrate state --prune (ludicc --migrate-prune) takes out each state parameter a function no longer uses, nor anything it calls, and the argument that fills it - including an argument for a parameter the callee has dropped, which is taken out before the call is checked, so a generic's T is told by the argument that says it. A reducer keeps its state. --dry-run now counts the edits it would make. Every package was moved with it: 608 base_st parameters and their arguments, 1889 edits. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
36 lines
1.3 KiB
Text
36 lines
1.3 KiB
Text
# a toy mechanic: casting a line. It uses ludic.base and nothing else.
|
|
module toy_fishing uses ludic_base
|
|
numbers float
|
|
import "ludic.base"
|
|
export property Caught { species: int = 0, weight: float = 0.0 }
|
|
export port FishingWorld { is_water: fn(float, float) -> bool } # its port
|
|
export state ToyFishingState {
|
|
dice: Rng = null
|
|
casts: int = 0
|
|
caught: Queue<Caught> = null # its facts
|
|
}
|
|
export function fishing_cast(toy_fishing_st: mut ToyFishingState, x: float, z: float) -> bool { # its verb
|
|
if not FishingWorld.is_water(x, z) { return false }
|
|
toy_fishing_st.casts += 1
|
|
return true
|
|
}
|
|
function fishing_reset(toy_fishing_st: mut ToyFishingState) -> void {
|
|
toy_fishing_st.casts = 0
|
|
toy_fishing_st.dice = rng_new(7)
|
|
toy_fishing_st.caught = queue_new("fishing.caught")
|
|
}
|
|
function fishing_tick(toy_fishing_st: mut ToyFishingState, t: Tick) -> void {
|
|
while toy_fishing_st.casts > 0 {
|
|
let c = new Caught
|
|
c.species = rng_between(toy_fishing_st.dice, 0, 2)
|
|
c.weight = 0.5 + rng_float(toy_fishing_st.dice)
|
|
q_push(toy_fishing_st.caught, c)
|
|
toy_fishing_st.casts -= 1
|
|
}
|
|
}
|
|
export function fishing_system() -> System {
|
|
let s = system_new("fishing", PH_SIMULATE)
|
|
s.reset = fn fishing_reset
|
|
s.tick = fn fishing_tick
|
|
return s
|
|
}
|