neuttower/petehous.jor

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