Jewels of Babylon: Routine at 62022

62022: Action: Quit


Action_Quit	62022	CALL Parser_ValidateNoDirectObject	Call Parser_ValidateNoDirectObject.
The "QUIT" command can only be called on its own.
	62025	RET C	Return if there's any token set in UserInput_Token_2.
Print "Want to save the game? Y/N.".
	62026	LD HL,48821	HL=Messaging_WantToSaveTheGame.
	62029	CALL PrintStringAndNewline	Call PrintStringAndNewline.
WantToSave_Loop	62032	CALL GetUserInput	Call GetUserInput.
The player just wants to quit.
	62035	CP 78	Jump to QuitGame if the keypress is "`N`".
	62037	JR Z,QuitGame	Jump to QuitGame if the keypress is "`N`".
	62039	CP 89	Jump back to WantToSave_Loop if the keypress is anything other than "`Y`".
	62041	JR NZ,WantToSave_Loop
The player does want to save before quitting...
	62043	CALL SaveGame	Call SaveGame.
Jump to asking if the player "wants another game?"
QuitGame	62046	LD HL,60893	Switch WantAnotherGameInput onto the stack so the next return action is asking if the player would "Want another game? Y/N.".
	62049	EX (SP),HL
	62050	RET	Return.