nx_beach_ground_probe.nx source
↩ module page · 21 lines · 654 B
1import "nx_wasm_craft.nx"
2func main() -> i64 {
3 let base: i64 = sys_mmap(CRAFT_TOTAL) as i64
4 let spec: *i64 = wsp(base)
5 spec[P_SURF] = 1
6 spec[P_WATER] = 0
7 vset(base, 10, 4, 10, 5)
8 hq_set(base,10,10,1152)
9 hq_set(base,11,10,1408)
10 hq_set(base,10,11,1152)
11 hq_set(base,11,11,1408)
12 let px: i64 = 10*256+128
13 let pz: i64 = 10*256+128
14 let surface: i64 = wc_surface_source(base,px,pz)
15 let floor: i64 = wstand_here(base,px,pz)-EYE
16 if surface != 1536 { return 2 }
17 if floor != 1280 { return 3 }
18 if surface-floor != 256 { return 4 }
19 sys_write(1,"CONFIRMED: rendered ground 1536 Q8, collision floor 1280 Q8; one metre mismatch\n" as *u8,80)
20 return 0
21}