2019-03-09 23:49:45 +00:00
|
|
|
( P E T E )
|
|
|
|
|
|
2019-03-10 00:59:52 +00:00
|
|
|
13 8 N ' {car} defentity car
|
2019-05-20 19:12:25 +00:00
|
|
|
32 5 W ' {horse} defentity e_chuck
|
2019-03-09 23:49:45 +00:00
|
|
|
|
2019-03-10 00:59:52 +00:00
|
|
|
car :touch
|
2019-05-19 17:34:27 +00:00
|
|
|
move-player
|
2019-03-10 00:59:52 +00:00
|
|
|
1 player.state DRIVING f!
|
2019-03-09 23:49:45 +00:00
|
|
|
;entity
|
|
|
|
|
|
2019-05-20 19:12:25 +00:00
|
|
|
e_chuck :touch
|
|
|
|
|
pete say" It's good to have you\back, Chuck."
|
|
|
|
|
chuck say" * w h i n n y *\(I remember this place...)"
|
|
|
|
|
;entity
|
|
|
|
|
|
2019-03-09 23:49:45 +00:00
|
|
|
:noname
|
2019-05-20 19:12:25 +00:00
|
|
|
:| player.driving? not CHUCK-FOLLOW flag@ not and if car yield then
|
|
|
|
|
CHUCK-STOLEN flag@ if e_chuck yield then
|
2019-04-30 23:32:20 +00:00
|
|
|
done |; ' entities redefine
|
2019-03-09 23:49:45 +00:00
|
|
|
|
2019-03-15 02:18:20 +00:00
|
|
|
:|
|
|
|
|
|
touch-begin S leaving? dup
|
2019-05-20 19:12:25 +00:00
|
|
|
if player.driving? not CHUCK-FOLLOW flag@ not and
|
2019-03-15 02:18:20 +00:00
|
|
|
if pete say" It's too far to walk to town."
|
2019-05-19 17:34:27 +00:00
|
|
|
else move-player 5 10 road.jor queue-level
|
2019-03-15 02:18:20 +00:00
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
touch-next 13 8 2= player.driving? and dup
|
2019-05-19 17:34:27 +00:00
|
|
|
if move-player
|
2019-03-15 02:18:20 +00:00
|
|
|
0 player.state DRIVING f!
|
|
|
|
|
W player entity.dir !
|
2019-05-19 17:34:27 +00:00
|
|
|
move-player
|
2019-03-15 02:18:20 +00:00
|
|
|
then
|
2019-05-20 19:12:25 +00:00
|
|
|
touch-next 19 9 2= CHUCK-FOLLOW flag@ and player entity.dir @ E = and dup
|
|
|
|
|
if pete say" Hmm, yeah, lots of good\grazing over here..."
|
|
|
|
|
say" Let's get you comfy, Chuck." move-player then
|
|
|
|
|
touch-next 22 9 2= CHUCK-FOLLOW flag@ and dup
|
|
|
|
|
if pete say" Welcome home, old buddy."
|
|
|
|
|
chuck say" * n e i g h *\(OK, Pete.)"
|
|
|
|
|
CHUCK-FOLLOW clearflag CHUCK-STOLEN setflag
|
|
|
|
|
13 7 petehous.jor queue-level then
|
2019-03-15 02:18:20 +00:00
|
|
|
touch-next 12 7 2= player.driving? not and dup
|
2019-05-19 17:34:27 +00:00
|
|
|
if move-player 16 9 petehous.jor queue-level then
|
2019-03-15 02:18:20 +00:00
|
|
|
touch-next 30 7 2= dup
|
|
|
|
|
if pete say" It's... kinda swampy.\I don't wanna get wet if I\don't have to." then
|
|
|
|
|
touch-next 30 9 2= dup
|
|
|
|
|
if pete say" Feels spooky over here,\somehow." then
|
|
|
|
|
touch-last |; ' player-touch redefine
|
|
|
|
|
|
|
|
|
|
s" pete.map" load-map
|
2019-03-09 23:49:45 +00:00
|
|
|
; ' onload redefine
|
