Routines
Prev: 45533 Up: Map Next: 45585
45539: DecayMoraleStep — tail of the DecayCrewCourage loop
After the courage byte: drop the slot's morale too, step to the next record, and once all 7 are done redraw the viewed crew member's condition line.
Used by the routine at 36428.
45539 INC HL morale byte (+6): -1 too,
45540 DEC (HL)
45541 LD A,127
45543 CP (HL) clamping an underflow
45544 JR NC,45548
45546 LD (HL),0 to 0
45548 DEC HL back to the courage byte,
45549 ADD HL,DE next record
45550 DEC B
45551 JP NZ,36436 loop over all 7 crew
45554 LD A,(31252) room view on screen (mode 1)?
45557 CP 1
45559 RET NZ no: done
45560 PUSH BC
45561 PUSH IX
45563 LD A,(31241) re-point IX at the viewed slot
45566 LD B,A
45567 LD IX,29566
45571 LD DE,8
45574 ADD IX,DE
45576 DJNZ 45574
45578 CALL 32385 and redraw his condition line
45581 POP IX
45583 POP BC
45584 RET
Prev: 45533 Up: Map Next: 45585