Routines
Prev: F489 Up: Map Next: F4F5
F4B9: Process: Throw Urn Into Fire
The players wants to throw the urn into the fire, but are they in the room which has the fire?
Process_ThrowUrnIntoFire F4B9 LD A,($A7C3) Jump to Response_YouCant_Duplicate if *CurrentRoom is not equal to room 4F: The Fomorians' Cavern.
F4BC CP $4F
F4BE JP NZ,Response_YouCant_Duplicate
The player is in the correct room, so start destroying items...
F4C1 LD A,$12 Call Handler_DestroyItemEvent with item 12: "The flickering flames".
F4C3 CALL Handler_DestroyItemEvent
F4C6 LD A,$1C Call Handler_DestroyItemEvent with item 1C: "An urn".
F4C8 CALL Handler_DestroyItemEvent
F4CB LD A,$04 Call Handler_DestroyItemEvent with item 04: N/A.
F4CD CALL Handler_DestroyItemEvent
F4D0 LD A,$05 Call Handler_DestroyItemEvent with item 05: N/A.
F4D2 CALL Handler_DestroyItemEvent
Change the Fomorian tribe state!
F4D5 LD BC,$0F10 Call TransformItem to transform item 0F ("The Fomorian tribe") into item 10 ("Many Fomorian bodies").
F4D8 CALL TransformItem
F4DB LD HL,$A76D Set bit 5 of *Flag_GameStates_02 which relates to the Fomorian tribe.
F4DE SET 5,(HL)
F4E0 LD A,$04 Call AddToScore to add 04 points to the score.
F4E2 CALL AddToScore
The urn has been burnt and is gone, so handle the inventory count.
F4E5 LD HL,$A790 Decrease *Count_InventoryItems by one.
F4E8 DEC (HL)
Print "The urn lands in the fire. Slowly,the wax melts.As the ashes spill into the flames an eerie wind starts to blow...".
F4E9 LD HL,$DA9E HL=Messaging_UrnLandsInTheFire.
F4EC CALL PrintStringAndNewline Call PrintStringAndNewline.
Print "From the flames march the shadowy forms of the Nemedian host.They silently fall upon the Fomorian wariors and destroy them utterly. The Nemedians melt back into the flames.".
F4EF LD HL,$DB11 HL=Messaging_FromTheFlames.
F4F2 JP PausePrintStringAndScroll_Duplicate Jump to PausePrintStringAndScroll_Duplicate.
Prev: F489 Up: Map Next: F4F5