7 Billion Humans | Year 57 | Speed

7BH_57_speed.code

-- 7 Billion Humans (2087) --
-- 57: Neighborly Sweeper --

comment 0
if w == wall:
	a:
	b:
	if c == nothing and
	 e != wall:
		step e
		jump b
	endif
	if e == wall:
		end
	endif
	mem3 = set 0
	mem2 = foreachdir nw,w,sw,n,s,ne,e,se:
		if mem2 != nothing:
			mem3 = calc mem3 + 1
		endif
	endfor
	pickup c
	write mem3
	drop
	step e
	jump a
endif
comment 1
if e == wall:
	c:
	d:
	if c == nothing and
	 w != wall:
		step w
		jump d
	endif
	if w == wall:
		end
	endif
	if w != 0 and
	 w == datacube:
		pickup c
		write 4
		drop
		step w
		pickup c
		write 4
		drop
		step w
		step w
		pickup c
		write 4
		drop
		step w
		pickup c
		write 3
		drop
		step w
		pickup c
		write 1
		drop
		end
	endif
	mem3 = set 0
	if nw == datacube:
		mem3 = calc 1 + mem3
	endif
	if n == datacube:
		mem3 = calc mem3 + 1
	endif
	if ne == datacube:
		mem3 = calc mem3 + 1
	endif
	if e == datacube:
		mem3 = calc mem3 + 1
	endif
	if w == datacube:
		mem3 = calc mem3 + 1
	endif
	if sw == datacube:
		mem3 = calc mem3 + 1
	endif
	if s == datacube:
		mem3 = calc mem3 + 1
	endif
	if se == datacube:
		mem3 = calc mem3 + 1
	endif
	pickup c
	write mem3
	drop
	step w
	jump c
endif


DEFINE COMMENT 0
eJztjsFKQlEURdc3SNRAigz7gn7AR0nxQKhQskbSIBo3CBGpPVNEGjwkGkQkFMVDTRw1iAh5o5pFOOxb
2vobuWDBvYe797kBoCw7rNhlQqUJWeRICxyT4ty2laLj+52WeCbNgFWGZOk5d681bpXh2vlI67S0QYsp
earapKac5zkeFBBri6G2GVFgpF33HDhfdvaQC59PVaKiIhX2OPGbM1tViGZ9lzRp2Lb/E3HFox24OyHi
xx1TnthXTJE+ZT6oM6HDLzd8E/PlvWNe9c4bL4zVJ/E0UZdP5sz5x/wBmrZG8A;

DEFINE COMMENT 1
eJztj7FKAlAYhb+HMBIiiMDJSYio0E1C0KEhHCzKQaIGIUJQHPQg0uDQJOUgDmJNEiIkJuJqRK8Q+Cgd
7TH0uxz+y+X893DimANOiRBX2AqR0C5pguQU4J4ABc+ytqhpm4aCNLVDlz3e2WdImKkOrRPGRBkR81uM
vo7tO+JJEe9FEUlryR0Z3XClawpc0uCCjmdPWYa6ZaIHZioyo8pIYkCNN+tZFUqUyVIkbU+KPAlyZFZ/
LqjoF+mLOq/O6/re/s/TmDN9cK6+vS1nvrhP031aPKrn7IF7fDprzrfPDxs2rBl/H4JM/w;