There is a special case in GROUND-F for "SEARCH GROUND UNDER BALCONY" when among the roses:
<ROUTINE GROUND-F ()
<COND (<AND <VERB? BRUSH>
<IN? ,FRAGMENT ,PLAYER>
<NOT ,FRAGMENT-CLEANED>>
<PERFORM ,V?BRUSH ,FRAGMENT>
<RTRUE>)
(<VERB? EXAMINE SEARCH SEARCH-AROUND>
<COND (<==? ,HERE ,ROURKE-ROOM>
<TELL "The floor is hardwood." CR>)
(<==? ,HERE ,FOYER>
<TELL "The floor is marble." CR>)
(<==? ,HERE ,IN-ROSES>
<COND (<NOT <FSET? ,HOLE ,INVISIBLE>>
<PERFORM ,V?SEARCH-AROUND ,HOLE>
<RTRUE>)
(<AND <VERB? SEARCH-GROUND-UNDER>
<==? ,PRSI ,BALCONY>>
<TELL
"The balcony above is very large. Searching the entire area beneath it
would take a great deal of time." CR>)
(T
<TELL
"There are rows upon rows of roses here. It would take you the best part of
a day to search the ground in great detail." CR>)>)
(T <TELL "You don't find anything new there." CR>)>)>>
But the SEARCH-GROUND-UNDER case can never be true, because it only gets far enough to test it if the verb is one of EXAMINE, SEARCH or SEARCH-AROUND.
There is a special case in
GROUND-F
for "SEARCH GROUND UNDER BALCONY" when among the roses:But the
SEARCH-GROUND-UNDER
case can never be true, because it only gets far enough to test it if the verb is one ofEXAMINE
,SEARCH
orSEARCH-AROUND
.