( P E T E ' S   H O U S E )

16 5 N ' {pete-table} defentity table
15 5 N ' {chair} defentity chair
7 6 N ' {pete-bed} defentity bed
10 9 N ' {phone} defentity e_phone

table :touch pete say" Yesterday's breakfast is still\on the table."
  say" Maybe the day before's too." ;entity
chair :touch pete say" I've had my morning coffee\already." ;entity
bed :touch pete say" I'm not tired yet." ;entity
e_phone :touch phone :|

s" [don't pick up]"
:| pete say" Hmm... no answer." |; yield

s" Hey Pete, what's up?"
:| pete say" Not much, old friend!"
  0 begin phone :|
    JEANNE-ANGRY state@ CHUCK-GONE state@ not and if
      s" I hear Jeanne's awful mad\at you!"
      :| pete say" Ohh, she'll come round."
	 phone say" What'd you do, anyway?"
	 pete say" Me?! What makes you think I\did anything?"
	 phone say" Come on, Pete, how long\have we known each other?"
	 pete say" Haw haw haw! Well, it's a\pretty good story..."
	 say" I was taking Chuck out for a\midnight ride, see..."
	 phone say" *sigh* You didn't even think\of asking, did you."
	 pete say" Hell no! He's my horse!"
	 phone say" Chuck hasn't been your horse\for years, Pete. That's what\happens when you sell them."
	 pete say" Quit moralizing and let me tell\my story. So there I was,\riding on the trail..."
	 say" We get to the clearing, and\I look up at the stars."
	 say" It's the clearest night\you've ever seen in your life."
	 say" Just as I'm looking up,\I see something."
	 phone say" 'Something'?"
	 pete say" I have seen my share of\airplanes and shooting stars.\This was not that."
	 say" I'm not saying it was aliens..."
	 phone say" ... but it was aliens."
	 pete say" I'm not saying it!\You said it."
	      say" Anyway, I get off Chuck and\lie down on the grass, to\get a better look, see?"
	      say" Maybe have a pull or two of\whiskey, while I'm watching\the sky."
	      say" I guess I must've dozed off,\because next thing I know\it's morning and Chuck's gone."
	 phone say" You LOST him??"
	 pete say" I figured he just went home!\But when I went to Jeanne's,\he wasn't there."
	 phone say" You lost him."
	 pete say" He's a smart old goat,\just like me. He'll\turn up soon."
	 CHUCK-GONE setstate
      |; yield
    then
    CHUCK-GONE state@ if
      s" You found Chuck yet?"
      :| pete say" I'm sure he'll turn up soon!\Sheesh, get off my back." |; yield
    then

    s" Goodbye, Pete." :| pete say" Goodbye!" drop 1 |; yield
    done |; choose
  dup until drop
|; yield

done |; choose ;entity

:noname
  reset-level
  :| table yield chair yield bed yield e_phone yield done |; ' entities redefine
  :|
touch-begin 16 10 2= dup if
  player move-entity 12 8 pete.jor queue-level
then touch-next 9 4 2= dup if
  pete say" The closet is a disaster.\I don't want to deal with that\right now."
then touch-next 11 4 2= dup if
  pete say" I'm already dressed."
then touch-next 16 3 2= dup if
  pete say" The sink's full of nasty dishes.\I'm not touching them."
then touch-next 18 3 2= dup if
  pete say" Should get some more beer soon."
then touch-last |; ' player-touch redefine

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