engine/routines/checktime.asm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

CheckTime:: ; c000
	ld a, [TimeOfDay]
	ld hl, .TimeOfDayTable
	ld de, 2
	call IsInArray
	inc hl
	ld c, [hl]
	ret c

	xor a
	ld c, a
	ret

.TimeOfDayTable: ; c012
	db MORN_F, MORN
	db DAY_F,  DAY
	db NITE_F, NITE
	db NITE_F, NITE
	db -1