48 lines
2.2 KiB
Text
48 lines
2.2 KiB
Text
# habitat.ludic - the right kind of ground for a species, asked of the port's ground, water, slope
|
|
# and forest; and a spot of it at a distance from a point, off the package's dice
|
|
|
|
function wl_wet(x: float, z: float, depth: float) -> bool {
|
|
return WildlifeWorld.ground(x, z) < WildlifeWorld.water(x, z) - depth
|
|
}
|
|
|
|
export function wildlife_habitat_ok(hab: int, x: float, z: float) -> bool {
|
|
let h = WildlifeWorld.ground(x, z)
|
|
let w = WildlifeWorld.water(x, z)
|
|
if h < w + 0.8 { return false }
|
|
let s = WildlifeWorld.slope(x, z)
|
|
if hab == WILD_MEADOW { return s < 0.28 and not WildlifeWorld.forest(x, z) }
|
|
if hab == WILD_FOREST { return s < 0.5 and WildlifeWorld.forest(x, z) }
|
|
if hab == WILD_SHORE { return h < w + 4.0 and s < 0.4 }
|
|
return s > 0.25 or h > 80.0
|
|
}
|
|
|
|
# a species' ground: its painted habitat where the map has one (never under water), else its kind's rule
|
|
export function wildlife_habitat_of(sp: int, hab: int, x: float, z: float) -> bool {
|
|
let painted = WildlifeWorld.habitat_in(sp, x, z)
|
|
if painted < 0 { return wildlife_habitat_ok(hab, x, z) }
|
|
return painted == 1 and WildlifeWorld.ground(x, z) >= WildlifeWorld.water(x, z) + 0.8
|
|
}
|
|
|
|
# a spot of `hab` d0..d1 metres from (x0, z0); where it is, is wildlife_spot_x / _z
|
|
export function wildlife_find_spot(wildlife_st: mut WildlifeState, hab: int, x0: float, z0: float, d0: float, d1: float) -> bool {
|
|
return wildlife_find_spot_of(wildlife_st, -1, hab, x0, z0, d0, d1)
|
|
}
|
|
|
|
# the same for a species (sp >= 0): inside its painted habitat when the map has one
|
|
export function wildlife_find_spot_of(wildlife_st: mut WildlifeState, sp: int, hab: int, x0: float, z0: float, d0: float, d1: float) -> bool {
|
|
for t in 0 .. 60 {
|
|
let ang = wl_rnd(wildlife_st) * WL_TAU
|
|
let d = d0 + wl_rnd(wildlife_st) * (d1 - d0)
|
|
let x = x0 + Math.cos(ang) * d
|
|
let z = z0 + Math.sin(ang) * d
|
|
if (sp < 0 and wildlife_habitat_ok(hab, x, z)) or (sp >= 0 and wildlife_habitat_of(sp, hab, x, z)) {
|
|
wildlife_st.wl_px = x
|
|
wildlife_st.wl_pz = z
|
|
return true
|
|
}
|
|
}
|
|
return false
|
|
}
|
|
|
|
export function wildlife_spot_x(wildlife_st: WildlifeState) -> float { return wildlife_st.wl_px }
|
|
export function wildlife_spot_z(wildlife_st: WildlifeState) -> float { return wildlife_st.wl_pz }
|