>WAIT
Time passes...
An epicene gnome of Zurich wearing a three-piece suit and carrying a safety
deposit box materializes in the room. He notices the wand and dematerializes
speedily.
>EXAMINE GNOME
You can't see any gnome here!
>WAIT
Time passes...
>WAIT
Time passes...
>WAIT
Time passes...
>WAIT
Time passes...
The gnome looks impatient: "I may have another customer waiting; you'll just
have to fend for yourself, I'm afraid." He disappears, leaving you alone.
This is what I-ZGNOME looks like:
<ROUTINE I-ZGNOME ()
<COND (<EQUAL? ,HERE ,SMALL-ROOM>
<ENABLE <QUEUE I-ZGNOME-OUT 12>>
<TELL
"An epicene gnome of Zurich wearing a three-piece suit and carrying a
safety deposit box materializes in the room.">
<COND (<IN? ,WAND ,WINNER>
<TELL
" He notices the wand and dematerializes speedily." CR>)
(T
<TELL " \"You seem to have
forgotten to deposit your valuables,\" he says, tapping the lid of the
box impatiently. \"We don't usually allow customers to use the boxes
here, but we can make this ONE exception, I suppose...\" He looks
askance at you over his wire-rimmed bifocals." CR>
<MOVE ,GNOME-OF-ZURICH ,HERE>)>)>>
It should only enable I-ZGNOME-OUT if the gnome is actually moved to the room.
This is what
I-ZGNOME
looks like:It should only enable
I-ZGNOME-OUT
if the gnome is actually moved to the room.