Routines
Prev: 51257 Up: Map Next: 51337
51263: Draw Inventory Tube
Used by the routine at StartGame.
Draws the tube down the left of the screen that holds the items that the player is carrying: two vertical bars joined at the bottom.
After DrawInventoryTube
inventory-tube
DrawInventoryTube 51263 LD A,67 Use bright magenta ink (attribute 67), and keep it for colouring the tube.
51265 EX AF,AF'
51266 LD HL,27830 Set the font to the characters of the tube.
51269 LD (48044),HL
51272 LD HL,16385 Set the screen position of the top of the left bar to 16385 (in the screen buffer).
51275 XOR A Print the top of the bar.
51276 CALL PrintCharacterWithAttribute
51279 CALL MoveDownRow Move down a row.
51282 LD A,1 Choose the side of the bar as the character, and 22 as the number of rows.
51284 LD B,22
51286 CALL PrintCharacterColumn Print the side of the left bar.
Print the bottom of the tube.
51289 LD A,2 Print the bottom left corner.
51291 CALL PrintCharacterWithAttribute
51294 INC L Move one position to the right.
51295 LD A,3 Print the first part of the bottom.
51297 CALL PrintCharacterWithAttribute
51300 INC L Move one position to the right.
51301 LD A,3 Print the second part of the bottom.
51303 CALL PrintCharacterWithAttribute
51306 INC L Move one position to the right.
51307 LD A,4 Print the bottom right corner.
51309 CALL PrintCharacterWithAttribute
Print the right bar.
51312 LD HL,16388 Set the screen position of the top of the right bar to 16388 (in the screen buffer).
51315 XOR A Print the top of the bar.
51316 CALL PrintCharacterWithAttribute
51319 CALL MoveDownRow Move down a row.
51322 LD A,1 Choose the side of the bar as the character, and 22 as the number of rows.
51324 LD B,22
Prints a column of characters.
PrintCharacterColumn 51326 PUSH AF Keep the character.
51327 CALL PrintCharacterWithAttribute Print the character.
51330 CALL MoveDownRow Move down a row.
51333 POP AF Get the character back.
51334 DJNZ PrintCharacterColumn Loop back until the whole column has been printed.
51336 RET Return.
Prev: 51257 Up: Map Next: 51337