7 Billion Humans | Year 53 | Speed

7BH_53_speed.code

-- 7 Billion Humans (2087) --
-- 53: 100 Cubes on the Floor --

if n == wall:
	mem1 = set 0
	jump a
endif
if n == worker and
 se == worker:
	mem1 = set 10
	jump b
endif
if nw == worker:
	mem1 = set 20
endif
if e == wall and
 s == nothing:
	mem1 = set 30
endif
if w == datacube and
 s == nothing:
	mem1 = set 40
endif
if sw == worker and
 e == nothing:
	mem1 = set 50
endif
if ne == worker and
 w == nothing:
	mem1 = set 60
endif
if e == wall and
 s == wall:
	mem1 = set 70
endif
if e == wall and
 sw == worker:
	mem1 = set 80
endif
if ne == worker and
 s == wall:
	mem1 = set 90
endif
b:
a:
c:
if w != datacube:
	step w
	jump c
endif
comment 0
d:
step w
pickup c
write mem1
drop
mem1 = calc mem1 + 1
if w == wall:
	end
endif
jump d


DEFINE COMMENT 0
eJztkt9rzXEYx1/XU0opijbCjYS0lZhN5MKNybQkvxqrtcQ6ZU0tPa1Z2zqGQ/vBYuZ0zKylWSy0lsQc
xaQkmZT8Sm1cqF16HX+EK0+9+3yf3+/neb4ZIJZSEgVsiEWsZz6bYy4VMYca8ojII+l3inlcYoFYSBeL
6TAnyTIaxalYIvJpIZ8eCkirD8RyhmOVWMsghVyhyJwiGmMdiVjD0VhNNSupjhUcs1a9OQ2iiZwUWm8T
CUqNKeUIJVRSTE1spNa3Uf1ilNITW+iPrfbaJrbTxw65ltHATuuXUe+bYhe9lNMX5WRit/EVYg9p9lvj
IM1xyLjD1q6iS6TtNkSVOG6fWudPWOMEI9SJBnPDGU/T7rQRrXJvs0MrhdFCcSS1ntHfToaz9HPeuXNy
UmZBhZX2xQUOuMG9f+3dtNFJKjqM65RjtzlXGYxr4rozpen1Tak3R4/9Lsup2+o5ueWd+qmMjP6MvG4w
EjcZk/kTbjMRd8Qod7nPAA+81ag97jGk7aG28RgnG095EVmyPNeWdfYJd/DY2Ee0xJjccv/GM3m9VJ+0
/6ScXrmH1+KNdd/K7x3n4r2bmZLblDf54L0/6v9k7Gf/ly/y++pdvtEU393CDzGjPqN/Wj7TDPPTHr+M
/U17zJo7K5v/8s/kD+971IU;