pokecrystal/engine/crystal_colors.asm

337 lines
5.8 KiB
NASM
Raw Normal View History

2015-12-17 02:57:42 +00:00
GetMysteryGift_MobileAdapterLayout: ; 4930f (mobile)
ld a, b
cp SCGB_RAM
jr nz, .not_ram
ld a, [SGBPredef]
.not_ram
push af
2017-12-24 17:47:30 +00:00
farcall ResetBGPals
2015-12-17 02:57:42 +00:00
pop af
ld l, a
ld h, 0
add hl, hl
2015-12-27 02:59:03 +00:00
ld de, .dw
2015-12-17 02:57:42 +00:00
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
ld de, .done
push de
jp hl
2015-12-17 02:57:42 +00:00
.done
ret
; 49330 (12:5330)
.dw ; 49330
2015-12-27 02:59:03 +00:00
dw MG_Mobile_Layout00
dw MG_Mobile_Layout01
dw MG_Mobile_Layout02
2015-12-17 02:57:42 +00:00
; 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
2017-12-16 03:36:33 +00:00
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
call FarCopyWRAM
2017-12-16 03:36:33 +00:00
ld de, UnknBGPals palette PAL_BG_TEXT
2015-12-17 02:57:42 +00:00
ld hl, Palette_TextBG7
ld bc, 1 palettes
2017-12-16 03:36:33 +00:00
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
call FarCopyWRAM
ret
MG_Mobile_Layout00: ; 4936e (12:536e)
call MG_Mobile_Layout_LoadPals
call MG_Mobile_Layout_WipeAttrMap
call MG_Mobile_Layout_CreatePalBoxes
2017-12-24 17:47:30 +00:00
farcall ApplyAttrMap
farcall ApplyPals
2015-12-17 02:57:42 +00:00
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
2017-12-16 03:36:33 +00:00
INCLUDE "data/palettes/mg_mobile.pal"
2015-12-17 02:57:42 +00:00
; 49409
LoadOW_BGPal7:: ; 49409
ld hl, Palette_TextBG7
2017-12-16 03:36:33 +00:00
ld de, UnknBGPals palette PAL_BG_TEXT
ld bc, 1 palettes
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
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
2017-12-16 03:36:33 +00:00
ld de, UnknBGPals palette PAL_BG_ROOF
ld bc, 1 palettes
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
call FarCopyWRAM
ret
; 4942f (12:542f)
MG_Mobile_Layout01: ; 4942f
call MG_Mobile_Layout_LoadPals
2017-12-16 03:36:33 +00:00
ld de, UnknBGPals palette PAL_BG_TEXT
2015-12-17 02:57:42 +00:00
ld hl, Palette_49478
2017-12-16 03:36:33 +00:00
ld bc, 1 palettes
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
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
2017-12-24 17:47:30 +00:00
farcall ApplyAttrMap
farcall ApplyPals
2015-12-17 02:57:42 +00:00
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
INCLUDE "tilesets/special_palettes.asm"
2015-12-17 02:57:42 +00:00
MG_Mobile_Layout02: ; 49706
ld hl, Palette_49732
ld de, UnknBGPals
ld bc, 1 palettes
2017-12-16 03:36:33 +00:00
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
call FarCopyWRAM
2017-12-24 17:47:30 +00:00
farcall ApplyPals
2015-12-17 02:57:42 +00:00
call MG_Mobile_Layout_WipeAttrMap
2017-12-24 17:47:30 +00:00
farcall ApplyAttrMap
2015-12-17 02:57:42 +00:00
ld hl, Palette_4973a
ld de, UnknOBPals
ld bc, 1 palettes
2017-12-16 03:36:33 +00:00
ld a, BANK(UnknOBPals)
2015-12-17 02:57:42 +00:00
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
2017-12-24 17:47:30 +00:00
farcall ApplyPals
2015-12-17 02:57:42 +00:00
ret
; 49757
Palette_49757: ; 49757
2017-12-16 03:36:33 +00:00
INCLUDE "data/palettes/49757.pal"
2015-12-17 02:57:42 +00:00
; 49797
2015-12-21 19:10:16 +00:00
_InitMG_Mobile_LinkTradePalMap: ; 49797
2015-12-17 02:57:42 +00:00
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
2015-12-17 02:57:42 +00:00
ld a, $2
ld [hl], a
hlcoord 2, 17, AttrMap
ld a, $3
ld bc, 6
call ByteFill
ret
; 49811
2016-05-16 01:50:31 +00:00
LoadTradeRoomBGPals: ; 49811
2017-12-16 03:36:33 +00:00
ld hl, TradeRoomPalette
ld de, UnknBGPals palette PAL_BG_GREEN
ld bc, 6 palettes
ld a, BANK(UnknBGPals)
2015-12-17 02:57:42 +00:00
call FarCopyWRAM
2017-12-24 17:47:30 +00:00
farcall ApplyPals
2015-12-17 02:57:42 +00:00
ret
; 49826
2017-12-16 03:36:33 +00:00
TradeRoomPalette: ; 49826
INCLUDE "data/palettes/trade_room.pal"
2015-12-17 02:57:42 +00:00
; 49856
2015-12-21 19:10:16 +00:00
InitMG_Mobile_LinkTradePalMap: ; 49856
call _InitMG_Mobile_LinkTradePalMap
2015-12-17 02:57:42 +00:00
ret
; 4985a
Unknown_4985a: ; unreferenced
db $ab, $03, $57, $24, $ac, $0e, $13, $32
db $be, $30, $5b, $4c, $47, $60, $ed, $f2
db $ab, $03, $55, $26, $aa, $0a, $13, $3a
db $be, $28, $33, $24, $6e, $71, $df, $b0
db $a8, $00, $e5, $e0, $9a, $fc, $f4, $2c
db $fe, $4c, $a3, $5e, $c6, $3a, $ab, $4d
db $a8, $00, $b5, $b0, $de, $e8, $fc, $1c
db $ba, $66, $f7, $0e, $ba, $5e, $43, $bd