# queries.ludic - what the world asks the ground. A slot is kind * cap + ring index.
export function tracks_kinds(tracks_st: TracksState) -> int { return tracks_st.tk_kinds }
export function tracks_cap(tracks_st: TracksState) -> int { return tracks_st.tk_cap }

export function tracks_count(tracks_st: TracksState, kind: int) -> int {
  if not tk_ok(tracks_st, kind) { return 0 }
  return tracks_st.tk_count[kind]
}

export function tracks_slot(tracks_st: TracksState, kind: int, i: int) -> int { return kind * tracks_st.tk_cap + i }

export function tracks_x(tracks_st: TracksState, slot: int) -> float { return tracks_st.tk_ring[slot].x }
export function tracks_z(tracks_st: TracksState, slot: int) -> float { return tracks_st.tk_ring[slot].z }
export function tracks_yaw(tracks_st: TracksState, slot: int) -> float { return tracks_st.tk_ring[slot].yaw }
export function tracks_sp(tracks_st: TracksState, slot: int) -> int { return tracks_st.tk_ring[slot].sp }
export function tracks_legend(tracks_st: TracksState, slot: int) -> bool { return tracks_st.tk_ring[slot].legend }
export function tracks_made(tracks_st: TracksState, slot: int) -> float { return tracks_st.tk_ring[slot].made }
export function tracks_was_read(tracks_st: TracksState, slot: int) -> bool { return tracks_st.tk_ring[slot].read }

# game hours since it was made; never below 0
export function tracks_age(tracks_st: TracksState, slot: int) -> float { return Math.max(0.0, tk_now() - tracks_st.tk_ring[slot].made) }

# the nearest print within `r` of (x, z), as a slot; -1 when there is none
export function tracks_nearest(tracks_st: TracksState, x: float, z: float, r: float) -> int {
  var best = r * r
  var at = -1
  for k in 0 .. tracks_st.tk_kinds {
    for i in 0 .. tracks_st.tk_count[k] {
      let t = tracks_st.tk_ring[k * tracks_st.tk_cap + i]
      let dx = t.x - x
      let dz = t.z - z
      let d2 = dx * dx + dz * dz
      if d2 < best {
        best = d2
        at = k * tracks_st.tk_cap + i
      }
    }
  }
  return at
}

# signs read for the first time, of every source
export function tracks_read_count(tracks_st: TracksState) -> int { return tracks_st.tk_read_n }

# the heading of the last sign read, and whether there has been one
export function tracks_last_yaw(tracks_st: TracksState) -> float { return tracks_st.tk_yaw }
export function tracks_has_bearing(tracks_st: TracksState) -> bool { return tracks_st.tk_has_yaw }