27 lines
691 B
Plaintext
27 lines
691 B
Plaintext
|
( 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
|