Jewels of Babylon: Routine at 61151

61151: Events: Pirate

This event handles the pirate.
Print " A pirate attacks you...".
Event_Pirate	61151	LD HL,55237	HL=55237.
	61154	CALL PrintStringAndNewline	Call PrintStringAndNewline.
	61157	LD A,15	Call GenerateRandomNumber with a maximum value of 15.
	61159	CALL GenerateRandomNumber	Call GenerateRandomNumber with a maximum value of 15.
	61162	JR NZ,Event_Pirate_Safe	Jump to Event_Pirate_Safe if the random generator returns a non-zero response.
Bad luck!
	61164	LD HL,60887	Switch GameOver onto the stack so the next return actions a "game over".
	61167	EX (SP),HL
Print "After a fierce struggle he overpowers you.".
	61168	LD HL,55286	HL=55286.
	61171	JR Event_Pirate_PrintAndReturn	Jump to Event_Pirate_PrintAndReturn.
Handle that the pirate should work out more. Print "But you avoid his blow.".
Event_Pirate_Safe	61173	LD HL,55262	HL=55262.
Event_Pirate_PrintAndReturn	61176	CALL PausePrintStringAndScroll	Call PausePrintStringAndScroll.
	61179	RET	Return.