Prev: 42635 Up: Map Next: 42903
42825: 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 42825 LD A,(23309) Fetch RoomColour.
42828 OR %01000000 Make it bright.
42830 CALL FillAttributes Call FillAttributes.
Colour the lives icon and the lives count.
42833 LD A,71 Set the attribute to INK:WHITE, PAPER:BLACK (BRIGHT).
42835 LD DE,23246 Point DE at 23246 (in the attribute buffer).
42838 LD B,2 Set the number of cells to 2.
42840 CALL FillBytes Call FillBytes.
42843 LD DE,23278 Point DE at 23278 (in the attribute buffer).
42846 LD B,4 Set the number of cells to 4.
42848 CALL FillBytes Call FillBytes.
Colour the light years box and draw the objects carried.
42851 CALL ColourCounterBox Call ColourCounterBox.
42854 CALL DisplayObjectsCarried_Display Call DisplayObjectsCarried_Display.
Print the "LIGHT YEARS" caption.
42857 LD A,(23309) Fetch RoomColour.
42860 CPL Invert it.
42861 AND %00000111 Keep only the ink colour.
42863 ADD A,66 Add 66.
42865 LD (42903),A Set LightYearsCaption.
42868 LD DE,42903 Point DE at LightYearsCaption.
42871 LD HL,1952 Point HL at the position of the caption.
42874 CALL PrintTextStandardFont Call PrintTextStandardFont.
Print the number of chambers activated.
42877 CALL PrintActivatedChambers Call PrintActivatedChambers.
42880 LD HL,23172 Point HL at 23172 (in the attribute buffer).
42883 LD (HL),71 Colour the first digit bright white.
42885 INC HL Move on to the second digit.
42886 LD (HL),71 Colour the second digit bright white.
Colour the icon of the chamber.
42888 LD HL,23105 Point HL at 23105 (in the attribute buffer).
42891 LD BC,771 Set the width and the height to 3.
42894 LD A,(42903) Fetch LightYearsCaption.
42897 CALL FillWindow Call FillWindow.
42900 JP PrintLives Jump to PrintLives.
Prev: 42635 Up: Map Next: 42903