Dropping objects while falling doesn't work correctly

[eriktorbjorn]

>LOOK
Winding Stair
This is a circular room with no floor. There are exits east and west. A crude
drawing of stairsteps graces the ceiling. Downward is only darkness.
You plummet downward, deeper into the pit, but the bottom is still not visible.
Far ahead of you fall your former possessions.

>DROP PURPLE SCROLL
The purple scroll falls out of sight below you.
You plummet downward, deeper into the pit, but the bottom is still not visible.
Far ahead of you fall your former possessions.

>GET PURPLE SCROLL
You already have it.
You plummet downward, deeper into the pit, but the bottom is still not visible.
Far ahead of you fall your former possessions.

That's because PIT-F doesn't move the dropped object out of your inventory:

<ROUTINE PIT-F ("OPTIONAL" RARG)
	 <COND (<==? .RARG ,M-BEG>
		<COND (<AND <VERB? DROP> <HELD? ,PRSO>>
		       <FSET ,PRSO ,NDESCBIT>
		       <FCLEAR ,PRSO ,TAKEBIT>
		       <TELL
"The " D ,PRSO " falls out of sight below you." CR>)
		      (<AND <VERB? TAKE EXAMINE> <NOT <HELD? ,PRSO>>>
		       <TELL
"The " D ,PRSO " is out of reach below you." CR>)>)>>

[eriktorbjorn]

Also, it should perhaps set DROPPED-SOME? to true when you drop something. See I-FALL.