Examining people from a distance doesn't work as intended

[eriktorbjorn]

V-EXAMINE contains this code for examining people from a distance:

	 <COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
		    <NOT <EQUAL? <META-LOC ,PRSO> ,HERE ,LOCAL-GLOBALS>>>
		<COND (<NEARBY? ,PRSO>
		       <TELL
"You ought to get closer, you'd get a better look." CR>)
		      (T
		       <NOT-HERE ,PRSO>
		       <RTRUE>)>)

However, it doesn't work. If I understand it correctly that's because you're looking at the global character object (e.g. GLOBAL-MICHAEL), and NEARBY? works on the local character object (e.g. MICHAEL).

Compare this to how for instance V-WALK-TO does it:

	       (<AND <IN? ,PRSO ,GLOBAL-OBJECTS>
		     <FSET? ,PRSO ,PERSON>>
		<SET WHO <CHARACTERIZE ,PRSO>>
		<COND (<NEARBY? .WHO> 
		       <SETG PRSO <META-LOC .WHO>>
		       <V-THROUGH>)
		      (ELSE
		       <TELL-YOU-CANT "even see " <>>
		       <TELL D ,PRSO "!" CR>)>)

V-EXAMINE should presumably do something similar.