Prev: A68B Up: Map Next: A797
A749: Update Panel
Used by the routines at RunGame and HandleValve.
Colours the screen and the status panel after DrawPanel has drawn it, then prints the carried objects, the "LIGHT YEARS" caption, the chambers activated and the lives. The colour of the room is made bright and used for the whole attribute file.
Fill the attribute file with the colour of the room.
UpdatePanel A749 LD A,($5B0D) Fetch RoomColour.
A74C OR %01000000 Make it bright.
A74E CALL FillAttributes Call FillAttributes.
Colour the lives icon and the lives count.
A751 LD A,$47 Set the attribute to INK:WHITE, PAPER:BLACK (BRIGHT).
A753 LD DE,$5ACE Point DE at 5ACE (in the attribute buffer).
A756 LD B,$02 Set the number of cells to 02.
A758 CALL FillBytes Call FillBytes.
A75B LD DE,$5AEE Point DE at 5AEE (in the attribute buffer).
A75E LD B,$04 Set the number of cells to 04.
A760 CALL FillBytes Call FillBytes.
Colour the light years box and draw the objects carried.
A763 CALL ColourCounterBox Call ColourCounterBox.
A766 CALL DisplayObjectsCarried_Display Call DisplayObjectsCarried_Display.
Print the "LIGHT YEARS" caption.
A769 LD A,($5B0D) Fetch RoomColour.
A76C CPL Invert it.
A76D AND %00000111 Keep only the ink colour.
A76F ADD A,$42 Add 42.
A771 LD ($A797),A Set LightYearsCaption.
A774 LD DE,$A797 Point DE at LightYearsCaption.
A777 LD HL,$07A0 Point HL at the position of the caption.
A77A CALL PrintTextStandardFont Call PrintTextStandardFont.
Print the number of chambers activated.
A77D CALL PrintActivatedChambers Call PrintActivatedChambers.
A780 LD HL,$5A84 Point HL at 5A84 (in the attribute buffer).
A783 LD (HL),$47 Colour the first digit bright white.
A785 INC HL Move on to the second digit.
A786 LD (HL),$47 Colour the second digit bright white.
Colour the icon of the chamber.
A788 LD HL,$5A41 Point HL at 5A41 (in the attribute buffer).
A78B LD BC,$0303 Set the width and the height to 03.
A78E LD A,($A797) Fetch LightYearsCaption.
A791 CALL FillWindow Call FillWindow.
A794 JP PrintLives Jump to PrintLives.
Prev: A68B Up: Map Next: A797