mirror of https://github.com/pret/pokecrystal.git
637 lines
9.3 KiB
NASM
637 lines
9.3 KiB
NASM
Predef_LoadSGBLayout: ; 864c
|
|
; LoadSGBLayout
|
|
call CheckCGB
|
|
jp nz, Predef_LoadSGBLayoutCGB
|
|
|
|
ld a, b
|
|
cp SCGB_RAM
|
|
jr nz, .not_ram
|
|
ld a, [SGBPredef]
|
|
.not_ram
|
|
cp SCGB_PARTY_MENU_HP_PALS
|
|
jp z, SGB_ApplyPartyMenuHPPals
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, hl
|
|
ld de, .Jumptable
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld de, .Finish
|
|
push de
|
|
jp hl
|
|
; 866f
|
|
|
|
.Jumptable: ; 866f
|
|
dw .SGB_BattleGrayscale
|
|
dw .SGB_BattleColors
|
|
dw .SGB_PokegearPals
|
|
dw .SGB_StatsScreenHPPals
|
|
dw .SGB_Pokedex
|
|
dw .SGB_SlotMachine
|
|
dw .SGB06
|
|
dw .SGB07
|
|
dw .SGB_Diploma
|
|
dw .SGB_MapPals
|
|
dw .SGB_PartyMenu
|
|
dw .SGB_Evolution
|
|
dw .SGB0c
|
|
dw .SGB0d
|
|
dw .SGB_MoveList
|
|
dw .SGB0f
|
|
dw .SGB_PokedexSearchOption
|
|
dw .SGB11
|
|
dw .SGB12
|
|
dw .SGB13
|
|
dw .SGB_PackPals
|
|
dw .SGB_TrainerCard
|
|
dw .SGB_PokedexUnownMode
|
|
dw .SGB_BillsPC
|
|
dw .SGB_UnownPuzzle
|
|
dw .SGB19
|
|
dw .SGB_PlayerOrMonFrontpicPals
|
|
dw .SGB_TradeTube
|
|
dw .SGB_TrainerOrMonFrontpicPals
|
|
dw .SGB_MysteryGift
|
|
dw .SGB1e
|
|
; 86ad
|
|
|
|
.SGB_BattleGrayscale: ; 86ad
|
|
ld hl, PalPacket_9c66
|
|
ld de, BlkPacket_9aa6
|
|
ret
|
|
; 86b4
|
|
|
|
.SGB_BattleColors: ; 86b4
|
|
ld hl, BlkPacket_9aa6
|
|
call PushSGBPals_
|
|
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
|
|
ld a, [PlayerHPPal]
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, hl
|
|
add hl, hl
|
|
ld de, Palettes_a8be
|
|
add hl, de
|
|
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
|
|
ld a, [EnemyHPPal]
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, hl
|
|
add hl, hl
|
|
|
|
ld de, Palettes_a8be
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld [wSGBPals + 9], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 10], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 11], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 12], a
|
|
|
|
ld hl, PalPacket_9cf6
|
|
ld de, wSGBPals + $10
|
|
ld bc, $10
|
|
call CopyBytes
|
|
|
|
call GetBattlemonBackpicPalettePointer
|
|
|
|
ld a, [hli]
|
|
ld [wSGBPals + $13], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + $14], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + $15], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + $16], a
|
|
call GetEnemyFrontpicPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + $19], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + $1a], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + $1b], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + $1c], a
|
|
|
|
ld hl, wSGBPals
|
|
ld de, wSGBPals + $10
|
|
ld a, SCGB_BATTLE_COLORS
|
|
ld [SGBPredef], a
|
|
ret
|
|
; 873c
|
|
|
|
.SGB_MoveList: ; 873c
|
|
ld hl, PalPacket_9bd6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
|
|
ld hl, wSGBPals + 1
|
|
ld [hl], $10
|
|
inc hl
|
|
inc hl
|
|
|
|
ld a, [PlayerHPPal]
|
|
add $2f
|
|
ld [hl], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9ad6
|
|
ret
|
|
; 875c
|
|
|
|
.SGB_PokegearPals: ; 875c
|
|
ld hl, PalPacket_9c76
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8763
|
|
|
|
.SGB_StatsScreenHPPals: ; 8763
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld a, [wCurHPPal]
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, hl
|
|
add hl, hl
|
|
ld de, Palettes_a8be
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
ld a, [CurPartySpecies]
|
|
ld bc, TempMonDVs
|
|
call GetPlayerOrMonPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + 9], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 10], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 11], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 12], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9ac6
|
|
ret
|
|
; 87ab
|
|
|
|
.SGB_PartyMenu: ; 87ab
|
|
ld hl, PalPacket_9c56
|
|
ld de, wSGBPals + 1
|
|
ret
|
|
; 87b2
|
|
|
|
.SGB_Pokedex: ; 87b2
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld hl, wSGBPals + 3
|
|
ld [hl], $9f
|
|
inc hl
|
|
ld [hl], $2a
|
|
inc hl
|
|
ld [hl], $5a
|
|
inc hl
|
|
ld [hl], $19
|
|
ld a, [CurPartySpecies]
|
|
call GetMonPalettePointer_
|
|
ld a, [hli]
|
|
ld [wSGBPals + 9], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 10], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 11], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 12], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9ae6
|
|
ret
|
|
; 87e9
|
|
|
|
.SGB_BillsPC: ; 87e9
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld hl, wSGBPals + 3
|
|
ld [hl], $9f
|
|
inc hl
|
|
ld [hl], $2a
|
|
inc hl
|
|
ld [hl], $5a
|
|
inc hl
|
|
ld [hl], $19
|
|
ld a, [CurPartySpecies]
|
|
ld bc, TempMonDVs
|
|
call GetPlayerOrMonPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + 9], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 10], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 11], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 12], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9ae6
|
|
ret
|
|
; 8823
|
|
|
|
.SGB_PokedexUnownMode: ; 8823
|
|
call .SGB_Pokedex
|
|
ld de, BlkPacket_9af6
|
|
ret
|
|
; 882a
|
|
|
|
.SGB_PokedexSearchOption: ; 882a
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld hl, wSGBPals + 3
|
|
ld [hl], $9f
|
|
inc hl
|
|
ld [hl], $2a
|
|
inc hl
|
|
ld [hl], $5a
|
|
inc hl
|
|
ld [hl], $19
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 884b
|
|
|
|
.SGB_PackPals: ; 884b
|
|
ld hl, PalPacket_9c36
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8852
|
|
|
|
.SGB_SlotMachine: ; 8852
|
|
ld hl, PalPacket_9c96
|
|
ld de, BlkPacket_9b06
|
|
ret
|
|
; 8859
|
|
|
|
.SGB06: ; 8859
|
|
ld hl, PalPacket_9ca6
|
|
ld de, BlkPacket_9b76
|
|
ret
|
|
; 8860
|
|
|
|
.SGB_Diploma:
|
|
.SGB_MysteryGift: ; 8860
|
|
ld hl, PalPacket_9cb6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8867
|
|
|
|
.SGB07: ; 8867
|
|
ld b, 0
|
|
ld hl, .BlkPacketTable_SGB07
|
|
rept 4
|
|
add hl, bc
|
|
endr
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
inc hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
; 8878
|
|
|
|
.BlkPacketTable_SGB07: ; 8878
|
|
dw BlkPacket_9a86, PalPacket_9be6
|
|
dw BlkPacket_9a96, PalPacket_9c06
|
|
dw BlkPacket_9a86, PalPacket_9c16
|
|
; 8884
|
|
|
|
.SGB0c: ; 8884
|
|
ld hl, PalPacket_9b96
|
|
ld de, BlkPacket_9b56
|
|
ld a, SCGB_DIPLOMA
|
|
ld [SGBPredef], a
|
|
ret
|
|
; 8890
|
|
|
|
.SGB13: ; 8890
|
|
ld hl, PalPacket_9ba6
|
|
ld de, BlkPacket_9b86
|
|
ret
|
|
; 8897
|
|
|
|
.SGB0f: ; 8897
|
|
ld hl, PalPacket_9c46
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 889e
|
|
|
|
.SGB11: ; 889e
|
|
ld hl, BlkPacket_9a86
|
|
ld de, PlayerLightScreenCount
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld hl, PalPacket_9bb6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 88b1
|
|
|
|
.SGB_MapPals: ; 88b1
|
|
ld hl, PalPacket_9bd6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
call .GetMapPalsIndex
|
|
ld hl, wSGBPals + 1
|
|
ld [hld], a
|
|
ld de, BlkPacket_9a86
|
|
ld a, SCGB_MAPPALS
|
|
ld [SGBPredef], a
|
|
ret
|
|
; 88cd
|
|
|
|
.SGB_Evolution: ; 88cd
|
|
push bc
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
pop bc
|
|
ld a, c
|
|
and a
|
|
jr z, .partymon
|
|
; Egg
|
|
ld hl, wSGBPals + 3
|
|
; RGB 7, 7, 7
|
|
ld [hl], $e7
|
|
inc hl
|
|
ld [hl], $1c
|
|
inc hl
|
|
; RGB 2, 3, 3
|
|
ld [hl], $62
|
|
inc hl
|
|
ld [hl], $c
|
|
jr .done
|
|
|
|
.partymon
|
|
ld hl, PartyMon1DVs
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
ld a, [CurPartyMon]
|
|
call AddNTimes
|
|
ld c, l
|
|
ld b, h
|
|
ld a, [PlayerHPPal]
|
|
call GetPlayerOrMonPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
|
|
.done
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 891a
|
|
|
|
.SGB0d:
|
|
.SGB_TrainerCard: ; 891a
|
|
ld hl, PalPacket_9cb6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8921
|
|
|
|
.SGB_UnownPuzzle: ; 8921
|
|
ld hl, PalPacket_9bc6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8928
|
|
|
|
.SGB12: ; 8928
|
|
ld hl, PalPacket_9bd6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld hl, BlkPacket_9a86
|
|
ld de, wSGBPals + $10
|
|
ld bc, $10
|
|
call CopyBytes
|
|
call .GetMapPalsIndex
|
|
ld hl, wSGBPals + 1
|
|
ld [hl], a
|
|
ld hl, wSGBPals + 3
|
|
ld [hl], $2e
|
|
ld hl, wSGBPals + $13
|
|
ld a, 5
|
|
ld [hli], a
|
|
ld a, [wMenuBorderLeftCoord]
|
|
ld [hli], a
|
|
ld a, [wMenuBorderTopCoord]
|
|
ld [hli], a
|
|
ld a, [wMenuBorderRightCoord]
|
|
ld [hli], a
|
|
ld a, [wMenuBorderBottomCoord]
|
|
ld [hl], a
|
|
ld hl, wSGBPals
|
|
ld de, wSGBPals + $10
|
|
ret
|
|
; 8969
|
|
|
|
.SGB1e: ; 8969
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld a, [CurPartySpecies]
|
|
ld l, a
|
|
ld h, 0
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
ld de, PokemonPalettes
|
|
add hl, de
|
|
ld a, [wcf65]
|
|
and 3
|
|
sla a
|
|
sla a
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 89a6
|
|
|
|
.SGB19: ; 89a6
|
|
ld hl, PalPacket_9cd6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 89ad
|
|
|
|
.SGB_PlayerOrMonFrontpicPals: ; 89ad
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld a, [CurPartySpecies]
|
|
ld bc, TempMonDVs
|
|
call GetPlayerOrMonPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 89d9
|
|
|
|
.SGB_TradeTube: ; 89d9
|
|
ld hl, PalPacket_9cc6
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 89e0
|
|
|
|
.SGB_TrainerOrMonFrontpicPals: ; 89e0
|
|
ld hl, PalPacket_9ce6
|
|
ld de, wSGBPals
|
|
ld bc, $10
|
|
call CopyBytes
|
|
ld a, [CurPartySpecies]
|
|
ld bc, TempMonDVs
|
|
call GetFrontpicPalettePointer
|
|
ld a, [hli]
|
|
ld [wSGBPals + 3], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 4], a
|
|
ld a, [hli]
|
|
ld [wSGBPals + 5], a
|
|
ld a, [hl]
|
|
ld [wSGBPals + 6], a
|
|
ld hl, wSGBPals
|
|
ld de, BlkPacket_9a86
|
|
ret
|
|
; 8a0c
|
|
|
|
.GetMapPalsIndex: ; 8a0c
|
|
ld a, [TimeOfDayPal]
|
|
cp NITE
|
|
jr c, .morn_day
|
|
ld a, $19
|
|
ret
|
|
|
|
.morn_day
|
|
ld a, [wPermission]
|
|
cp ROUTE
|
|
jr z, .route
|
|
cp CAVE
|
|
jr z, .cave
|
|
cp DUNGEON
|
|
jr z, .cave
|
|
cp PERM_5
|
|
jr z, .perm5
|
|
cp GATE
|
|
jr z, .gate
|
|
ld a, [MapGroup]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .SGBRoofPalInds
|
|
add hl, de
|
|
ld a, [hl]
|
|
ret
|
|
|
|
.route
|
|
ld a, $00
|
|
ret
|
|
|
|
.cave
|
|
ld a, $18
|
|
ret
|
|
|
|
.perm5
|
|
ld a, $06
|
|
ret
|
|
|
|
.gate
|
|
ld a, $03
|
|
ret
|
|
; 8a45
|
|
|
|
.SGBRoofPalInds: ; 8a45
|
|
db $00 ; Unused
|
|
db $12 ; Olivine
|
|
db $14 ; Mahogany
|
|
db $18 ; Various Dungeons
|
|
db $11 ; Ecruteak
|
|
db $15 ; Blackthorn
|
|
db $09 ; Cinnabar
|
|
db $04 ; Cerulean
|
|
db $0f ; Azalea
|
|
db $16 ; Lake Of Rage
|
|
db $0e ; Violet
|
|
db $10 ; Goldenrod
|
|
db $06 ; Vermilion
|
|
db $01 ; Palette
|
|
db $03 ; Pewter
|
|
db $06 ; Fast Ship
|
|
db $0b ; Indigo Plateau
|
|
db $08 ; Fuchsia
|
|
db $05 ; Lavender
|
|
db $17 ; Silver Cave Outside
|
|
db $08 ; Pokemon Center 2F
|
|
db $07 ; Celadon
|
|
db $13 ; Cianwood
|
|
db $02 ; Viridian
|
|
db $0c ; New Bark
|
|
db $0a ; Saffron
|
|
db $0d ; Cherrygrove
|
|
; 8a60
|
|
|
|
.Finish: ; 8a60
|
|
push de
|
|
call PushSGBPals_
|
|
pop hl
|
|
jp PushSGBPals_
|
|
; 8a68
|