Message From Andromeda: Routine at 9861

9861: Action: Wear

Wear the named item of clothing.
ActionWear	9861	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	9864	RET C	Return if the command does not name a single object.
	9865	JR ActionWear_Step1	Continue at ActionWear_Step1 to match what the player wants to wear.
ActionWear_Loop1	9867	LD HL,$645B	Print "You can't." and start a new line.
ActionWear_Loop2	986A	CALL PrintStringAndANewline	Print "You can't." and start a new line.
	986D	RET	Return.
ActionWear_Step1	986E	LD HL,$897D	Jump to ActionWear_Step4 unless the command matches the phrase at 897D (A pair of gloves,which you are wearing. (39)).
	9871	CALL Parser_AdvanceToSeparator
	9874	JR NZ,ActionWear_Step4
	9876	LD A,$39
	9878	CALL IsObjectCarried
	987B	JR NZ,ActionWear_Step2
	987D	LD HL,$7F26	Print "You're already wearing them." and start a new line.
	9880	JP ActionWear_Loop2	Print "You're already wearing them." and start a new line.
ActionWear_Step2	9883	LD A,$0C	Jump to ActionWear_Step3 when the player is carrying A pair of gloves. (0C).
	9885	CALL IsObjectCarried
	9888	JR Z,ActionWear_Step3
	988A	LD HL,$7A59	Print You're not carrying on the same line.
	988D	CALL PrintString	Print You're not carrying on the same line.
	9890	LD HL,$75F6	Print "any gloves" and start a new line.
	9893	JP ActionWear_Loop2	Print "any gloves" and start a new line.
ActionWear_Step3	9896	LD BC,$0C00	Move A pair of gloves. (0C) to nowhere (00).
	9899	CALL UpdateObjectLocation	Move A pair of gloves. (0C) to nowhere (00).
	989C	LD BC,$3901	Move A pair of gloves,which you are wearing. (39) to the inventory (01).
	989F	CALL UpdateObjectLocation
	98A2	LD HL,$6466	Print "O.K." and start a new line.
	98A5	JP ActionWear_Loop2	Print "O.K." and start a new line.
ActionWear_Step4	98A8	JP ActionWear_Loop1	Continue at ActionWear_Loop1 to say the player can't.