pokecrystal-board/engine/battle_anims/bg_effects.asm

2960 lines
44 KiB
NASM
Raw Normal View History

2015-12-24 10:33:54 -08:00
const_def
const BGSQUARE_SIX
const BGSQUARE_FOUR
const BGSQUARE_TWO
const BGSQUARE_SEVEN
const BGSQUARE_FIVE
const BGSQUARE_THREE
; BG effects for use in battle animations.
ExecuteBGEffects: ; c8000 (32:4000)
ld hl, ActiveBGEffects
2015-12-23 17:46:23 -08:00
ld e, 5
.loop
ld a, [hl]
and a
jr z, .next
ld c, l
ld b, h
push hl
push de
2015-12-23 17:46:23 -08:00
call DoBattleBGEffectFunction
pop de
pop hl
.next
2015-12-23 17:46:23 -08:00
ld bc, 4
add hl, bc
dec e
jr nz, .loop
ret
QueueBGEffect: ; c801a (32:401a)
ld hl, ActiveBGEffects
2015-12-23 17:46:23 -08:00
ld e, 5
.loop
ld a, [hl]
and a
jr z, .load
2015-12-23 17:46:23 -08:00
ld bc, 4
add hl, bc
dec e
jr nz, .loop
scf
ret
.load
ld c, l
ld b, h
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_FUNCTION
add hl, bc
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp0]
ld [hli], a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
ld [hli], a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp2]
ld [hli], a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp3]
ld [hl], a
ret
EndBattleBGEffect: ; c8043 (32:4043)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_FUNCTION
add hl, bc
ld [hl], 0
ret
2015-12-23 17:46:23 -08:00
DoBattleBGEffectFunction: ; c804a (32:404a)
ld hl, BG_EFFECT_STRUCT_FUNCTION
add hl, bc
ld e, [hl]
ld d, 0
ld hl, BattleBGEffects
add hl, de
2015-12-26 18:59:03 -08:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
BattleBGEffects: ; c805a (32:405a)
; entries correspond to ANIM_BG_* constants
dw BattleBGEffect_End
dw BattleBGEffect_FlashInverted
dw BattleBGEffect_FlashWhite
dw BattleBGEffect_WhiteHues
dw BattleBGEffect_BlackHues
dw BattleBGEffect_AlternateHues
dw BattleBGEffect_06
dw BattleBGEffect_07
dw BattleBGEffect_08
dw BattleBGEffect_HideMon
dw BattleBGEffect_ShowMon
dw BattleBGEffect_EnterMon
dw BattleBGEffect_ReturnMon
dw BattleBGEffect_Surf
dw BattleBGEffect_Whirlpool
dw BattleBGEffect_Teleport
dw BattleBGEffect_NightShade
dw BattleBGEffect_FeetFollow
dw BattleBGEffect_HeadFollow
dw BattleBGEffect_DoubleTeam
dw BattleBGEffect_AcidArmor
dw BattleBGEffect_RapidFlash
dw BattleBGEffect_16
dw BattleBGEffect_17
dw BattleBGEffect_18
dw BattleBGEffect_19
dw BattleBGEffect_1a
dw BattleBGEffect_1b
dw BattleBGEffect_1c
dw BattleBGEffect_1d
dw BattleBGEffect_1e
dw BattleBGEffect_1f
dw BattleBGEffect_20
2016-05-05 12:07:37 -07:00
dw BattleBGEffect_Withdraw
2015-12-24 10:33:54 -08:00
dw BattleBGEffect_BounceDown
dw BattleBGEffect_Dig
dw BattleBGEffect_Tackle
dw BattleBGEffect_25
dw BattleBGEffect_26
dw BattleBGEffect_27
dw BattleBGEffect_28
dw BattleBGEffect_Psychic
dw BattleBGEffect_2a
dw BattleBGEffect_2b
dw BattleBGEffect_2c
dw BattleBGEffect_2d
dw BattleBGEffect_2e
dw BattleBGEffect_2f
dw BattleBGEffect_30
dw BattleBGEffect_31
dw BattleBGEffect_32
dw BattleBGEffect_VibrateMon
dw BattleBGEffect_WobbleMon
dw BattleBGEffect_35
BattleBGEffect_End: ; c80c6 (32:40c6)
call EndBattleBGEffect
ret
2015-12-23 17:46:23 -08:00
BatttleBGEffects_GetNamedJumptablePointer: ; c80ca (32:40ca)
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld l, [hl]
2015-12-23 17:46:23 -08:00
ld h, 0
add hl, hl
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ret
BattleBGEffects_AnonJumptable: ; c80d7 (32:40d7)
pop de
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld l, [hl]
2015-12-23 17:46:23 -08:00
ld h, 0
add hl, hl
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-12-23 17:46:23 -08:00
BattleBGEffects_IncrementJumptable: ; c80e5 (32:40e5)
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
inc [hl]
ret
BattleBGEffect_FlashInverted: ; c80eb (32:40eb)
ld de, .inverted
2015-12-23 17:46:23 -08:00
jp BattleBGEffect_FlashContinue
.inverted
db %11100100 ; 3210
db %00011011 ; 0123
; c80f3
BattleBGEffect_FlashWhite: ; c80f3 (32:40f3)
ld de, .white
2015-12-23 17:46:23 -08:00
jp BattleBGEffect_FlashContinue
.white
db %11100100 ; 3210
db %00000000 ; 0000
; c80fb
2015-12-23 17:46:23 -08:00
BattleBGEffect_FlashContinue: ; c80fb (32:40fb)
; current timer, flash duration, number of flashes
ld a, $1
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld a, [hl]
and a
2015-12-23 17:46:23 -08:00
jr z, .init
dec [hl]
ret
2015-12-23 17:46:23 -08:00
.init
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld [hl], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
2015-12-23 17:46:23 -08:00
jr nz, .apply_pal
call EndBattleBGEffect
ret
2015-12-23 17:46:23 -08:00
.apply_pal
dec a
ld [hl], a
and 1
ld l, a
ld h, 0
add hl, de
ld a, [hl]
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ret
BattleBGEffect_WhiteHues: ; c812d (32:412d)
2015-12-26 18:59:03 -08:00
ld de, .Pals
call BattleBGEffect_GetNthDMGPal
jr c, .quit
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ret
2015-12-26 18:59:03 -08:00
.quit
call EndBattleBGEffect
ret
.Pals:
2015-12-26 18:59:03 -08:00
db %11100100
db %11100000
db %11010000
db -1
; c8141
BattleBGEffect_BlackHues: ; c8141 (32:4141)
2015-12-26 18:59:03 -08:00
ld de, .Pals
call BattleBGEffect_GetNthDMGPal
jr c, .quit
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ret
2015-12-26 18:59:03 -08:00
.quit
call EndBattleBGEffect
ret
.Pals:
2015-12-26 18:59:03 -08:00
db %11100100
db %11110100
db %11111000
db -1
; c8155
BattleBGEffect_AlternateHues: ; c8155 (32:4155)
2015-12-26 18:59:03 -08:00
ld de, .Pals
call BattleBGEffect_GetNthDMGPal
jr c, .quit
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ld [wOBP1], a
ret
2015-12-26 18:59:03 -08:00
.quit
call EndBattleBGEffect
ret
.Pals:
2015-12-26 18:59:03 -08:00
db %11100100
db %11111000
db %11111100
db %11111000
db %11100100
db %10010000
db %01000000
db %10010000
db -2
; c8171
BattleBGEffect_06: ; c8171 (32:4171)
2015-12-23 17:46:23 -08:00
call BattleBGEffects_CheckSGB
jr nz, .sgb
ld de, .PalsCGB
jr .okay
.sgb
ld de, .PalsSGB
.okay
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetNthDMGPal
2015-12-23 11:00:29 -08:00
ld [wOBP0], a
ret
.PalsCGB:
2015-12-26 18:59:03 -08:00
db %11100100
db %10010000
db -2
.PalsSGB:
2015-12-26 18:59:03 -08:00
db %11110000
db %11000000
db -2
; c818b
BattleBGEffect_07: ; c818b (32:418b)
2015-12-23 17:46:23 -08:00
call BattleBGEffects_CheckSGB
jr nz, .sgb
ld de, .PalsCGB
jr .okay
.sgb
ld de, .PalsSGB
.okay
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetNthDMGPal
2015-12-23 11:00:29 -08:00
ld [wOBP0], a
ret
.PalsCGB:
2015-12-26 18:59:03 -08:00
db %11100100
db %11011000
db -2
.PalsSGB:
2015-12-26 18:59:03 -08:00
db %11110000
db %11001100
db -2
; c81a5
BattleBGEffect_08: ; c81a5 (32:41a5)
2015-12-23 17:46:23 -08:00
ld de, .Pals
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetNthDMGPal
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ret
.Pals:
2015-12-26 18:59:03 -08:00
db %00011011
db %01100011
db %10000111
db -2
; c81b3
BattleBGEffect_HideMon: ; c81b3 (32:41b3)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
2015-12-23 17:46:23 -08:00
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
dw .four
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_side
hlcoord 12, 0
lb bc, 7, 7
2015-12-24 10:33:54 -08:00
jr .got_pointer
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_side
hlcoord 2, 6
lb bc, 6, 6
2015-12-24 10:33:54 -08:00
.got_pointer
call ClearBox
pop bc
xor a
ld [hBGMapThird], a
ld a, $1
ld [hBGMapMode], a
ret
2015-12-24 10:33:54 -08:00
.four
xor a
ld [hBGMapMode], a
call EndBattleBGEffect
ret
BattleBGEffect_ShowMon: ; c81ea (32:41ea)
2015-12-24 10:33:54 -08:00
call BGEffect_CheckFlyDigStatus
jr z, .not_flying
call EndBattleBGEffect
ret
2015-12-24 10:33:54 -08:00
.not_flying
call BGEffect_CheckBattleTurn
jr nz, .player_side
ld de, .EnemyData
jr .got_pointer
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_side
ld de, .PlayerData
.got_pointer
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
2015-12-24 10:33:54 -08:00
call BattleBGEffect_RunPicResizeScript
ret
.PlayerData:
2015-12-24 10:33:54 -08:00
db 0, $31, 0
db -1
.EnemyData:
2015-12-24 10:33:54 -08:00
db 3, $00, 3
db -1
; c8214
BattleBGEffect_FeetFollow: ; c8214 (32:4214)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
2015-12-23 17:46:23 -08:00
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
dw .five
2015-12-24 10:33:54 -08:00
.zero
call BGEffect_CheckFlyDigStatus
jr z, .not_flying_digging
2015-12-23 11:00:29 -08:00
ld hl, wNumActiveBattleAnims
inc [hl]
call EndBattleBGEffect
ret
2015-12-24 10:33:54 -08:00
.not_flying_digging
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn
2015-12-26 18:59:03 -08:00
ld a, ANIM_OBJ_PLAYERFEETFOLLOW
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
ld a, 16 * 8 + 4
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_turn
2015-12-26 18:59:03 -08:00
ld a, ANIM_OBJ_ENEMYFEETFOLLOW
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
ld a, 6 * 8
.okay
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
2015-12-24 10:33:54 -08:00
ld a, 8 * 8
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
xor a
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
call _QueueBattleAnimation
pop bc
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn_2
hlcoord 12, 6
2015-12-24 10:33:54 -08:00
lb bc, 1, 7
jr .okay2
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_turn_2
hlcoord 2, 6
lb bc, 1, 6
2015-12-24 10:33:54 -08:00
.okay2
call ClearBox
ld a, $1
ld [hBGMapMode], a
pop bc
ret
2015-12-24 10:33:54 -08:00
.five
xor a
ld [hBGMapMode], a
call EndBattleBGEffect
ret
BattleBGEffect_HeadFollow: ; c8281 (32:4281)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
2015-12-23 17:46:23 -08:00
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
dw .five
2015-12-24 10:33:54 -08:00
.zero
call BGEffect_CheckFlyDigStatus
jr z, .not_flying_digging
2015-12-23 11:00:29 -08:00
ld hl, wNumActiveBattleAnims
inc [hl]
call EndBattleBGEffect
ret
2015-12-24 10:33:54 -08:00
.not_flying_digging
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn
ld a, ANIM_OBJ_BA
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
ld a, 16 * 8 + 4
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_turn
ld a, ANIM_OBJ_BB
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
ld a, 6 * 8
.okay
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
2015-12-24 10:33:54 -08:00
ld a, 8 * 8
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
xor a
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
call _QueueBattleAnimation
pop bc
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn_2
hlcoord 12, 5
2015-12-24 10:33:54 -08:00
lb bc, 2, 7
jr .okay2
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.player_turn_2
hlcoord 2, 6
lb bc, 2, 6
2015-12-24 10:33:54 -08:00
.okay2
call ClearBox
ld a, $1
ld [hBGMapMode], a
pop bc
ret
2015-12-24 10:33:54 -08:00
.five
xor a
ld [hBGMapMode], a
call EndBattleBGEffect
ret
_QueueBattleAnimation: ; c82ee (32:42ee)
2017-12-24 09:47:30 -08:00
callfar QueueBattleAnimation
ret
BattleBGEffect_27: ; c82f5 (32:42f5)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
2015-12-23 17:46:23 -08:00
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
dw .four
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
ld [hl], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and a
2015-12-24 10:33:54 -08:00
jr z, .user
ld a, $9
2015-12-24 10:33:54 -08:00
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.user
ld a, $8
2015-12-24 10:33:54 -08:00
.okay
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], a
ret
2015-12-24 10:33:54 -08:00
.one
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and a
2015-12-24 10:33:54 -08:00
jr z, .user_2
hlcoord 0, 6
2015-12-24 10:33:54 -08:00
lb de, 8, 6
.row1
push de
push hl
2015-12-24 10:33:54 -08:00
.col1
inc hl
ld a, [hld]
ld [hli], a
dec d
2015-12-24 10:33:54 -08:00
jr nz, .col1
pop hl
2015-12-24 10:33:54 -08:00
ld de, SCREEN_WIDTH
add hl, de
pop de
dec e
2015-12-24 10:33:54 -08:00
jr nz, .row1
jr .okay2
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.user_2
hlcoord 19, 0
2015-12-24 10:33:54 -08:00
lb de, 8, 7
.row2
push de
push hl
2015-12-24 10:33:54 -08:00
.col2
dec hl
ld a, [hli]
ld [hld], a
dec d
2015-12-24 10:33:54 -08:00
jr nz, .col2
pop hl
2015-12-24 10:33:54 -08:00
ld de, SCREEN_WIDTH
add hl, de
pop de
dec e
2015-12-24 10:33:54 -08:00
jr nz, .row2
.okay2
xor a
ld [hBGMapThird], a
ld a, $1
ld [hBGMapMode], a
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
dec [hl]
ret
2015-12-24 10:33:54 -08:00
.four
xor a
ld [hBGMapMode], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
2015-12-24 10:33:54 -08:00
jr z, .done
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld [hl], $1
ret
2015-12-24 10:33:54 -08:00
.done
call EndBattleBGEffect
ret
BattleBGEffect_EnterMon: ; c837b (32:437b)
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn
ld de, .EnemyData
jr .okay
.player_turn
ld de, .PlayerData
.okay
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
2015-12-24 10:33:54 -08:00
call BattleBGEffect_RunPicResizeScript
ret
.PlayerData:
2015-12-24 10:33:54 -08:00
db 2, $31, 2
db 1, $31, 1
db 0, $31, 0
db -1
.EnemyData:
2015-12-24 10:33:54 -08:00
db 5, $00, 5
db 4, $00, 4
db 3, $00, 3
db -1
; c83a8
BattleBGEffect_ReturnMon: ; c83a8 (32:43a8)
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn
ld de, .EnemyData
jr .okay
.player_turn
ld de, .PlayerData
.okay
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
2015-12-24 10:33:54 -08:00
call BattleBGEffect_RunPicResizeScript
ret
.PlayerData:
2015-12-24 10:33:54 -08:00
db 0, $31, 0
db -2, $66, 0
db 1, $31, 1
db -2, $44, 1
db 2, $31, 2
db -2, $22, 2
db -3, $00, 0
db -1
.EnemyData:
2015-12-24 10:33:54 -08:00
db 3, $00, 3
db -2, $77, 3
db 4, $00, 4
db -2, $55, 4
db 5, $00, 5
db -2, $33, 5
db -3, $00, 0
db -1
; c83ed
2015-12-24 10:33:54 -08:00
BattleBGEffect_RunPicResizeScript: ; c83ed (32:43ed)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
2015-12-23 17:46:23 -08:00
dw BattleBGEffects_IncrementJumptable
dw BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
dw .restart
dw .end
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld e, [hl]
ld d, $0
inc [hl]
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
ld l, a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp2]
ld h, a
add hl, de
add hl, de
add hl, de
ld a, [hl]
2015-12-24 10:33:54 -08:00
cp -1
jr z, .end
cp -2
jr z, .clear
cp -3
jr z, .skip
2016-01-12 09:46:18 -08:00
call .PlaceGraphic
2015-12-24 10:33:54 -08:00
.skip
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld a, $1
ld [hBGMapMode], a
ret
2015-12-24 10:33:54 -08:00
.clear
call .ClearBox
jr .zero
2015-12-24 10:33:54 -08:00
.restart
xor a
ld [hBGMapMode], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.end
xor a
ld [hBGMapMode], a
call EndBattleBGEffect
ret
.ClearBox:
2015-12-24 10:33:54 -08:00
; get dims
push bc
inc hl
ld a, [hli]
ld b, a
and $f
ld c, a
ld a, b
swap a
and $f
ld b, a
2015-12-24 10:33:54 -08:00
; get coords
ld e, [hl]
ld d, 0
2015-12-24 10:33:54 -08:00
ld hl, .Coords
add hl, de
2015-12-26 18:59:03 -08:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
call ClearBox
pop bc
ret
.PlaceGraphic:
2015-12-24 10:33:54 -08:00
; get dims
push bc
push hl
ld e, [hl]
ld d, 0
2015-12-24 10:33:54 -08:00
ld hl, .BGSquares
add hl, de
add hl, de
add hl, de
ld a, [hli]
ld b, a
and $f
ld c, a
ld a, b
swap a
and $f
ld b, a
2015-12-24 10:33:54 -08:00
; store pointer
ld e, [hl]
inc hl
ld d, [hl]
2015-12-24 10:33:54 -08:00
; get byte
pop hl
inc hl
ld a, [hli]
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
; get coord
push de
ld e, [hl]
ld d, 0
2015-12-24 10:33:54 -08:00
ld hl, .Coords
add hl, de
2015-12-26 18:59:03 -08:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
pop de
2015-12-24 10:33:54 -08:00
; fill box
.row
push bc
push hl
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp0]
ld b, a
2015-12-24 10:33:54 -08:00
.col
ld a, [de]
add b
ld [hli], a
inc de
dec c
2015-12-24 10:33:54 -08:00
jr nz, .col
pop hl
2015-12-24 10:33:54 -08:00
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
2015-12-24 10:33:54 -08:00
jr nz, .row
pop bc
ret
.Coords:
2015-02-07 23:06:52 -08:00
dwcoord 2, 6
dwcoord 3, 8
dwcoord 4, 10
dwcoord 12, 0
dwcoord 13, 2
dwcoord 14, 4
2015-12-24 10:33:54 -08:00
.BGSquares:
2015-12-24 10:33:54 -08:00
bgsquare: MACRO
dn \1, \2
2015-12-24 10:33:54 -08:00
dw \3
2017-12-28 13:31:16 -08:00
ENDM
2015-12-24 10:33:54 -08:00
bgsquare 6, 6, .SixBySix
bgsquare 4, 4, .FourByFour
bgsquare 2, 2, .TwoByTwo
bgsquare 7, 7, .SevenBySeven
bgsquare 5, 5, .FiveByFive
bgsquare 3, 3, .ThreeByThree
.SixBySix:
db $00, $06, $0c, $12, $18, $1e
db $01, $07, $0d, $13, $19, $1f
db $02, $08, $0e, $14, $1a, $20
db $03, $09, $0f, $15, $1b, $21
db $04, $0a, $10, $16, $1c, $22
db $05, $0b, $11, $17, $1d, $23
.FourByFour:
db $00, $0c, $12, $1e
db $02, $0e, $14, $20
db $03, $0f, $15, $21
db $05, $11, $17, $23
.TwoByTwo:
db $00, $1e
db $05, $23
.SevenBySeven:
db $00, $07, $0e, $15, $1c, $23, $2a
db $01, $08, $0f, $16, $1d, $24, $2b
db $02, $09, $10, $17, $1e, $25, $2c
db $03, $0a, $11, $18, $1f, $26, $2d
db $04, $0b, $12, $19, $20, $27, $2e
db $05, $0c, $13, $1a, $21, $28, $2f
db $06, $0d, $14, $1b, $22, $29, $30
.FiveByFive:
db $00, $07, $15, $23, $2a
db $01, $08, $16, $24, $2b
db $03, $0a, $18, $26, $2d
db $05, $0c, $1a, $28, $2f
db $06, $0d, $1b, $29, $30
.ThreeByThree:
db $00, $15, $2a
db $03, $18, $2d
db $06, $1b, $30
; c8545
BattleBGEffect_Surf: ; c8545 (32:4545)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-23 19:51:50 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-23 19:51:50 -08:00
lb de, 2, 2
call InitSurfWaves
2015-12-24 10:33:54 -08:00
.one
2016-06-13 19:53:33 -07:00
ld a, [hLCDCPointer]
and a
ret z
push bc
2015-12-23 19:51:50 -08:00
call .RotatewSurfWaveBGEffect
pop bc
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
.RotatewSurfWaveBGEffect:
2015-12-23 19:51:50 -08:00
ld hl, wSurfWaveBGEffect
ld de, wSurfWaveBGEffect + 1
ld c, wSurfWaveBGEffectEnd - wSurfWaveBGEffect - 1
ld a, [hl]
push af
2015-12-23 19:51:50 -08:00
.loop
ld a, [de]
inc de
ld [hli], a
dec c
2015-12-23 19:51:50 -08:00
jr nz, .loop
pop af
ld [hl], a
ld de, LYOverridesBackup
2015-12-23 19:51:50 -08:00
ld hl, wSurfWaveBGEffect
ld bc, $0
2015-12-23 19:51:50 -08:00
.loop2
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
cp e
2015-12-23 19:51:50 -08:00
jr nc, .load_zero
push hl
add hl, bc
ld a, [hl]
pop hl
2015-12-23 19:51:50 -08:00
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-23 19:51:50 -08:00
.load_zero
xor a
2015-12-23 19:51:50 -08:00
.okay
ld [de], a
ld a, c
inc a
and $3f
ld c, a
inc de
ld a, e
cp $5f
2015-12-23 19:51:50 -08:00
jr c, .loop2
ret
BattleBGEffect_Whirlpool: ; c8599 (32:4599)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
ld [hLCDCPointer], a
xor a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, $5e
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
lb de, 2, 2
call Functionc8f2e
ret
2015-12-24 10:33:54 -08:00
.one
call BattleBGEffect_WavyScreenFX
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_30: ; c85c2 (32:45c2)
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
call EndBattleBGEffect
ret
BattleBGEffect_31: ; c85ce (32:45ce)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld e, a
add $4
ld [hl], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and $f0
swap a
xor $ff
add $4
ld d, a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld a, [hl]
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
cp $20
2015-12-24 10:33:54 -08:00
jr nc, .done
inc [hl]
2015-12-26 18:59:03 -08:00
inc [hl]
call Functionc8f9a
ret
2015-12-24 10:33:54 -08:00
.done
call BattleBGEffects_ClearLYOverrides
call EndBattleBGEffect
ret
BattleBGEffect_32: ; c8603 (32:4603)
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_Psychic: ; c8607 (32:4607)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
ld [hLCDCPointer], a
xor a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, $5f
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
lb de, 6, 5
call Functionc8f2e
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
inc [hl]
and $3
ret nz
2015-12-24 10:33:54 -08:00
call BattleBGEffect_WavyScreenFX
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_Teleport: ; c863f (32:463f)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2015-12-24 10:33:54 -08:00
lb de, 6, 5
call Functionc8f2e
ret
2015-12-24 10:33:54 -08:00
.one
call BattleBGEffect_WavyScreenFX
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_NightShade: ; c8662 (32:4662)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld e, [hl]
2015-12-24 10:33:54 -08:00
ld d, 2
call Functionc8f2e
ret
2015-12-24 10:33:54 -08:00
.one
call BattleBGEffect_WavyScreenFX
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_DoubleTeam: ; c8689 (32:4689)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
dw .three
dw .four
dw .five
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
cp $10
2015-12-24 10:33:54 -08:00
jr nc, .next
inc [hl]
2015-12-24 10:33:54 -08:00
call .UpdateLYOverrides
ret
2015-12-24 10:33:54 -08:00
.three
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
cp $ff
2015-12-24 10:33:54 -08:00
jr z, .next
dec [hl]
2015-12-24 10:33:54 -08:00
call .UpdateLYOverrides
ret
2015-12-24 10:33:54 -08:00
.next
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ret
2015-12-24 10:33:54 -08:00
.two
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
ld d, $2
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
add [hl]
2015-12-24 10:33:54 -08:00
call .UpdateLYOverrides
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
add $4
ld [hl], a
2015-12-24 10:33:54 -08:00
.four
ret
.UpdateLYOverrides:
ld e, a
xor $ff
inc a
ld d, a
ld h, HIGH(LYOverridesBackup)
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
srl a
push af
2015-12-24 10:33:54 -08:00
.loop
ld [hl], e
inc hl
ld [hl], d
inc hl
dec a
2015-12-24 10:33:54 -08:00
jr nz, .loop
pop af
ret nc
ld [hl], e
ret
2015-12-24 10:33:54 -08:00
.five
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_AcidArmor: ; c8709 (32:4709)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld e, [hl]
2015-12-24 10:33:54 -08:00
ld d, 2
call Functionc8f2e
ld h, HIGH(LYOverridesBackup)
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
ld l, a
ld [hl], $0
dec l
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.one
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
ld l, a
ld h, HIGH(LYOverridesBackup)
ld e, l
ld d, h
dec de
2015-12-24 10:33:54 -08:00
.loop
ld a, [de]
dec de
ld [hld], a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
cp l
2015-12-24 10:33:54 -08:00
jr nz, .loop
ld [hl], $90
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
ld l, a
ld a, [hl]
cp $1
2015-12-24 10:33:54 -08:00
jr c, .okay
cp $90
2015-12-24 10:33:54 -08:00
jr z, .okay
ld [hl], $0
2015-12-24 10:33:54 -08:00
.okay
dec l
ld a, [hl]
cp $2
ret c
cp $90
ret z
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
2016-05-05 12:07:37 -07:00
BattleBGEffect_Withdraw: ; c8761 (32:4761)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $1
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and $3f
ld d, a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
cp d
ret nc
2016-05-05 12:07:37 -07:00
call BGEffect_DisplaceLYOverridesBackup
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
rlca
rlca
and $3
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
add [hl]
ld [hl], a
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
2015-12-24 10:33:54 -08:00
BattleBGEffect_Dig: ; c87a7 (32:47a7)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
dw .three
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $2
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
ret
2015-12-24 10:33:54 -08:00
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
2015-12-24 10:33:54 -08:00
jr z, .next
dec [hl]
ret
2015-12-24 10:33:54 -08:00
.next
ld [hl], $10
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
.two
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
dec a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
cp [hl]
ret c
ld a, [hl]
push af
and $7
2015-12-24 10:33:54 -08:00
jr nz, .skip
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
dec [hl]
2015-12-24 10:33:54 -08:00
.skip
pop af
2016-05-05 12:07:37 -07:00
call BGEffect_DisplaceLYOverridesBackup
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
inc [hl]
2015-12-26 18:59:03 -08:00
inc [hl]
ret
2015-12-24 10:33:54 -08:00
.three
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_Tackle: ; c8805 (32:4805)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw Tackle_BGEffect25_2d_one
dw Tackle_BGEffect25_2d_two
dw .three
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_side
ld a, 2
jr .okay
.player_side
ld a, -2
.okay
ld [hl], a
ret
2015-12-24 10:33:54 -08:00
.three
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_25: ; c8837 (32:4837)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw Tackle_BGEffect25_2d_one
dw Tackle_BGEffect25_2d_two
dw .three
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms2
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_side
ld a, 2
jr .okay
.player_side
ld a, -2
.okay
ld [hl], a
ret
2015-12-24 10:33:54 -08:00
.three
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
2015-12-24 10:33:54 -08:00
Tackle_BGEffect25_2d_one:
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
2015-12-24 10:33:54 -08:00
cp -8
jr z, .reached_limit
cp 8
jr nz, .finish
.reached_limit
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
.finish
call Functionc88a5
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
add [hl]
ld [hl], a
ret
2015-12-24 10:33:54 -08:00
Tackle_BGEffect25_2d_two:
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
jr nz, .asm_c8893
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
.asm_c8893
call Functionc88a5
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
xor $ff
inc a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
add [hl]
ld [hl], a
ret
Functionc88a5: ; c88a5 (32:48a5)
push af
2017-12-09 16:41:03 -08:00
ld a, [FXAnimID + 1] ; FXAnimID + 1
or a
2015-12-24 10:33:54 -08:00
jr nz, .not_rollout
2017-12-09 16:41:03 -08:00
ld a, [FXAnimID] ; FXAnimID
cp ROLLOUT
2015-12-24 10:33:54 -08:00
jr z, .rollout
.not_rollout
pop af
2016-05-05 12:07:37 -07:00
jp BGEffect_FillLYOverridesBackup
2015-12-24 10:33:54 -08:00
.rollout
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld d, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub d
ld d, a
ld h, HIGH(LYOverridesBackup)
ld a, [hSCY]
or a
2015-12-24 10:33:54 -08:00
jr nz, .skip1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
or a
2015-12-24 10:33:54 -08:00
jr z, .skip2
dec a
ld l, a
ld [hl], $0
2015-12-24 10:33:54 -08:00
jr .skip2
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.skip1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
dec a
ld l, a
ld [hl], $0
2015-12-24 10:33:54 -08:00
.skip2
ld a, [hSCY]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
sub l
2015-12-24 10:33:54 -08:00
jr nc, .skip3
xor a
dec d
2015-12-24 10:33:54 -08:00
.skip3
ld l, a
pop af
2015-12-24 10:33:54 -08:00
.loop
ld [hli], a
dec d
2015-12-24 10:33:54 -08:00
jr nz, .loop
ret
BattleBGEffect_2d: ; c88e7 (32:48e7)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw BGEffect2d_2f_zero
dw Tackle_BGEffect25_2d_one
dw Tackle_BGEffect25_2d_two
dw .three
2015-12-24 10:33:54 -08:00
.three
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
2015-12-24 10:33:54 -08:00
BGEffect2d_2f_zero:
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn
ld a, -2
jr .okay
.player_turn
ld a, 2
.okay
ld [hl], a
ret
BattleBGEffect_2f: ; c8919 (32:4919)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw BGEffect2d_2f_zero
dw Tackle_BGEffect25_2d_one
dw .two
dw Tackle_BGEffect25_2d_two
dw .four
2015-12-24 10:33:54 -08:00
.four
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
2015-12-24 10:33:54 -08:00
.two
ret
BattleBGEffect_26: ; c892a (32:492a)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
dw .two
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
ret
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld d, $8
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
2016-05-05 12:07:37 -07:00
call BGEffect_FillLYOverridesBackup
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
add $4
ld [hl], a
ret
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_2c: ; c8964 (32:4964)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
dw .two
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
xor a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hli], a
ld [hl], a
ret
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld d, $6
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
push af
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
ld d, $2
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
ld e, a
pop af
add e
2016-05-05 12:07:37 -07:00
call BGEffect_FillLYOverridesBackup
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
add $8
ld [hl], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
add $2
ld [hl], a
ret
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_28: ; c89b5 (32:49b5)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
dw .two
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
ret
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
cp $20
ret nc
inc [hl]
ld d, a
2015-12-24 10:33:54 -08:00
ld e, 4
call Functionc8f2e
ret
.two
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
jr z, .reset
dec [hl]
ld d, a
2015-12-24 10:33:54 -08:00
ld e, 4
call Functionc8f2e
ret
.reset
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
2015-12-24 10:33:54 -08:00
BattleBGEffect_BounceDown: ; c89ee (32:49ee)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCY - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms2
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $1
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $20
ret
2015-12-24 10:33:54 -08:00
.one
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
cp $38
ret nc
push af
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld d, $10
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Cosine
add $10
ld d, a
pop af
add d
2016-05-05 12:07:37 -07:00
call BGEffect_DisplaceLYOverridesBackup
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
inc [hl]
2015-12-26 18:59:03 -08:00
inc [hl]
ret
2015-12-24 10:33:54 -08:00
.two
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_2a: ; c8a3a (32:4a3a)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
2015-12-24 10:33:54 -08:00
dw .zero
dw .one
dw .two
dw .three
dw .four
dw .five
2015-12-24 10:33:54 -08:00
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld a, $e4
2015-12-24 10:33:54 -08:00
call BattleBGEffects_SetLYOverrides
ld a, $47
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
ld a, [hLYOverrideStart]
ld l, a
ld h, HIGH(LYOverridesBackup)
2015-12-24 10:33:54 -08:00
.loop
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
cp l
2015-12-24 10:33:54 -08:00
jr z, .done
xor a
ld [hli], a
2015-12-24 10:33:54 -08:00
jr .loop
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.done
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2015-12-24 10:33:54 -08:00
.one
.four
ret
2015-12-24 10:33:54 -08:00
.two
call .GetLYOverride
jr nc, .next
call .SetLYOverridesBackup
ret
2015-12-24 10:33:54 -08:00
.next
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ret
2015-12-24 10:33:54 -08:00
.three
call .GetLYOverride
jr nc, .finish
call .SetLYOverridesBackup
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
dec a
ld l, a
ld [hl], e
ret
2015-12-24 10:33:54 -08:00
.finish
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ret
.SetLYOverridesBackup:
ld e, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
srl a
ld h, HIGH(LYOverridesBackup)
2015-12-24 10:33:54 -08:00
.loop2
ld [hl], e
inc hl
2015-12-26 18:59:03 -08:00
inc hl
dec a
2015-12-24 10:33:54 -08:00
jr nz, .loop2
ret
2015-12-24 10:33:54 -08:00
.five
2015-12-26 18:59:03 -08:00
call BattleBGEffects_ResetVideoHRAM
ret
.GetLYOverride:
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
inc [hl]
srl a
srl a
srl a
ld e, a
ld d, 0
2015-12-24 10:33:54 -08:00
ld hl, .data
add hl, de
ld a, [hl]
cp $ff
ret
2015-12-24 10:33:54 -08:00
.data
db $00, $40, $90, $e4
db -1
; c8acc
BattleBGEffect_2b: ; c8acc (32:4acc)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $40
ret
.one
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and a
2015-12-26 18:59:03 -08:00
jr z, .done
dec [hl]
srl a
srl a
srl a
and $f
ld d, a
ld e, a
call Functionc8f2e
ret
2015-12-26 18:59:03 -08:00
.done
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_1c: ; c8b00 (32:4b00)
ld a, [hCGB]
and a
jr nz, .cgb
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
dw .two
.zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld a, $e4
2015-12-24 10:33:54 -08:00
call BattleBGEffects_SetLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rBGP - $ff00
ld [hLCDCPointer], a
xor a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, $60
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
ret
.one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
inc [hl]
ld e, a
and $7
ret nz
ld a, e
and $18
sla a
swap a
sla a
ld e, a
ld d, $0
push bc
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player
ld hl, .CGB_DMGEnemyData
add hl, de
ld a, [hli]
2015-12-23 11:00:29 -08:00
ld [wOBP1], a
ld d, a
ld e, [hl]
lb bc, $2f, $30
jr .okay
2015-12-23 17:46:23 -08:00
.player
ld hl, .DMG_PlayerData
add hl, de
ld d, [hl]
inc hl
ld a, [hl]
2015-12-23 11:00:29 -08:00
ld [wOBP1], a
ld e, a
lb bc, $37, $28
.okay
call .DMG_LYOverrideLoads
pop bc
ret
.two
2015-12-26 18:59:03 -08:00
call BattleBGEffects_ResetVideoHRAM
ld a, $e4
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ld [wOBP1], a
ret
.DMG_LYOverrideLoads:
ld hl, LYOverridesBackup
.loop1
ld [hl], d
inc hl
dec b
jr nz, .loop1
.loop2
ld [hl], e
inc hl
dec c
jr nz, .loop2
ret
.cgb
ld de, .Jumptable
2015-12-23 17:46:23 -08:00
call BatttleBGEffects_GetNamedJumptablePointer
jp hl
.Jumptable:
dw .cgb_zero
dw .cgb_one
dw .cgb_two
2017-12-29 04:52:42 -08:00
.cgb_zero
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
ret
.cgb_one
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
inc [hl]
ld e, a
and $7
ret nz
ld a, e
and $18
sla a
swap a
sla a
ld e, a
ld d, 0
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_2
ld hl, .CGB_DMGEnemyData
add hl, de
ld a, [hli]
push hl
call BGEffects_LoadBGPal1_OBPal0
pop hl
ld a, [hl]
call BGEffects_LoadBGPal0_OBPal1
ret
.player_2
ld hl, .CGB_DMGEnemyData
add hl, de
ld a, [hli]
push hl
call BGEffects_LoadBGPal0_OBPal1
pop hl
ld a, [hl]
call BGEffects_LoadBGPal1_OBPal0
ret
.cgb_two
ld a, $e4
call BGEffects_LoadBGPal0_OBPal1
ld a, $e4
call BGEffects_LoadBGPal1_OBPal0
call EndBattleBGEffect
ret
.CGB_DMGEnemyData:
db $e4, $e4
db $f8, $90
db $fc, $40
db $f8, $90
.DMG_PlayerData:
db $e4, $e4
db $90, $f8
db $40, $fc
db $90, $f8
; c8be8
BattleBGEffect_RapidFlash: ; c8be8 (32:4be8)
ld de, .FlashPals
call BGEffect_RapidCyclePals
ret
.FlashPals:
db $e4, $6c, $fe
; c8bf2
BattleBGEffect_16: ; c8bf2 (32:4bf2)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $90, $40, $ff
; c8bfd
BattleBGEffect_17: ; c8bfd (32:4bfd)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $f8, $fc, $ff
; c8c08
BattleBGEffect_18: ; c8c08 (32:4c08)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $90, $40, $90, $fe
; c8c14
BattleBGEffect_19: ; c8c14 (32:4c14)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $f8, $fc, $f8, $fe
; c8c20
BattleBGEffect_1a: ; c8c20 (32:4c20)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $f8, $fc, $f8, $e4, $90, $40, $90, $fe
; c8c30
BattleBGEffect_1b: ; c8c30 (32:4c30)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $fc, $e4, $00, $fe
; c8c3c
BattleBGEffect_1d: ; c8c3c (32:4c3c)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $e4, $90, $40, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $40, $90, $e4, $ff
; c8c55
BattleBGEffect_1e: ; c8c55 (32:4c55)
ld de, .Pals
call BGEffect_RapidCyclePals
ret
.Pals:
db $00, $40, $90, $e4, $ff
; c8c61
BattleBGEffect_VibrateMon: ; c8c61 (32:4c61)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
.zero ; c8c68 (32:4c68)
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], $1
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $20
ret
.one ; c8c85 (32:4c85)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and a
jr z, .finish
dec [hl]
and $1
ret nz
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
xor $ff
inc a
ld [hl], a
2016-05-05 12:07:37 -07:00
call BGEffect_FillLYOverridesBackup
ret
.finish
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_WobbleMon: ; c8ca2 (32:4ca2)
call BattleBGEffects_AnonJumptable
2015-12-26 18:59:03 -08:00
.anon_dw
dw .zero
dw .one
dw .two
.zero ; c8cab (32:4cab)
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
2016-06-13 19:53:33 -07:00
ld a, rSCX - $ff00
ld [hLCDCPointer], a
xor a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, $37
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
ret
.one ; c8cc3 (32:4cc3)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
cp $40
jr nc, .two
ld d, $6
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
2016-05-05 12:07:37 -07:00
call BGEffect_FillLYOverridesBackup
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
add $2
ld [hl], a
ret
.two ; c8cdd (32:4cdd)
2015-12-23 19:51:50 -08:00
call BattleAnim_ResetLCDStatCustom
ret
BattleBGEffect_2e: ; c8ce1 (32:4ce1)
call Functionc8d0b
jr c, .xor_a
bit 7, a
jr z, .okay
.xor_a
xor a
.okay
push af
call DelayFrame
pop af
ld [hSCY], a
xor $ff
inc a
ld [AnimObject01YOffset], a
ret
BattleBGEffect_1f: ; c8cf9 (32:4cf9)
call Functionc8d0b
jr nc, .skip
xor a
.skip
ld [hSCX], a
ret
BattleBGEffect_20: ; c8d02 (32:4d02)
call Functionc8d0b
jr nc, .skip
xor a
.skip
ld [hSCY], a
ret
Functionc8d0b: ; c8d0b (32:4d0b)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld a, [hl]
and a
jr nz, .okay
call EndBattleBGEffect
scf
ret
.okay
dec [hl]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
and $f
jr z, .every_16_frames
dec [hl]
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and a
ret
.every_16_frames
ld a, [hl]
swap a
or [hl]
ld [hl], a
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
xor $ff
inc a
ld [hl], a
and a
ret
BattleBGEffect_35: ; c8d3a (32:4d3a)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
cp $40
jr nc, .finish
ld d, $6
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
ld [hSCX], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
add $2
ld [hl], a
ret
.finish
xor a
ld [hSCX], a
ret
2015-12-26 18:59:03 -08:00
BattleBGEffect_GetNthDMGPal: ; c8d57 (32:4d57)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld a, [hl]
and a
jr z, .zero
dec [hl]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetNextDMGPal
ret
.zero
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_JT_INDEX
add hl, bc
ld [hl], a
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetFirstDMGPal
ret
BGEffect_RapidCyclePals: ; c8d77 (32:4d77)
ld a, [hCGB]
and a
jr nz, .cgb
push de
ld de, .Jumptable_DMG
2015-12-23 17:46:23 -08:00
call BatttleBGEffects_GetNamedJumptablePointer
pop de
jp hl
.Jumptable_DMG:
dw .zero_dmg
dw .one_dmg
dw .two_dmg
.zero_dmg ; c8d8b (32:4d8b)
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld a, $e4
2015-12-24 10:33:54 -08:00
call BattleBGEffects_SetLYOverrides
ld a, $47
2015-12-26 18:59:03 -08:00
call BattleBGEffect_SetLCDStatCustoms1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
inc a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld [hl], $0
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], a
ret
.one_dmg ; c8daa (32:4daa)
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and $f
jr z, .okay_1_dmg
dec [hl]
ret
.okay_1_dmg
ld a, [hl]
swap a
or [hl]
ld [hl], a
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetFirstDMGPal
jr c, .okay_2_dmg
2016-05-05 12:07:37 -07:00
call BGEffect_FillLYOverridesBackup
ret
.okay_2_dmg
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
dec [hl]
ret
.two_dmg ; c8dc9 (32:4dc9)
2015-12-26 18:59:03 -08:00
call BattleBGEffects_ResetVideoHRAM
ld a, %11100100
ld [rBGP], a
call EndBattleBGEffect
ret
.cgb
push de
ld de, .Jumptable_CGB
2015-12-23 17:46:23 -08:00
call BatttleBGEffects_GetNamedJumptablePointer
pop de
jp hl
.Jumptable_CGB: ; c8ddd (32:4ddd)
dw .zero_cgb
dw .one_cgb
dw .two_cgb
dw .three_cgb
dw .four_cgb
.zero_cgb ; c8de7 (32:4de7)
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
jr nz, .player_turn_cgb
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
call BattleBGEffects_IncrementJumptable
.player_turn_cgb
2015-12-23 17:46:23 -08:00
call BattleBGEffects_IncrementJumptable
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
ld [hl], $0
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld [hl], a
ret
.one_cgb ; c8e02 (32:4e02)
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and $f
jr z, .okay_1_cgb
dec [hl]
ret
.okay_1_cgb
ld a, [hl]
swap a
or [hl]
ld [hl], a
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetFirstDMGPal
jr c, .okay_2_cgb
call BGEffects_LoadBGPal0_OBPal1
ret
.okay_2_cgb
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
dec [hl]
ret
.two_cgb ; c8e21 (32:4e21)
ld a, $e4
call BGEffects_LoadBGPal0_OBPal1
call EndBattleBGEffect
ret
.three_cgb ; c8e2a (32:4e2a)
2015-12-24 10:33:54 -08:00
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hl]
and $f
jr z, .okay_3_cgb
dec [hl]
ret
.okay_3_cgb
ld a, [hl]
swap a
or [hl]
ld [hl], a
2015-12-26 18:59:03 -08:00
call BattleBGEffect_GetFirstDMGPal
jr c, .okay_4_cgb
call BGEffects_LoadBGPal1_OBPal0
ret
.okay_4_cgb
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
dec [hl]
ret
.four_cgb ; c8e49 (32:4e49)
ld a, $e4
call BGEffects_LoadBGPal1_OBPal0
call EndBattleBGEffect
ret
BGEffects_LoadBGPal0_OBPal1: ; c8e52 (32:4e52)
ld h, a
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, h
push bc
push af
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2
ld de, wBGPals1
ld b, a
ld c, $1
call CopyPals
2018-01-01 06:08:21 -08:00
ld hl, wOBPals2 palette 1
ld de, wOBPals1 palette 1
pop af
ld b, a
ld c, $1
call CopyPals
pop bc
pop af
ld [rSVBK], a
ld a, $1
ld [hCGBPalUpdate], a
ret
BGEffects_LoadBGPal1_OBPal0: ; c8e7f (32:4e7f)
ld h, a
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
ld a, h
push bc
push af
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 palette 1
ld de, wBGPals1 palette 1
ld b, a
ld c, $1
call CopyPals
2018-01-01 06:08:21 -08:00
ld hl, wOBPals2
ld de, wOBPals1
pop af
ld b, a
ld c, $1
call CopyPals
pop bc
pop af
ld [rSVBK], a
ld a, $1
ld [hCGBPalUpdate], a
ret
2015-12-26 18:59:03 -08:00
BattleBGEffect_GetFirstDMGPal: ; c8eac (32:4eac)
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld a, [hl]
inc [hl]
2015-12-26 18:59:03 -08:00
BattleBGEffect_GetNextDMGPal: ; c8eb2 (32:4eb2)
ld l, a
ld h, $0
add hl, de
ld a, [hl]
2015-12-26 18:59:03 -08:00
cp -1
jr z, .quit
cp -2
jr nz, .repeat
ld a, [de]
2015-12-23 17:46:23 -08:00
ld hl, BG_EFFECT_STRUCT_03
add hl, bc
ld [hl], $0
2015-12-26 18:59:03 -08:00
.repeat
and a
ret
2015-12-26 18:59:03 -08:00
.quit
scf
ret
2015-12-24 10:33:54 -08:00
BattleBGEffects_ClearLYOverrides: ; c8eca (32:4eca)
xor a
2015-12-24 10:33:54 -08:00
BattleBGEffects_SetLYOverrides: ; c8ecb (32:4ecb)
2016-06-13 19:53:33 -07:00
ld hl, LYOverrides ; wListPointer
ld e, $99
2015-12-24 10:33:54 -08:00
.loop1
ld [hli], a
dec e
2015-12-24 10:33:54 -08:00
jr nz, .loop1
ld hl, LYOverridesBackup
ld e, $91
2015-12-24 10:33:54 -08:00
.loop2
ld [hli], a
dec e
2015-12-24 10:33:54 -08:00
jr nz, .loop2
ret
2015-12-26 18:59:03 -08:00
BattleBGEffect_SetLCDStatCustoms1: ; c8ede (32:4ede)
2016-06-13 19:53:33 -07:00
ld [hLCDCPointer], a
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
2015-12-26 18:59:03 -08:00
jr nz, .player_turn
lb de, $00, $36
2015-12-24 10:33:54 -08:00
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-26 18:59:03 -08:00
.player_turn
lb de, $2f, $5e
2015-12-24 10:33:54 -08:00
.okay
ld a, d
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, e
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
ret
2015-12-26 18:59:03 -08:00
BattleBGEffect_SetLCDStatCustoms2: ; c8ef4 (32:4ef4)
2016-06-13 19:53:33 -07:00
ld [hLCDCPointer], a
2015-12-24 10:33:54 -08:00
call BGEffect_CheckBattleTurn
2015-12-26 18:59:03 -08:00
jr nz, .player_turn
lb de, $00, $36
jr .okay
2015-12-23 17:46:23 -08:00
2015-12-26 18:59:03 -08:00
.player_turn
lb de, $2d, $5e
.okay
ld a, d
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld a, e
2016-05-05 12:07:37 -07:00
ld [hLYOverrideEnd], a
ret
2015-12-23 19:51:50 -08:00
BattleAnim_ResetLCDStatCustom: ; c8f0a (32:4f0a)
xor a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
xor a
2016-06-13 19:53:33 -07:00
ld [hLCDCPointer], a
call EndBattleBGEffect
ret
2015-12-26 18:59:03 -08:00
BattleBGEffects_ResetVideoHRAM: ; c8f19 (32:4f19)
xor a
2016-06-13 19:53:33 -07:00
ld [hLCDCPointer], a
2015-12-26 18:59:03 -08:00
ld a, %11100100
ld [rBGP], a
2015-12-23 11:00:29 -08:00
ld [wBGP], a
ld [wOBP1], a
2016-05-05 12:07:37 -07:00
ld [hLYOverrideStart], a
ld [hLYOverrideEnd], a
2015-12-24 10:33:54 -08:00
call BattleBGEffects_ClearLYOverrides
ret
Functionc8f2e: ; c8f2e (32:4f2e)
push bc
xor a
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
ld a, $80
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
ld bc, LYOverridesBackup
2015-12-24 10:33:54 -08:00
.loop
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
cp c
2015-12-24 10:33:54 -08:00
jr nc, .next
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
cp c
2015-12-24 10:33:54 -08:00
jr c, .next
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp2]
ld d, a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp0]
call BattleBGEffects_Sine
ld [bc], a
2015-12-24 10:33:54 -08:00
.next
inc bc
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
ld hl, wBattleAnimTemp0
add [hl]
ld [hl], a
2015-12-23 19:51:50 -08:00
ld hl, wBattleAnimTemp3
dec [hl]
2015-12-24 10:33:54 -08:00
jr nz, .loop
pop bc
ret
2015-12-23 19:51:50 -08:00
InitSurfWaves: ; c8f69 (32:4f69)
push bc
xor a
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp0], a
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
ld a, $40
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
ld bc, wSurfWaveBGEffect
.loop
ld a, [wBattleAnimTemp2]
ld d, a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp0]
call BattleBGEffects_Sine
ld [bc], a
inc bc
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
ld hl, wBattleAnimTemp0
add [hl]
ld [hl], a
2015-12-23 19:51:50 -08:00
ld hl, wBattleAnimTemp3
dec [hl]
2015-12-23 19:51:50 -08:00
jr nz, .loop
pop bc
ret
Functionc8f9a: ; c8f9a (32:4f9a)
push bc
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
ld a, e
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
ld a, d
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp2], a
2015-12-24 10:33:54 -08:00
call .GetLYOverrideBackupAddrOffset
ld hl, LYOverridesBackup
add hl, de
ld c, l
ld b, h
2015-12-24 10:33:54 -08:00
.loop
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp3]
and a
2015-12-24 10:33:54 -08:00
jr z, .done
dec a
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp3], a
push af
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp2]
ld d, a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
push hl
2015-12-23 19:51:50 -08:00
call BattleBGEffects_Sine
ld e, a
pop hl
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
cp c
2015-12-24 10:33:54 -08:00
jr c, .skip1
ld a, e
ld [bc], a
inc bc
2015-12-24 10:33:54 -08:00
.skip1
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
cp l
2015-12-24 10:33:54 -08:00
jr nc, .skip2
ld [hl], e
dec hl
2015-12-24 10:33:54 -08:00
.skip2
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp1]
add $4
2015-12-23 19:51:50 -08:00
ld [wBattleAnimTemp1], a
pop af
2015-12-24 10:33:54 -08:00
jr .loop
2015-12-23 17:46:23 -08:00
2015-12-24 10:33:54 -08:00
.done
pop bc
and a
ret
.GetLYOverrideBackupAddrOffset:
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld e, a
2015-12-23 19:51:50 -08:00
ld a, [wBattleAnimTemp0]
add e
ld e, a
ld d, $0
ret
2015-12-24 10:33:54 -08:00
BattleBGEffect_WavyScreenFX: ; c8fef (32:4fef)
push bc
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
inc a
ld e, a
ld h, HIGH(LYOverridesBackup)
ld d, h
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
and a
2015-12-24 10:33:54 -08:00
jr z, .done
ld c, a
ld a, [hl]
push af
2015-12-24 10:33:54 -08:00
.loop
ld a, [de]
inc de
ld [hli], a
dec c
2015-12-24 10:33:54 -08:00
jr nz, .loop
pop af
ld [hl], a
2015-12-24 10:33:54 -08:00
.done
pop bc
ret
2016-05-05 12:07:37 -07:00
BGEffect_FillLYOverridesBackup: ; c900b (32:500b)
push af
ld h, HIGH(LYOverridesBackup)
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
ld d, a
pop af
2016-05-05 12:07:37 -07:00
.loop
ld [hli], a
dec d
2016-05-05 12:07:37 -07:00
jr nz, .loop
ret
2016-05-05 12:07:37 -07:00
BGEffect_DisplaceLYOverridesBackup: ; c901b (32:501b)
; e = a; d = [hLYOverrideEnd] - [hLYOverrideStart] - a
push af
ld e, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideEnd]
sub l
sub e
ld d, a
ld h, HIGH(LYOverridesBackup)
2016-05-05 12:07:37 -07:00
ld a, [hLYOverrideStart]
ld l, a
ld a, $90
2016-05-05 12:07:37 -07:00
.loop
ld [hli], a
dec e
2016-05-05 12:07:37 -07:00
jr nz, .loop
pop af
xor $ff
2016-05-05 12:07:37 -07:00
.loop2
ld [hli], a
dec d
2016-05-05 12:07:37 -07:00
jr nz, .loop2
ret
2015-12-24 10:33:54 -08:00
BGEffect_CheckBattleTurn: ; c9038 (32:5038)
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hBattleTurn]
and $1
xor [hl]
ret
2015-12-24 10:33:54 -08:00
BGEffect_CheckFlyDigStatus: ; c9042 (32:5042)
ld hl, BG_EFFECT_STRUCT_BATTLE_TURN
add hl, bc
ld a, [hBattleTurn]
and $1
xor [hl]
2015-12-24 10:33:54 -08:00
jr nz, .player
ld a, [EnemySubStatus3] ; EnemySubStatus3
and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
ret
2015-12-24 10:33:54 -08:00
.player
ld a, [PlayerSubStatus3] ; PlayerSubStatus3
and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
ret
2015-12-23 17:46:23 -08:00
BattleBGEffects_CheckSGB: ; c9059 (32:5059)
ld a, [hSGB]
and a
ret
2015-12-23 19:51:50 -08:00
BattleBGEffects_Sine: ; c905d (32:505d)
ld e, a
2017-12-24 09:47:30 -08:00
callfar BattleAnim_Sine_e
ld a, e
ret
2015-12-23 19:51:50 -08:00
BattleBGEffects_Cosine: ; c9066 (32:5066)
ld e, a
2017-12-24 09:47:30 -08:00
callfar BattleAnim_Cosine_e
ld a, e
ret
; c906f (32:506f)