( 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
 move-player 1 player.state DRIVING f!
;entity

:noname
  0 player.state DRIVING f!
:| CHUCK-HOME 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
    if   pete say" I'm not walking."
    else move-player 24 7 road.jor queue-level
    then
  then
touch-next 6 21 2= dup
  if player.driving? not
    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
    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