( 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