mirror of https://github.com/pret/pokecrystal.git
138 lines
2.2 KiB
NASM
138 lines
2.2 KiB
NASM
LoadSpecialMapPalette:
|
|
ld a, [wMapTileset]
|
|
cp TILESET_POKECOM_CENTER
|
|
jr z, .pokecom_2f
|
|
cp TILESET_BATTLE_TOWER
|
|
jr z, .battle_tower
|
|
cp TILESET_ICE_PATH
|
|
jr z, .ice_path
|
|
cp TILESET_HOUSE
|
|
jr z, .house
|
|
cp TILESET_RADIO_TOWER
|
|
jr z, .radio_tower
|
|
cp TILESET_MANSION
|
|
jr z, .mansion_mobile
|
|
jr .do_nothing
|
|
|
|
.pokecom_2f
|
|
call LoadPokeComPalette
|
|
scf
|
|
ret
|
|
|
|
.battle_tower
|
|
call LoadBattleTowerPalette
|
|
scf
|
|
ret
|
|
|
|
.ice_path
|
|
ld a, [wEnvironment]
|
|
and $7
|
|
cp INDOOR ; Hall of Fame
|
|
jr z, .do_nothing
|
|
call LoadIcePathPalette
|
|
scf
|
|
ret
|
|
|
|
.house
|
|
call LoadHousePalette
|
|
scf
|
|
ret
|
|
|
|
.radio_tower
|
|
call LoadRadioTowerPalette
|
|
scf
|
|
ret
|
|
|
|
.mansion_mobile
|
|
call LoadMansionPalette
|
|
scf
|
|
ret
|
|
|
|
.do_nothing
|
|
and a
|
|
ret
|
|
|
|
LoadPokeComPalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, PokeComPalette
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
PokeComPalette:
|
|
INCLUDE "gfx/tilesets/pokecom_center.pal"
|
|
|
|
LoadBattleTowerPalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, BattleTowerPalette
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
BattleTowerPalette:
|
|
INCLUDE "gfx/tilesets/battle_tower.pal"
|
|
|
|
LoadIcePathPalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, IcePathPalette
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
IcePathPalette:
|
|
INCLUDE "gfx/tilesets/ice_path.pal"
|
|
|
|
LoadHousePalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, HousePalette
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
HousePalette:
|
|
INCLUDE "gfx/tilesets/house.pal"
|
|
|
|
LoadRadioTowerPalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, RadioTowerPalette
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
RadioTowerPalette:
|
|
INCLUDE "gfx/tilesets/radio_tower.pal"
|
|
|
|
MansionPalette1:
|
|
INCLUDE "gfx/tilesets/mansion_1.pal"
|
|
|
|
LoadMansionPalette:
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1
|
|
ld hl, MansionPalette1
|
|
ld bc, 8 palettes
|
|
call FarCopyWRAM
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1 palette PAL_BG_YELLOW
|
|
ld hl, MansionPalette2
|
|
ld bc, 1 palettes
|
|
call FarCopyWRAM
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1 palette PAL_BG_WATER
|
|
ld hl, MansionPalette1 + 6 palettes
|
|
ld bc, 1 palettes
|
|
call FarCopyWRAM
|
|
ld a, BANK(wBGPals1)
|
|
ld de, wBGPals1 palette PAL_BG_ROOF
|
|
ld hl, MansionPalette1 + 8 palettes
|
|
ld bc, 1 palettes
|
|
call FarCopyWRAM
|
|
ret
|
|
|
|
MansionPalette2:
|
|
INCLUDE "gfx/tilesets/mansion_2.pal"
|