mirror of https://github.com/pret/pokecrystal.git
242 lines
4.0 KiB
NASM
242 lines
4.0 KiB
NASM
; RestartClock_GetWraparoundTime.WrapAroundTimes indexes
|
|
const_def 1
|
|
const RESTART_CLOCK_DAY
|
|
const RESTART_CLOCK_HOUR
|
|
const RESTART_CLOCK_MIN
|
|
DEF NUM_RESTART_CLOCK_DIVISIONS EQU const_value - 1
|
|
|
|
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:
|
|
; entries correspond to RESTART_CLOCK_* constants
|
|
MACRO wraparound_time
|
|
dw \1 ; value pointer
|
|
db \2 ; maximum value
|
|
db \3 ; up/down arrow x coord (pairs with wRestartClockUpArrowYCoord)
|
|
ENDM
|
|
wraparound_time wRestartClockDay, 7, 4
|
|
wraparound_time wRestartClockHour, 24, 12
|
|
wraparound_time wRestartClockMin, 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, RESTART_CLOCK_DAY
|
|
ld [wRestartClockCurDivision], a
|
|
ld [wRestartClockPrevDivision], a
|
|
ld a, 8
|
|
ld [wRestartClockUpArrowYCoord], a
|
|
call UpdateTime
|
|
call GetWeekday
|
|
ld [wRestartClockDay], a
|
|
ldh a, [hHours]
|
|
ld [wRestartClockHour], a
|
|
ldh a, [hMinutes]
|
|
ld [wRestartClockMin], 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, [wRestartClockDay]
|
|
ld [wStringBuffer2], a
|
|
ld a, [wRestartClockHour]
|
|
ld [wStringBuffer2 + 1], a
|
|
ld a, [wRestartClockMin]
|
|
ld [wStringBuffer2 + 2], a
|
|
xor a
|
|
ld [wStringBuffer2 + 3], a
|
|
call InitTime
|
|
call .PrintTime
|
|
ld hl, .ClockHasResetText
|
|
call PrintText
|
|
call WaitPressAorB_BlinkCursor
|
|
xor a ; FALSE
|
|
ret
|
|
|
|
.cancel
|
|
ld a, TRUE
|
|
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, FALSE
|
|
scf
|
|
ret
|
|
|
|
.press_B
|
|
ld a, TRUE
|
|
scf
|
|
ret
|
|
|
|
.pressed_up
|
|
ld a, [wRestartClockCurDivision]
|
|
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, [wRestartClockCurDivision]
|
|
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, wRestartClockCurDivision
|
|
dec [hl]
|
|
jr nz, .done_scroll
|
|
ld [hl], RESTART_CLOCK_MIN
|
|
jr .done_scroll
|
|
|
|
.pressed_right
|
|
ld hl, wRestartClockCurDivision
|
|
inc [hl]
|
|
ld a, [hl]
|
|
cp NUM_RESTART_CLOCK_DIVISIONS + 1
|
|
jr c, .done_scroll
|
|
ld [hl], RESTART_CLOCK_DAY
|
|
|
|
.done_scroll
|
|
xor a ; FALSE
|
|
ret
|
|
|
|
.PrintTime:
|
|
hlcoord 0, 5
|
|
ld b, 5
|
|
ld c, 18
|
|
call Textbox
|
|
decoord 1, 8
|
|
ld a, [wRestartClockDay]
|
|
ld b, a
|
|
farcall PrintDayOfWeek
|
|
ld a, [wRestartClockHour]
|
|
ld b, a
|
|
ld a, [wRestartClockMin]
|
|
ld c, a
|
|
decoord 11, 8
|
|
farcall PrintHoursMins
|
|
ld a, [wRestartClockPrevDivision]
|
|
lb de, " ", " "
|
|
call .PlaceChars
|
|
ld a, [wRestartClockCurDivision]
|
|
lb de, "▲", "▼"
|
|
call .PlaceChars
|
|
ld a, [wRestartClockCurDivision]
|
|
ld [wRestartClockPrevDivision], a
|
|
ret
|
|
|
|
.UnusedPlaceCharsFragment: ; unreferenced
|
|
ld a, [wRestartClockUpArrowYCoord]
|
|
ld b, a
|
|
call Coord2Tile
|
|
ret
|
|
|
|
.PlaceChars:
|
|
push de
|
|
call RestartClock_GetWraparoundTime
|
|
ld a, [wRestartClockUpArrowYCoord]
|
|
dec a
|
|
ld b, a
|
|
call Coord2Tile
|
|
pop de
|
|
ld [hl], d
|
|
ld bc, 2 * SCREEN_WIDTH
|
|
add hl, bc
|
|
ld [hl], e
|
|
ret
|
|
|
|
JPHourString: ; unreferenced
|
|
db "じ@" ; HR
|
|
|
|
JPMinuteString: ; unreferenced
|
|
db "ふん@" ; MIN
|