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:: 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
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`

			`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`