-- 7 Billion Humans (2144) --
-- Level 66: Decimal Counter --
-- Shortest Program: 22 Commands --
step s
a:
step s
if c == button:
step n
listenfor coffeetime
jump a
endif
pickup n
mem1 = set 0
if se != button:
mem1 = set myitem
endif
b:
drop
mem1 = calc mem1 + 1
if se != button:
listenfor coffeetime
endif
if mem1 >= 10:
mem1 = set 0
tell w coffeetime
listenfor coffeetime
endif
pickup c
write mem1
tell e coffeetime
jump b
Fastest Program
-- 7 Billion Humans (2144) --
-- Level 66: Decimal Counter --
-- Fastest Program: 113 Seconds --
step s
a:
step s
if c == button:
step n
listenfor coffeetime
jump a
endif
pickup n
mem1 = set 0
if se != button:
mem1 = set myitem
endif
b:
drop
if se != button:
listenfor coffeetime
endif
if mem1 > 5:
if mem1 == 9:
mem1 = set 0
tell w coffeetime
listenfor coffeetime
endif
if mem1 == 8:
mem1 = set 9
endif
if mem1 == 7:
mem1 = set 8
endif
if mem1 == 6:
mem1 = set 7
endif
else:
if mem1 == 5:
mem1 = set 6
endif
if mem1 == 4:
mem1 = set 5
endif
if mem1 == 3:
mem1 = set 4
endif
if mem1 == 2:
mem1 = set 3
endif
if mem1 == 1:
mem1 = set 2
endif
if mem1 == 0:
mem1 = set 1
endif
endif
pickup c
write mem1
tell e coffeetime
jump b