7 Billion Humans | Year 52 | Speed

7BH_52_speed.code

-- 7 Billion Humans (2087) --
-- 52: The Mode Code --

mem4 = nearest datacube
comment 0
pickup mem4
if e == nothing:
	mem1 = set 5
else:
	a:
	if e == 0:
		jump a
	endif
	mem1 = calc e - 1
endif
write mem1
drop
b:
if e == datacube:
	step e
	jump b
endif
step n
step n
step n
c:
d:
if c == datacube:
	if c == mem1:
		mem2 = calc 1 + mem2
	endif
	if e == mem1:
		mem2 = calc mem2 + 1
	endif
	step n
	jump d
else:
	step w
	step w
	step s
	e:
	if c == mem1:
		mem2 = calc mem2 + 1
	endif
	if e == mem1:
		mem2 = calc mem2 + 1
	endif
	step s
	if c != datacube:
		step w
		step w
		step n
		mem3 = calc mem3 + 1
		if mem3 == 2:
			jump f
		else:
			jump c
		endif
	endif
	jump e
endif
f:
comment 2
pickup mem4
write mem2
drop


DEFINE COMMENT 0
eJztjLEOAVEQRc9vLEqdeNnGRlAs4kWhkChsuSUbJY3qZisfoRKRrUWhEN9mVnyD6p3JJJOTe6cNKCJV
kw0tSjWoiHhR+w59HLntTV3eX+dIFJPQY6Qhc8ZkzCjw7OU52X3WlKsm3JVax/1+LSy7tMnYseVZO1Y8
WHNRTskBryMDAoHAX/kAl1QeAg;

DEFINE COMMENT 2
eJztjz1LgmEYha+/0QcFBQYZfUBTq/QqFYKm0BDvkhTomzlUiEuHIgmHJomIhohoCJGQCAlxcHJo8Cd1
6m/kgWt57uc+59xJrDlyzBIyTUUT3JoHTfKiKVqaocs8AxYYaJG+lmmxyp1WEHH2ibHjecr/Ur9WLNFk
jaY2aJCgyqY9A8qeHhJwb55J8mbe2aKrbb5ImwyfytJRjiflaZhTt6qxy6Uy3sm6R56h9hg5daSQbxXo
cUSHyHnH1EykiNAEKrOukreKzi9y47dHTnilQlvn9FSlz5XvubZHnY+/7iEFHZgzO16Yscb6B/oBLKxL
2Q;