31 lines
1,009 B
Plaintext
Executable file
31 lines
1,009 B
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
|
|
|
|
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
|
|
|
|
:noname
|
|
reset-level
|
|
:| table yield chair yield bed 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
|
|
|