96 lines
3.7 KiB
Plaintext
Executable file
96 lines
3.7 KiB
Plaintext
Executable file
( 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
|
|
18 3 N ' {fridge} defentity fridge
|
|
|
|
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
|
|
fridge :touch pete say" Should get some more beer soon." ;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 flag@ CHUCK-GONE flag@ 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 setflag
|
|
|; yield
|
|
then
|
|
CHUCK-GONE flag@ if
|
|
s" You found Chuck yet?"
|
|
:| pete say" I'm sure he'll turn up soon!\Sheesh, get off my back." |; yield
|
|
then
|
|
CHUCK-FOLLOW flag@ if
|
|
s" You found Chuck yet?"
|
|
:| pete say" He's right here."
|
|
chuck say" * s n o r t *"
|
|
phone say" You brought him in your house??"
|
|
phone say" Of course you did.\Never mind.\Don't even bother explaining."
|
|
|; yield
|
|
then
|
|
CHUCK-STOLEN flag@ CHUCK-HOME flag@ or CHUCK-EXPLAINED flag@ not and if
|
|
s" You found Chuck yet?"
|
|
:| pete say" He found his way home."
|
|
phone say" Well, thank goodness\for that."
|
|
CHUCK-EXPLAINED setflag
|
|
|; 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 fridge yield done |; ' entities redefine
|
|
:|
|
|
touch-begin 16 10 2= dup if
|
|
move-player 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-last |; ' player-touch redefine
|
|
|
|
s" petehous.map" load-map
|
|
; ' onload redefine
|
|
|