( T R A I L 1 )

38 60 E ' {horse} defentity e_chuck
39 71 N ' {car} defentity car

car :touch
 CHUCK-FOLLOW state@ if
   pete say" I can't leave Chuck here!"
 else
   move-player 1 player.state DRIVING f!
 then
;entity

e_chuck :touch
 pete say" Woah, boy. Calm down."
 chuck say" * w h i n n y *\(You came back!)"
 pete say" Of course I did, boy.\Of course I did."
 p_chuck follow
( e_chuck entity>pos p_chuck entity.pos!
 p_chuck entity>pos player entity>pos facing player.prevdir ! )
 CHUCK-GONE clearstate CHUCK-FOLLOW setstate
;entity

:noname
0 player.state DRIVING f!

:| CHUCK-GONE state@ if e_chuck yield then
   player.driving? not if car yield then
   done |; ' entities redefine

:|
touch-begin S leaving? dup
  if player.driving? not CHUCK-FOLLOW state@ not and
    if   pete say" I'm not walking."
    else move-player 13 7 road.jor queue-level
    then
  then
CHUCK-GONE state@ if
  touch-next 37 60 2= dup
    if
      pete say" Oh for the love of..."
      say" Chuck! How on Earth did you\end up over there!?"
      W e_chuck entity.dir !
      chuck say" * n e i g h *\(Help me Pete, I'm lost!)"
    then
then
touch-next 3 56 2= dup
  if
    pete say" This is where I buried it."
    say" All those years ago."
  then
touch-last |; ' player-touch redefine

s" trail1.map" load-map
; ' onload redefine