16 lines
422 B
Plaintext
16 lines
422 B
Plaintext
|
|
<BEGIN-SEGMENT 0>
|
|
<GLOBAL DESCRIBED-ROOM? <>>
|
|
<DEFINE-ROUTINE DESCRIBE-ROOM>
|
|
<DEFINE-ROUTINE DESCRIBE-OBJECTS>
|
|
<CONSTANT D-ALL? 1>
|
|
<CONSTANT D-PARA? 2>
|
|
<DEFINE-ROUTINE DESCRIBE-CONTENTS>
|
|
<DEFINE-ROUTINE DESCRIBE-START>
|
|
<DEFINE-ROUTINE DESCRIBE-SPECIAL>
|
|
<GLOBAL D-BIT <>>
|
|
<DEFINE-ROUTINE DESCRIBABLE?>
|
|
<DEFINE-ROUTINE SIMPLE-DESC?>
|
|
<DEFINE-ROUTINE DESCRIBE-REST>
|
|
<DEFINE-ROUTINE DESCRIBE-SENT>
|
|
<END-SEGMENT> |