First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/rtc/restart_clock.asm

@@ -0,0 +1,241 @@
+; 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