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

Prefix wram labels with w, part 2.

Browse Source
This commit is contained in:
luckytyphlosion
2018-01-23 17:39:09 -05:00
parent 79bd48f85c
commit a1951cefc0
323 changed files with 8581 additions and 8581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

152
engine/cgb_layouts.asm
View File

@@ -10,7 +10,7 @@ LoadSGBLayoutCGB: ; 8d59
ld a, b
cp SCGB_RAM
jr nz, .not_ram
ld a, [SGBPredef]
ld a, [wSGBPredef]
.not_ram
cp SCGB_PARTY_MENU_HP_PALS
jp z, CGB_ApplyPartyMenuHPPals
@@ -89,7 +89,7 @@ _CGB_BattleColors: ; 8ddb
call GetEnemyFrontpicPalettePointer
push hl
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_ENEMY
ld a, [EnemyHPPal]
ld a, [wEnemyHPPal]
ld l, a
ld h, $0
add hl, hl
@@ -97,7 +97,7 @@ _CGB_BattleColors: ; 8ddb
ld bc, HPBarPals
add hl, bc
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_BG_ENEMY_HP
ld a, [PlayerHPPal]
ld a, [wPlayerHPPal]
ld l, a
ld h, $0
add hl, hl
@@ -113,35 +113,35 @@ _CGB_BattleColors: ; 8ddb
pop hl
call LoadPalette_White_Col1_Col2_Black ; PAL_BATTLE_OB_PLAYER
ld a, SCGB_BATTLE_COLORS
ld [SGBPredef], a
ld [wSGBPredef], a
call ApplyPals
_CGB_FinishBattleScreenLayout: ; 8e23
call InitPartyMenuBGPal7
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, PAL_BATTLE_BG_ENEMY_HP
call ByteFill
hlcoord 0, 4, AttrMap
hlcoord 0, 4, wAttrMap
lb bc, 8, 10
ld a, PAL_BATTLE_BG_PLAYER
call FillBoxCGB
hlcoord 10, 0, AttrMap
hlcoord 10, 0, wAttrMap
lb bc, 7, 10
ld a, PAL_BATTLE_BG_ENEMY
call FillBoxCGB
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
lb bc, 4, 10
ld a, PAL_BATTLE_BG_ENEMY_HP
call FillBoxCGB
hlcoord 10, 7, AttrMap
hlcoord 10, 7, wAttrMap
lb bc, 5, 10
ld a, PAL_BATTLE_BG_PLAYER_HP
call FillBoxCGB
hlcoord 10, 11, AttrMap
hlcoord 10, 11, wAttrMap
lb bc, 1, 9
ld a, PAL_BATTLE_BG_EXP
call FillBoxCGB
hlcoord 0, 12, AttrMap
hlcoord 0, 12, wAttrMap
ld bc, 6 * SCREEN_WIDTH
ld a, PAL_BATTLE_BG_TEXT
call ByteFill
@@ -212,8 +212,8 @@ _CGB_StatsScreenHPPals: ; 8edb
ld bc, HPBarPals
add hl, bc
call LoadPalette_White_Col1_Col2_Black ; hp palette
ld a, [CurPartySpecies]
ld bc, TempMonDVs
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black ; mon palette
ld hl, ExpBarPalette
@@ -225,27 +225,27 @@ _CGB_StatsScreenHPPals: ; 8edb
call FarCopyWRAM
call WipeAttrMap
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
lb bc, 8, SCREEN_WIDTH
ld a, $1 ; mon palette
call FillBoxCGB
hlcoord 10, 16, AttrMap
hlcoord 10, 16, wAttrMap
ld bc, 10
ld a, $2 ; exp palette
call ByteFill
hlcoord 13, 5, AttrMap
hlcoord 13, 5, wAttrMap
lb bc, 2, 2
ld a, $3 ; pink page palette
call FillBoxCGB
hlcoord 15, 5, AttrMap
hlcoord 15, 5, wAttrMap
lb bc, 2, 2
ld a, $4 ; green page palette
call FillBoxCGB
hlcoord 17, 5, AttrMap
hlcoord 17, 5, wAttrMap
lb bc, 2, 2
ld a, $5 ; blue page palette
call FillBoxCGB
@@ -270,7 +270,7 @@ _CGB_Pokedex: ; 8f70
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE ; dex interface palette
ld a, [CurPartySpecies]
ld a, [wCurPartySpecies]
cp $ff
jr nz, .is_pokemon
ld hl, .PokedexQuestionMarkPalette
@@ -282,7 +282,7 @@ _CGB_Pokedex: ; 8f70
call LoadPalette_White_Col1_Col2_Black ; mon palette
.got_palette
call WipeAttrMap
hlcoord 1, 1, AttrMap
hlcoord 1, 1, wAttrMap
lb bc, 7, 7
ld a, $1 ; green question mark palette
call FillBoxCGB
@@ -312,7 +312,7 @@ _CGB_BillsPC: ; 8fca
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE
ld a, [CurPartySpecies]
ld a, [wCurPartySpecies]
cp $ff
jr nz, .GetMonPalette
ld hl, .BillsPCOrangePalette
@@ -320,12 +320,12 @@ _CGB_BillsPC: ; 8fca
jr .Resume
.GetMonPalette:
ld bc, TempMonDVs
ld bc, wTempMonDVs
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
.Resume:
call WipeAttrMap
hlcoord 1, 4, AttrMap
hlcoord 1, 4, wAttrMap
lb bc, 7, 7
ld a, $1
call FillBoxCGB
@@ -343,12 +343,12 @@ _CGB_BillsPC: ; 8fca
jr .asm_901a
.unused
ld bc, TempMonDVs
ld bc, wTempMonDVs
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
.asm_901a
call WipeAttrMap
hlcoord 1, 1, AttrMap
hlcoord 1, 1, wAttrMap
lb bc, 7, 7
ld a, $1
call FillBoxCGB
@@ -369,11 +369,11 @@ _CGB_PokedexUnownMode: ; 903e
ld a, PREDEFPAL_POKEDEX
call GetPredefPal
call LoadHLPaletteIntoDE
ld a, [CurPartySpecies]
ld a, [wCurPartySpecies]
call GetMonPalettePointer_
call LoadPalette_White_Col1_Col2_Black
call WipeAttrMap
hlcoord 7, 5, AttrMap
hlcoord 7, 5, wAttrMap
lb bc, 7, 7
ld a, $1
call FillBoxCGB
@@ -392,43 +392,43 @@ _CGB_SlotMachine: ; 906e
ld a, BANK(wBGPals1)
call FarCopyWRAM
call WipeAttrMap
hlcoord 0, 2, AttrMap
hlcoord 0, 2, wAttrMap
lb bc, 10, 3
ld a, $2
call FillBoxCGB
hlcoord 17, 2, AttrMap
hlcoord 17, 2, wAttrMap
lb bc, 10, 3
ld a, $2
call FillBoxCGB
hlcoord 0, 4, AttrMap
hlcoord 0, 4, wAttrMap
lb bc, 6, 3
ld a, $3
call FillBoxCGB
hlcoord 17, 4, AttrMap
hlcoord 17, 4, wAttrMap
lb bc, 6, 3
ld a, $3
call FillBoxCGB
hlcoord 0, 6, AttrMap
hlcoord 0, 6, wAttrMap
lb bc, 2, 3
ld a, $4
call FillBoxCGB
hlcoord 17, 6, AttrMap
hlcoord 17, 6, wAttrMap
lb bc, 2, 3
ld a, $4
call FillBoxCGB
hlcoord 4, 2, AttrMap
hlcoord 4, 2, wAttrMap
lb bc, 2, 12
ld a, $1
call FillBoxCGB
hlcoord 3, 2, AttrMap
hlcoord 3, 2, wAttrMap
lb bc, 10, 1
ld a, $1
call FillBoxCGB
hlcoord 16, 2, AttrMap
hlcoord 16, 2, wAttrMap
lb bc, 10, 1
ld a, $1
call FillBoxCGB
hlcoord 0, 12, AttrMap
hlcoord 0, 12, wAttrMap
ld bc, $78
ld a, $7
call ByteFill
@@ -447,7 +447,7 @@ _CGB06: ; 90f8
ld a, PREDEFPAL_PACK
call GetPredefPal
call LoadHLPaletteIntoDE
hlcoord 0, 6, AttrMap
hlcoord 0, 6, wAttrMap
lb bc, 12, SCREEN_WIDTH
ld a, $1
call FillBoxCGB
@@ -560,7 +560,7 @@ _CGB_Diploma: ; 91ad
_CGB_MapPals: ; 91c8
call LoadMapPals
ld a, SCGB_MAPPALS
ld [SGBPredef], a
ld [wSGBPredef], a
ret
; 91d1
@@ -585,13 +585,13 @@ _CGB_Evolution: ; 91e4
jr .got_palette
.pokemon
ld hl, PartyMon1DVs
ld hl, wPartyMon1DVs
ld bc, PARTYMON_STRUCT_LENGTH
ld a, [CurPartyMon]
ld a, [wCurPartyMon]
call AddNTimes
ld c, l
ld b, h
ld a, [PlayerHPPal]
ld a, [wPlayerHPPal]
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
ld hl, BattleObjectPals
@@ -621,7 +621,7 @@ _CGB_GSTitleScreen: ; 9228
ld a, BANK(wOBPals1)
call FarCopyWRAM
ld a, SCGB_DIPLOMA
ld [SGBPredef], a
ld [wSGBPredef], a
call ApplyPals
ld a, $1
ld [hCGBPalUpdate], a
@@ -690,7 +690,7 @@ _CGB_TrainerCard: ; 9289
call LoadHLPaletteIntoDE
; fill screen with opposite-gender palette for the card border
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, [wPlayerGender]
and a
@@ -700,7 +700,7 @@ _CGB_TrainerCard: ; 9289
.got_gender
call ByteFill
; fill trainer sprite area with same-gender palette
hlcoord 14, 1, AttrMap
hlcoord 14, 1, wAttrMap
lb bc, 7, 5
ld a, [wPlayerGender]
and a
@@ -710,33 +710,33 @@ _CGB_TrainerCard: ; 9289
.got_gender2
call FillBoxCGB
; top-right corner still uses the border's palette
hlcoord 18, 1, AttrMap
hlcoord 18, 1, wAttrMap
ld [hl], $1
hlcoord 2, 11, AttrMap
hlcoord 2, 11, wAttrMap
lb bc, 2, 4
ld a, $1 ; falkner
call FillBoxCGB
hlcoord 6, 11, AttrMap
hlcoord 6, 11, wAttrMap
lb bc, 2, 4
ld a, $2 ; bugsy
call FillBoxCGB
hlcoord 10, 11, AttrMap
hlcoord 10, 11, wAttrMap
lb bc, 2, 4
ld a, $3 ; whitney
call FillBoxCGB
hlcoord 14, 11, AttrMap
hlcoord 14, 11, wAttrMap
lb bc, 2, 4
ld a, $4 ; morty
call FillBoxCGB
hlcoord 2, 14, AttrMap
hlcoord 2, 14, wAttrMap
lb bc, 2, 4
ld a, $5 ; chuck
call FillBoxCGB
hlcoord 6, 14, AttrMap
hlcoord 6, 14, wAttrMap
lb bc, 2, 4
ld a, $6 ; jasmine
call FillBoxCGB
hlcoord 10, 14, AttrMap
hlcoord 10, 14, wAttrMap
lb bc, 2, 4
ld a, $7 ; pryce
call FillBoxCGB
@@ -745,7 +745,7 @@ _CGB_TrainerCard: ; 9289
and a
push af
jr z, .got_gender3
hlcoord 14, 14, AttrMap
hlcoord 14, 14, wAttrMap
lb bc, 2, 4
ld a, $1
call FillBoxCGB
@@ -756,7 +756,7 @@ _CGB_TrainerCard: ; 9289
inc c
.got_gender4
ld a, c
hlcoord 18, 1, AttrMap
hlcoord 18, 1, wAttrMap
ld [hl], a
call ApplyAttrMap
call ApplyPals
@@ -770,7 +770,7 @@ _CGB_MoveList: ; 9373
ld a, PREDEFPAL_GOLDENROD
call GetPredefPal
call LoadHLPaletteIntoDE
ld a, [PlayerHPPal]
ld a, [wPlayerHPPal]
ld l, a
ld h, 0
add hl, hl
@@ -779,7 +779,7 @@ _CGB_MoveList: ; 9373
add hl, bc
call LoadPalette_White_Col1_Col2_Black
call WipeAttrMap
hlcoord 11, 1, AttrMap
hlcoord 11, 1, wAttrMap
lb bc, 2, 9
ld a, $1
call FillBoxCGB
@@ -816,7 +816,7 @@ _CGB_PokedexSearchOption: ; 93ba
_CGB_PackPals: ; 93d3
; pack pals
ld a, [BattleType]
ld a, [wBattleType]
cp BATTLETYPE_TUTORIAL
jr z, .tutorial_male
@@ -836,23 +836,23 @@ _CGB_PackPals: ; 93d3
ld a, BANK(wBGPals1)
call FarCopyWRAM
call WipeAttrMap
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
lb bc, 1, 10
ld a, $1
call FillBoxCGB
hlcoord 10, 0, AttrMap
hlcoord 10, 0, wAttrMap
lb bc, 1, 10
ld a, $2
call FillBoxCGB
hlcoord 7, 2, AttrMap
hlcoord 7, 2, wAttrMap
lb bc, 9, 1
ld a, $3
call FillBoxCGB
hlcoord 0, 7, AttrMap
hlcoord 0, 7, wAttrMap
lb bc, 3, 5
ld a, $4
call FillBoxCGB
hlcoord 0, 3, AttrMap
hlcoord 0, 3, wAttrMap
lb bc, 3, 5
ld a, $5
call FillBoxCGB
@@ -874,7 +874,7 @@ INCLUDE "gfx/pack/pack_f.pal"
_CGB_Pokepic: ; 9499
call _CGB_MapPals
ld de, SCREEN_WIDTH
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
ld a, [wMenuBorderTopCoord]
.loop
and a
@@ -910,11 +910,11 @@ _CGB13: ; 94d0
ld hl, PalPacket_SCGB_13 + 1
call CopyFourPalettes
call WipeAttrMap
hlcoord 0, 4, AttrMap
hlcoord 0, 4, wAttrMap
lb bc, 10, SCREEN_WIDTH
ld a, $2
call FillBoxCGB
hlcoord 0, 6, AttrMap
hlcoord 0, 6, wAttrMap
lb bc, 6, SCREEN_WIDTH
ld a, $1
call FillBoxCGB
@@ -948,8 +948,8 @@ INCLUDE "gfx/splash/logo.pal"
_CGB_PlayerOrMonFrontpicPals: ; 9529
ld de, wBGPals1
ld a, [CurPartySpecies]
ld bc, TempMonDVs
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
call GetPlayerOrMonPalettePointer
call LoadPalette_White_Col1_Col2_Black
call WipeAttrMap
@@ -960,7 +960,7 @@ _CGB_PlayerOrMonFrontpicPals: ; 9529
_CGB1e: ; 9542
ld de, wBGPals1
ld a, [CurPartySpecies]
ld a, [wCurPartySpecies]
call GetMonPalettePointer_
call LoadPalette_White_Col1_Col2_Black
call WipeAttrMap
@@ -986,8 +986,8 @@ _CGB_TradeTube: ; 9555
_CGB_TrainerOrMonFrontpicPals: ; 9578
ld de, wBGPals1
ld a, [CurPartySpecies]
ld bc, TempMonDVs
ld a, [wCurPartySpecies]
ld bc, wTempMonDVs
call GetFrontpicPalettePointer
call LoadPalette_White_Col1_Col2_Black
call WipeAttrMap
@@ -1004,23 +1004,23 @@ _CGB_MysteryGift: ; 9591
call FarCopyWRAM
call ApplyPals
call WipeAttrMap
hlcoord 3, 7, AttrMap
hlcoord 3, 7, wAttrMap
lb bc, 8, 14
ld a, $1
call FillBoxCGB
hlcoord 1, 5, AttrMap
hlcoord 1, 5, wAttrMap
lb bc, 1, 18
ld a, $1
call FillBoxCGB
hlcoord 1, 16, AttrMap
hlcoord 1, 16, wAttrMap
lb bc, 1, 18
ld a, $1
call FillBoxCGB
hlcoord 0, 0, AttrMap
hlcoord 0, 0, wAttrMap
lb bc, 17, 2
ld a, $1
call FillBoxCGB
hlcoord 18, 5, AttrMap
hlcoord 18, 5, wAttrMap
lb bc, 12, 1
ld a, $1
call FillBoxCGB