双星
-- 34: 誰是最小數 1 --
mem4 = nearest shredder
mem1 = nearest datacube
a:
step n
if n != wall:
if c < mem1:
mem1 = set c
endif
jump a
endif
pickup mem1
giveto mem4

双星
-- 35: 文科生的數學課 --
pickup s
mem1 = calc myitem + 1
write mem1
drop

步数
-- 36: 誰是最小數 2 --
mem4 = nearest shredder
a:
mem1 = set 99
b:
if n != wall:
step n
if c == datacube and
c <= mem1:
mem1 = set c
endif
jump b
endif
pickup mem1
giveto mem4
jump a
速度
-- 36: 誰是最小數 2 --
mem4 = nearest shredder
a:
step n
step n
mem1 = set 99
b:
if n != wall:
if c == datacube and
c <= mem1:
mem1 = set c
endif
step n
jump b
endif
pickup mem1
giveto mem4
jump a

步数
-- 37: 危險的求和 --
a:
mem1 = calc mem1 + c
if e == hole:
step ne
if se == hole:
step e
endif
step se
mem1 = calc mem1 + c
endif
if e != wall:
step e
jump a
endif
pickup c
write mem1
drop
速度
-- 37: 危險的求和 --
if w == wall:
step e
endif
step e
mem1 = calc mem1 + c
a:
if e == hole:
step ne
if se == hole:
step e
endif
step se
mem1 = calc mem1 + c
endif
if e != wall:
step e
mem1 = calc mem1 + c
jump a
endif
pickup c
write mem1
drop

步数
-- 38: 誰是最小數 3 --
mem1 = set 99
mem2 = nearest wall
mem4 = nearest shredder
a:
if s != shredder:
if n != wall:
step n
if c <= mem1:
mem1 = set c
endif
jump a
endif
pickup mem1
step mem2
drop
end
endif
step se
b:
if e == datacube:
step e
if c <= mem1:
mem1 = set c
endif
endif
if e == hole:
pickup mem1
giveto mem4
endif
jump b
速度
-- 38: 誰是最小數 3 --
mem4 = nearest shredder
mem3 = nearest hole
if s != shredder:
step n
step n
mem1 = set c
step n
if c <= mem1:
mem1 = set c
endif
step n
if c <= mem1:
mem1 = set c
endif
step n
if c <= mem1:
mem1 = set c
endif
step n
if c <= mem1:
mem1 = set c
endif
step n
if c <= mem1:
mem1 = set c
endif
step n
if n <= mem1:
mem1 = set c
endif
step n
if n <= mem1:
mem1 = set c
endif
pickup mem1
mem2 = nearest worker
if myitem > mem2:
step mem3
endif
step n
mem2 = nearest worker
if myitem > mem2:
step mem3
endif
step n
mem2 = nearest worker
if myitem > mem2:
step mem3
endif
step n
mem2 = nearest worker
if myitem > mem2:
step mem3
endif
giveto mem4
endif

步数
-- 39: 列印機使用規章 1 --
mem4 = nearest printer
mem1 = set 5
a:
step nw,w,sw,n,s,ne,e,se
drop
if mem1 != 0 and
myitem != datacube:
takefrom mem4
mem1 = calc mem1 - 1
endif
jump a
速度
-- 39: 列印機使用規章 1 --
mem4 = nearest printer
mem1 = set 5
if nw == worker and
ne == worker:
a:
takefrom mem4
step se
step se
b:
if c != datacube:
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump a
endif
step nw,w,sw,n,s,ne,e,se
jump b
endif
if sw == worker:
c:
takefrom mem4
step ne
step ne
d:
if c != datacube:
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump c
endif
step nw,w,sw,n,s,ne,e,se
jump d
endif
if se == worker:
e:
takefrom mem4
step nw
step nw
f:
if c != datacube:
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump e
endif
step nw,w,sw,n,s,ne,e,se
jump f
endif
g:
takefrom mem4
step nw,w,sw,n,s,ne,e,se
h:
if c != datacube:
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump g
endif
step nw,w,sw,n,s,ne,e,se
jump h

步数
-- 40: 列印機使用規章 2 --
mem4 = nearest printer
mem1 = set 6
a:
step nw,w,sw,n,s,ne,e,se
write mem1
drop
if mem1 != 1 and
myitem != datacube:
takefrom mem4
mem1 = calc mem1 - 1
endif
jump a
速度
-- 40: 列印機使用規章 2 --
mem4 = nearest printer
mem1 = set 5
if nw == worker and
ne == worker:
a:
takefrom mem4
step se
step se
b:
if c != datacube:
write mem1
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump a
endif
step nw,w,sw,n,s,ne,e,se
jump b
endif
if sw == worker:
c:
takefrom mem4
step ne
step ne
d:
if c != datacube:
write mem1
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump c
endif
step nw,w,sw,n,s,ne,e,se
jump d
endif
if se == worker:
e:
takefrom mem4
step nw
step nw
f:
if c != datacube:
write mem1
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump e
endif
step nw,w,sw,n,s,ne,e,se
jump f
endif
g:
takefrom mem4
step nw,w,sw,n,s,ne,e,se
h:
if c != datacube:
write mem1
drop
mem1 = calc mem1 - 1
if mem1 == 0:
end
endif
jump g
endif
step nw,w,sw,n,s,ne,e,se
jump h

步数
-- 42: 郵件分揀 --
mem3 = nearest wall
a:
b:
step mem3
mem2 = nearest datacube
step mem2
if s != shredder and
c == datacube:
pickup mem2
mem1 = calc myitem / 10
mem4 = nearest shredder
step mem4
c:
if mem1 > c:
step e
endif
if mem1 < c:
step w
endif
if mem1 == c:
giveto s
jump a
endif
jump c
endif
jump b
速度
-- 42: 郵件分揀 --
a:
b:
mem1 = nearest datacube
step mem1
if c != datacube:
jump b
endif
if s == shredder:
end
endif
pickup c
mem2 = calc myitem / 10
mem4 = nearest shredder
step mem4
if s == shredder:
c:
if c == mem2:
giveto s
step n
step n
step n
step n
step n
jump a
else:
if c > mem2:
step w
else:
step e
endif
jump c
endif
endif

双星
-- 43: 九九乘法表 --
a:
step n
if n == 0 or
n == nothing:
jump a
endif
mem1 = set n
b:
mem4 = calc mem4 + mem1
step s
pickup c
write mem4
drop
jump b

双星（这个是借别人的）
-- 44: 獨一無二的 Party --
pickup s
a:
step nw,w,sw,n,e
if myitem == n or
myitem == w or
myitem == nw or
myitem == ne:
mem1 = nearest hole
step mem1
endif
jump a

双星
-- 46: 強制的同僚戀愛 --
if w == worker:
a:
listenfor hi
tell w hi
jump a
endif
b:
tell e hi
listenfor hi
jump b

双星
-- 47: 連鎖早安 --
if w == worker:
listenfor morning
endif
tell e morning

双星
-- 48: 班長與同學 --
mem1 = nearest shredder
takefrom s
if n != wall:
listenfor hi
endif
giveto mem1
tell everyone hi

双星
-- 49: 從兩邊開始 --
mem4 = nearest shredder
pickup s
a:
if w != worker or
e != worker:
giveto mem4
step se
end
endif
jump a

双星
-- 50: 安靜的隔間 --
mem1 = nearest printer
mem2 = nearest shredder
mem3 = set sw
a:
if mem3 == 1:
takefrom mem1
giveto mem2
mem3 = set 4
endif
mem3 = calc mem3 - 1
jump a