-- 7 Billion Humans (2144) --
-- Level 50: Cubical Communication --
-- Shortest Program: 11 Commands --
a:
mem1 = calc mem1 + 1
if sw == mem1:
takefrom s
tell everyone go
giveto se
step w
else:
listenfor go
endif
if mem1 == 4:
mem1 = set 0
endif
jump a
Fastest Program
-- 7 Billion Humans (2144) --
-- Level 50: Cubical Communication --
-- Fastest Program: 37 Seconds --
takefrom s
if sw == 1:
giveto se
a:
tell everyone hi
takefrom sw
step e
listenfor ugh
giveto s
jump a
endif
if sw == 2:
b:
step e
listenfor hi
giveto s
tell everyone ok
takefrom sw
jump b
endif
if sw == 3:
c:
step e
listenfor ok
giveto s
tell everyone go
takefrom sw
jump c
endif
if sw == 4:
d:
step e
listenfor go
giveto s
tell everyone ugh
takefrom sw
jump d
endif