mirror of
https://github.com/thornAvery/jep-hack.git
synced 2025-09-16 18:20:50 +12:00
3949670f4f
Some maps are broken up or edited to allow for seamless transitions instead of needing several warps. (Area 1 is split vertically, Area 2 needs a horizontal split. The connection between area 1 and 2 also will have to be shifted up from where it is in RBY to prevent border blocks showing up where they shouldn't.)
843 lines
15 KiB
NASM
843 lines
15 KiB
NASM
; BattleTransitionJumptable.Jumptable indexes
|
|
DEF BATTLETRANSITION_CAVE EQU $01
|
|
DEF BATTLETRANSITION_CAVE_STRONGER EQU $09
|
|
DEF BATTLETRANSITION_NO_CAVE EQU $10
|
|
DEF BATTLETRANSITION_NO_CAVE_STRONGER EQU $18
|
|
DEF BATTLETRANSITION_FINISH EQU $20
|
|
DEF BATTLETRANSITION_END EQU $80
|
|
|
|
DEF BATTLETRANSITION_SQUARE EQU "8" ; $fe
|
|
DEF BATTLETRANSITION_BLACK EQU "9" ; $ff
|
|
|
|
DoBattleTransition:
|
|
call .InitGFX
|
|
ldh a, [rBGP]
|
|
ld [wBGP], a
|
|
ldh a, [rOBP0]
|
|
ld [wOBP0], a
|
|
ldh a, [rOBP1]
|
|
ld [wOBP1], a
|
|
call DelayFrame
|
|
ld hl, hVBlank
|
|
ld a, [hl]
|
|
push af
|
|
vc_hook Reduce_battle_transition_flashing
|
|
ld [hl], $1
|
|
|
|
.loop
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a ; BATTLETRANSITION_END?
|
|
jr nz, .done
|
|
call BattleTransitionJumptable
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.done
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wBGPals1)
|
|
ldh [rSVBK], a
|
|
|
|
ld hl, wBGPals1
|
|
ld bc, 8 palettes
|
|
xor a
|
|
call ByteFill
|
|
|
|
pop af
|
|
ldh [rSVBK], a
|
|
|
|
ld a, %11111111
|
|
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
|
|
vc_hook Stop_reducing_battle_transition_flashing
|
|
ldh [hVBlank], a
|
|
call DelayFrame
|
|
ret
|
|
|
|
.InitGFX:
|
|
ld a, [wLinkMode]
|
|
cp LINK_MOBILE
|
|
jr z, .mobile
|
|
farcall ReanchorBGMap_NoOAMUpdate
|
|
call UpdateSprites
|
|
call DelayFrame
|
|
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
|
|
ld hl, wJumptableIndex
|
|
xor a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
call WipeLYOverrides
|
|
ret
|
|
|
|
.NonMobile_LoadPokeballTiles:
|
|
call LoadTrainerBattlePokeballTiles
|
|
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
|
|
|
|
ConvertTrainerBattlePokeballTilesTo2bpp:
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ldh [rSVBK], a
|
|
push hl
|
|
ld hl, wDecompressScratch
|
|
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
|
|
|
|
TrainerBattlePokeballTiles:
|
|
INCBIN "gfx/overworld/trainer_battle_pokeball_tiles.2bpp"
|
|
|
|
BattleTransitionJumptable:
|
|
jumptable .Jumptable, wJumptableIndex
|
|
|
|
.Jumptable:
|
|
dw StartTrainerBattle_DetermineWhichAnimation ; 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
|
|
|
|
; 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
|
|
|
|
; 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
|
|
|
|
; 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
|
|
|
|
; BATTLETRANSITION_FINISH
|
|
dw StartTrainerBattle_Finish ; 20
|
|
|
|
; transition animations
|
|
const_def
|
|
const TRANS_CAVE
|
|
const TRANS_CAVE_STRONGER
|
|
const TRANS_NO_CAVE
|
|
const TRANS_NO_CAVE_STRONGER
|
|
|
|
; transition animation bits
|
|
DEF TRANS_STRONGER_F EQU 0 ; bit set in TRANS_CAVE_STRONGER and TRANS_NO_CAVE_STRONGER
|
|
DEF TRANS_NO_CAVE_F EQU 1 ; bit set in TRANS_NO_CAVE and TRANS_NO_CAVE_STRONGER
|
|
|
|
StartTrainerBattle_DetermineWhichAnimation:
|
|
; The screen flashes a different number of times depending on the level of
|
|
; your lead Pokemon relative to the opponent's.
|
|
; BUG: Battle transitions fail to account for enemy's level (see docs/bugs_and_glitches.md)
|
|
ld de, 0
|
|
ld a, [wBattleMonLevel]
|
|
add 3
|
|
ld hl, wEnemyMonLevel
|
|
cp [hl]
|
|
jr nc, .not_stronger
|
|
set TRANS_STRONGER_F, e
|
|
.not_stronger
|
|
ld a, [wEnvironment]
|
|
cp CAVE
|
|
jr z, .cave
|
|
cp ENVIRONMENT_5
|
|
jr z, .cave
|
|
cp DUNGEON
|
|
jr z, .cave
|
|
cp FOREST
|
|
jr z, .cave
|
|
set TRANS_NO_CAVE_F, e
|
|
.cave
|
|
ld hl, .StartingPoints
|
|
add hl, de
|
|
ld a, [hl]
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.StartingPoints:
|
|
; entries correspond to TRANS_* constants
|
|
db BATTLETRANSITION_CAVE
|
|
db BATTLETRANSITION_CAVE_STRONGER
|
|
db BATTLETRANSITION_NO_CAVE
|
|
db BATTLETRANSITION_NO_CAVE_STRONGER
|
|
|
|
StartTrainerBattle_Finish:
|
|
call ClearSprites
|
|
ld a, BATTLETRANSITION_END
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
StartTrainerBattle_NextScene:
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
|
|
StartTrainerBattle_SetUpBGMap:
|
|
call StartTrainerBattle_NextScene
|
|
xor a
|
|
ld [wBattleTransitionCounter], a
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
StartTrainerBattle_Flash:
|
|
call .DoFlashAnimation
|
|
ret nc
|
|
call StartTrainerBattle_NextScene
|
|
ret
|
|
|
|
.DoFlashAnimation:
|
|
ld a, [wTimeOfDayPalset]
|
|
cp DARKNESS_PALSET
|
|
jr z, .done
|
|
ld hl, wBattleTransitionCounter
|
|
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
|
|
ld [wBGP], a
|
|
call DmgToCgbBGPals
|
|
and a
|
|
ret
|
|
|
|
.done
|
|
xor a
|
|
ld [wBattleTransitionCounter], a
|
|
scf
|
|
ret
|
|
|
|
.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
|
|
|
|
StartTrainerBattle_SetUpForWavyOutro:
|
|
vc_hook Stop_reducing_battle_transition_flashing_WavyOutro
|
|
farcall RespawnPlayerAndOpponent
|
|
ld a, BANK(wLYOverrides)
|
|
ldh [rSVBK], a
|
|
call StartTrainerBattle_NextScene
|
|
|
|
ld a, LOW(rSCX)
|
|
ldh [hLCDCPointer], a
|
|
xor a
|
|
ldh [hLYOverrideStart], a
|
|
ld a, $90
|
|
ldh [hLYOverrideEnd], a
|
|
xor a
|
|
ld [wBattleTransitionCounter], a
|
|
ld [wBattleTransitionSineWaveOffset], a
|
|
ret
|
|
|
|
StartTrainerBattle_SineWave:
|
|
ld a, [wBattleTransitionCounter]
|
|
cp $60
|
|
jr nc, .end
|
|
call .DoSineWave
|
|
ret
|
|
|
|
.end
|
|
ld a, BATTLETRANSITION_FINISH
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.DoSineWave:
|
|
ld hl, wBattleTransitionSineWaveOffset
|
|
ld a, [hl]
|
|
inc [hl]
|
|
ld hl, wBattleTransitionCounter
|
|
ld d, [hl]
|
|
add [hl]
|
|
ld [hl], a
|
|
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
|
|
|
|
StartTrainerBattle_SetUpForSpinOutro:
|
|
vc_hook Stop_reducing_battle_transition_flashing_SpinOutro
|
|
farcall RespawnPlayerAndOpponent
|
|
ld a, BANK(wLYOverrides)
|
|
ldh [rSVBK], a
|
|
call StartTrainerBattle_NextScene
|
|
xor a
|
|
ld [wBattleTransitionCounter], a
|
|
ret
|
|
|
|
StartTrainerBattle_SpinToBlack:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ld a, [wBattleTransitionCounter]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .spin_quadrants
|
|
rept 5
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
cp -1
|
|
jr z, .end
|
|
ld [wBattleTransitionSineWaveOffset], a
|
|
call .load
|
|
ld a, 1
|
|
ldh [hBGMapMode], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
ld hl, wBattleTransitionCounter
|
|
inc [hl]
|
|
ret
|
|
|
|
.end
|
|
ld a, 1
|
|
ldh [hBGMapMode], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
call DelayFrame
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ld a, BATTLETRANSITION_FINISH
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
; quadrants
|
|
const_def
|
|
const UPPER_LEFT
|
|
const UPPER_RIGHT
|
|
const LOWER_LEFT
|
|
const LOWER_RIGHT
|
|
|
|
; quadrant bits
|
|
DEF RIGHT_QUADRANT_F EQU 0 ; bit set in UPPER_RIGHT and LOWER_RIGHT
|
|
DEF LOWER_QUADRANT_F EQU 1 ; bit set in LOWER_LEFT and LOWER_RIGHT
|
|
|
|
.spin_quadrants:
|
|
MACRO spin_quadrant
|
|
db \1
|
|
dw \2
|
|
dwcoord \3, \4
|
|
ENDM
|
|
spin_quadrant UPPER_LEFT, .wedge1, 1, 6
|
|
spin_quadrant UPPER_LEFT, .wedge2, 0, 3
|
|
spin_quadrant UPPER_LEFT, .wedge3, 1, 0
|
|
spin_quadrant UPPER_LEFT, .wedge4, 5, 0
|
|
spin_quadrant UPPER_LEFT, .wedge5, 9, 0
|
|
spin_quadrant UPPER_RIGHT, .wedge5, 10, 0
|
|
spin_quadrant UPPER_RIGHT, .wedge4, 14, 0
|
|
spin_quadrant UPPER_RIGHT, .wedge3, 18, 0
|
|
spin_quadrant UPPER_RIGHT, .wedge2, 19, 3
|
|
spin_quadrant UPPER_RIGHT, .wedge1, 18, 6
|
|
spin_quadrant LOWER_RIGHT, .wedge1, 18, 11
|
|
spin_quadrant LOWER_RIGHT, .wedge2, 19, 14
|
|
spin_quadrant LOWER_RIGHT, .wedge3, 18, 17
|
|
spin_quadrant LOWER_RIGHT, .wedge4, 14, 17
|
|
spin_quadrant LOWER_RIGHT, .wedge5, 10, 17
|
|
spin_quadrant LOWER_LEFT, .wedge5, 9, 17
|
|
spin_quadrant LOWER_LEFT, .wedge4, 5, 17
|
|
spin_quadrant LOWER_LEFT, .wedge3, 1, 17
|
|
spin_quadrant LOWER_LEFT, .wedge2, 0, 14
|
|
spin_quadrant LOWER_LEFT, .wedge1, 1, 11
|
|
db -1
|
|
|
|
.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, [wBattleTransitionSineWaveOffset]
|
|
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, [wBattleTransitionSineWaveOffset]
|
|
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, [wBattleTransitionSineWaveOffset]
|
|
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
|
|
|
|
StartTrainerBattle_SetUpForRandomScatterOutro:
|
|
vc_hook Stop_reducing_battle_transition_flashing_ScatterOutro
|
|
farcall RespawnPlayerAndOpponent
|
|
ld a, BANK(wLYOverrides)
|
|
ldh [rSVBK], a
|
|
call StartTrainerBattle_NextScene
|
|
ld a, $10
|
|
ld [wBattleTransitionCounter], a
|
|
ld a, 1
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
StartTrainerBattle_SpeckleToBlack:
|
|
ld hl, wBattleTransitionCounter
|
|
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
|
|
ld a, BATTLETRANSITION_FINISH
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.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
|
|
|
|
StartTrainerBattle_LoadPokeBallGraphics:
|
|
ld a, [wOtherTrainerClass]
|
|
and a
|
|
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
|
|
; 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
|
|
|
|
ld a, [wOptions2]
|
|
and 1 << MENU_ACCOUNT
|
|
jr nz, .cgb
|
|
ld a, 1
|
|
ldh [hBGMapMode], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
jr .nextscene
|
|
|
|
.cgb
|
|
ld hl, .pals
|
|
ld a, [wTimeOfDayPal]
|
|
maskbits NUM_DAYTIMES
|
|
cp DARKNESS_F
|
|
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
|
|
ld de, wBGPals1 palette PAL_BG_TEXT
|
|
ld bc, 1 palettes
|
|
call CopyBytes
|
|
pop hl
|
|
ld de, wBGPals2 palette PAL_BG_TEXT
|
|
ld bc, 1 palettes
|
|
call CopyBytes
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ld a, TRUE
|
|
ldh [hCGBPalUpdate], a
|
|
call DelayFrame
|
|
call BattleStart_CopyTilemapAtOnce
|
|
|
|
.nextscene
|
|
call StartTrainerBattle_NextScene
|
|
ret
|
|
|
|
.copypals
|
|
ld de, wBGPals1 palette PAL_BG_TEXT
|
|
call .copy
|
|
ld de, wBGPals2 palette PAL_BG_TEXT
|
|
call .copy
|
|
ld de, wOBPals1 palette PAL_OW_TREE
|
|
call .copy
|
|
ld de, wOBPals2 palette PAL_OW_TREE
|
|
call .copy
|
|
ld de, wOBPals1 palette PAL_OW_ROCK
|
|
call .copy
|
|
ld de, wOBPals2 palette PAL_OW_ROCK
|
|
|
|
.copy
|
|
push hl
|
|
ld bc, 1 palettes
|
|
call CopyBytes
|
|
pop hl
|
|
ret
|
|
|
|
.pals:
|
|
INCLUDE "gfx/overworld/trainer_battle.pal"
|
|
|
|
.darkpals:
|
|
INCLUDE "gfx/overworld/trainer_battle_dark.pal"
|
|
|
|
.loadpokeballgfx:
|
|
ld a, [wOtherTrainerClass]
|
|
ld de, PokeBallTransition
|
|
ret
|
|
|
|
PokeBallTransition:
|
|
; 16x16 overlay of a Poke Ball
|
|
pusho
|
|
opt b.X ; . = 0, X = 1
|
|
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
|
|
|
|
WipeLYOverrides:
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wLYOverrides)
|
|
ldh [rSVBK], a
|
|
|
|
ld hl, wLYOverrides
|
|
call .wipe
|
|
ld hl, wLYOverridesBackup
|
|
call .wipe
|
|
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
.wipe
|
|
xor a
|
|
ld c, SCREEN_HEIGHT_PX
|
|
.loop
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
StartTrainerBattle_DrawSineWave:
|
|
calc_sine_wave
|
|
|
|
StartTrainerBattle_ZoomToBlack:
|
|
vc_hook Stop_reducing_battle_transition_flashing_ZoomToBlack
|
|
farcall RespawnPlayerAndOpponent
|
|
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
|
|
ld a, BATTLETRANSITION_FINISH
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.boxes
|
|
MACRO zoombox
|
|
; width, height, start y, start x
|
|
db \1, \2
|
|
dwcoord \3, \4
|
|
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
|
|
|
|
.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
|
|
|
|
UnusedWaitBGMapOnce: ; unreferenced
|
|
ld a, 1
|
|
ldh [hBGMapMode], a ; redundant
|
|
call WaitBGMap
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ret
|