<ROUTINE I-GEORGE-HACK ("AUX" (GL <LOC ,GEORGE>) GT (TMP <>))
<SET GT <GET ,GOAL-TABLES <GETP ,GEORGE ,P?CHARACTER>>>
<COND (,GEORGE-READY
<COND (<==? ,HERE .GL>
<SETG GEORGE-READY <>>
<SETG GEORGE-SCREAM <>>
<SETG GEORGE-WAIT 1>
<TELL
"\"I don't understand you, Inspector. I asked to be alone so I can take care
of some business. I...I don't see why you have to snoop around here like I was
some sort of suspect.\"" CR>
<COND (,GEORGE-SCREAM
<TELL
"\"I said to close that door and not to come in! You must be deaf as well as
stupid!\"" CR>)>
<RTRUE>)
(<AND <FSET? ,GEORGE-DOOR ,OPENBIT>
<NOT ,GEORGE-SCREAM>>
<TELL
"As the door opens, you hear George say \"Close that door! I'm working!\"" CR>
<SETG GEORGE-SCREAM T>
<RTRUE>)>)
The "I said to close that door and not to come in!" line can never be printed, because GEORGE-SCREAM is cleared a few lines earlier. I'm not sure what the intention was here.
The "I said to close that door and not to come in!" line can never be printed, because
GEORGE-SCREAM
is cleared a few lines earlier. I'm not sure what the intention was here.