neuttower/space.jor

27 lines
691 B
Plaintext
Executable file

( 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