Warlord: Routine at F191

F191: Process: Give The Roman To The Druid


Process_GiveRomanToDruid	F191	LD A,$0B	Call Handler_DestroyItemEvent with item 0B: "The captured Roman".
	F193	CALL Handler_DestroyItemEvent
	F196	LD HL,$A787	Reset bit 0 of *Flag_EventStates.
	F199	RES 0,(HL)	Reset bit 0 of *Flag_EventStates.
Change the Roman state!
	F19B	LD BC,$494B	Call TransformItem to transform item 49 ("A druid wearing an amulet") into item 4B ("An amulet").
	F19E	CALL TransformItem
	F1A1	LD A,$04	Call AddToScore to add 04 points to the score.
	F1A3	CALL AddToScore	Call AddToScore to add 04 points to the score.
Print "The druid removes the amulet and leaves it as he takes the Roman and leads him away.".
	F1A6	LD HL,$D640	HL=Messaging_DruidRemovesTheAmulet.
	F1A9	JP PrintStringAndNewline_Duplicate	Jump to PrintStringAndNewline_Duplicate.