pokecrystal/engine/battle/battle_transition.asm

836 lines
14 KiB
NASM
Raw Normal View History

2018-04-05 15:44:02 +00:00
; BattleTransitionJumptable.Jumptable indexes
BATTLETRANSITION_CAVE EQU $01
BATTLETRANSITION_CAVE_STRONGER EQU $09
BATTLETRANSITION_NO_CAVE EQU $10
BATTLETRANSITION_NO_CAVE_STRONGER EQU $18
BATTLETRANSITION_FINISH EQU $20
BATTLETRANSITION_END EQU $80
2019-02-16 17:17:55 +00:00
BATTLETRANSITION_SQUARE EQU "8" ; $fe
BATTLETRANSITION_BLACK EQU "9" ; $ff
2018-06-24 14:09:41 +00:00
DoBattleTransition:
2016-03-02 03:31:21 +00:00
call .InitGFX
ldh a, [rBGP]
2015-12-23 19:00:29 +00:00
ld [wBGP], a
ldh a, [rOBP0]
2015-12-23 19:00:29 +00:00
ld [wOBP0], a
ldh a, [rOBP1]
2015-12-23 19:00:29 +00:00
ld [wOBP1], a
call DelayFrame
ld hl, hVBlank
ld a, [hl]
push af
ld [hl], $1
.loop
2015-10-24 23:49:19 +00:00
ld a, [wJumptableIndex]
2018-04-05 15:44:02 +00:00
bit 7, a ; BATTLETRANSITION_END?
jr nz, .done
2018-01-02 14:05:14 +00:00
call BattleTransitionJumptable
call DelayFrame
jr .loop
.done
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
2018-01-01 14:08:21 +00:00
ld hl, wBGPals1
2015-11-16 16:53:26 +00:00
ld bc, 8 palettes
xor a
call ByteFill
pop af
ldh [rSVBK], a
ld a, %11111111
2015-12-23 19:00:29 +00:00
ld [wBGP], a
call DmgToCgbBGPals
call DelayFrame
xor a
ldh [hLCDCPointer], a
ldh [hLYOverrideStart], a
ldh [hLYOverrideEnd], a
ldh [hSCY], a
ld a, $1 ; unnecessary bankswitch?
ldh [rSVBK], a
pop af
ldh [hVBlank], a
call DelayFrame
ret
2018-06-24 14:09:41 +00:00
.InitGFX:
ld a, [wLinkMode]
cp LINK_MOBILE
jr z, .mobile
2017-12-24 17:47:30 +00:00
farcall ReanchorBGMap_NoOAMUpdate
call UpdateSprites
call DelayFrame
2016-03-02 03:31:21 +00:00
call .NonMobile_LoadPokeballTiles
call BattleStart_CopyTilemapAtOnce
jr .resume
.mobile
call LoadTrainerBattlePokeballTiles
.resume
ld a, SCREEN_HEIGHT_PX
ldh [hWY], a
call DelayFrame
xor a
ldh [hBGMapMode], a
2015-10-24 23:49:19 +00:00
ld hl, wJumptableIndex
xor a
ld [hli], a
2015-12-27 02:59:03 +00:00
ld [hli], a
ld [hl], a
call WipeLYOverrides
ret
2018-06-24 14:09:41 +00:00
.NonMobile_LoadPokeballTiles:
call LoadTrainerBattlePokeballTiles
2015-11-20 16:47:52 +00:00
hlbgcoord 0, 0
call ConvertTrainerBattlePokeballTilesTo2bpp
ret
LoadTrainerBattlePokeballTiles:
; Load the tiles used in the Pokeball Graphic that fills the screen
; at the start of every Trainer battle.
ld de, TrainerBattlePokeballTiles
ld hl, vTiles0 tile BATTLETRANSITION_SQUARE
ld b, BANK(TrainerBattlePokeballTiles)
ld c, 2
call Request2bpp
ldh a, [rVBK]
push af
ld a, $1
ldh [rVBK], a
ld de, TrainerBattlePokeballTiles
ld hl, vTiles3 tile BATTLETRANSITION_SQUARE
ld b, BANK(TrainerBattlePokeballTiles)
ld c, 2
call Request2bpp
pop af
ldh [rVBK], a
ret
2018-06-24 14:09:41 +00:00
ConvertTrainerBattlePokeballTilesTo2bpp:
ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
ldh [rSVBK], a
push hl
ld hl, wDecompressScratch
2016-01-27 17:25:12 +00:00
ld bc, $28 tiles
.loop
ld [hl], -1
inc hl
dec bc
ld a, c
or b
jr nz, .loop
pop hl
ld de, wDecompressScratch
ld b, BANK(@)
ld c, $28
call Request2bpp
pop af
ldh [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
TrainerBattlePokeballTiles:
INCBIN "gfx/overworld/trainer_battle_pokeball_tiles.2bpp"
2018-06-24 14:09:41 +00:00
BattleTransitionJumptable:
2018-04-05 15:44:02 +00:00
jumptable .Jumptable, wJumptableIndex
2018-06-24 14:09:41 +00:00
.Jumptable
dw StartTrainerBattle_DetermineWhichAnimation ; 00
2018-04-05 15:44:02 +00:00
; BATTLETRANSITION_CAVE
dw StartTrainerBattle_LoadPokeBallGraphics ; 01
dw StartTrainerBattle_SetUpBGMap ; 02
dw StartTrainerBattle_Flash ; 03
dw StartTrainerBattle_Flash ; 04
dw StartTrainerBattle_Flash ; 05
dw StartTrainerBattle_NextScene ; 06
dw StartTrainerBattle_SetUpForWavyOutro ; 07
dw StartTrainerBattle_SineWave ; 08
2018-04-05 15:44:02 +00:00
; BATTLETRANSITION_CAVE_STRONGER
dw StartTrainerBattle_LoadPokeBallGraphics ; 09
dw StartTrainerBattle_SetUpBGMap ; 0a
dw StartTrainerBattle_Flash ; 0b
dw StartTrainerBattle_Flash ; 0c
dw StartTrainerBattle_Flash ; 0d
dw StartTrainerBattle_NextScene ; 0e
; There is no setup for this one
dw StartTrainerBattle_ZoomToBlack ; 0f
2018-04-05 15:44:02 +00:00
; BATTLETRANSITION_NO_CAVE
dw StartTrainerBattle_LoadPokeBallGraphics ; 10
dw StartTrainerBattle_SetUpBGMap ; 11
dw StartTrainerBattle_Flash ; 12
dw StartTrainerBattle_Flash ; 13
dw StartTrainerBattle_Flash ; 14
dw StartTrainerBattle_NextScene ; 15
dw StartTrainerBattle_SetUpForSpinOutro ; 16
dw StartTrainerBattle_SpinToBlack ; 17
2018-04-05 15:44:02 +00:00
; BATTLETRANSITION_NO_CAVE_STRONGER
dw StartTrainerBattle_LoadPokeBallGraphics ; 18
dw StartTrainerBattle_SetUpBGMap ; 19
dw StartTrainerBattle_Flash ; 1a
dw StartTrainerBattle_Flash ; 1b
dw StartTrainerBattle_Flash ; 1c
dw StartTrainerBattle_NextScene ; 1d
dw StartTrainerBattle_SetUpForRandomScatterOutro ; 1e
dw StartTrainerBattle_SpeckleToBlack ; 1f
2018-04-05 15:44:02 +00:00
; BATTLETRANSITION_FINISH
dw StartTrainerBattle_Finish ; 20
2018-04-05 15:44:02 +00:00
; transition animations
const_def
const TRANS_CAVE
const TRANS_CAVE_STRONGER
const TRANS_NO_CAVE
const TRANS_NO_CAVE_STRONGER
; transition animation bits
TRANS_STRONGER_F EQU 0 ; bit set in TRANS_CAVE_STRONGER and TRANS_NO_CAVE_STRONGER
TRANS_NO_CAVE_F EQU 1 ; bit set in TRANS_NO_CAVE and TRANS_NO_CAVE_STRONGER
2018-06-24 14:09:41 +00:00
StartTrainerBattle_DetermineWhichAnimation:
2017-12-13 03:58:20 +00:00
; The screen flashes a different number of times depending on the level of
; your lead Pokemon relative to the opponent's.
2018-01-23 22:39:09 +00:00
; BUG: wBattleMonLevel and wEnemyMonLevel are not set at this point, so whatever
2017-12-13 03:58:20 +00:00
; values happen to be there will determine the animation.
ld de, 0
2018-01-23 22:39:09 +00:00
ld a, [wBattleMonLevel]
add 3
2018-01-23 22:39:09 +00:00
ld hl, wEnemyMonLevel
cp [hl]
2018-04-05 15:44:02 +00:00
jr nc, .not_stronger
set TRANS_STRONGER_F, e
.not_stronger
ld a, [wEnvironment]
cp CAVE
2018-04-05 15:44:02 +00:00
jr z, .cave
cp ENVIRONMENT_5
2018-04-05 15:44:02 +00:00
jr z, .cave
cp DUNGEON
2018-04-05 15:44:02 +00:00
jr z, .cave
set TRANS_NO_CAVE_F, e
.cave
ld hl, .StartingPoints
add hl, de
ld a, [hl]
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
.StartingPoints:
2018-04-05 15:44:02 +00:00
; entries correspond to TRANS_* constants
db BATTLETRANSITION_CAVE
db BATTLETRANSITION_CAVE_STRONGER
db BATTLETRANSITION_NO_CAVE
db BATTLETRANSITION_NO_CAVE_STRONGER
2018-06-24 14:09:41 +00:00
StartTrainerBattle_Finish:
call ClearSprites
2018-04-05 15:44:02 +00:00
ld a, BATTLETRANSITION_END
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_NextScene:
2015-10-24 23:49:19 +00:00
ld hl, wJumptableIndex
inc [hl]
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SetUpBGMap:
call StartTrainerBattle_NextScene
xor a
ld [wcf64], a
ldh [hBGMapMode], a
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_Flash:
call .DoFlashAnimation
ret nc
call StartTrainerBattle_NextScene
ret
2018-06-24 14:09:41 +00:00
.DoFlashAnimation:
2015-12-14 16:12:18 +00:00
ld a, [wTimeOfDayPalset]
2020-08-11 18:12:59 +00:00
cp DARKNESS_PALSET
jr z, .done
ld hl, wcf64
ld a, [hl]
inc [hl]
srl a
ld e, a
ld d, 0
ld hl, .pals
add hl, de
ld a, [hl]
cp %00000001
jr z, .done
2015-12-23 19:00:29 +00:00
ld [wBGP], a
call DmgToCgbBGPals
and a
ret
.done
xor a
ld [wcf64], a
scf
ret
2018-06-24 14:09:41 +00:00
.pals
dc 3, 3, 2, 1
dc 3, 3, 3, 2
dc 3, 3, 3, 3
dc 3, 3, 3, 2
dc 3, 3, 2, 1
dc 3, 2, 1, 0
dc 2, 1, 0, 0
dc 1, 0, 0, 0
dc 0, 0, 0, 0
dc 1, 0, 0, 0
dc 2, 1, 0, 0
dc 3, 2, 1, 0
dc 0, 0, 0, 1
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SetUpForWavyOutro:
2017-12-24 17:47:30 +00:00
farcall Function5602
2018-01-23 22:39:09 +00:00
ld a, BANK(wLYOverrides)
ldh [rSVBK], a
call StartTrainerBattle_NextScene
2015-11-16 16:53:26 +00:00
2018-08-25 18:34:25 +00:00
ld a, LOW(rSCX)
ldh [hLCDCPointer], a
xor a
ldh [hLYOverrideStart], a
ld a, $90
ldh [hLYOverrideEnd], a
xor a
ld [wcf64], a
ld [wcf65], a
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SineWave:
ld a, [wcf64]
cp $60
jr nc, .end
call .DoSineWave
ret
.end
2018-04-05 15:44:02 +00:00
ld a, BATTLETRANSITION_FINISH
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
.DoSineWave:
ld hl, wcf65
ld a, [hl]
inc [hl]
ld hl, wcf64
ld d, [hl]
add [hl]
ld [hl], a
2018-01-23 22:39:09 +00:00
ld a, wLYOverridesEnd - wLYOverrides
ld bc, wLYOverrides
ld e, 0
.loop
push af
push de
ld a, e
call StartTrainerBattle_DrawSineWave
ld [bc], a
inc bc
pop de
ld a, e
add 2
ld e, a
pop af
dec a
jr nz, .loop
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SetUpForSpinOutro:
2017-12-24 17:47:30 +00:00
farcall Function5602
2018-01-23 22:39:09 +00:00
ld a, BANK(wLYOverrides)
ldh [rSVBK], a
call StartTrainerBattle_NextScene
xor a
ld [wcf64], a
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SpinToBlack:
xor a
ldh [hBGMapMode], a
ld a, [wcf64]
ld e, a
ld d, 0
ld hl, .spintable
rept 5
add hl, de
endr
ld a, [hli]
cp -1
jr z, .end
ld [wcf65], a
call .load
ld a, 1
ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
ld hl, wcf64
inc [hl]
ret
.end
ld a, 1
ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
xor a
ldh [hBGMapMode], a
2018-04-05 15:44:02 +00:00
ld a, BATTLETRANSITION_FINISH
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2017-12-14 05:36:24 +00:00
; quadrants
const_def
const UPPER_LEFT
const UPPER_RIGHT
const LOWER_LEFT
const LOWER_RIGHT
2018-04-05 15:44:02 +00:00
; quadrant bits
RIGHT_QUADRANT_F EQU 0 ; bit set in UPPER_RIGHT and LOWER_RIGHT
LOWER_QUADRANT_F EQU 1 ; bit set in LOWER_LEFT and LOWER_RIGHT
2018-06-24 14:09:41 +00:00
.spintable
2017-12-14 05:36:24 +00:00
spintable_entry: MACRO
db \1
dw .wedge\2
dwcoord \3, \4
ENDM
spintable_entry UPPER_LEFT, 1, 1, 6
spintable_entry UPPER_LEFT, 2, 0, 3
spintable_entry UPPER_LEFT, 3, 1, 0
spintable_entry UPPER_LEFT, 4, 5, 0
spintable_entry UPPER_LEFT, 5, 9, 0
spintable_entry UPPER_RIGHT, 5, 10, 0
spintable_entry UPPER_RIGHT, 4, 14, 0
spintable_entry UPPER_RIGHT, 3, 18, 0
spintable_entry UPPER_RIGHT, 2, 19, 3
spintable_entry UPPER_RIGHT, 1, 18, 6
spintable_entry LOWER_RIGHT, 1, 18, 11
spintable_entry LOWER_RIGHT, 2, 19, 14
spintable_entry LOWER_RIGHT, 3, 18, 17
spintable_entry LOWER_RIGHT, 4, 14, 17
spintable_entry LOWER_RIGHT, 5, 10, 17
spintable_entry LOWER_LEFT, 5, 9, 17
spintable_entry LOWER_LEFT, 4, 5, 17
spintable_entry LOWER_LEFT, 3, 1, 17
spintable_entry LOWER_LEFT, 2, 0, 14
spintable_entry LOWER_LEFT, 1, 1, 11
db -1
2018-06-24 14:09:41 +00:00
.load
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ld h, [hl]
ld l, a
.loop
push hl
ld a, [de]
ld c, a
inc de
.loop1
ld [hl], BATTLETRANSITION_BLACK
ld a, [wcf65]
2018-04-05 15:44:02 +00:00
bit RIGHT_QUADRANT_F, a
jr z, .leftside
inc hl
jr .okay1
.leftside
dec hl
.okay1
dec c
jr nz, .loop1
pop hl
ld a, [wcf65]
2018-04-05 15:44:02 +00:00
bit LOWER_QUADRANT_F, a
ld bc, SCREEN_WIDTH
jr z, .upper
ld bc, -SCREEN_WIDTH
.upper
add hl, bc
ld a, [de]
inc de
cp -1
ret z
and a
jr z, .loop
ld c, a
.loop2
ld a, [wcf65]
2018-04-05 15:44:02 +00:00
bit RIGHT_QUADRANT_F, a
jr z, .leftside2
dec hl
jr .okay2
.leftside2
inc hl
.okay2
dec c
jr nz, .loop2
jr .loop
.wedge1 db 2, 3, 5, 4, 9, -1
.wedge2 db 1, 1, 2, 2, 4, 2, 4, 2, 3, -1
.wedge3 db 2, 1, 3, 1, 4, 1, 4, 1, 4, 1, 3, 1, 2, 1, 1, 1, 1, -1
.wedge4 db 4, 1, 4, 0, 3, 1, 3, 0, 2, 1, 2, 0, 1, -1
.wedge5 db 4, 0, 3, 0, 3, 0, 2, 0, 2, 0, 1, 0, 1, 0, 1, -1
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SetUpForRandomScatterOutro:
2017-12-24 17:47:30 +00:00
farcall Function5602
2018-01-23 22:39:09 +00:00
ld a, BANK(wLYOverrides)
ldh [rSVBK], a
call StartTrainerBattle_NextScene
ld a, $10
ld [wcf64], a
ld a, 1
ldh [hBGMapMode], a
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_SpeckleToBlack:
ld hl, wcf64
ld a, [hl]
and a
jr z, .done
dec [hl]
ld c, $c
.loop
push bc
call .BlackOutRandomTile
pop bc
dec c
jr nz, .loop
ret
.done
ld a, $1
ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
call DelayFrame
xor a
ldh [hBGMapMode], a
2018-04-05 15:44:02 +00:00
ld a, BATTLETRANSITION_FINISH
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
.BlackOutRandomTile:
.y_loop
call Random
cp SCREEN_HEIGHT
jr nc, .y_loop
ld b, a
.x_loop
call Random
cp SCREEN_WIDTH
jr nc, .x_loop
ld c, a
hlcoord 0, -1
ld de, SCREEN_WIDTH
inc b
.row_loop
add hl, de
dec b
jr nz, .row_loop
add hl, bc
; If the tile has already been blacked out,
; sample a new tile
ld a, [hl]
cp BATTLETRANSITION_BLACK
jr z, .y_loop
ld [hl], BATTLETRANSITION_BLACK
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_LoadPokeBallGraphics:
2018-01-23 22:39:09 +00:00
ld a, [wOtherTrainerClass]
and a
2016-01-27 17:25:12 +00:00
jp z, .nextscene ; don't need to be here if wild
xor a
ldh [hBGMapMode], a
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
inc b
inc c
jr .enter_loop_midway
.pal_loop
2016-01-27 17:25:12 +00:00
; set all pals to 7
ld a, [hl]
or PAL_BG_TEXT
ld [hli], a
.enter_loop_midway
dec c
jr nz, .pal_loop
dec b
jr nz, .pal_loop
call .loadpokeballgfx
hlcoord 2, 1
ld b, SCREEN_WIDTH - 4
.tile_loop
push hl
ld c, 2
.row_loop
push hl
ld a, [de]
inc de
.col_loop
; Loading is done bit by bit
and a
jr z, .done
sla a
jr nc, .no_load
ld [hl], BATTLETRANSITION_SQUARE
.no_load
inc hl
jr .col_loop
.done
pop hl
push bc
ld bc, (SCREEN_WIDTH - 4) / 2
add hl, bc
pop bc
dec c
jr nz, .row_loop
pop hl
push bc
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .tile_loop
ldh a, [hCGB]
and a
jr nz, .cgb
ld a, 1
ldh [hBGMapMode], a
call DelayFrame
call DelayFrame
jr .nextscene
.cgb
2020-08-11 18:12:59 +00:00
ld hl, .pals
2018-01-23 22:39:09 +00:00
ld a, [wTimeOfDayPal]
2018-01-16 22:27:50 +00:00
maskbits NUM_DAYTIMES
2018-01-11 17:00:01 +00:00
cp DARKNESS_F
2020-08-11 18:12:59 +00:00
jr nz, .not_dark
ld hl, .darkpals
.not_dark
ldh a, [rSVBK]
push af
ld a, BANK(wBGPals1)
ldh [rSVBK], a
call .copypals
push hl
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette PAL_BG_TEXT
2016-01-27 17:25:12 +00:00
ld bc, 1 palettes
call CopyBytes
pop hl
2018-01-01 14:08:21 +00:00
ld de, wBGPals2 palette PAL_BG_TEXT
2016-01-27 17:25:12 +00:00
ld bc, 1 palettes
call CopyBytes
pop af
ldh [rSVBK], a
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
call DelayFrame
call BattleStart_CopyTilemapAtOnce
2018-06-24 14:09:41 +00:00
.nextscene
call StartTrainerBattle_NextScene
ret
2018-06-24 14:09:41 +00:00
.copypals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette PAL_BG_TEXT
call .copy
2018-01-01 14:08:21 +00:00
ld de, wBGPals2 palette PAL_BG_TEXT
call .copy
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette PAL_OW_TREE
call .copy
2018-01-01 14:08:21 +00:00
ld de, wOBPals2 palette PAL_OW_TREE
call .copy
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette PAL_OW_ROCK
call .copy
2018-01-01 14:08:21 +00:00
ld de, wOBPals2 palette PAL_OW_ROCK
2018-06-24 14:09:41 +00:00
.copy
push hl
2016-01-27 17:25:12 +00:00
ld bc, 1 palettes
call CopyBytes
pop hl
ret
2020-08-11 18:12:59 +00:00
.pals
INCLUDE "gfx/overworld/trainer_battle.pal"
2020-08-11 18:12:59 +00:00
.darkpals
INCLUDE "gfx/overworld/trainer_battle_dark.pal"
.loadpokeballgfx
2018-01-23 22:39:09 +00:00
ld a, [wOtherTrainerClass]
ld de, PokeBallTransition
ret
PokeBallTransition:
2018-09-09 22:25:43 +00:00
; 16x16 overlay of a Poke Ball
pusho
opt b.X ; . = 0, X = 1
2018-09-09 22:25:43 +00:00
bigdw %......XXXX......
bigdw %....XXXXXXXX....
bigdw %..XXXX....XXXX..
bigdw %..XX........XX..
bigdw %.XX..........XX.
bigdw %.XX...XXXX...XX.
bigdw %XX...XX..XX...XX
bigdw %XXXXXX....XXXXXX
bigdw %XXXXXX....XXXXXX
bigdw %XX...XX..XX...XX
bigdw %.XX...XXXX...XX.
bigdw %.XX..........XX.
bigdw %..XX........XX..
bigdw %..XXXX....XXXX..
bigdw %....XXXXXXXX....
bigdw %......XXXX......
popo
2018-06-24 14:09:41 +00:00
WipeLYOverrides:
ldh a, [rSVBK]
push af
2018-01-23 22:39:09 +00:00
ld a, BANK(wLYOverrides)
ldh [rSVBK], a
2015-11-16 16:53:26 +00:00
2018-01-23 22:39:09 +00:00
ld hl, wLYOverrides
call .wipe
2018-01-23 22:39:09 +00:00
ld hl, wLYOverridesBackup
call .wipe
2015-11-16 16:53:26 +00:00
pop af
ldh [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
.wipe
xor a
ld c, SCREEN_HEIGHT_PX
.loop
ld [hli], a
dec c
jr nz, .loop
ret
2018-06-24 14:09:41 +00:00
StartTrainerBattle_DrawSineWave:
calc_sine_wave
2018-06-24 14:09:41 +00:00
StartTrainerBattle_ZoomToBlack:
2017-12-24 17:47:30 +00:00
farcall Function5602
ld de, .boxes
.loop
ld a, [de]
cp -1
jr z, .done
inc de
ld c, a
ld a, [de]
inc de
ld b, a
ld a, [de]
inc de
ld l, a
ld a, [de]
inc de
ld h, a
xor a
ldh [hBGMapMode], a
call .Copy
call WaitBGMap
jr .loop
.done
2018-04-05 15:44:02 +00:00
ld a, BATTLETRANSITION_FINISH
2015-10-24 23:49:19 +00:00
ld [wJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
.boxes
zoombox: MACRO
2017-12-14 05:36:24 +00:00
; width, height, start y, start x
db \1, \2
dwcoord \3, \4
2017-12-28 21:31:16 +00:00
ENDM
zoombox 4, 2, 8, 8
zoombox 6, 4, 7, 7
zoombox 8, 6, 6, 6
zoombox 10, 8, 5, 5
zoombox 12, 10, 4, 4
zoombox 14, 12, 3, 3
zoombox 16, 14, 2, 2
zoombox 18, 16, 1, 1
zoombox 20, 18, 0, 0
db -1
2018-06-24 14:09:41 +00:00
.Copy:
ld a, BATTLETRANSITION_BLACK
.row
push bc
push hl
.col
ld [hli], a
dec c
jr nz, .col
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop bc
dec b
jr nz, .row
ret
Function8c7c9: ; unreferenced
ld a, 1
ldh [hBGMapMode], a
call WaitBGMap
xor a
ldh [hBGMapMode], a
ret