( T R A I L 1 )

( 39 71 N ' {car} defentity car

car :touch
  move-player 1 player.state DRIVING f!
;entity
)

:noname
0 player.state DRIVING f!

( :| player.driving? not if car yield then
   done |; ' entities redefine
)

:|
touch-begin S leaving? dup
  if player.driving? not CHUCK-FOLLOW flag@ not and
    if   mary say" I'd best drive."
    else move-player 13 7 mroad.jor queue-level
    then
  then
touch-next 3 56 2= dup
  if mary say" What on Earth...?"
	  say" Is this where...?"
  then
touch-last |; ' player-touch redefine

s" trail1.map" load-map
1 player.state ISMARY f!

; ' onload redefine