pokecrystal-board/home/fade.asm

; Functions to fade the screen in and out.

TimeOfDayFade:: ; unreferenced
	ld a, [wTimeOfDayPal]
	ld b, a
	ld hl, IncGradGBPalTable_11
	ld a, l
	sub b
	ld l, a
	jr nc, .okay
	dec h

.okay
	ld a, [hli]
	ldh [rBGP], a
	ld a, [hli]
	ldh [rOBP0], a
	ld a, [hli]
	ldh [rOBP1], a
	ret

RotateFourPalettesRight::
	ldh a, [hCGB]
	and a
	jr z, .dmg
	ld hl, IncGradGBPalTable_00
	ld b, 4
	jr RotatePalettesRight

.dmg
	ld hl, IncGradGBPalTable_08
	ld b, 4
	jr RotatePalettesRight

RotateThreePalettesRight::
	ldh a, [hCGB]
	and a
	jr z, .dmg
	ld hl, IncGradGBPalTable_05
	ld b, 3
	jr RotatePalettesRight

.dmg
	ld hl, IncGradGBPalTable_13
	ld b, 3
RotatePalettesRight::
; Rotate palettes to the right and fill with loaded colors from the left
; If we're already at the leftmost color, fill with the leftmost color
	push de
	ld a, [hli]
	call DmgToCgbBGPals
	ld a, [hli]
	ld e, a
	ld a, [hli]
	ld d, a
	call DmgToCgbObjPals
	ld c, 8
	call DelayFrames
	pop de
	dec b
	jr nz, RotatePalettesRight
	ret

RotateFourPalettesLeft::
	ldh a, [hCGB]
	and a
	jr z, .dmg
	ld hl, IncGradGBPalTable_04 - 1
	ld b, 4
	jr RotatePalettesLeft

.dmg
	ld hl, IncGradGBPalTable_12 - 1
	ld b, 4
	jr RotatePalettesLeft

RotateThreePalettesLeft::
	ldh a, [hCGB]
	and a
	jr z, .dmg
	ld hl, IncGradGBPalTable_07 - 1
	ld b, 3
	jr RotatePalettesLeft

.dmg
	ld hl, IncGradGBPalTable_15 - 1
	ld b, 3
RotatePalettesLeft::
; Rotate palettes to the left and fill with loaded colors from the right
; If we're already at the rightmost color, fill with the rightmost color
	push de
	ld a, [hld]
	ld d, a
	ld a, [hld]
	ld e, a
	call DmgToCgbObjPals
	ld a, [hld]
	call DmgToCgbBGPals
	ld c, 8
	call DelayFrames
	pop de
	dec b
	jr nz, RotatePalettesLeft
	ret

IncGradGBPalTable_00:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3
IncGradGBPalTable_01:: dc 3,3,3,2, 3,3,3,2, 3,3,3,2
IncGradGBPalTable_02:: dc 3,3,2,1, 3,3,2,1, 3,3,2,1
IncGradGBPalTable_03:: dc 3,2,1,0, 3,2,1,0, 3,2,1,0

IncGradGBPalTable_04:: dc 3,2,1,0, 3,2,1,0, 3,2,1,0
IncGradGBPalTable_05:: dc 2,1,0,0, 2,1,0,0, 2,1,0,0
IncGradGBPalTable_06:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0

IncGradGBPalTable_07:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0
;                           bgp      obp1     obp2
IncGradGBPalTable_08:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3
IncGradGBPalTable_09:: dc 3,3,3,2, 3,3,3,2, 3,3,2,0
IncGradGBPalTable_10:: dc 3,3,2,1, 3,2,1,0, 3,2,1,0
IncGradGBPalTable_11:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0

IncGradGBPalTable_12:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0
IncGradGBPalTable_13:: dc 2,1,0,0, 2,0,0,0, 2,1,0,0
IncGradGBPalTable_14:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0

IncGradGBPalTable_15:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`; Functions to fade the screen in and out.`

Replace "Unreferenced" labels with "; unreferenced" comments 2020-06-21 13:27:43 -07:00			`TimeOfDayFade:: ; unreferenced`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wTimeOfDayPal]`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld b, a`
			`ld hl, IncGradGBPalTable_11`
			`ld a, l`
			`sub b`
			`ld l, a`
bgcoord 2015-11-20 08:47:52 -08:00			`jr nc, .okay`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`dec h`

bgcoord 2015-11-20 08:47:52 -08:00			`.okay`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld a, [hli]`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [rBGP], a`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld a, [hli]`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [rOBP0], a`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld a, [hli]`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [rOBP1], a`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`RotateFourPalettesRight::`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hCGB]`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`and a`
bgcoord 2015-11-20 08:47:52 -08:00			`jr z, .dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_00`
			`ld b, 4`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesRight`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
bgcoord 2015-11-20 08:47:52 -08:00			`.dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_08`
			`ld b, 4`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesRight`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`RotateThreePalettesRight::`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hCGB]`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`and a`
bgcoord 2015-11-20 08:47:52 -08:00			`jr z, .dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_05`
			`ld b, 3`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesRight`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
bgcoord 2015-11-20 08:47:52 -08:00			`.dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_13`
			`ld b, 3`
Remove all address comments 2018-06-24 07:09:41 -07:00			`RotatePalettesRight::`
bgcoord 2015-11-20 08:47:52 -08:00			`; Rotate palettes to the right and fill with loaded colors from the left`
			`; If we're already at the leftmost color, fill with the leftmost color`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`push de`
			`ld a, [hli]`
			`call DmgToCgbBGPals`
			`ld a, [hli]`
			`ld e, a`
			`ld a, [hli]`
			`ld d, a`
			`call DmgToCgbObjPals`
			`ld c, 8`
			`call DelayFrames`
			`pop de`
			`dec b`
bgcoord 2015-11-20 08:47:52 -08:00			`jr nz, RotatePalettesRight`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`RotateFourPalettesLeft::`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hCGB]`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`and a`
bgcoord 2015-11-20 08:47:52 -08:00			`jr z, .dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_04 - 1`
			`ld b, 4`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesLeft`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
bgcoord 2015-11-20 08:47:52 -08:00			`.dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_12 - 1`
			`ld b, 4`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesLeft`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`RotateThreePalettesLeft::`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hCGB]`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`and a`
bgcoord 2015-11-20 08:47:52 -08:00			`jr z, .dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_07 - 1`
			`ld b, 3`
bgcoord 2015-11-20 08:47:52 -08:00			`jr RotatePalettesLeft`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00
bgcoord 2015-11-20 08:47:52 -08:00			`.dmg`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ld hl, IncGradGBPalTable_15 - 1`
			`ld b, 3`
Remove all address comments 2018-06-24 07:09:41 -07:00			`RotatePalettesLeft::`
bgcoord 2015-11-20 08:47:52 -08:00			`; Rotate palettes to the left and fill with loaded colors from the right`
			`; If we're already at the rightmost color, fill with the rightmost color`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`push de`
			`ld a, [hld]`
			`ld d, a`
			`ld a, [hld]`
			`ld e, a`
			`call DmgToCgbObjPals`
			`ld a, [hld]`
			`call DmgToCgbBGPals`
			`ld c, 8`
			`call DelayFrames`
			`pop de`
			`dec b`
bgcoord 2015-11-20 08:47:52 -08:00			`jr nz, RotatePalettesLeft`
split fading functions out of main.asm 2013-08-29 15:50:59 -07:00			`ret`

Use 0/1/2/3 for palettes, and rgbds opt feature for battle transition graphic 2018-09-09 15:15:54 -07:00			`IncGradGBPalTable_00:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3`
			`IncGradGBPalTable_01:: dc 3,3,3,2, 3,3,3,2, 3,3,3,2`
			`IncGradGBPalTable_02:: dc 3,3,2,1, 3,3,2,1, 3,3,2,1`
			`IncGradGBPalTable_03:: dc 3,2,1,0, 3,2,1,0, 3,2,1,0`
bgcoord 2015-11-20 08:47:52 -08:00
Use 0/1/2/3 for palettes, and rgbds opt feature for battle transition graphic 2018-09-09 15:15:54 -07:00			`IncGradGBPalTable_04:: dc 3,2,1,0, 3,2,1,0, 3,2,1,0`
			`IncGradGBPalTable_05:: dc 2,1,0,0, 2,1,0,0, 2,1,0,0`
			`IncGradGBPalTable_06:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0`
bgcoord 2015-11-20 08:47:52 -08:00
Use 0/1/2/3 for palettes, and rgbds opt feature for battle transition graphic 2018-09-09 15:15:54 -07:00			`IncGradGBPalTable_07:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0`
			`; bgp obp1 obp2`
			`IncGradGBPalTable_08:: dc 3,3,3,3, 3,3,3,3, 3,3,3,3`
			`IncGradGBPalTable_09:: dc 3,3,3,2, 3,3,3,2, 3,3,2,0`
			`IncGradGBPalTable_10:: dc 3,3,2,1, 3,2,1,0, 3,2,1,0`
			`IncGradGBPalTable_11:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0`
bgcoord 2015-11-20 08:47:52 -08:00
Use 0/1/2/3 for palettes, and rgbds opt feature for battle transition graphic 2018-09-09 15:15:54 -07:00			`IncGradGBPalTable_12:: dc 3,2,1,0, 3,1,0,0, 3,2,0,0`
			`IncGradGBPalTable_13:: dc 2,1,0,0, 2,0,0,0, 2,1,0,0`
			`IncGradGBPalTable_14:: dc 1,0,0,0, 1,0,0,0, 1,0,0,0`
bgcoord 2015-11-20 08:47:52 -08:00
Use 0/1/2/3 for palettes, and rgbds opt feature for battle transition graphic 2018-09-09 15:15:54 -07:00			`IncGradGBPalTable_15:: dc 0,0,0,0, 0,0,0,0, 0,0,0,0`