2019-03-17 16:16:36 +00:00
|
|
|
( J E A N N E )
|
|
|
|
|
|
|
|
|
|
16 18 W ' {horse} defentity e_chuck
|
|
|
|
|
14 22 N ' {car} defentity car
|
|
|
|
|
|
|
|
|
|
e_chuck :touch
|
|
|
|
|
pete say" Hey there, Chuck."
|
|
|
|
|
chuck say" * w h i n n y *\(Hey there, Pete.)"
|
|
|
|
|
;entity
|
|
|
|
|
|
|
|
|
|
car :touch
|
2019-05-19 17:34:27 +00:00
|
|
|
move-player 1 player.state DRIVING f!
|
2019-03-17 16:16:36 +00:00
|
|
|
;entity
|
|
|
|
|
|
|
|
|
|
:noname
|
|
|
|
|
0 player.state DRIVING f!
|
2019-05-18 19:30:58 +00:00
|
|
|
:| CHUCK-HOME state@ if e_chuck yield then
|
2019-03-17 16:16:36 +00:00
|
|
|
player.driving? not if car yield then
|
2019-04-30 23:32:20 +00:00
|
|
|
done |; ' entities redefine
|
2019-03-17 16:16:36 +00:00
|
|
|
|
|
|
|
|
:|
|
|
|
|
|
touch-begin S leaving? dup
|
|
|
|
|
if player.driving? not
|
|
|
|
|
if pete say" I'm not walking."
|
2019-05-19 17:34:27 +00:00
|
|
|
else move-player 24 7 road.jor queue-level
|
2019-03-17 16:16:36 +00:00
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
touch-next 6 21 2= dup
|
|
|
|
|
if player.driving? not
|
2019-05-19 17:34:27 +00:00
|
|
|
if CHUCK-FOLLOW state@ not if
|
|
|
|
|
noone say" * knock knock *"
|
|
|
|
|
clear 30 sleep
|
|
|
|
|
pete say" Nobody home, I guess."
|
|
|
|
|
jeanne say" Go away before I call the\cops, Pete!"
|
|
|
|
|
pete say" Oh.\I guess she's still mad."
|
|
|
|
|
JEANNE-ANGRY setstate
|
|
|
|
|
else
|
|
|
|
|
pete say" I brought you your\damn horse, Jeanne!"
|
|
|
|
|
jeanne say" Oh my God. Is he okay?\Hold on, I'm coming outside."
|
|
|
|
|
pete say" He's fine."
|
|
|
|
|
W player entity.dir ! move-player move-player E player entity.dir !
|
|
|
|
|
( todo: jeanne sprite I guess )
|
|
|
|
|
chuck say" * n u z z l e *\(Jeanne! I'm home!)"
|
|
|
|
|
jeanne say" Jesus, Chuck, you're a wreck.\Let's get you fed and rested."
|
|
|
|
|
pete say" You're welcome."
|
|
|
|
|
jeanne say" Don't think for a MINUTE\I'm not still furious at you."
|
|
|
|
|
jeanne say" If I catch you on my property\again, I *will* call the cops."
|
|
|
|
|
pete say" Alright, alright, I'm going!\Christ, no good deed goes\unpunished."
|
|
|
|
|
CHUCK-HOME setstate CHUCK-FOLLOW clearstate
|
|
|
|
|
10 6 petehous.jor queue-level
|
|
|
|
|
then
|
2019-03-17 16:16:36 +00:00
|
|
|
else
|
|
|
|
|
pete say" Jeanne hates me enough already\without driving through her\front door!"
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
touch-last |; ' player-touch redefine
|
|
|
|
|
|
|
|
|
|
s" jeanne.map" load-map
|
|
|
|
|
; ' onload redefine
|
