>LOOK IN HORVAK'S LOCKER
The locker contains mostly clothing, toilet articles and books. One of the books
is labeled DIARY. Something has been inserted between its pages.
>PUT UNIVERSAL TOOL IN HORVAK'S LOCKER
Okay.
>LOOK IN HORVAK'S LOCKER
The locker contains mostly clothing, toilet articles and books. One of the books
is labeled DIARY. Something has been inserted between its pages.
True, the description says it's mostly clothing, toilet articles and books. But it still seems sloppy that it doesn't mention any other objects.
This is handled by HORVAK-LOCKER-F:
<COND (<AND <VERB? LOOK-INSIDE> <FSET? ,HORVAK-LOCKER ,OPENBIT>>
<TELL
"The locker contains mostly clothing, toilet articles and books.">
<COND (<IN? ,DIARY ,HORVAK-LOCKER>
<TELL " One of the books is labeled DIARY.">
<COND (<IN? ,PHOTO ,DIARY>
<FCLEAR ,PHOTO ,INVISIBLE>
<TELL
" Something has been inserted between its pages.">)>)>
<CRLF>)
True, the description says it's mostly clothing, toilet articles and books. But it still seems sloppy that it doesn't mention any other objects.
This is handled by
HORVAK-LOCKER-F
: