Years 31 - 40 (7 Billion Humans)

This is a list of solutions for years 31 - 40 in 7 Billion Humans.
== Year 31 ==
-- 7 Billion Humans (2231) --
-- 31: Checkerboard Organization --
mem1 = nearest printer
a:
if c == nothing:
	drop
	takefrom mem1
	step w,e
endif
step nw,sw,ne,se
jump a
== Year 32 ==
-- 7 Billion Humans (2231) --
-- 32: Creative Writhing --
a:
mem1 = nearest datacube
if myitem != nothing:
	step n
	drop
endif
if mem1 == 0:
	pickup mem1
	write 99
endif
jump a
== Year 33 ==
-- 7 Billion Humans (2235) --
-- 33: Data Backup Day --
mem1 = nearest datacube
mem2 = set e
if mem1 > mem2:
	mem1 = set mem2
	mem2 = nearest datacube
endif
pickup mem2
write mem1
drop
== Year 34 ==
-- 7 Billion Humans (2231) --
-- 34: Seek and Destroy 1 --
a:
step n
if c < mem1 or
 mem1 != datacube:
	mem1 = nearest datacube
endif
if n != wall:
	jump a
endif
pickup mem1
mem1 = nearest shredder
giveto mem1
== Year 35 ==
-- 7 Billion Humans (2231) --
-- 35: Intro to Calc for Art Majors --
pickup s
mem1 = calc myitem + 1
write mem1
drop
== Year 36 ==
-- 7 Billion Humans (2231) --
-- 36: Seek and Destroy 2 --
a:
step n
if c < mem1 or
 mem1 != datacube and
 c == datacube:
	mem1 = nearest datacube
endif
if n == wall:
	pickup mem1
	mem2 = nearest shredder
	giveto mem2
endif
jump a
== Year 37 ==
-- 7 Billion Humans (2231) --
-- 37: Dangerous Spreadsheeting --
a:
if e == hole or
 e == wall:
	if e == wall and
	 c == 0:
		pickup c
		write mem1
		drop
	endif
	step ne
	if se == hole:
		step e
	endif
	step se
else:
	step e
endif
mem1 = calc mem1 + c
jump a
== Year 38 ==
-- 7 Billion Humans (2235) --
-- 38: Seek and Destroy 3 --
mem2 = nearest hole
mem3 = nearest shredder
a:
step n
if n == wall:
	pickup mem1
	b:
	mem4 = nearest worker
	if mem4 == nothing:
		giveto mem3
	endif
	if myitem > mem4 or
	 myitem == nothing:
		step mem2
	endif
	if myitem == mem4:
		step w,sw,s,e,se
	endif
	jump b
endif
if c < mem1 or
 mem1 != datacube:
	mem1 = set c
endif
jump a
== Year 39 ==
-- 7 Billion Humans (2235) --
-- 39: Printing Etiquette 1 --
a:
mem1 = nearest printer
if mem2 < 5 and
 myitem == nothing:
	takefrom mem1
endif
step nw,w,sw,n,ne,e,se
if c == nothing and
 myitem != nothing:
	drop
	mem2 = calc mem2 + 1
endif
jump a
== Year 40 ==
-- 7 Billion Humans (2235) --
-- 40: Printing Etiquette 2 --
a:
mem1 = nearest printer
if mem2 < 5 and
 myitem == nothing:
	takefrom mem1
endif
step nw,w,sw,n,ne,e,se
if c == nothing and
 myitem != nothing:
	mem2 = calc mem2 + 1
	write mem2
	drop
endif
jump a
== See also ==
*Original guide by Pukeface and Brachragon
Category:7 Billion Humans