pokecrystal/engine/gfx/cgb_layouts.asm

984 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:
2020-10-30 20:12:25 +00:00
INCLUDE "gfx/intro/gs_shellder_lapras_bg.pal"
2018-06-24 14:09:41 +00:00
.ShellderLaprasOBPals:
2020-10-30 20:12:25 +00:00
INCLUDE "gfx/intro/gs_shellder_lapras_ob.pal"
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:
2020-10-30 20:12:25 +00:00
INCLUDE "gfx/mystery_gift/gs_mystery_gift.pal"