Routines

31746: Print inventory


Used by routines at 23863, 23907, 30804, 62178 and 63586

31746 21EA7F LD HL,32746 L=234
31749 0E06 LD C,6 Clear the current on-screen inventory
31751 2650 LD H,80
31753 0608 LD B,8
31755 3600 LD (HL),0
31757 24 INC H
31758 10FB DJNZ 31755
31760 2C INC L
31761 0D DEC C
31762 20F3 JR NZ,31751
31764 11EA50 LD DE,20714 DE=appropriate display file address
31767 01E898 LD BC,39144 Point BC at safe key UDG
31770 21EB7F LD HL,32747 Inventory flags
31773 3E06 LD A,6 INK 6
31775 CB46 BIT 0,(HL) Has ERIC got the safe key?
31777 C4647C CALL NZ,31844 Print it if so
31780 04 INC B BC=39400: science lab storeroom key UDG
31781 3E07 LD A,7 INK 7
31783 CB4E BIT 1,(HL) Has ERIC got the science lab storeroom key?
31785 C4647C CALL NZ,31844 Print it if so
31788 3E04 LD A,4 INK 4
31790 04 INC B BC=39656: frog UDG
31791 CB56 BIT 2,(HL) Has ERIC got the frog?
31793 C4647C CALL NZ,31844 Print it if so
31796 04 INC B BC=39912: water pistol UDG (left half)
31797 CB5E BIT 3,(HL) Has ERIC got the water pistol?
31799 2812 JR Z,31819 Jump if not
31801 3E05 LD A,5 INK 5
31803 CB66 BIT 4,(HL) Has ERIC got the water pistol with sherry in it?
31805 2802 JR Z,31809 Jump if not
31807 3E43 LD A,67 INK 3: BRIGHT 1
31809 F5 PUSH AF
31810 CD647C CALL 31844 Print the left half of the water pistol
31813 F1 POP AF
31814 04 INC B BC=40168: water pistol UDG (right half)
31815 CD647C CALL 31844 Print the right half of the water pistol
31818 05 DEC B
31819 04 INC B
31820 04 INC B BC=40424: 3 stinkbombs UDG
31821 3E07 LD A,7 INK 7
31823 CB6E BIT 5,(HL) Has ERIC got 3 stinkbombs?
31825 200A JR NZ,31837 Jump if so
31827 04 INC B BC=40680: 2 stinkbombs UDG
31828 CB76 BIT 6,(HL) Has ERIC got 2 stinkbombs?
31830 2005 JR NZ,31837 Jump if so
31832 CB7E BIT 7,(HL) Has ERIC got 1 stinkbomb?
31834 2804 JR Z,31840 Jump if not
31836 04 INC B BC=40936: 1 stinkbomb UDG
31837 CD647C CALL 31844 Print the stinkbombs
31840 26D2 LD H,210 210=ERIC
31842 C9 RET