Parts

#FACE direction

assign(@n , pfacing())
msg(@n[0])
 
if(@n[0] > 315){
 msg(S) }
else if(@n[0] < 45){
 msg(S) }
else if(@n[0] < 135){
 msg(E) }
else if(@n[0] < 225){
 msg(N) }
else {
 msg(W) }
 
 
----
 
#location EXPAND

assign(@pinfo, pinfo())
assign(@loc, @pinfo[1])
assign(@n, array(0, 0, 0))
 
for(assign(@i, 0), lt(@i, 3), inc(@i), assign(@range0[@i], add(@loc[@i], -1)))
for(assign(@i, 0), lt(@i, 3), inc(@i), assign(@range1[@i], add(@loc[@i], 1)))
for(assign(@i, 0), lt(@i, 3), inc(@i), assign(@range3[@i], add(@loc[@i], 3)))
for(assign(@i, 0), lt(@i, 3), inc(@i), assign(@range4[@i], add(@loc[@i], 4)))
for(assign(@i, 0), lt(@i, 3), inc(@i), assign(@range5[@i], add(@loc[@i], 5)))
 
msg(@range0)
msg(@range1)
msg(@range3)
msg(@range4)
msg(@range5)
 
----
 
#delay TIMER

assign(@t, 1)
 
export('counter', @t)
set_interval(3000,				 # 3 Second
   closure(
      assign(@t, import('counter'))
      msg(@t)
      inc(@t)
      if(@t > 1){				 # or whatever number you wish here
          clear_task()
          }
   export('counter'.'', @t.'')
   msg('delay out')				 # delay end
             )
           )
 
----