1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
IncrementDayCareMonExp: ; c684 (3:4684) ld a, [wDayCareInUse] and a ret z ld hl, wDayCareMonExp + 2 inc [hl] ret nz dec hl inc [hl] ret nz dec hl inc [hl] ld a, [hl] cp $50 ret c ld a, $50 ld [hl], a ret