mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-09-26 13:32:48 -04:00
Rangi
78 lines
1.2 KiB
NASM
78 lines
1.2 KiB
NASM
SetTime::
|
|
ld hl, wStartHour
|
|
ldh a, [hRTCHours]
|
|
ld [hli], a
|
|
ldh a, [hRTCMinutes]
|
|
ld [hl], a
|
|
ld hl, AdjustTimeText
|
|
call PrintText
|
|
ret
|
|
|
|
AdjustTimeText:
|
|
deciram wStartHour, 1, 2
|
|
text " じ"
|
|
line "@"
|
|
deciram wStartMinute, 1, 2
|
|
text " ふん？@"
|
|
start_asm
|
|
.loop
|
|
call ClearJoypad
|
|
call GetJoypad
|
|
ldh a, [hJoyState]
|
|
and a
|
|
jr z, .loop
|
|
bit B_PAD_A, a
|
|
jp nz, .set_time
|
|
bit B_PAD_UP, a
|
|
jr nz, .inc_hour
|
|
bit B_PAD_DOWN, a
|
|
jr nz, .dec_hour
|
|
bit B_PAD_RIGHT, a
|
|
jr nz, .inc_minute
|
|
bit B_PAD_LEFT, a
|
|
jr nz, .dec_minute
|
|
jr .loop
|
|
.inc_hour
|
|
ld a, [wStartHour]
|
|
cp 23
|
|
jr z, .show_text
|
|
inc a
|
|
ld [wStartHour], a
|
|
jr .show_text
|
|
.dec_hour
|
|
ld a, [wStartHour]
|
|
and a
|
|
jr z, .show_text
|
|
dec a
|
|
ld [wStartHour], a
|
|
jr .show_text
|
|
.inc_minute
|
|
ld a, [wStartMinute]
|
|
cp 59
|
|
jr z, .show_text
|
|
inc a
|
|
ld [wStartMinute], a
|
|
jr .show_text
|
|
.dec_minute
|
|
ld a, [wStartMinute]
|
|
and a
|
|
jr z, .show_text
|
|
dec a
|
|
ld [wStartMinute], a
|
|
.show_text
|
|
ld hl, AdjustTimeText ; meant AdjustTimeEndText?
|
|
call PrintText
|
|
jp .loop
|
|
.set_time
|
|
call SetClock
|
|
call StartRTC
|
|
jp TextAsmEnd
|
|
|
|
AdjustTimeEndText:
|
|
deciram wStartHour, 1, 2
|
|
text " じ"
|
|
line "@"
|
|
deciram wStartMinute, 1, 2
|
|
text " ふん？"
|
|
done
|