mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
27 lines
418 B
NASM
27 lines
418 B
NASM
LoadPoisonBGPals:
|
|
call .LoadPals
|
|
ret
|
|
|
|
.LoadPals:
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wBGPals2)
|
|
ldh [rSVBK], a
|
|
ld hl, wBGPals2
|
|
ld c, 4 palettes
|
|
.loop
|
|
ld a, LOW(palred 28 + palgreen 21 + palblue 31)
|
|
ld [hli], a
|
|
ld a, HIGH(palred 28 + palgreen 21 + palblue 31)
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ld a, TRUE
|
|
ldh [hCGBPalUpdate], a
|
|
ld c, 4
|
|
call DelayFrames
|
|
farcall _UpdateTimePals
|
|
ret
|