mirror of
https://github.com/pret/pokegold.git
synced 2026-08-09 03:44:06 -05:00
42 lines
616 B
NASM
42 lines
616 B
NASM
LoadPoisonBGPals:
|
|
call .LoadPals
|
|
ldh a, [hCGB]
|
|
and a
|
|
ret nz
|
|
ret ; ????
|
|
|
|
.LoadPals:
|
|
ldh a, [hCGB]
|
|
and a
|
|
jr nz, .cgb
|
|
ld a, [wTimeOfDayPal]
|
|
maskbits NUM_DAYTIMES
|
|
cp DARKNESS_F
|
|
ld a, %00000000
|
|
jr z, .convert_pals
|
|
ld a, %10101010
|
|
|
|
.convert_pals
|
|
call DmgToCgbBGPals
|
|
ld c, 4
|
|
call DelayFrames
|
|
farcall _UpdateTimePals
|
|
ret
|
|
|
|
.cgb
|
|
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
|
|
ld a, $1
|
|
ldh [hCGBPalUpdate], a
|
|
ld c, 4
|
|
call DelayFrames
|
|
farcall _UpdateTimePals
|
|
ret
|