Forest At World's End: Routine at 60511

60511: Events: Wolves

Wolves attack. The bow drives them off; otherwise the player dies.
Print " A pack of wolves appears.".
Events_Wolves	60511	LD HL,55905	HL=Messaging_APackOfWolvesAppears.
	60514	CALL PrintStringAndNewline	Call PrintStringAndNewline.
	60517	LD A,3	Call IsObjectCarried with item 3: "A bow".
	60519	CALL IsObjectCarried	Call IsObjectCarried with item 3: "A bow".
	60522	JR NZ,Events_Wolves_Next	Jump to Events_Wolves_Next if "A bow" isn't held.
	60524	LD A,4	Call IsObjectCarried with item 4: "Some arrows".
	60526	CALL IsObjectCarried	Call IsObjectCarried with item 4: "Some arrows".
	60529	JR Z,Events_Wolves_FightOff	Jump to Events_Wolves_FightOff if "Some arrows" is held.
Print "You have nothing to fight with. They pounce upon you.".
Events_Wolves_Next	60531	LD HL,55932	HL=Messaging_YouHaveNothingToFightWith.
	60534	CALL PausePrintStringAndScroll	Call PausePrintStringAndScroll.
	60537	LD HL,60195	Switch GameOver onto the stack so the next return actions a "game over".
	60540	EX (SP),HL
	60541	RET	Return.
Print "You successfully fight them off and kill some of them,but you are badly wounded.".
Events_Wolves_FightOff	60542	LD HL,55986	HL=Messaging_YouSuccessfullyFightThemOff.
	60545	CALL PausePrintStringAndScroll	Call PausePrintStringAndScroll.
	60548	LD A,72	Call Handler_UpdateItemForTheCurrentRoom with item 72: "You are seriously injured".
	60550	CALL Handler_UpdateItemForTheCurrentRoom
	60553	LD A,139	Call Handler_DestroyItem with 139.
	60555	CALL Handler_DestroyItem	Call Handler_DestroyItem with 139.
	60558	LD A,27	Call Handler_UpdateItemForTheCurrentRoom with item 27: "Some dead wolves".
	60560	CALL Handler_UpdateItemForTheCurrentRoom
	60563	LD A,138	Call Handler_RemoveItemFromPlay with 138.
	60565	CALL Handler_RemoveItemFromPlay	Call Handler_RemoveItemFromPlay with 138.
	60568	RET	Return.