( S P A C E )

24 10 N ' {aliem} defentity aliem
28 28 N ' {pete-bed} defentity bed
19 21 N ' {phone} defentity e_phone

aliem :touch
  pete say" hey mr aliem"
;entity

:noname
:| aliem yield bed yield e_phone yield done |; ' entities redefine

:| touch-begin S leaving? dup
  if move-player 0 glitchlevel ! 19 0 pete.jor queue-level then
touch-next 5 11 2= dup
  if move-player 41 37 tile>world player entity.pos! then
touch-next 41 37 2= dup
  if move-player 5 11 tile>world player entity.pos! then
touch-next 44 23 2= dup
  if pete say" It's...." say" home?" then
touch-last |; ' player-touch redefine

s" space.map" load-map
4 glitchlevel !
; ' onload redefine