2019-03-26 02:05:23 +00:00
|
|
|
( T R A I L 1 )
|
|
|
|
|
|
|
|
|
|
38 60 E ' {horse} defentity e_chuck
|
|
|
|
|
39 71 N ' {car} defentity car
|
|
|
|
|
|
|
|
|
|
car :touch
|
2019-05-19 17:34:27 +00:00
|
|
|
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
|
2019-03-26 02:05:23 +00:00
|
|
|
;entity
|
|
|
|
|
|
|
|
|
|
:noname
|
|
|
|
|
0 player.state DRIVING f!
|
|
|
|
|
|
2019-05-18 19:30:58 +00:00
|
|
|
:| CHUCK-GONE state@ if e_chuck yield then
|
2019-03-26 02:05:23 +00:00
|
|
|
player.driving? not if car yield then
|
2019-04-30 23:32:20 +00:00
|
|
|
done |; ' entities redefine
|
2019-03-26 02:05:23 +00:00
|
|
|
|
|
|
|
|
:|
|
|
|
|
|
touch-begin S leaving? dup
|
2019-05-19 17:34:27 +00:00
|
|
|
if player.driving? not CHUCK-FOLLOW state@ not and
|
2019-03-26 02:05:23 +00:00
|
|
|
if pete say" I'm not walking."
|
2019-05-19 17:34:27 +00:00
|
|
|
else move-player 13 7 road.jor queue-level
|
2019-03-26 02:05:23 +00:00
|
|
|
then
|
|
|
|
|
then
|
2019-05-18 19:30:58 +00:00
|
|
|
CHUCK-GONE state@ if
|
2019-03-26 02:05:23 +00:00
|
|
|
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
|
