Warlord: Routine at F0C0

F0C0: 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	F0C0	LD A,$45	Call ValidateItemPresent with item 45: "A dead bear".
	F0C2	CALL ValidateItemPresent	Call ValidateItemPresent with item 45: "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...
	F0C5	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?
	F0C8	LD A,$3A	Call IsPlayerCarryingItem with item 3A: "Some meat".
	F0CA	CALL IsPlayerCarryingItem	Call IsPlayerCarryingItem with item 3A: "Some meat".
The player is carrying the meat, so destroy the item.
	F0CD	LD A,E	Call Handler_DestroyItemEvent with the item ID originally passed to the routine.
	F0CE	CALL Handler_DestroyItemEvent
The bear has eaten an item so handle the inventory count.
	F0D1	LD HL,$A790	Decrease *Count_InventoryItems by one.
	F0D4	DEC (HL)	Decrease *Count_InventoryItems by one.
Print "The bear devours the meat,but its appetite remains.".
	F0D5	LD HL,$D328	HL=Messaging_BearDevoursMeat.
	F0D8	JP PrintStringAndNewline_Duplicate	Jump to PrintStringAndNewline_Duplicate.