pokecrystal-board/engine/overworld/time.asm

308 lines
4.8 KiB
NASM
Raw Normal View History

ClearDailyTimers::
xor a
ld [wLuckyNumberDayTimer], a
2015-10-24 07:34:19 -07:00
ld [wDailyResetTimer], a
ret
2018-06-24 07:09:41 -07:00
InitCallReceiveDelay::
xor a
2015-10-24 07:34:19 -07:00
ld [wTimeCyclesSinceLastCall], a
2018-06-24 07:09:41 -07:00
NextCallReceiveDelay:
2015-10-24 07:34:19 -07:00
ld a, [wTimeCyclesSinceLastCall]
cp 3
2015-10-24 07:34:19 -07:00
jr c, .okay
ld a, 3
2015-10-24 07:34:19 -07:00
.okay
ld e, a
ld d, 0
2015-10-24 07:34:19 -07:00
ld hl, .ReceiveCallDelays
add hl, de
ld a, [hl]
if DEF(_DEBUG)
ld h, a
ld a, BANK(sDebugTimeCyclesSinceLastCall)
call OpenSRAM
ld a, [sDebugTimeCyclesSinceLastCall]
call CloseSRAM
dec a
cp 2
jr nc, .debug_ok
xor 1
ld h, a
.debug_ok
ld a, h
endc
2015-10-24 07:34:19 -07:00
jp RestartReceiveCallDelay
.ReceiveCallDelays:
db 20, 10, 5, 3
2018-06-24 07:09:41 -07:00
CheckReceiveCallTimer:
2015-10-24 07:34:19 -07:00
call CheckReceiveCallDelay ; check timer
ret nc
2015-10-24 07:34:19 -07:00
ld hl, wTimeCyclesSinceLastCall
ld a, [hl]
cp 3
2015-10-24 07:34:19 -07:00
jr nc, .ok
inc [hl]
2015-10-24 07:34:19 -07:00
.ok
call NextCallReceiveDelay ; restart timer
scf
ret
2018-06-24 07:09:41 -07:00
InitOneDayCountdown:
ld a, 1
2018-06-24 07:09:41 -07:00
InitNDaysCountdown:
ld [hl], a
inc hl ; wLuckyNumberDayTimer + 1 or wDailyResetTimer + 1 (both are dw)
ld a, [wCurDay]
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
CheckDayDependentEventHL:
inc hl
push hl
2015-10-24 07:34:19 -07:00
call CalcDaysSince
call GetDaysSince
pop hl
dec hl
2015-10-24 07:34:19 -07:00
call UpdateTimeRemaining
ret
2018-06-24 07:09:41 -07:00
RestartReceiveCallDelay:
2015-10-24 07:34:19 -07:00
ld hl, wReceiveCallDelay_MinsRemaining
ld [hl], a
2015-10-24 07:34:19 -07:00
ld hl, wReceiveCallDelay_StartTime
call CopyHourMinToHL
ret
2018-06-24 07:09:41 -07:00
CheckReceiveCallDelay:
2015-10-24 07:34:19 -07:00
ld hl, wReceiveCallDelay_StartTime
call CalcMinsHoursSince
2015-10-24 07:34:19 -07:00
call GetMinutesSinceIfLessThan60
ld hl, wReceiveCallDelay_MinsRemaining
call UpdateTimeRemaining
ret
2018-06-24 07:09:41 -07:00
RestartDailyResetTimer:
2015-10-24 07:34:19 -07:00
ld hl, wDailyResetTimer
jp InitOneDayCountdown
2018-06-24 07:09:41 -07:00
CheckDailyResetTimer::
2015-10-24 07:34:19 -07:00
ld hl, wDailyResetTimer
2015-10-16 10:35:43 -07:00
call CheckDayDependentEventHL
ret nc
xor a
ld hl, wDailyFlags1
ld [hli], a ; wDailyFlags1
ld [hli], a ; wDailyFlags2
ld [hli], a ; wSwarmFlags
ld [hl], a ; wSwarmFlags + 1
2015-10-24 07:34:19 -07:00
jr RestartDailyResetTimer
2018-06-24 07:09:41 -07:00
StartBugContestTimer:
2018-01-11 09:00:01 -08:00
ld a, BUG_CONTEST_MINUTES
2015-10-24 07:34:19 -07:00
ld [wBugContestMinsRemaining], a
2018-01-11 09:00:01 -08:00
ld a, BUG_CONTEST_SECONDS
2015-10-24 07:34:19 -07:00
ld [wBugContestSecsRemaining], a
ld hl, wBugContestStartTime
call CopyHourMinSecToHL
ret
2018-06-24 07:09:41 -07:00
CheckBugContestTimer::
2015-10-24 07:34:19 -07:00
ld hl, wBugContestStartTime
call CalcSecsMinsHoursSince
2015-10-24 07:34:19 -07:00
ld a, [wHoursSince]
and a
2015-10-24 07:34:19 -07:00
jr nz, .timed_out
ld a, [wSecondsSince]
ld b, a
2015-10-24 07:34:19 -07:00
ld a, [wBugContestSecsRemaining]
sub b
2015-10-24 07:34:19 -07:00
jr nc, .okay
add 60
.okay
ld [wBugContestSecsRemaining], a
ld a, [wMinutesSince]
ld b, a
2015-10-24 07:34:19 -07:00
ld a, [wBugContestMinsRemaining]
sbc b
2015-10-24 07:34:19 -07:00
ld [wBugContestMinsRemaining], a
jr c, .timed_out
and a
ret
2015-10-24 07:34:19 -07:00
.timed_out
xor a
2015-10-24 07:34:19 -07:00
ld [wBugContestMinsRemaining], a
ld [wBugContestSecsRemaining], a
scf
ret
2018-06-24 07:09:41 -07:00
CheckPokerusTick::
ld hl, .Day0
2015-10-24 07:34:19 -07:00
call CalcDaysSince
call GetDaysSince
and a
2016-01-10 14:44:09 -08:00
jr z, .done ; not even a day has passed since game start
ld b, a
2017-12-24 09:47:30 -08:00
farcall ApplyPokerusTick
2015-10-24 07:34:19 -07:00
.done
xor a
ret
.Day0:
db 0
2018-06-24 07:09:41 -07:00
RestartLuckyNumberCountdown:
call .GetDaysUntilNextFriday
ld hl, wLuckyNumberDayTimer
2015-10-24 07:34:19 -07:00
jp InitNDaysCountdown
2018-06-24 07:09:41 -07:00
.GetDaysUntilNextFriday:
call GetWeekday
ld c, a
ld a, FRIDAY
sub c
jr z, .friday_saturday
2018-01-11 09:00:01 -08:00
jr nc, .earlier ; could have done "ret nc"
.friday_saturday
add 7
.earlier
ret
2018-06-24 07:09:41 -07:00
_CheckLuckyNumberShowFlag:
ld hl, wLuckyNumberDayTimer
2015-10-16 10:35:43 -07:00
jp CheckDayDependentEventHL
2018-06-24 07:09:41 -07:00
UpdateTimeRemaining:
2015-10-24 07:34:19 -07:00
; If the amount of time elapsed exceeds the capacity of its
; unit, skip this part.
2015-10-04 11:14:51 -07:00
cp -1
2015-10-24 07:34:19 -07:00
jr z, .set_carry
ld c, a
2015-10-24 07:34:19 -07:00
ld a, [hl] ; time remaining
sub c
2015-10-04 11:14:51 -07:00
jr nc, .ok
xor a
2015-10-04 11:14:51 -07:00
.ok
ld [hl], a
2015-10-24 07:34:19 -07:00
jr z, .set_carry
xor a
ret
2015-10-24 07:34:19 -07:00
.set_carry
xor a
ld [hl], a
scf
ret
GetSecondsSinceIfLessThan60: ; unreferenced
2015-10-24 07:34:19 -07:00
ld a, [wHoursSince]
and a
2015-10-24 07:34:19 -07:00
jr nz, GetTimeElapsed_ExceedsUnitLimit
ld a, [wMinutesSince]
jr nz, GetTimeElapsed_ExceedsUnitLimit
ld a, [wSecondsSince]
ret
2018-06-24 07:09:41 -07:00
GetMinutesSinceIfLessThan60:
2015-10-24 07:34:19 -07:00
ld a, [wHoursSince]
and a
2015-10-24 07:34:19 -07:00
jr nz, GetTimeElapsed_ExceedsUnitLimit
ld a, [wMinutesSince]
ret
GetHoursSinceIfLessThan24: ; unreferenced
2015-10-24 07:34:19 -07:00
ld a, [wHoursSince]
ret
2018-06-24 07:09:41 -07:00
GetDaysSince:
2015-10-24 07:34:19 -07:00
ld a, [wDaysSince]
ret
2018-06-24 07:09:41 -07:00
GetTimeElapsed_ExceedsUnitLimit:
2015-10-24 07:34:19 -07:00
ld a, -1
ret
2018-06-24 07:09:41 -07:00
CalcDaysSince:
xor a
2015-10-24 07:34:19 -07:00
jr _CalcDaysSince
CalcHoursSince: ; unreferenced
xor a
jr _CalcHoursSince
CalcMinsHoursSince:
inc hl
xor a
jr _CalcMinsHoursSince
CalcSecsMinsHoursSince:
inc hl
inc hl
ld a, [wGameTimeSeconds]
ld c, a
sub [hl]
2015-10-24 07:34:19 -07:00
jr nc, .skip
add 60
2015-10-24 07:34:19 -07:00
.skip
ld [hl], c ; current seconds
dec hl
2015-10-24 07:34:19 -07:00
ld [wSecondsSince], a ; seconds since
_CalcMinsHoursSince:
ld a, [wGameTimeMinutes]
ld c, a
sbc [hl]
2015-10-24 07:34:19 -07:00
jr nc, .skip
add 60
2015-10-24 07:34:19 -07:00
.skip
ld [hl], c ; current minutes
dec hl
2015-10-24 07:34:19 -07:00
ld [wMinutesSince], a ; minutes since
_CalcHoursSince:
; assumes differentials below 256 hours
ld a, [wGameTimeHours + 1]
ld c, a
sub [hl]
2015-10-24 07:34:19 -07:00
ld [hl], c ; current hours
ld [wHoursSince], a ; hours since
ret
2015-10-24 07:34:19 -07:00
_CalcDaysSince:
2018-01-23 14:39:09 -08:00
ld a, [wCurDay]
ld c, a
sbc [hl]
jr nc, .skip
add MAX_DAYS
.skip
2015-10-24 07:34:19 -07:00
ld [hl], c ; current days
ld [wDaysSince], a ; days since
ret
CopyHourMinSecToHL:
ld a, [wGameTimeHours + 1]
ld [hli], a
ld a, [wGameTimeMinutes]
ld [hli], a
ld a, [wGameTimeSeconds]
ld [hli], a
ret
CopyHourMinToHL:
ld a, [wGameTimeHours + 1]
ld [hli], a
ld a, [wGameTimeMinutes]
ld [hli], a
ret