summaryrefslogtreecommitdiff
path: root/engine/play_time.asm
blob: db7d6f67bc24cc8727b69595c7cd572769d6a3ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Func_18dee: ; 18dee (6:4dee)
	call Func_18e36
	ld a, [wd732]
	bit 0, a
	ret z
	ld a, [W_PLAYTIMEMINUTES] ; wda42
	and a
	ret nz
	ld a, [W_PLAYTIMEFRAMES] ; wda45
	inc a
	ld [W_PLAYTIMEFRAMES], a ; wda45
	cp 60
	ret nz
	xor a
	ld [W_PLAYTIMEFRAMES], a ; wda45
	ld a, [W_PLAYTIMESECONDS] ; wda44
	inc a
	ld [W_PLAYTIMESECONDS], a ; wda44
	cp 60
	ret nz
	xor a
	ld [W_PLAYTIMESECONDS], a ; wda44
	ld a, [W_PLAYTIMEMINUTES + 1]
	inc a
	ld [W_PLAYTIMEMINUTES + 1], a
	cp 60
	ret nz
	xor a
	ld [W_PLAYTIMEMINUTES + 1], a
	ld a, [W_PLAYTIMEHOURS + 1]
	inc a
	ld [W_PLAYTIMEHOURS + 1], a
	cp $ff
	ret nz
	ld a, $ff
	ld [W_PLAYTIMEMINUTES], a ; wda42
	ret

Func_18e36: ; 18e36 (6:4e36)
	ld a, [wd13a]
	and a
	jr nz, .asm_18e40
	ld a, $ff
	jr .asm_18e41
.asm_18e40
	dec a
.asm_18e41
	ld [wd13a], a
	and a
	ret nz
	ld a, [wd730]
	res 1, a
	res 2, a
	bit 5, a
	res 5, a
	ld [wd730], a
	ret z
	xor a
	ld [hJoyPressed], a
	ld [hJoyHeld], a
	ret