ref: c37e8a65d874ed8a068fd662c717e8e6c41ae944
dir: /engine/rtc/restart_clock.asm/
RestartClock_GetWraparoundTime: push hl dec a ld e, a ld d, 0 ld hl, .WrapAroundTimes rept 4 add hl, de endr ld e, [hl] inc hl ld d, [hl] inc hl ld b, [hl] inc hl ld c, [hl] pop hl ret .WrapAroundTimes: dw wBuffer4 db 7, 4 dw wBuffer5 db 24, 12 dw wBuffer6 db 60, 15 RestartClock: ; If we're here, we had an RTC overflow. ld hl, .ClockTimeMayBeWrongText call PrintText ld hl, wOptions ld a, [hl] push af set NO_TEXT_SCROLL, [hl] call LoadStandardMenuHeader call ClearTilemap ld hl, .ClockSetWithControlPadText call PrintText call .SetClock call ExitMenu pop bc ld hl, wOptions ld [hl], b ld c, a ret .ClockTimeMayBeWrongText: text_far _ClockTimeMayBeWrongText text_end .ClockSetWithControlPadText: text_far _ClockSetWithControlPadText text_end .SetClock: ld a, 1 ld [wBuffer1], a ; which digit ld [wBuffer2], a ld a, 8 ld [wBuffer3], a call UpdateTime call GetWeekday ld [wBuffer4], a ldh a, [hHours] ld [wBuffer5], a ldh a, [hMinutes] ld [wBuffer6], a .loop call .joy_loop jr nc, .loop and a ret nz call .PrintTime ld hl, .ClockIsThisOKText call PrintText call YesNoBox jr c, .cancel ld a, [wBuffer4] ld [wStringBuffer2], a ld a, [wBuffer5] ld [wStringBuffer2 + 1], a ld a, [wBuffer6] ld [wStringBuffer2 + 2], a xor a ld [wStringBuffer2 + 3], a call InitTime call .PrintTime ld hl, .ClockHasResetText call PrintText call WaitPressAorB_BlinkCursor xor a ret .cancel ld a, $1 ret .ClockIsThisOKText: text_far _ClockIsThisOKText text_end .ClockHasResetText: text_far _ClockHasResetText text_end .joy_loop call JoyTextDelay_ForcehJoyDown ld c, a push af call .PrintTime pop af bit 0, a jr nz, .press_A bit 1, a jr nz, .press_B bit 6, a jr nz, .pressed_up bit 7, a jr nz, .pressed_down bit 5, a jr nz, .pressed_left bit 4, a jr nz, .pressed_right jr .joy_loop .press_A ld a, $0 scf ret .press_B ld a, $1 scf ret .pressed_up ld a, [wBuffer1] call RestartClock_GetWraparoundTime ld a, [de] inc a ld [de], a cp b jr c, .done_scroll ld a, $0 ld [de], a jr .done_scroll .pressed_down ld a, [wBuffer1] call RestartClock_GetWraparoundTime ld a, [de] dec a ld [de], a cp -1 jr nz, .done_scroll ld a, b dec a ld [de], a jr .done_scroll .pressed_left ld hl, wBuffer1 dec [hl] jr nz, .done_scroll ld [hl], $3 jr .done_scroll .pressed_right ld hl, wBuffer1 inc [hl] ld a, [hl] cp $4 jr c, .done_scroll ld [hl], $1 .done_scroll xor a ret .PrintTime: hlcoord 0, 5 ld b, 5 ld c, 18 call Textbox decoord 1, 8 ld a, [wBuffer4] ld b, a farcall PrintDayOfWeek ld a, [wBuffer5] ld b, a ld a, [wBuffer6] ld c, a decoord 11, 8 farcall PrintHoursMins ld a, [wBuffer2] lb de, " ", " " call .PlaceChars ld a, [wBuffer1] lb de, "▲", "▼" call .PlaceChars ld a, [wBuffer1] ld [wBuffer2], a ret .unreferenced ; unused ld a, [wBuffer3] ld b, a call Coord2Tile ret .PlaceChars: push de call RestartClock_GetWraparoundTime ld a, [wBuffer3] dec a ld b, a call Coord2Tile pop de ld [hl], d ld bc, 2 * SCREEN_WIDTH add hl, bc ld [hl], e ret UnreferencedString_HourJP: ; unused db "じ@" ; HR UnreferencedString_MinuteJP: ; unused db "ふん@" ; MIN