Double magpie message when entering the barrow for the first time

[eriktorbjorn]

This isn't so much a bug as something that should perhaps be avoided:

>NORTH
Barrow

The splinter's ghostly flicker does little to dispel the gloom of this
subterranean passage. Craggy walls bend away to the north and south.

A small hole is visible in the wall.

A clatter breaks the silence! You turn, and watch helplessly as a spiked door
crashes down across the south exit.

Something just moved.

You peer uneasily beyond the pool of light around the splinter. Nothing. Then,
as your eyes adjust, you descry a vaguely human outline crouched against the
tunnel wall.

"Awk! Barrow wight!"

"Awk! North," squawks the magpie.

The "Awk! Barrow wight!" message is printed by WIGHT-ID:

<ROUTINE WIGHT-ID ()
	 <COND (<IS? ,WIGHT ,BORING>
		<RFALSE>)>
	 <MAKE ,WIGHT ,BORING>
	 <CRLF>
	 <COND (<VISIBLE? ,MAGPIE>
		<TELL "\"Awk! Barrow wight!\"" CR>
		<RTRUE>)>
	 <VOICE-MUTTERS "Barrow wight" <>>
	 <RTRUE>>

The "Awk! North!" message is printed by I-MAGPIE. You can suppress magpie messages temporarily by using <MAKE ,MAGPIE ,SEEN>. Normally this is done by MAGPIE-F, but it should work to set it here too:

<ROUTINE MAGPIE-F ()
	 <MAKE ,MAGPIE ,SEEN> ; "Prevents I-MAGPIE after any reference."