Forest At World's End: Routine at 63524

63524: Action: Tie

Tie the rope to the rock above the volcano.
Action_Tie	63524	CALL Parser_ValidateTwoDirectObjects	Call Parser_ValidateTwoDirectObjects.
	63527	RET C	Return if the direct object is malformed.
Was the player trying to tie ... the rope to the overhang?
	63528	LD HL,59659	Call Parser_AdvanceToSeparator with 59659.
	63531	CALL Parser_AdvanceToSeparator	Call Parser_AdvanceToSeparator with 59659.
	63534	JR NZ,Tie_YouCant	Jump to Tie_YouCant if the token isn't for the overhang.
	63536	LD A,35	Jump to Tie_CheckRoom if ValidateItemPresent reports that "A projection of rock with a rope tied to it. The rope dangles down into the volc" isn't in the current room.
	63538	CALL ValidateItemPresent
	63541	JR NZ,Tie_CheckRoom
Print "The rope is already tied.".
	63543	LD HL,58096	HL=Messaging_TheRopeIsAlreadyTied.
	63546	JP PrintResponse	Jump to PrintResponse.
Is the player at the top of the volcano?
Tie_CheckRoom	63549	LD A,(47771)	Jump to Response_IDontSeeThePoint if *CurrentRoom isn't room 71: " The Top of the Volcano".
	63552	CP 71
	63554	JP NZ,Response_IDontSeeThePoint
	63557	LD A,8	Jump to Tie_AttachRope if "A rope" isn't held.
	63559	CALL IsObjectCarried
	63562	JR NZ,Tie_AttachRope
	63564	LD HL,47720	Decrease *Count_InventoryItems by one.
	63567	DEC (HL)	Decrease *Count_InventoryItems by one.
	63568	LD A,8	Call Handler_UpdateItemForTheCurrentRoom with item 8: "A rope".
	63570	CALL Handler_UpdateItemForTheCurrentRoom
Destroy the carried rope and attach it to the overhang.
Tie_AttachRope	63573	LD A,8	Call Handler_DestroyItem with item 8: "A rope".
	63575	CALL Handler_DestroyItem	Call Handler_DestroyItem with item 8: "A rope".
	63578	LD BC,8739	Call TransformItem to transform "A projection of rock hangs over the lip of the volcano" into "A projection of rock with a rope tied to it. The rope dangles down into the volc".
	63581	CALL TransformItem
Print "O.K. The rope dangles down, into the volcano.".
	63584	LD HL,58050	HL=Messaging_OKTheRopeDanglesDownIntoTheVolcano.
	63587	JP PrintResponse	Jump to PrintResponse.
Nothing else is valid.
Tie_YouCant	63590	JP Response_YouCant_GameLoop	Jump to Response_YouCant_GameLoop.