Message From Andromeda: Routine at 39009

39009: Action: Wear

Wear the named item of clothing.
ActionWear	39009	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	39012	RET C	Return if the command does not name a single object.
	39013	JR ActionWear_Step1	Continue at ActionWear_Step1 to match what the player wants to wear.
ActionWear_Loop1	39015	LD HL,25691	Print "You can't." and start a new line.
ActionWear_Loop2	39018	CALL PrintStringAndANewline	Print "You can't." and start a new line.
	39021	RET	Return.
ActionWear_Step1	39022	LD HL,35197	Jump to ActionWear_Step4 unless the command matches the phrase at 35197 (A pair of gloves,which you are wearing. (57)).
	39025	CALL Parser_AdvanceToSeparator
	39028	JR NZ,ActionWear_Step4
	39030	LD A,57
	39032	CALL IsObjectCarried
	39035	JR NZ,ActionWear_Step2
	39037	LD HL,32550	Print "You're already wearing them." and start a new line.
	39040	JP ActionWear_Loop2	Print "You're already wearing them." and start a new line.
ActionWear_Step2	39043	LD A,12	Jump to ActionWear_Step3 when the player is carrying A pair of gloves. (12).
	39045	CALL IsObjectCarried
	39048	JR Z,ActionWear_Step3
	39050	LD HL,31321	Print You're not carrying on the same line.
	39053	CALL PrintString	Print You're not carrying on the same line.
	39056	LD HL,30198	Print "any gloves" and start a new line.
	39059	JP ActionWear_Loop2	Print "any gloves" and start a new line.
ActionWear_Step3	39062	LD BC,3072	Move A pair of gloves. (12) to nowhere (0).
	39065	CALL UpdateObjectLocation	Move A pair of gloves. (12) to nowhere (0).
	39068	LD BC,14593	Move A pair of gloves,which you are wearing. (57) to the inventory (1).
	39071	CALL UpdateObjectLocation
	39074	LD HL,25702	Print "O.K." and start a new line.
	39077	JP ActionWear_Loop2	Print "O.K." and start a new line.
ActionWear_Step4	39080	JP ActionWear_Loop1	Continue at ActionWear_Loop1 to say the player can't.