pete286/mroad.jor

30 lines
885 B
Plaintext
Raw Normal View History

( O V E R W O R L D )
24 4 N ' {horse} defentity chuck
:noname
:| CHUCK-HOME flag@ if chuck yield then
done |; ' entities redefine
:|
touch-begin E leaving? dup
if mary say" I've no reason to head out that way." then
touch-next 5 9 2= dup
if move-player 13 12 mpete.jor queue-level then
touch-next 13 6 2= dup
if move-player 38 71 mtrail1.jor queue-level then
touch-next 24 6 2= dup
if move-player 13 22 mjeanne.jor queue-level then
touch-next 39 33 2= dup
if mary say" I heard they'll be building\a new play structure this\summer." then
touch-next 32 36 2= dup
if mary say" I'm done for the day." then
touch-next 35 39 2= dup
if mary say" Community center." then
touch-next tile b@ 17 = dup
if mary say" Oh, I wouldn't want to\be a bother." then
touch-last |; ' player-touch redefine
s" road.map" load-map
; ' onload redefine