pokecrystal/engine/gfx/cgb_layouts.asm

998 lines
18 KiB
NASM
Raw Normal View History

; Replaces the functionality of sgb.asm to work with CGB hardware.
2018-06-24 14:09:41 +00:00
CheckCGB:
ldh a, [hCGB]
and a
ret
2018-06-24 14:09:41 +00:00
LoadSGBLayoutCGB:
ld a, b
cp SCGB_DEFAULT
jr nz, .not_default
ld a, [wDefaultSGBLayout]
.not_default
cp SCGB_PARTY_MENU_HP_BARS
2015-12-23 03:19:33 +00:00
jp z, CGB_ApplyPartyMenuHPPals
call ResetBGPals
ld l, a
ld h, 0
add hl, hl
ld de, .Jumptable
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .done
push de
jp hl
.done:
ret
.Jumptable:
2015-12-28 15:57:04 +00:00
dw _CGB_BattleGrayscale
dw _CGB_BattleColors
dw _CGB_PokegearPals
dw _CGB_StatsScreenHPPals
2016-01-10 01:51:14 +00:00
dw _CGB_Pokedex
2015-12-28 15:57:04 +00:00
dw _CGB_SlotMachine
2018-09-16 17:40:47 +00:00
dw _CGB_BetaTitleScreen
2018-01-18 05:16:03 +00:00
dw _CGB_GSIntro
2016-06-06 22:23:00 +00:00
dw _CGB_Diploma
2015-12-28 15:57:04 +00:00
dw _CGB_MapPals
2016-06-06 22:23:00 +00:00
dw _CGB_PartyMenu
dw _CGB_Evolution
2018-01-18 05:16:03 +00:00
dw _CGB_GSTitleScreen
dw _CGB_Unused0D
2016-06-06 22:23:00 +00:00
dw _CGB_MoveList
dw _CGB_BetaPikachuMinigame
2016-01-10 03:56:37 +00:00
dw _CGB_PokedexSearchOption
2018-09-16 17:40:47 +00:00
dw _CGB_BetaPoker
2016-01-09 21:28:22 +00:00
dw _CGB_Pokepic
2018-09-16 17:40:47 +00:00
dw _CGB_MagnetTrain
2015-12-28 15:57:04 +00:00
dw _CGB_PackPals
dw _CGB_TrainerCard
2016-01-10 03:56:37 +00:00
dw _CGB_PokedexUnownMode
2016-06-06 22:23:00 +00:00
dw _CGB_BillsPC
dw _CGB_UnownPuzzle
2018-01-18 05:16:03 +00:00
dw _CGB_GamefreakLogo
dw _CGB_PlayerOrMonFrontpicPals
dw _CGB_TradeTube
dw _CGB_TrainerOrMonFrontpicPals
2016-06-06 22:23:00 +00:00
dw _CGB_MysteryGift
dw _CGB_Unused1E
2018-06-24 14:09:41 +00:00
_CGB_BattleGrayscale:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_BattleGrayscale + 1
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2017-12-11 01:50:08 +00:00
ld c, 4
call CopyPalettes
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_BattleGrayscale + 1
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette PAL_BATTLE_BG_EXP
2017-12-11 01:50:08 +00:00
ld c, 4
call CopyPalettes
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_BattleGrayscale + 1
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2017-12-11 01:50:08 +00:00
ld c, 2
call CopyPalettes
2015-12-28 15:57:04 +00:00
jr _CGB_FinishBattleScreenLayout
2018-06-24 14:09:41 +00:00
_CGB_BattleColors:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
call GetBattlemonBackpicPalettePointer
push hl
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_PLAYER
2015-12-17 02:57:42 +00:00
call GetEnemyFrontpicPalettePointer
push hl
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_ENEMY
2018-01-23 22:39:09 +00:00
ld a, [wEnemyHPPal]
ld l, a
ld h, $0
add hl, hl
2015-12-27 02:59:03 +00:00
add hl, hl
2017-12-16 03:36:33 +00:00
ld bc, HPBarPals
add hl, bc
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_ENEMY_HP
2018-01-23 22:39:09 +00:00
ld a, [wPlayerHPPal]
ld l, a
ld h, $0
add hl, hl
2015-12-27 02:59:03 +00:00
add hl, hl
2017-12-16 03:36:33 +00:00
ld bc, HPBarPals
add hl, bc
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_PLAYER_HP
2017-12-16 03:36:33 +00:00
ld hl, ExpBarPalette
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_EXP
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
pop hl
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_OB_ENEMY
pop hl
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_OB_PLAYER
2015-12-28 15:57:04 +00:00
ld a, SCGB_BATTLE_COLORS
ld [wDefaultSGBLayout], a
2015-12-17 02:57:42 +00:00
call ApplyPals
2018-06-24 14:09:41 +00:00
_CGB_FinishBattleScreenLayout:
2015-12-28 15:57:04 +00:00
call InitPartyMenuBGPal7
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_ENEMY_HP
call ByteFill
hlcoord 0, 4, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 8, 10
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_PLAYER
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 10
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_ENEMY
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 4, 10
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_ENEMY_HP
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 7, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 5, 10
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_PLAYER_HP
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 11, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 1, 9
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_EXP
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 12, wAttrmap
2015-11-16 21:01:45 +00:00
ld bc, 6 * SCREEN_WIDTH
2017-12-11 01:50:08 +00:00
ld a, PAL_BATTLE_BG_TEXT
call ByteFill
2017-12-25 17:41:31 +00:00
ld hl, BattleObjectPals
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette PAL_BATTLE_OB_GRAY
2015-12-28 15:57:04 +00:00
ld bc, 6 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
InitPartyMenuBGPal7:
2017-12-24 17:47:30 +00:00
farcall Function100dc0
2018-06-24 14:09:41 +00:00
Mobile_InitPartyMenuBGPal7:
2018-01-18 16:37:05 +00:00
ld hl, PartyMenuBGPalette
jr nc, .not_mobile
2018-01-18 16:37:05 +00:00
ld hl, PartyMenuBGMobilePalette
.not_mobile
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette 7
ld bc, 1 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
ret
2018-06-24 14:09:41 +00:00
InitPartyMenuBGPal0:
2017-12-24 17:47:30 +00:00
farcall Function100dc0
2018-01-18 16:37:05 +00:00
ld hl, PartyMenuBGPalette
jr nc, .not_mobile
2018-01-18 16:37:05 +00:00
ld hl, PartyMenuBGMobilePalette
.not_mobile
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette 0
ld bc, 1 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
ret
2018-06-24 14:09:41 +00:00
_CGB_PokegearPals:
ld a, [wPlayerGender]
2018-01-22 19:34:55 +00:00
bit PLAYERGENDER_FEMALE_F, a
2015-12-28 15:57:04 +00:00
jr z, .male
ld hl, FemalePokegearPals
jr .got_pals
2015-12-28 15:57:04 +00:00
.male
ld hl, MalePokegearPals
.got_pals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
ld bc, 6 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_StatsScreenHPPals:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2017-12-10 00:41:03 +00:00
ld a, [wCurHPPal]
ld l, a
ld h, $0
add hl, hl
2015-12-27 02:59:03 +00:00
add hl, hl
2017-12-16 03:36:33 +00:00
ld bc, HPBarPals
add hl, bc
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; hp palette
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
2015-12-17 02:57:42 +00:00
call GetPlayerOrMonPalettePointer
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; mon palette
2017-12-16 03:36:33 +00:00
ld hl, ExpBarPalette
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; exp palette
ld hl, StatsScreenPagePals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1 palette 3
2017-12-11 01:50:08 +00:00
ld bc, 3 palettes ; pink, green, and blue page palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
call WipeAttrmap
2015-12-17 02:57:42 +00:00
hlcoord 0, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 8, SCREEN_WIDTH
2017-12-11 01:50:08 +00:00
ld a, $1 ; mon palette
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-17 02:57:42 +00:00
hlcoord 10, 16, wAttrmap
2015-12-17 02:57:42 +00:00
ld bc, 10
2017-12-11 01:50:08 +00:00
ld a, $2 ; exp palette
call ByteFill
2015-12-17 02:57:42 +00:00
hlcoord 13, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 2
2017-12-11 01:50:08 +00:00
ld a, $3 ; pink page palette
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-17 02:57:42 +00:00
hlcoord 15, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 2
2017-12-11 01:50:08 +00:00
ld a, $4 ; green page palette
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-17 02:57:42 +00:00
hlcoord 17, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 2
2017-12-11 01:50:08 +00:00
ld a, $5 ; blue page palette
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-17 02:57:42 +00:00
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
StatsScreenPagePals:
INCLUDE "gfx/stats/pages.pal"
2018-06-24 14:09:41 +00:00
StatsScreenPals:
INCLUDE "gfx/stats/stats.pal"
2018-06-24 14:09:41 +00:00
_CGB_Pokedex:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
2017-12-11 01:50:08 +00:00
call LoadHLPaletteIntoDE ; dex interface palette
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
cp $ff
2015-12-28 15:57:04 +00:00
jr nz, .is_pokemon
ld hl, PokedexQuestionMarkPalette
2017-12-11 01:50:08 +00:00
call LoadHLPaletteIntoDE ; green question mark palette
2015-12-28 15:57:04 +00:00
jr .got_palette
2015-12-28 15:57:04 +00:00
.is_pokemon
call GetMonPalettePointer
2017-12-11 01:50:08 +00:00
call LoadPalette_White_Col1_Col2_Black ; mon palette
2015-12-28 15:57:04 +00:00
.got_palette
call WipeAttrmap
hlcoord 1, 1, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 7
2017-12-11 01:50:08 +00:00
ld a, $1 ; green question mark palette
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-28 15:57:04 +00:00
call InitPartyMenuOBPals
ld hl, PokedexCursorPalette
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette 7 ; green cursor palette
2015-12-17 02:57:42 +00:00
ld bc, 1 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
PokedexQuestionMarkPalette:
INCLUDE "gfx/pokedex/question_mark.pal"
PokedexCursorPalette:
INCLUDE "gfx/pokedex/cursor.pal"
2018-06-24 14:09:41 +00:00
_CGB_BillsPC:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
cp $ff
2015-12-17 02:57:42 +00:00
jr nz, .GetMonPalette
ld hl, BillsPCOrangePalette
call LoadHLPaletteIntoDE
jr .GotPalette
.GetMonPalette:
2018-01-23 22:39:09 +00:00
ld bc, wTempMonDVs
2015-12-17 02:57:42 +00:00
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
.GotPalette:
call WipeAttrmap
hlcoord 1, 4, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 7
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-28 15:57:04 +00:00
call InitPartyMenuOBPals
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
_CGB_Unknown: ; unreferenced
ld hl, BillsPCOrangePalette
call LoadHLPaletteIntoDE
jr .GotPalette
.GetMonPalette: ; unreferenced
2018-01-23 22:39:09 +00:00
ld bc, wTempMonDVs
2015-12-17 02:57:42 +00:00
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
.GotPalette:
call WipeAttrmap
hlcoord 1, 1, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 7
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-28 15:57:04 +00:00
call InitPartyMenuOBPals
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
BillsPCOrangePalette:
INCLUDE "gfx/pc/orange.pal"
2018-06-24 14:09:41 +00:00
_CGB_PokedexUnownMode:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
call GetMonPalettePointer
2015-12-17 02:57:42 +00:00
call LoadPalette_White_Col1_Col2_Black
call WipeAttrmap
hlcoord 7, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 7
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-28 15:57:04 +00:00
call InitPartyMenuOBPals
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_SlotMachine:
2017-12-11 01:50:08 +00:00
ld hl, SlotMachinePals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2017-12-11 01:50:08 +00:00
ld bc, 16 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
call WipeAttrmap
hlcoord 0, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 10, 3
ld a, $2
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 17, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 10, 3
ld a, $2
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 4, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 6, 3
ld a, $3
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 17, 4, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 6, 3
ld a, $3
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 6, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 3
ld a, $4
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 17, 6, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 3
ld a, $4
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 4, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 12
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 3, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 10, 1
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 16, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 10, 1
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 12, wAttrmap
2015-12-17 02:57:42 +00:00
ld bc, $78
ld a, $7
call ByteFill
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-09-16 17:40:47 +00:00
_CGB_BetaTitleScreen:
ld hl, PalPacket_BetaTitleScreen + 1
call CopyFourPalettes
call WipeAttrmap
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2018-01-18 20:06:43 +00:00
ld a, PREDEFPAL_PACK
call GetPredefPal
call LoadHLPaletteIntoDE
hlcoord 0, 6, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 12, SCREEN_WIDTH
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_GSIntro:
ld b, 0
2017-12-11 01:50:08 +00:00
ld hl, .Jumptable
add hl, bc
2015-12-27 02:59:03 +00:00
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2018-06-24 14:09:41 +00:00
.Jumptable:
2018-01-18 05:16:03 +00:00
dw .ShellderLaprasScene
dw .JigglypuffPikachuScene
dw .StartersCharizardScene
2018-06-24 14:09:41 +00:00
.ShellderLaprasScene:
2018-01-18 05:16:03 +00:00
ld hl, .ShellderLaprasBGPalette
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
call LoadHLPaletteIntoDE
2018-01-18 05:16:03 +00:00
ld hl, .ShellderLaprasOBPals
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2015-12-17 02:57:42 +00:00
ld bc, 2 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
call WipeAttrmap
ret
2018-06-24 14:09:41 +00:00
.ShellderLaprasBGPalette:
RGB 19, 31, 19
RGB 18, 23, 31
RGB 11, 21, 28
RGB 04, 16, 24
2018-06-24 14:09:41 +00:00
.ShellderLaprasOBPals:
RGB 29, 29, 29
RGB 20, 19, 20
RGB 19, 06, 04
RGB 03, 04, 06
RGB 31, 31, 31
RGB 31, 31, 31
RGB 31, 00, 00
RGB 03, 04, 06
2018-06-24 14:09:41 +00:00
.JigglypuffPikachuScene:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_GS_INTRO_JIGGLYPUFF_PIKACHU_BG
call GetPredefPal
call LoadHLPaletteIntoDE
2015-12-17 02:57:42 +00:00
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_GS_INTRO_JIGGLYPUFF_PIKACHU_OB
call GetPredefPal
call LoadHLPaletteIntoDE
call WipeAttrmap
ret
2018-06-24 14:09:41 +00:00
.StartersCharizardScene:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_Pack + 1
call CopyFourPalettes
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2018-01-18 20:06:43 +00:00
ld a, PREDEFPAL_GS_INTRO_STARTERS_TRANSITION
call GetPredefPal
call LoadHLPaletteIntoDE
call WipeAttrmap
ret
2018-09-16 17:40:47 +00:00
_CGB_BetaPoker:
ld hl, BetaPokerPals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
ld bc, 5 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
2015-12-17 02:57:42 +00:00
call ApplyPals
call WipeAttrmap
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_Diploma:
2016-06-06 22:23:00 +00:00
ld hl, DiplomaPalettes
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
ld bc, 16 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
2015-12-28 15:57:04 +00:00
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_Diploma + 1
call CopyFourPalettes
call WipeAttrmap
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_MapPals:
call LoadMapPals
ld a, SCGB_MAPPALS
ld [wDefaultSGBLayout], a
ret
2018-06-24 14:09:41 +00:00
_CGB_PartyMenu:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_PartyMenu + 1
call CopyFourPalettes
2015-12-28 15:57:04 +00:00
call InitPartyMenuBGPal0
call InitPartyMenuBGPal7
call InitPartyMenuOBPals
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_Evolution:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
ld a, c
and a
2015-12-17 02:57:42 +00:00
jr z, .pokemon
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_BLACKOUT
call GetPredefPal
call LoadHLPaletteIntoDE
2015-12-09 23:25:44 +00:00
jr .got_palette
2015-12-17 02:57:42 +00:00
.pokemon
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1DVs
ld bc, PARTYMON_STRUCT_LENGTH
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyMon]
call AddNTimes
ld c, l
ld b, h
2018-01-23 22:39:09 +00:00
ld a, [wPlayerHPPal]
2015-12-17 02:57:42 +00:00
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-25 17:41:31 +00:00
ld hl, BattleObjectPals
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette PAL_BATTLE_OB_GRAY
2015-12-09 23:25:44 +00:00
ld bc, 6 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
2015-12-09 23:25:44 +00:00
.got_palette
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_GSTitleScreen:
2018-01-18 05:16:03 +00:00
ld hl, UnusedGSTitleBGPals
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
ld bc, 5 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
2018-01-18 05:16:03 +00:00
ld hl, UnusedGSTitleOBPals
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2015-12-17 02:57:42 +00:00
ld bc, 2 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
2016-06-06 22:23:00 +00:00
ld a, SCGB_DIPLOMA
ld [wDefaultSGBLayout], a
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
_CGB_Unused0D:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_Diploma + 1
call CopyFourPalettes
call WipeAttrmap
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_UnownPuzzle:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_UnownPuzzle + 1
call CopyFourPalettes
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_UNOWN_PUZZLE
call GetPredefPal
call LoadHLPaletteIntoDE
ldh a, [rSVBK]
push af
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
ldh [rSVBK], a
2018-01-01 14:08:21 +00:00
ld hl, wOBPals1
2018-01-18 05:16:03 +00:00
ld a, LOW(palred 31 + palgreen 0 + palblue 0)
ld [hli], a
2018-01-18 05:16:03 +00:00
ld a, HIGH(palred 31 + palgreen 0 + palblue 0)
ld [hl], a
pop af
ldh [rSVBK], a
call WipeAttrmap
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_TrainerCard:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2017-12-11 01:50:08 +00:00
xor a ; CHRIS
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, FALKNER ; KRIS
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, BUGSY
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, WHITNEY
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, MORTY
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, CHUCK
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, JASMINE
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
2017-12-11 01:50:08 +00:00
ld a, PRYCE
2015-12-17 02:57:42 +00:00
call GetTrainerPalettePointer
call LoadPalette_White_Col1_Col2_Black
ld a, PREDEFPAL_CGB_BADGE
call GetPredefPal
call LoadHLPaletteIntoDE
2015-12-17 02:57:42 +00:00
2017-12-11 01:50:08 +00:00
; fill screen with opposite-gender palette for the card border
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, [wPlayerGender]
and a
2017-12-11 01:50:08 +00:00
ld a, $1 ; kris
2015-12-17 02:57:42 +00:00
jr z, .got_gender
2017-12-11 01:50:08 +00:00
ld a, $0 ; chris
2015-12-17 02:57:42 +00:00
.got_gender
call ByteFill
2017-12-11 01:50:08 +00:00
; fill trainer sprite area with same-gender palette
hlcoord 14, 1, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 7, 5
ld a, [wPlayerGender]
and a
2017-12-11 01:50:08 +00:00
ld a, $0 ; chris
2015-12-17 02:57:42 +00:00
jr z, .got_gender2
2017-12-11 01:50:08 +00:00
ld a, $1 ; kris
2015-12-17 02:57:42 +00:00
.got_gender2
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2017-12-11 01:50:08 +00:00
; top-right corner still uses the border's palette
hlcoord 18, 1, wAttrmap
ld [hl], $1
hlcoord 2, 11, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $1 ; falkner
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 6, 11, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $2 ; bugsy
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 11, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $3 ; whitney
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 14, 11, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $4 ; morty
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 2, 14, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $5 ; chuck
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 6, 14, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $6 ; jasmine
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 14, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
2017-12-11 01:50:08 +00:00
ld a, $7 ; pryce
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2017-12-11 01:50:08 +00:00
; clair uses kris's palette
ld a, [wPlayerGender]
and a
push af
2015-12-17 02:57:42 +00:00
jr z, .got_gender3
hlcoord 14, 14, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 4
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
2015-12-17 02:57:42 +00:00
.got_gender3
pop af
ld c, $0
2015-12-17 02:57:42 +00:00
jr nz, .got_gender4
inc c
2015-12-17 02:57:42 +00:00
.got_gender4
ld a, c
hlcoord 18, 1, wAttrmap
ld [hl], a
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_MoveList:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 03:48:57 +00:00
ld a, PREDEFPAL_GOLDENROD
call GetPredefPal
call LoadHLPaletteIntoDE
2018-01-23 22:39:09 +00:00
ld a, [wPlayerHPPal]
ld l, a
ld h, 0
add hl, hl
2015-12-27 02:59:03 +00:00
add hl, hl
2017-12-16 03:36:33 +00:00
ld bc, HPBarPals
add hl, bc
2015-12-17 02:57:42 +00:00
call LoadPalette_White_Col1_Col2_Black
call WipeAttrmap
hlcoord 11, 1, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 2, 9
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_BetaPikachuMinigame:
ld hl, PalPacket_BetaPikachuMinigame + 1
call CopyFourPalettes
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_PokedexSearchOption:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_PackPals:
2015-12-17 02:57:42 +00:00
; pack pals
2018-01-23 22:39:09 +00:00
ld a, [wBattleType]
cp BATTLETYPE_TUTORIAL
2015-12-17 02:57:42 +00:00
jr z, .tutorial_male
ld a, [wPlayerGender]
2018-01-22 19:34:55 +00:00
bit PLAYERGENDER_FEMALE_F, a
2015-12-17 02:57:42 +00:00
jr z, .tutorial_male
ld hl, .KrisPackPals
2015-12-17 02:57:42 +00:00
jr .got_gender
2015-12-17 02:57:42 +00:00
.tutorial_male
ld hl, .ChrisPackPals
2015-12-17 02:57:42 +00:00
.got_gender
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2015-12-17 02:57:42 +00:00
ld bc, 8 palettes ; 6 palettes?
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
call WipeAttrmap
hlcoord 0, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 1, 10
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 10, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 1, 10
ld a, $2
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 7, 2, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 9, 1
ld a, $3
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 7, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 3, 5
ld a, $4
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 3, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 3, 5
ld a, $5
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
.ChrisPackPals:
INCLUDE "gfx/pack/pack.pal"
2018-06-24 14:09:41 +00:00
.KrisPackPals:
INCLUDE "gfx/pack/pack_f.pal"
2018-06-24 14:09:41 +00:00
_CGB_Pokepic:
2015-12-28 15:57:04 +00:00
call _CGB_MapPals
2015-12-17 02:57:42 +00:00
ld de, SCREEN_WIDTH
hlcoord 0, 0, wAttrmap
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderTopCoord]
2015-12-17 02:57:42 +00:00
.loop
and a
2015-12-17 02:57:42 +00:00
jr z, .found_top
dec a
add hl, de
2015-12-17 02:57:42 +00:00
jr .loop
2015-12-17 02:57:42 +00:00
.found_top
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderLeftCoord]
ld e, a
ld d, $0
add hl, de
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderTopCoord]
ld b, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderBottomCoord]
inc a
sub b
ld b, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderLeftCoord]
ld c, a
2015-10-24 14:34:19 +00:00
ld a, [wMenuBorderRightCoord]
sub c
inc a
ld c, a
ld a, $0
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
ret
2018-09-16 17:40:47 +00:00
_CGB_MagnetTrain:
ld hl, PalPacket_MagnetTrain + 1
call CopyFourPalettes
call WipeAttrmap
hlcoord 0, 4, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 10, SCREEN_WIDTH
ld a, $2
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 6, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 6, SCREEN_WIDTH
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
2020-08-03 21:41:01 +00:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 14:09:41 +00:00
_CGB_GamefreakLogo:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
ld a, PREDEFPAL_GAMEFREAK_LOGO_BG
call GetPredefPal
call LoadHLPaletteIntoDE
ld hl, .GamefreakDittoPalette
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
call LoadHLPaletteIntoDE
ld hl, .GamefreakDittoPalette
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette 1
call LoadHLPaletteIntoDE
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
ret
.GamefreakDittoPalette:
INCLUDE "gfx/splash/ditto.pal"
2018-06-24 14:09:41 +00:00
_CGB_PlayerOrMonFrontpicPals:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
2015-12-17 02:57:42 +00:00
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
ret
_CGB_Unused1E:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
call GetMonPalettePointer
2015-12-17 02:57:42 +00:00
call LoadPalette_White_Col1_Col2_Black
call WipeAttrmap
call ApplyAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_TradeTube:
2018-01-18 05:16:03 +00:00
ld hl, PalPacket_TradeTube + 1
call CopyFourPalettes
2017-12-16 03:36:33 +00:00
ld hl, PartyMenuOBPals
2018-01-01 14:08:21 +00:00
ld de, wOBPals1
ld bc, 1 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wOBPals1)
call FarCopyWRAM
2018-01-01 14:08:21 +00:00
ld de, wOBPals1 palette 7
2018-01-18 05:16:03 +00:00
ld a, PREDEFPAL_TRADE_TUBE
call GetPredefPal
call LoadHLPaletteIntoDE
call WipeAttrmap
ret
2018-06-24 14:09:41 +00:00
_CGB_TrainerOrMonFrontpicPals:
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
2015-12-17 02:57:42 +00:00
call GetFrontpicPalettePointer
call LoadPalette_White_Col1_Col2_Black
call WipeAttrmap
call ApplyAttrmap
2015-12-17 02:57:42 +00:00
call ApplyPals
ret
2018-06-24 14:09:41 +00:00
_CGB_MysteryGift:
ld hl, .MysteryGiftPalettes
2018-01-01 14:08:21 +00:00
ld de, wBGPals1
ld bc, 2 palettes
2018-01-01 14:08:21 +00:00
ld a, BANK(wBGPals1)
call FarCopyWRAM
2015-12-17 02:57:42 +00:00
call ApplyPals
call WipeAttrmap
hlcoord 3, 7, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 8, 14
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 1, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 1, 18
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 1, 16, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 1, 18
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 0, 0, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 17, 2
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
hlcoord 18, 5, wAttrmap
2015-11-13 05:49:27 +00:00
lb bc, 12, 1
ld a, $1
2015-11-13 05:49:27 +00:00
call FillBoxCGB
call ApplyAttrmap
ret
.MysteryGiftPalettes:
INCLUDE "gfx/mystery_gift/mystery_gift.pal"
GS_CGB_MysteryGift: ; unreferenced
ld hl, .MysteryGiftPalette
ld de, wBGPals1
ld bc, 1 palettes
ld a, BANK(wBGPals1)
call FarCopyWRAM
call ApplyPals
call WipeAttrmap
call ApplyAttrmap
ret
.MysteryGiftPalette:
RGB 31, 31, 31
RGB 09, 31, 31
RGB 10, 12, 31
RGB 00, 03, 19