> ) ( )> >>> ) ( ) ( ; "All vehicles are also containers" ; > >> ) ( > >> ) (T )>> > > > >> T)>> ) "AUX" LOC OLOC WLOC (RMG ) (RMGL )) ; "See if it's a simple case" > ) (<==? .OBJ ,ROOMS> ) (<==? .OBJ ,PSEUDO-OBJECT> >)> ; "Now get the winner's effective room" > > >> ; "If he's in a vehicle, then if the vehicle's open he can reach stuff in the room as well" >) (T )>> )> )> ; "We've hit a room, a global object, or a local global FOR THIS ROOM" > > )> )> )> ; "Move up a step, see if we've run into the winner yet" > .WLOC> )> ; "Nope, see if this level is closed" > )> ; "If the new thing is closed, we've lost" )>>> ;) "AUX" WLOC OLOC (CLSD-PTR <>) PTR (CNT 0) TEMP TBL END) > ) ( ) ( >)> ; "Check the object to see if it's in a closed container" > )> > > )>)>> > ; "Now see if the winner's in a closed thing that doesn't enclose anything that encloses the object in question" > > ) (> ) ( )> > > )>> ) ( > ) (T )>> > > ) ( ) ( ) ( ; "Let take find things in pockets and stuff if loser gave a name" > >>>> ) ( > ) ( > ) ( > ) ( > ) ( ) (T )>) ( > ) (T )>) ( ) ( ) ( ) ( ) (T )>) (T )>> ; "tell token output routines" >>> ) (T )>> )) ,K-DESC-A> > ) (CAP? <>) (CLASS ,K-DESC-THE)) )> )> ) (<==? .CLASS ,K-DESC-ANY> ) ( >> ) ( > ) ( ) (T )>)> ) ( ; "Know we have NOARTC set here" ,K-M-SDESC .CLASS> )> .CAP?> ;"to print YOU instead of YOURSELF" ) ;"at beginning of sentence - GTB" (T )>> > !\a> > >)> >)> > )) > )) )> > )) )> > ) (T )> > 0> )>>> ) (T )> > 10> )>> > 4> >>)> > ) (T )> T> ) (T )>)> > )> > >) (T > > >)> > > ) (SL? <>) "AUX" LEN (MAXLEN 300)) )> > > > > > <==? .LC !\ >> >)>)> > .LEN> )> )>>) (T >)> ) (T )>> ) (LOOK <>)) ; "if no place is passed as an argument use gl-place-cur" )> ; "check if this place is lit" > )> ; "display room description (DESC) in bold" ; "determine description context" ) ( ) ( ) ( ) ( )>> .CONTEXT>>>) (T )>> ) (T )>> ) (LOOK <>) "AUX" (HOLMES-IN-HOUSE? <>)) )> > ) ( ) ( > )> ) ( > ) (.HOLMES-IN-HOUSE? >) ( >) (T >)> ) ( >) ( >) (T >)> )>) ( > ) ( > ) (T >)> ) ( "." CR>)>)>)> > > ; "Moved to get it out of preload" )> ,K-M-EXIT>> > )> > ,K-M-ENTERING>> >) ( >> >)> >>> > )> ,K-M-ENTERED>> )> ;"Check if etherium is in the room." > > )> > )> > )> > )> > > > ) ( )> >> > )> > ) PTBL OBJ1 TMP X (TOUCH-VERB? <>) (MYCROFT? <>) TV) > > > >)> > > > > > > .ICNT> ) (T ,TH-IT> )>)>> > .OCNT> ) (T ,TH-IT> )>)>>)> )> .OCNT) ( >) (T >)> .OCNT) ( > > .ICNT) (T 1)>> > >)> >) ( > > >) ( ) (T > ) ( > >) (T >>)> >)>) (T )> > > .NUM> > )> > )> > ) (T )> ) ( )> ) (T >) (T >)> 0> ,W?ALL ,W?EVERYTHING>> ) ( > ) (> ) ( ) (T ) (T )> )>)> .OBJ1) (T .OBJ)>> .OBJ) (T .OBJ1)>> ; "DEB -- Do real visibility or accessibility tests here." ,W?HOLMES ,W?MYCROFT>> >)> > >>>> >> )> ) ( >> )> )>)> >> )> ) ( >> )> )>)> ; "DEB -- End real visibility and accessibility tests." > )>)>> )>)> >)>) (T >)> > >>>> )> > > >>> >> >> ; "RT-AC-CH-PLAYER has to be here because called every turn, more or less." )) > > > ) ( > > ) ( > )>) (T )>>