Prev: 43118 Up: Map Next: 43453
43377: Event: Day Dawns On The Trolls
Turns the two trolls to stone, announces day, and repaints Trolls Clearing. A character script in 51475 calls this through the handler address at 51800.
Event_DayDawnsOnTheTrolls 43377 CALL ConditionSuppressTheMessage Call ConditionSuppressTheMessage. If the message is held back, the trolls are not turned to stone.
43380 LD A,71 Call Turn_ThePlayerHasDied_0 using object 71 - "Hideous Troll".
43382 CALL Turn_ThePlayerHasDied_0
43385 LD A,72 Call Turn_ThePlayerHasDied_0 using object 72 - "Vicious Troll".
43387 CALL Turn_ThePlayerHasDied_0
43390 LD HL,50758 Point HL at the attributes of 71 - "Hideous Troll".
43393 RES 7,(HL) Mark that object not visible.
43395 LD HL,50776 Point HL at the attributes of 72 - "Vicious Troll".
43398 RES 7,(HL) Mark that object not visible.
43400 LD HL,45666 Point at the message "in a clearing with two stone trolls." (45666).
43403 LD (47812),HL Write HL to the empty location description for 5 - "Trolls Clearing".
43406 LD HL,47804 Point HL at the record for location 5 at 47804.
43409 RES 6,(HL) Clear bit 6 of the attributes for 5 - "Trolls Clearing".
43411 LD A,71 Call Condition_WhereTheObjectIs_0 using object 71 - "Hideous Troll".
43413 CALL Condition_WhereTheObjectIs_0
43416 LD A,72 Call Condition_WhereTheObjectIs_0 using object 72 - "Vicious Troll".
43418 CALL Condition_WhereTheObjectIs_0
43421 LD HL,45835 Point at the message "day dawn(s|d|ing|es)" (45835).
43424 LD A,1 Set NightDay to 1 (daytime).
43426 LD (46850),A
43429 CALL PrintMessage Call PrintMessage to print message.
43432 LD IX,52224 Point IX at the location graphics table.
43436 LD A,5 Load the graphics data for Graphics_TrollsClearing "Trolls Clearing".
43438 CALL IndexIdTable
43441 LD L,(IX+1) Read the low byte of the graphics address for 5 (Graphics_TrollsClearing).
43444 LD H,(IX+2) Read the high byte of the graphics address for 5 (Graphics_TrollsClearing).
43447 LD (HL),5 Change the paper colour to CYAN.
43449 INC HL Increment the graphics data pointer by one.
43450 LD (HL),40 Change the colour to INK: BLACK, PAPER: CYAN .
43452 RET Return.
Prev: 43118 Up: Map Next: 43453