pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-09-08 08:13:02 -07:00
Code Issues Packages Projects Releases Wiki Activity

Level selection menu: entry transition events (#12) (#35) [commit 4/4]

Browse Source
This commit is contained in:
xCrystal
2024-02-04 14:23:58 +01:00
parent d3b397fd37
commit 5005ca7bd0
7 changed files with 185 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
engine/gfx/cgb_layouts.asm
View File

@@ -55,7 +55,7 @@ CGBLayoutJumptable:
dw _CGB_PlayerOrMonFrontpicPals
dw _CGB_TradeTube
dw _CGB_TrainerOrMonFrontpicPals
dw _CGB_Unused1D
dw _CGB_LevelSelectionMenuToDChange
assert_table_length NUM_CGB_LAYOUTS
_CGB_BattleGrayscale:
@@ -585,7 +585,7 @@ _CGB_LevelSelectionMenu:
ld bc, 1 palettes
ld a, BANK(wOBPals1)
call FarCopyWRAM
; load daytime-based ToD symbol pals (pal1)
; load daytime-based ToD symbol pals (pal1)
ld a, [wTimeOfDay]
maskbits NUM_DAYTIMES
ld bc, 1 palettes
@@ -624,6 +624,86 @@ _CGB_LevelSelectionMenu:
ldh [hCGBPalUpdate], a
ret
_CGB_LevelSelectionMenuToDChange:
; load daytime-based ToD symbol pals (pal1)
ld a, [wTimeOfDay]
maskbits NUM_DAYTIMES
ld bc, 1 palettes
ld hl, LevelSelectionMenuTimeOfDaySymbolsPals
call AddNTimes
ld de, wOBPals1 + 1 palettes
ld bc, 1 palettes
ld a, BANK(wOBPals1)
call FarCopyWRAM
; load fading background pals
ld hl, .PalsOffsets
ld a, [wLevelSelectionMenuStartingToD]
maskbits NUM_DAYTIMES
ld d, a
ld a, [wLevelSelectionMenuToDFadeStep]
ld e, a
.loop
ld a, [hli]
cp d
jr nz, .next1
inc a ; cp $ff
jr z, .done
ld a, [hli]
cp e
jr z, .match
jr .next2
.next1
inc hl
.next2
inc hl
jr .loop
.match
ld e, [hl]
ld a, [wPlayerGender]
bit PLAYERGENDER_FEMALE_F, a
jr z, .male
ld hl, LevelSelectionMenuFemalePals
jr .got_pals
.male
ld hl, LevelSelectionMenuMalePals
.got_pals
ld a, e
ld bc, 6 palettes
call AddNTimes
ld de, wBGPals1
ld bc, 6 palettes
ld a, BANK(wBGPals1)
call FarCopyWRAM
.done
; apply and commit pals
call ApplyPals
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
.PalsOffsets:
; wLevelSelectionMenuStartingToD, wLevelSelectionMenuToDFadeStep, offset from LevelSelectionMenu*Pals
db MORN_F, 0, 0
db DAY_F, 0, 1
db NITE_F, 0, 2
db EVE_F, 0, 3
db MORN_F, 1, 4
db MORN_F, 2, 5
db MORN_F, 3, 1
db DAY_F, 1, 6
db DAY_F, 2, 7
db DAY_F, 3, 3
db EVE_F, 1, 8
db EVE_F, 2, 9
db EVE_F, 3, 2
db NITE_F, 1, 10
db NITE_F, 2, 11
db NITE_F, 3, 0
db $ff
_CGB_UnownPuzzle:
ld hl, FourPals_UnownPuzzle
call CopyFourPalettes