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
92
93
94
95
|
InitBallRedField: ; 0x3007d
ld a, [wReturningFromBonusStage]
and a
jp nz, StartBallAfterBonusStageRedField
ld a, $0
ld [wBallXPos], a
ld a, $a7
ld [wBallXPos + 1], a
ld a, $0
ld [wBallYPos], a
ld a, $98
ld [wBallYPos + 1], a
xor a
ld [wEnableBallGravityAndTilt], a
ld [wd580], a
ld a, [wd7ad]
bit 7, a
jr z, .asm_300ae
ld a, [wStageCollisionState]
res 0, a
ld [wd7ad], a
.asm_300ae
ld a, [wStageCollisionState]
and $1
ld [wStageCollisionState], a
ld a, [wLostBall]
and a
ret z
xor a
ld [wLostBall], a
xor a
ld [wSpinnerVelocity], a
ld [wSpinnerVelocity + 1], a
ld [wPikachuSaverSlotRewardActive], a
ld [wPikachuSaverCharge], a
ld [wd51e], a
ld hl, wCAVELightStates
ld [hli], a
ld [hli], a
ld [hli], a
ld [hli], a
ld [wLeftMapMoveCounter], a
ld [wRightMapMoveCounter], a
ld hl, wBallUpgradeTriggerStates
ld [hli], a
ld [hli], a
ld [hli], a
ld [wBallType], a
ld [wd611], a
ld [wd612], a
ld [wNumPokemonCaughtInBallBonus], a
ld [wNumPokemonEvolvedInBallBonus], a
ld [wNumBellsproutEntries], a
ld [wNumDugtrioTriples], a
ld [wNumCAVECompletions], a
ld [wNumSpinnerTurns], a
ld [wNumPikachuSaves], a
ld [wShowBonusMultiplierBottomMessage], a
inc a
ld [wCurBonusMultiplier], a
ld [wLeftDiglettAnimationController], a
ld [wRightDiglettAnimationController], a
ld a, $3
ld [wd610], a
callba GetBCDForNextBonusMultiplier_RedField
ld a, Bank(Music_RedField)
call SetSongBank
ld de, MUSIC_RED_FIELD
call PlaySong
ret
StartBallAfterBonusStageRedField: ; 0x30128
ld a, $0
ld [wBallXPos], a
ld a, $50
ld [wBallXPos + 1], a
ld a, $0
ld [wBallYPos], a
ld a, $16
ld [wBallYPos + 1], a
xor a
ld [wBallYVelocity], a
ld [wBallYVelocity + 1], a
ld [wBallXVelocity], a
ld [wBallXVelocity + 1], a
ld [wReturningFromBonusStage], a
ld [wSCX], a
ld [wFlippersDisabled], a
ld a, [wBallTypeBackup]
ld [wBallType], a
ld a, Bank(Music_RedField)
call SetSongBank
ld de, MUSIC_RED_FIELD
call PlaySong
ret
|
