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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
CheckSeelBonusStageGameObjectCollisions: ; 0x25bbc
call CheckSeelBonusStageSeelHeadCollisions
ret
CheckSeelBonusStageSeelHeadCollisions: ; 0x25bc0
ld a, [wd76c]
cp $0
jr nz, .seel2
ld a, [wd76e]
ld b, a
ld a, [wd770]
add $14
ld c, a
call CheckSeelHeadCollision
ld a, $0
jr c, .hitSeelHead
.seel2
ld a, [wd776]
cp $0
jr nz, .seel3
ld a, [wd778]
ld b, a
ld a, [wd77a]
add $14
ld c, a
call CheckSeelHeadCollision
ld a, $1
jr c, .hitSeelHead
.seel3
ld a, [wd780]
cp $0
jr nz, .done
ld a, [wd782]
ld b, a
ld a, [wd784]
add $14
ld c, a
call CheckSeelHeadCollision
ld a, $2
jr c, .hitSeelHead
.done
ret
.hitSeelHead
ld [wd768], a
ld a, $1
ld [wd767], a
ret
CheckSeelHeadCollision: ; 0x25c12
ld a, [wBallXPos + 1]
sub b
cp $20
jr nc, .noCollision
ld b, a
ld a, [wBallYPos + 1]
sub c
cp $20
jr nc, .noCollision
ld c, a
ld e, c
ld d, $0
sla e
rl d
sla e
rl d
sla e
rl d
sla e
rl d
sla e
rl d
ld l, b
ld h, $0
add hl, de
ld de, CircularCollisionAngles
add hl, de
ld a, BANK(CircularCollisionAngles)
call ReadByteFromBank
bit 7, a
jr nz, .noCollision
sla a
ld [wCollisionNormalAngle], a
ld a, $1
ld [wIsBallColliding], a
scf
ret
.noCollision
and a
ret
|
