Forest At World's End: Routine at 63116

63116: Action: Close

Close the named door, gate or chest.
Action_Close	63116	CALL Parser_ValidateDirectObject	Return if the words after the verb are not valid for this command.
	63119	RET C
	63120	LD HL,59626	Jump to Handler_CloseTheChest unless the player named the door.
	63123	CALL Parser_AdvanceToSeparator
	63126	JP NZ,Handler_CloseTheChest
	63129	LD HL,59287	Call Parser_SkipToken to skip to the object named by this phrase.
	63132	CALL Parser_SkipToken
	63135	BIT 0,A	Jump to Action_Close_Next when the named door is open.
	63137	JR NZ,Action_Close_Next	Jump to Action_Close_Next when the named door is open.
Reply with "It's already closed.".
	63139	LD HL,57733	Print "It's already closed." and return to the game loop.
	63142	JP PrintResponse	Print "It's already closed." and return to the game loop.
Action_Close_Next	63145	LD A,(47771)	Jump to Action_Close_Farmhouse when the player is in room 2 (Inside the Farmhouse).
	63148	CP 2
	63150	JR Z,Action_Close_Farmhouse
	63152	CP 3	Jump to Action_Close_WoodmansHutCheck unless the player is in room 3 (At a large Farmhouse).
	63154	JR NZ,Action_Close_WoodmansHutCheck
Action_Close_Farmhouse	63156	LD BC,13622	Replace object 53 (an open door) with object 54 (a closed door).
	63159	CALL TransformItem
	63162	LD BC,14136	Replace object 55 with object 56.
	63165	CALL TransformItem	Replace object 55 with object 56.
	63168	XOR A	Jump back to Response_OK to confirm.
	63169	LD (59713),A
	63172	JP Response_OK
Action_Close_WoodmansHutCheck	63175	CP 15	Jump to Action_Close_WoodmansHut when the player is in room 15 (At the Woodman's Hut).
	63177	JR Z,Action_Close_WoodmansHut
	63179	CP 16	Jump to Action_Close_WitchsHovelCheck unless the player is in room 16 (Inside the Woodman's Hut).
	63181	JR NZ,Action_Close_WitchsHovelCheck
Action_Close_WoodmansHut	63183	LD BC,14650	Replace object 57 with object 58.
	63186	CALL TransformItem	Replace object 57 with object 58.
	63189	LD BC,15164	Replace object 59 with object 60.
	63192	CALL TransformItem	Replace object 59 with object 60.
	63195	XOR A	Jump back to Response_OK to confirm.
	63196	LD (59798),A
	63199	JP Response_OK
Action_Close_WitchsHovelCheck	63202	CP 60	Jump to Action_Close_WitchsHovel when the player is in room 60 (At the Witch's Hovel).
	63204	JR Z,Action_Close_WitchsHovel
	63206	CP 61	Jump to Handler_CloseTheChest unless the player is in room 61 (Inside the Witch's Hovel).
	63208	JR NZ,Handler_CloseTheChest
Action_Close_WitchsHovel	63210	LD BC,15678	Replace object 61 with object 62.
	63213	CALL TransformItem	Replace object 61 with object 62.
	63216	LD BC,16192	Replace object 63 with object 64.
	63219	CALL TransformItem	Replace object 63 with object 64.
	63222	XOR A	Jump back to Response_OK to confirm.
	63223	LD (60068),A
	63226	JP Response_OK