Warlord: Routine at 61632

61632: Process: Throw Meat To Bear


The player wants to throw the meat to the bear, check which version of the bear is in the current room.
Process_ThrowMeatToBear	61632	LD A,69	Call ValidateItemPresent with item 69: "A dead bear".
	61634	CALL ValidateItemPresent	Call ValidateItemPresent with item 69: "A dead bear".
Just to cover all angles, print "Don't be ridiculous." if the player is trying to throw the meat to the dead bear...
	61637	JP Z,Response_DontBeRidiculous	Jump to Response_DontBeRidiculous if the version of the bear is "A dead bear".
The bear is alive, but is the player even carrying the meat?
	61640	LD A,58	Call IsPlayerCarryingItem with item 58: "Some meat".
	61642	CALL IsPlayerCarryingItem	Call IsPlayerCarryingItem with item 58: "Some meat".
The player is carrying the meat, so destroy the item.
	61645	LD A,E	Call Handler_DestroyItemEvent with the item ID originally passed to the routine.
	61646	CALL Handler_DestroyItemEvent
The bear has eaten an item so handle the inventory count.
	61649	LD HL,42896	Decrease *Count_InventoryItems by one.
	61652	DEC (HL)	Decrease *Count_InventoryItems by one.
Print "The bear devours the meat,but its appetite remains.".
	61653	LD HL,54056	HL=Messaging_BearDevoursMeat.
	61656	JP PrintStringAndNewline_Duplicate	Jump to PrintStringAndNewline_Duplicate.