Forest At World's End: Routine at 63766

63766: Action: Blow

Blow the horn.
Action_Blow	63766	CALL Parser_ValidateDirectObject	Call Parser_ValidateDirectObject.
	63769	RET C	Return if the direct object is malformed.
Was the player trying to blow ... the horn?
	63770	LD HL,59431	Call Parser_AdvanceToSeparator with 59431.
	63773	CALL Parser_AdvanceToSeparator	Call Parser_AdvanceToSeparator with 59431.
	63776	JR NZ,Blow_YouCant	Jump to Blow_YouCant if the token isn't for the horn.
	63778	LD A,9	Jump to Blow_CheckRoom if "A horn" is held.
	63780	CALL IsObjectCarried
	63783	JR Z,Blow_CheckRoom
Print "You're no carrying a horn.".
	63785	LD HL,58274	HL=Messaging_YoureNoCarryingAHorn.
	63788	JP PrintResponse	Jump to PrintResponse.
Where is the player blowing the horn?
Blow_CheckRoom	63791	LD A,(47771)	Jump to Blow_FetchDragon if *CurrentRoom is room 23: " The Brink of a Precipice".
	63794	CP 23
	63796	JR Z,Blow_FetchDragon
	63798	CP 52	Jump to Response_ItHasNoApparentEffect if *CurrentRoom isn't room 52: " At the Bottom of the Precipice".
	63800	JP NZ,Response_ItHasNoApparentEffect
Is the dragon in play?
Blow_FetchDragon	63803	LD A,22	Call GetObjectLocation with item 22: "A dragon. It is watching you".
	63805	CALL GetObjectLocation
	63808	AND A	Jump to Response_ItHasNoApparentEffect if the dragon is not in play.
	63809	JP Z,Response_ItHasNoApparentEffect
	63812	LD A,(47771)	Jump to Blow_ToPrecipice if *CurrentRoom isn't room 23: " The Brink of a Precipice".
	63815	CP 23
	63817	JR NZ,Blow_ToPrecipice
	63819	LD A,52	Call MovePlayerToRoom with room 52: " At the Bottom of the Precipice".
	63821	CALL MovePlayerToRoom
Print "The dragon leaps into the air, catching you carefully. You are lifted with it. The dragon deposits you at the bottom of the precipice.".
	63824	LD HL,58301	HL=Messaging_TheDragonLeapsIntoTheAir.
	63827	JP PrintResponse	Jump to PrintResponse.
Move the player to the brink of the precipice.
Blow_ToPrecipice	63830	LD A,23	Call MovePlayerToRoom with room 23: " The Brink of a Precipice".
	63832	CALL MovePlayerToRoom
Print "The dragon swoops down and picks you up. It takes you to the top of the precipice.".
	63835	LD HL,58436	HL=Messaging_TheDragonSwoopsDown.
	63838	JP PrintResponse	Jump to PrintResponse.
Nothing else is valid.
Blow_YouCant	63841	JP Response_ItHasNoApparentEffect	Jump to Response_ItHasNoApparentEffect.