7 Billion Humans | Year 54 | Speed

7BH_54_speed.code

-- 7 Billion Humans (2087) --
-- 54: Terrain Leveler --

comment 0
if s == wall:
	mem4 = set 99
endif
a:
if n != wall:
	step n
	if c == datacube:
		mem1 = calc mem1 + c
	endif
	jump a
else:
	step s
	pickup c
	write mem1
	drop
	if mem4 == 99:
		b:
		if e == datacube:
			step e
			mem1 = calc mem1 + c
			jump b
		endif
		mem1 = calc mem1 / 49
		c:
		pickup c
		write mem1
		drop
		if w == datacube:
			step w
			jump c
		endif
		tell everyone ok
	else:
		step n
		listenfor ok
		step s
		mem1 = set c
	endif
endif
d:
if s == datacube:
	step s
	pickup c
	write mem1
	drop
	jump d
endif


DEFINE COMMENT 0
eJztkE9LAlAQxH+fKCG71CGwrERKC83IQML+UCIRUZEWNhgEpYcOHSRFzCQ8mIhE+PEapS8ROMuyvLf7
ZmbfNsYMiwRYV4ALZuk4B+NrgkSZI+JuRGH3N0gRJ604+4qS0wp5z+ZZ4Fwh7nx+ZI2q81WrvGmZFiHa
mncGaZq/aa3WmFp75kpQYouqNqm5dpTimzQjZfnhmIFO+NQpNVfpiEMdWDtDjF2S7JBUgow5shOv94R1
a68FYrqyv0tyXDsKFN0r6QHx7KxQVtVaFXp68p5lhp4ZeXI08fXBkpretWGNOhnVvWeDM71zow5Fdc3R
M1OfF/Vp80XXMfC7odquzb+/m2KKf4JfETxeEg;