pete286/mjeanne.jor

39 lines
842 B
Plaintext
Executable file

( J E A N N E )
16 18 W ' {horse} defentity e_chuck
14 22 N ' {car} defentity car
e_chuck :touch
mary say" Good old Chuck."
chuck say" * n e i g h *\(Hi Mary!)"
;entity
car :touch
move-player 1 player.state DRIVING f!
;entity
:noname
0 player.state DRIVING f!
:| CHUCK-HOME flag@ if e_chuck yield then
player.driving? not CHUCK-FOLLOW flag@ not and if car yield then
done |; ' entities redefine
:|
touch-begin S leaving? dup
if player.driving? not
if pete say" I'm not walking."
else move-player 24 7 road.jor queue-level
then
then
touch-next 6 21 2= dup
if player.driving? not
if noone say" * knock knock *"
jeanne say" C'mon in, Ma."
move-player
then
then
touch-last |; ' player-touch redefine
s" jeanne.map" load-map
; ' onload redefine