pokered/home/fade.asm

; 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:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3
FadePal2:: dc 3,3,3,2, 3,3,3,2, 3,3,2,0
FadePal3:: dc 3,3,2,1, 3,2,1,0, 3,2,1,0
FadePal4:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0
;              rBGP     rOBP0    rOBP1
FadePal5:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0
FadePal6:: dc 2,1,0,0, 2,0,0,0, 2,1,0,0
FadePal7:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0
FadePal8:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`; These routines manage gradual fading`
			`; (e.g., entering a doorway)`
			`LoadGBPal::`
Sync home and macro code with pokeyellow 2020-11-05 15:50:30 +00:00			`ld a, [wMapPalOffset] ; tells if wCurMap is dark (requires HM5_FLASH?)`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld b, a`
			`ld hl, FadePal4`
			`ld a, l`
			`sub b`
			`ld l, a`
			`jr nc, .ok`
			`dec h`
			`.ok`
			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rBGP], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP0], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ret`

Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeInFromBlack::`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld hl, FadePal1`
			`ld b, 4`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr GBFadeIncCommon`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeOutToWhite::`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld hl, FadePal6`
			`ld b, 3`

Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeIncCommon:`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rBGP], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP0], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hli]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld c, 8`
			`call DelayFrames`
			`dec b`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr nz, GBFadeIncCommon`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ret`

Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeOutToBlack::`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld hl, FadePal4 + 2`
			`ld b, 4`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr GBFadeDecCommon`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeInFromWhite::`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld hl, FadePal7 + 2`
			`ld b, 3`

Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`GBFadeDecCommon:`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hld]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hld]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP0], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld a, [hld]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rBGP], a`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ld c, 8`
			`call DelayFrames`
			`dec b`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr nz, GBFadeDecCommon`
Split more code out of home.asm. 2014-05-31 08:22:15 +00:00			`ret`

Add `bigdw` and `dc` data macros 2023-11-20 22:53:19 +00:00			`FadePal1:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3`
			`FadePal2:: dc 3,3,3,2, 3,3,3,2, 3,3,2,0`
			`FadePal3:: dc 3,3,2,1, 3,2,1,0, 3,2,1,0`
			`FadePal4:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0`
			`; rBGP rOBP0 rOBP1`
			`FadePal5:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0`
			`FadePal6:: dc 2,1,0,0, 2,0,0,0, 2,1,0,0`
			`FadePal7:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0`
			`FadePal8:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0`