Prev: 8223 Up: Map Next: 826C
824D: Action 0C : Set Lift Lighting
Input
Output
Action0C_LiftLights 824D LD A,(HL) Get index of light to be lit.
824E INC HL
824F PUSH HL
8250 LD DE,$0006 Colour all lights bright red by changing their colour on screen.
8253 LD B,$04
8255 LD HL,$5988
Action0C_LiftLights_0 8258 LD (HL),$42
825A ADD HL,DE
825B DJNZ Action0C_LiftLights_0
825D ADD A,A Get ATTR address of light to be (L * 6) + $5988
825E LD E,A
825F ADD A,A
8260 ADD A,E
8261 LD E,A
8262 LD HL,$5988
8265 ADD HL,DE
8266 LD (HL),$47 Set its colour to Bright White.
8268 POP HL
8269 JP Room_TestEvents_0
Prev: 8223 Up: Map Next: 826C