| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- ; 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]
- ld [rBGP], a
- ld a, [hli]
- ld [rOBP0], a
- ld a, [hli]
- ld [rOBP1], a
- ret
- GBFadeInFromBlack::
- ld hl, FadePal1
- ld b, 4
- jr GBFadeIncCommon
- GBFadeOutToWhite::
- ld hl, FadePal6
- ld b, 3
- GBFadeIncCommon:
- ld a, [hli]
- ld [rBGP], a
- ld a, [hli]
- ld [rOBP0], a
- ld a, [hli]
- ld [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]
- ld [rOBP1], a
- ld a, [hld]
- ld [rOBP0], a
- ld a, [hld]
- ld [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
|
