39 lines
842 B
Plaintext
Executable file
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
|