Jewels of Babylon: Routine at 64424

64424: Action: Pull


Action_Pull	64424	CALL Parser_ValidateDirectObject	Call Parser_ValidateDirectObject.
	64427	RET C	Return if the direct object is malformed.
	64428	CP 2	Jump to Response_PleaseRephraseThat_Duplicate if A is greater than 2.
	64430	JP NC,Response_PleaseRephraseThat_Duplicate
Was the player trying to pull ... the ring?
	64433	LD HL,60107	Call MatchPhraseTokens with PhraseTokens_Ring.
	64436	CALL MatchPhraseTokens	Call MatchPhraseTokens with PhraseTokens_Ring.
	64439	JR NZ,Pull_Invalid	Jump to Pull_Invalid if the token isn't for the ring.
The player was trying to pull the ring, but did they do that already?
	64441	LD A,52	Call ValidateItemPresent with "An open trapdoor".
	64443	CALL ValidateItemPresent	Call ValidateItemPresent with "An open trapdoor".
	64446	JP Z,Response_IDontSeeThePoint	Jump to Response_IDontSeeThePoint if the trapdoor is already open.
Change the ring/ trapdoor state!
	64449	LD BC,15156	Call TransformItem to transform item 59 ("A ring in the floor") into item 52 ("An open trapdoor").
	64452	CALL TransformItem
	64455	LD A,96	Write 96 to *60751 to open up downward access to The Narrow Passage from A Dead End.
	64457	LD (60751),A
Print "A small section of floor lifts up,revealing it to be a trapdoor.".
	64460	LD HL,58379	HL=58379.
	64463	JP PrintStringAndNewline_Alias	Jump to PrintStringAndNewline_Alias.
Nothing else is valid.
Pull_Invalid	64466	JP Response_YouCant_Duplicate	Jump to Response_YouCant_Duplicate.