Colored Badges

This commit is contained in:
Zeta_Null 2024-12-19 17:51:57 -05:00
parent 1f1f59874e
commit 67790a0e73
6 changed files with 51 additions and 20 deletions

View file

@ -777,9 +777,10 @@ _CGB_TrainerCard:
ld a, PRYCE
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
ld a, PREDEFPAL_CGB_BADGE
call GetPredefPal
call LoadHLPaletteIntoDE
ld hl, .BadgePalettes
ld bc, 8 palettes
ld a, BANK(wOBPals1)
call FarCopyWRAM
; fill screen with gender-based palette for the card border
hlcoord 0, 0, wAttrmap
@ -868,6 +869,9 @@ _CGB_TrainerCard:
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
.BadgePalettes:
INCLUDE "gfx/trainer_card/badges.pal"
_CGB_TrainerCardKanto:
ld a, [wOptions2]
@ -897,9 +901,10 @@ _CGB_TrainerCardKanto:
ld a, BLUE
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
ld a, PREDEFPAL_CGB_BADGE
call GetPredefPal
call LoadHLPaletteIntoDE
ld hl, .KantoBadgePalettes
ld bc, 8 palettes
ld a, BANK(wOBPals1)
call FarCopyWRAM
; fill screen with gender-based palette for the card border
hlcoord 0, 0, wAttrmap
@ -988,6 +993,9 @@ _CGB_TrainerCardKanto:
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
.KantoBadgePalettes:
INCLUDE "gfx/trainer_card/kanto_badges.pal"
_CGB_MoveList:
ld de, wBGPals1

View file

@ -613,38 +613,38 @@ TrainerCard_JohtoBadgesOAM:
db $00, $20, $24, $20 | (1 << 7)
; Hivebadge
db $68, $38, 0
db $68, $38, 1
db $04, $20, $24, $20 | (1 << 7)
db $04, $20, $24, $20 | (1 << 7)
; Plainbadge
db $68, $58, 0
db $68, $58, 2
db $08, $20, $24, $20 | (1 << 7)
db $08, $20, $24, $20 | (1 << 7)
; Fogbadge
db $68, $78, 0
db $68, $78, 3
db $0c, $20, $24, $20 | (1 << 7)
db $0c, $20, $24, $20 | (1 << 7)
; Mineralbadge
db $80, $38, 0
db $80, $38, 5
db $10, $20, $24, $20 | (1 << 7)
db $10, $20, $24, $20 | (1 << 7)
; Stormbadge
db $80, $18, 0
db $80, $18, 4
db $14, $20, $24, $20 | (1 << 7)
db $14, $20, $24, $20 | (1 << 7)
; Glacierbadge
db $80, $58, 0
db $80, $58, 6
db $18, $20, $24, $20 | (1 << 7)
db $18, $20, $24, $20 | (1 << 7)
; Risingbadge
; X-flips on alternate cycles.
db $80, $78, 0
db $80, $78, 7
db $1c, $20, $24, $20 | (1 << 7)
db $1c | (1 << 7), $20, $24, $20 | (1 << 7)
@ -663,38 +663,38 @@ TrainerCard_KantoBadgesOAM:
db $00, $20 | (1 << 7), $24, $20
; Cascadebadge
db $68, $38, 0
db $68, $38, 1
db $04, $20 | (1 << 7), $24, $20
db $04, $20 | (1 << 7), $24, $20
; Thunderbadge
db $68, $58, 0
db $68, $58, 2
db $08, $20 | (1 << 7), $24, $20
db $08, $20 | (1 << 7), $24, $20
; Rainbowbadge
db $68, $78, 0
db $68, $78, 3
db $0c, $20 | (1 << 7), $24, $20
db $0c, $20 | (1 << 7), $24, $20
; Soulbadge
db $80, $18, 0
db $80, $18, 4
db $10, $20 | (1 << 7), $24, $20
db $10, $20 | (1 << 7), $24, $20
; Marshbadge
db $80, $38, 0
db $80, $38, 5
db $14, $20 | (1 << 7), $24, $20
db $14, $20 | (1 << 7), $24, $20
; Volcanobadge
db $80, $58, 0
db $80, $58, 6
db $18, $20 | (1 << 7), $24, $20
db $18, $20 | (1 << 7), $24, $20
; Earthbadge
; X-flips on alternate cycles.
db $80, $78, 0
db $80, $78, 7
db $1c, $20 | (1 << 7), $24, $20
db $1c | (1 << 7), $20 | (1 << 7), $24, $20