pokecrystal-board/engine/tilesets/tileset_palettes.asm

LoadSpecialMapPalette:
	ld a, [wMapTileset]
	cp TILESET_POKECOM_CENTER
	jr z, .pokecom_2f
	cp TILESET_BATTLE_TOWER_INSIDE
	jr z, .battle_tower_inside
	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_inside
	call LoadBattleTowerInsidePalette
	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"

LoadBattleTowerInsidePalette:
	ld a, BANK(wBGPals1)
	ld de, wBGPals1
	ld hl, BattleTowerInsidePalette
	ld bc, 8 palettes
	call FarCopyWRAM
	ret

BattleTowerInsidePalette:
INCLUDE "gfx/tilesets/battle_tower_inside.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 palette 6
	ld bc, 1 palettes
	call FarCopyWRAM
	ld a, BANK(wBGPals1)
	ld de, wBGPals1 palette PAL_BG_ROOF
	ld hl, MansionPalette1 palette 8
	ld bc, 1 palettes
	call FarCopyWRAM
	ret

MansionPalette2:
INCLUDE "gfx/tilesets/mansion_2.pal"
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadSpecialMapPalette:`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld a, [wMapTileset]`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`cp TILESET_POKECOM_CENTER`
			`jr z, .pokecom_2f`
Rename TILESET_BATTLE_TOWER to TILESET_BATTLE_TOWER_INSIDE 2019-11-03 12:03:37 -05:00			`cp TILESET_BATTLE_TOWER_INSIDE`
			`jr z, .battle_tower_inside`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`cp TILESET_ICE_PATH`
			`jr z, .ice_path`
Rename some tilesets (close #467) 2018-01-17 14:50:34 -05:00			`cp TILESET_HOUSE`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`jr z, .house`
			`cp TILESET_RADIO_TOWER`
			`jr z, .radio_tower`
Rename some tilesets (close #467) 2018-01-17 14:50:34 -05:00			`cp TILESET_MANSION`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`jr z, .mansion_mobile`
			`jr .do_nothing`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.pokecom_2f`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`call LoadPokeComPalette`
			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.battle_tower_inside`
Rename TILESET_BATTLE_TOWER to TILESET_BATTLE_TOWER_INSIDE 2019-11-03 12:03:37 -05:00			`call LoadBattleTowerInsidePalette`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.ice_path`
Rename "map permissions" to "map environment" (fix #396) 2017-12-24 13:08:38 -05:00			`ld a, [wEnvironment]`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`and $7`
			`cp INDOOR ; Hall of Fame`
			`jr z, .do_nothing`
			`call LoadIcePathPalette`
			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.house`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`call LoadHousePalette`
			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.radio_tower`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`call LoadRadioTowerPalette`
			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.mansion_mobile`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`call LoadMansionPalette`
			`scf`
			`ret`

Don't use colons for local labels in LoadSpecialMapPalette 2019-11-04 17:43:37 -05:00			`.do_nothing`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`and a`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadPokeComPalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, PokeComPalette`
			`ld bc, 8 palettes`
			`call FarCopyWRAM`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`PokeComPalette:`
Move data/palettes/ .pal files into gfx/ 2018-01-09 23:21:32 -05:00			`INCLUDE "gfx/tilesets/pokecom_center.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Rename TILESET_BATTLE_TOWER to TILESET_BATTLE_TOWER_INSIDE 2019-11-03 12:03:37 -05:00			`LoadBattleTowerInsidePalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Rename TILESET_BATTLE_TOWER to TILESET_BATTLE_TOWER_INSIDE 2019-11-03 12:03:37 -05:00			`ld hl, BattleTowerInsidePalette`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld bc, 8 palettes`
			`call FarCopyWRAM`
			`ret`

Rename TILESET_BATTLE_TOWER to TILESET_BATTLE_TOWER_INSIDE 2019-11-03 12:03:37 -05:00			`BattleTowerInsidePalette:`
			`INCLUDE "gfx/tilesets/battle_tower_inside.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadIcePathPalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, IcePathPalette`
			`ld bc, 8 palettes`
			`call FarCopyWRAM`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`IcePathPalette:`
Move data/palettes/ .pal files into gfx/ 2018-01-09 23:21:32 -05:00			`INCLUDE "gfx/tilesets/ice_path.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadHousePalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, HousePalette`
			`ld bc, 8 palettes`
			`call FarCopyWRAM`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`HousePalette:`
Rename some tilesets (close #467) 2018-01-17 14:50:34 -05:00			`INCLUDE "gfx/tilesets/house.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadRadioTowerPalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, RadioTowerPalette`
			`ld bc, 8 palettes`
			`call FarCopyWRAM`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`RadioTowerPalette:`
Move data/palettes/ .pal files into gfx/ 2018-01-09 23:21:32 -05:00			`INCLUDE "gfx/tilesets/radio_tower.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`MansionPalette1:`
Rename some tilesets (close #467) 2018-01-17 14:50:34 -05:00			`INCLUDE "gfx/tilesets/mansion_1.pal"`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00
Remove all address comments 2018-06-24 16:09:41 +02:00			`LoadMansionPalette:`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, MansionPalette1`
			`ld bc, 8 palettes`
			`call FarCopyWRAM`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1 palette PAL_BG_YELLOW`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld hl, MansionPalette2`
			`ld bc, 1 palettes`
			`call FarCopyWRAM`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1 palette PAL_BG_WATER`
This isn't actually PAL_BG_ROOF My bad. 2018-09-16 03:00:25 +02:00			`ld hl, MansionPalette1 palette 6`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld bc, 1 palettes`
			`call FarCopyWRAM`
Rename Pals labels in WRAM bank 5 2018-01-01 15:08:21 +01:00			`ld a, BANK(wBGPals1)`
			`ld de, wBGPals1 palette PAL_BG_ROOF`
Fix use of in LoadMansionPalette 2018-09-16 01:52:14 +02:00			`ld hl, MansionPalette1 palette 8`
Move tileset-specific palette code into tilesets/ 2017-12-16 00:52:16 -05:00			`ld bc, 1 palettes`
			`call FarCopyWRAM`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`MansionPalette2:`
Rename some tilesets (close #467) 2018-01-17 14:50:34 -05:00			`INCLUDE "gfx/tilesets/mansion_2.pal"`