mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
73 lines
1.3 KiB
NASM
73 lines
1.3 KiB
NASM
; These routines manage gradual fading
|
|
; (e.g., entering a doorway)
|
|
LoadGBPal::
|
|
ld a, [wMapPalOffset] ; tells if wCurMap is dark (requires HM5_FLASH?)
|
|
ld b, a
|
|
ld hl, FadePal4
|
|
ld a, l
|
|
sub b
|
|
ld l, a
|
|
jr nc, .ok
|
|
dec h
|
|
.ok
|
|
ld a, [hli]
|
|
ldh [rBGP], a
|
|
ld a, [hli]
|
|
ldh [rOBP0], a
|
|
ld a, [hli]
|
|
ldh [rOBP1], a
|
|
ret
|
|
|
|
GBFadeInFromBlack::
|
|
ld hl, FadePal1
|
|
ld b, 4
|
|
jr GBFadeIncCommon
|
|
|
|
GBFadeOutToWhite::
|
|
ld hl, FadePal6
|
|
ld b, 3
|
|
|
|
GBFadeIncCommon:
|
|
ld a, [hli]
|
|
ldh [rBGP], a
|
|
ld a, [hli]
|
|
ldh [rOBP0], a
|
|
ld a, [hli]
|
|
ldh [rOBP1], a
|
|
ld c, 8
|
|
call DelayFrames
|
|
dec b
|
|
jr nz, GBFadeIncCommon
|
|
ret
|
|
|
|
GBFadeOutToBlack::
|
|
ld hl, FadePal4 + 2
|
|
ld b, 4
|
|
jr GBFadeDecCommon
|
|
|
|
GBFadeInFromWhite::
|
|
ld hl, FadePal7 + 2
|
|
ld b, 3
|
|
|
|
GBFadeDecCommon:
|
|
ld a, [hld]
|
|
ldh [rOBP1], a
|
|
ld a, [hld]
|
|
ldh [rOBP0], a
|
|
ld a, [hld]
|
|
ldh [rBGP], a
|
|
ld c, 8
|
|
call DelayFrames
|
|
dec b
|
|
jr nz, GBFadeDecCommon
|
|
ret
|
|
|
|
FadePal1:: db %11111111, %11111111, %11111111
|
|
FadePal2:: db %11111110, %11111110, %11111000
|
|
FadePal3:: db %11111001, %11100100, %11100100
|
|
FadePal4:: db %11100100, %11010000, %11100000
|
|
; rBGP rOBP0 rOBP1
|
|
FadePal5:: db %11100100, %11010000, %11100000
|
|
FadePal6:: db %10010000, %10000000, %10010000
|
|
FadePal7:: db %01000000, %01000000, %01000000
|
|
FadePal8:: db %00000000, %00000000, %00000000
|