ref: 131bda73bc47431b7f5d669fe8aea7e965d577d4
dir: /predef/crystal.asm/
GetMysteryGift_MobileAdapterLayout: ; 4930f (mobile) ld a, b cp SCGB_RAM jr nz, .not_ram ld a, [SGBPredef] .not_ram push af callba ResetBGPals pop af ld l, a ld h, 0 add hl, hl ld de, .dw add hl, de ld a, [hli] ld h, [hl] ld l, a ld de, .done push de jp [hl] .done ret ; 49330 (12:5330) .dw ; 49330 dw MG_Mobile_Layout00 dw MG_Mobile_Layout01 dw MG_Mobile_Layout02 ; 49336 MG_Mobile_Layout_FillBox: ; 49336 .row push bc push hl .col ld [hli], a dec c jr nz, .col pop hl ld bc, SCREEN_WIDTH add hl, bc pop bc dec b jr nz, .row ret ; 49346 MG_Mobile_Layout_WipeAttrMap: ; 49346 (12:5346) hlcoord 0, 0, AttrMap ld bc, SCREEN_HEIGHT * SCREEN_WIDTH xor a call ByteFill ret MG_Mobile_Layout_LoadPals: ; 49351 (12:5351) ld de, UnknBGPals ld hl, Palette_493e1 ld bc, 5 palettes ld a, $5 ; BANK(UnknBGPals) call FarCopyWRAM ld de, UnknBGPals + 7 palettes ld hl, Palette_TextBG7 ld bc, 1 palettes ld a, $5 ; BANK(UnknBGPals) call FarCopyWRAM ret MG_Mobile_Layout00: ; 4936e (12:536e) call MG_Mobile_Layout_LoadPals call MG_Mobile_Layout_WipeAttrMap call MG_Mobile_Layout_CreatePalBoxes callba ApplyAttrMap callba ApplyPals ret MG_Mobile_Layout_CreatePalBoxes: ; 49384 (12:5384) hlcoord 0, 0, AttrMap lb bc, 4, 1 ld a, $1 call MG_Mobile_Layout_FillBox lb bc, 2, 1 ld a, $2 call MG_Mobile_Layout_FillBox lb bc, 6, 1 ld a, $3 call MG_Mobile_Layout_FillBox hlcoord 1, 0, AttrMap ld a, $1 lb bc, 3, 18 call MG_Mobile_Layout_FillBox lb bc, 2, 18 ld a, $2 call MG_Mobile_Layout_FillBox lb bc, 12, 18 ld a, $3 call MG_Mobile_Layout_FillBox hlcoord 19, 0, AttrMap lb bc, 4, 1 ld a, $1 call MG_Mobile_Layout_FillBox lb bc, 2, 1 ld a, $2 call MG_Mobile_Layout_FillBox lb bc, 6, 1 ld a, $3 call MG_Mobile_Layout_FillBox hlcoord 0, 12, AttrMap ld bc, 6 * SCREEN_WIDTH ld a, $7 call ByteFill ret ; 493e1 (12:53e1) Palette_493e1: ; 493e1 RGB 03, 07, 09 RGB 26, 31, 00 RGB 20, 16, 03 RGB 31, 31, 31 RGB 13, 24, 29 RGB 11, 16, 30 RGB 07, 11, 22 RGB 05, 06, 18 RGB 31, 31, 31 RGB 20, 26, 31 RGB 13, 24, 29 RGB 11, 16, 30 RGB 31, 31, 31 RGB 20, 26, 31 RGB 00, 00, 00 RGB 00, 00, 00 RGB 31, 31, 31 RGB 20, 16, 08 RGB 31, 00, 00 RGB 00, 00, 00 ; 49409 LoadOW_BGPal7:: ; 49409 ld hl, Palette_TextBG7 ld de, UnknBGPals + 8 * 7 ld bc, 8 ld a, $5 call FarCopyWRAM ret ; 49418 Palette_TextBG7: ; 49418 RGB 31, 31, 31 RGB 08, 19, 28 RGB 05, 05, 16 RGB 00, 00, 00 ; 49420 Function49420:: ; 49420 (12:5420) ld hl, MansionPalette4 ld de, UnknBGPals + $30 ld bc, $8 ld a, $5 ; BANK(UnknBGPals) call FarCopyWRAM ret ; 4942f (12:542f) MG_Mobile_Layout01: ; 4942f call MG_Mobile_Layout_LoadPals ld de, UnknBGPals + $38 ld hl, Palette_49478 ld bc, $8 ld a, $5 ; BANK(UnknBGPals) call FarCopyWRAM call MG_Mobile_Layout_WipeAttrMap hlcoord 0, 0, AttrMap ld bc, SCREEN_WIDTH * SCREEN_HEIGHT xor a call ByteFill hlcoord 0, 14, AttrMap ld bc, 4 * SCREEN_WIDTH ld a, $7 call ByteFill ld a, [wd002] bit 6, a jr z, .asm_49464 call Function49480 jr .asm_49467 .asm_49464 call Function49496 .asm_49467 callba ApplyAttrMap callba ApplyPals ld a, $1 ld [hCGBPalUpdate], a ret ; 49478 Palette_49478: ; 49478 RGB 31, 31, 31 RGB 26, 31, 00 RGB 20, 16, 03 RGB 00, 00, 00 ; 49480 Function49480: ; 49480 hlcoord 0, 0, AttrMap lb bc, 4, SCREEN_WIDTH ld a, $7 call MG_Mobile_Layout_FillBox hlcoord 0, 2, AttrMap ld a, $4 ld [hl], a hlcoord 19, 2, AttrMap ld [hl], a ret ; 49496 Function49496: ; 49496 hlcoord 0, 0, AttrMap lb bc, 2, SCREEN_WIDTH ld a, $7 call MG_Mobile_Layout_FillBox hlcoord 0, 1, AttrMap ld a, $4 ld [hl], a hlcoord 19, 1, AttrMap ld [hl], a ret ; 494ac LoadSpecialMapPalette: ; 494ac ld a, [wTileset] 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_1 jr z, .house cp TILESET_RADIO_TOWER jr z, .radio_tower cp TILESET_CELADON_MANSION jr z, .mansion_mobile jr .do_nothing .pokecom_2f call LoadPokeComPalette scf ret .battle_tower call LoadBattleTowerPalette scf ret .ice_path ld a, [wPermission] ; permission and 7 cp 3 ; 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 ; 494f2 LoadPokeComPalette: ; 494f2 ld a, $5 ld de, UnknBGPals ld hl, PokeComPalette ld bc, 8 palettes call FarCopyWRAM ret ; 49501 PokeComPalette: ; 49501 INCLUDE "tilesets/pokecom.pal" ; 49541 LoadBattleTowerPalette: ; 49541 ld a, $5 ld de, UnknBGPals ld hl, BattleTowerPalette ld bc, 8 palettes call FarCopyWRAM ret ; 49550 BattleTowerPalette: ; 49550 INCLUDE "tilesets/battle_tower.pal" ; 49590 LoadIcePathPalette: ; 49590 ld a, $5 ld de, UnknBGPals ld hl, IcePathPalette ld bc, 8 palettes call FarCopyWRAM ret ; 4959f IcePathPalette: ; 4959f INCLUDE "tilesets/ice_path.pal" ; 495df LoadHousePalette: ; 495df ld a, $5 ld de, UnknBGPals ld hl, HousePalette ld bc, 8 palettes call FarCopyWRAM ret ; 495ee HousePalette: ; 495ee INCLUDE "tilesets/house.pal" ; 4962e LoadRadioTowerPalette: ; 4962e ld a, $5 ld de, UnknBGPals ld hl, RadioTowerPalette ld bc, 8 palettes call FarCopyWRAM ret ; 4963d RadioTowerPalette: ; 4963d INCLUDE "tilesets/radio_tower.pal" ; 4967d MansionPalette1: ; 4967d RGB 30, 28, 26 RGB 19, 19, 19 RGB 13, 13, 13 RGB 07, 07, 07 RGB 30, 28, 26 RGB 31, 19, 24 RGB 30, 10, 06 RGB 07, 07, 07 RGB 18, 24, 09 RGB 15, 20, 01 RGB 09, 13, 00 RGB 07, 07, 07 RGB 30, 28, 26 RGB 15, 16, 31 RGB 09, 09, 31 RGB 07, 07, 07 RGB 30, 28, 26 RGB 31, 31, 07 RGB 31, 16, 01 RGB 07, 07, 07 RGB 26, 24, 17 RGB 21, 17, 07 RGB 16, 13, 03 RGB 07, 07, 07 MansionPalette3: ; 496ad RGB 30, 28, 26 RGB 17, 19, 31 RGB 14, 16, 31 RGB 07, 07, 07 RGB 31, 31, 16 RGB 31, 31, 16 RGB 14, 09, 00 RGB 00, 00, 00 ; 496bd MansionPalette4: ; 496bd RGB 05, 05, 16 RGB 08, 19, 28 RGB 00, 00, 00 RGB 31, 31, 31 ; 496c5 LoadMansionPalette: ; 496c5 ld a, $5 ld de, UnknBGPals ld hl, MansionPalette1 ld bc, 8 palettes call FarCopyWRAM ld a, $5 ld de, UnknBGPals + 4 palettes ld hl, MansionPalette2 ld bc, 1 palettes call FarCopyWRAM ld a, $5 ld de, UnknBGPals + 3 palettes ld hl, MansionPalette3 ld bc, 1 palettes call FarCopyWRAM ld a, $5 ld de, UnknBGPals + 6 palettes ld hl, MansionPalette4 ld bc, 1 palettes call FarCopyWRAM ret ; 496fe MansionPalette2: ; 496fe RGB 25, 24, 23 RGB 20, 19, 19 RGB 14, 16, 31 RGB 07, 07, 07 ; 49706 MG_Mobile_Layout02: ; 49706 ld hl, Palette_49732 ld de, UnknBGPals ld bc, 1 palettes ld a, $5 call FarCopyWRAM callba ApplyPals call MG_Mobile_Layout_WipeAttrMap callba ApplyAttrMap ld hl, Palette_4973a ld de, UnknOBPals ld bc, 1 palettes ld a, $5 call FarCopyWRAM ret ; 49732 Palette_49732: ; 49732 RGB 31, 31, 31 RGB 23, 16, 07 RGB 23, 07, 07 RGB 03, 07, 20 ; 4973a Palette_4973a: ; 4973a RGB 00, 00, 00 RGB 07, 05, 31 RGB 14, 18, 31 RGB 31, 31, 31 ; 49742 Function49742: ; 49742 ld hl, Palette_49757 ld de, UnknBGPals ld bc, $40 ld a, $5 call FarCopyWRAM callba ApplyPals ret ; 49757 Palette_49757: ; 49757 RGB 31, 31, 63 RGB 00, 00, 00 RGB 00, 00, 00 RGB 00, 00, 00 RGB 31, 31, 63 RGB 00, 00, 00 RGB 00, 00, 00 RGB 00, 00, 00 RGB 04, 02, 15 RGB 21, 00, 21 RGB 31, 00, 00 RGB 31, 31, 31 RGB 04, 02, 15 RGB 21, 00, 21 RGB 30, 16, 26 RGB 31, 31, 31 RGB 04, 02, 15 RGB 21, 00, 21 RGB 16, 16, 16 RGB 31, 31, 31 RGB 04, 02, 15 RGB 21, 00, 21 RGB 31, 12, 12 RGB 31, 31, 31 RGB 04, 02, 15 RGB 21, 00, 21 RGB 07, 08, 31 RGB 31, 31, 31 RGB 04, 02, 15 RGB 21, 00, 21 RGB 29, 28, 09 RGB 31, 31, 31 ; 49797 _InitMG_Mobile_LinkTradePalMap: ; 49797 hlcoord 0, 0, AttrMap lb bc, 16, 2 ld a, $4 call MG_Mobile_Layout_FillBox ld a, $3 ldcoord_a 0, 1, AttrMap ldcoord_a 0, 14, AttrMap hlcoord 2, 0, AttrMap lb bc, 8, 18 ld a, $5 call MG_Mobile_Layout_FillBox hlcoord 2, 8, AttrMap lb bc, 8, 18 ld a, $6 call MG_Mobile_Layout_FillBox hlcoord 0, 16, AttrMap lb bc, 2, SCREEN_WIDTH ld a, $4 call MG_Mobile_Layout_FillBox ld a, $3 lb bc, 6, 1 hlcoord 6, 1, AttrMap call MG_Mobile_Layout_FillBox ld a, $3 lb bc, 6, 1 hlcoord 17, 1, AttrMap call MG_Mobile_Layout_FillBox ld a, $3 lb bc, 6, 1 hlcoord 6, 9, AttrMap call MG_Mobile_Layout_FillBox ld a, $3 lb bc, 6, 1 hlcoord 17, 9, AttrMap call MG_Mobile_Layout_FillBox ld a, $2 hlcoord 2, 16, AttrMap ld [hli], a ld a, $7 ld [hli], a ld [hli], a ld [hli], a ld a, $2 ld [hl], a hlcoord 2, 17, AttrMap ld a, $3 ld bc, 6 call ByteFill ret ; 49811 LoadTradeRoomBGPals: ; 49811 ld hl, Palette_49826 ld de, UnknBGPals + $10 ld bc, $30 ld a, $5 call FarCopyWRAM callba ApplyPals ret ; 49826 Palette_49826: ; 49826 RGB 04, 02, 15 RGB 07, 09, 31 RGB 31, 00, 00 RGB 31, 31, 31 RGB 04, 02, 15 RGB 07, 09, 31 RGB 15, 23, 30 RGB 31, 31, 31 RGB 04, 02, 15 RGB 07, 09, 31 RGB 16, 16, 16 RGB 31, 31, 31 RGB 04, 02, 15 RGB 07, 09, 31 RGB 25, 07, 04 RGB 31, 31, 31 RGB 04, 02, 15 RGB 07, 09, 31 RGB 03, 22, 08 RGB 31, 31, 31 RGB 04, 02, 15 RGB 07, 09, 31 RGB 29, 28, 09 RGB 31, 31, 31 ; 49856 InitMG_Mobile_LinkTradePalMap: ; 49856 call _InitMG_Mobile_LinkTradePalMap ret ; 4985a