pokecrystal-board/engine/battle/sliding_intro.asm

BattleIntroSlidingPics:
	ldh a, [rSVBK]
	push af
	ld a, BANK(wLYOverrides)
	ldh [rSVBK], a
	call .subfunction1
	ld a, LOW(rSCX)
	ldh [hLCDCPointer], a
	call .subfunction2
	xor a
	ldh [hLCDCPointer], a
	pop af
	ldh [rSVBK], a
	ret

.subfunction1
	call .subfunction4
	ld a, $90
	ldh [hSCX], a
	ld a, %11100100
	call DmgToCgbBGPals
	lb de, %11100100, %11100100
	call DmgToCgbObjPals
	ret

.subfunction2
	ld d, $90
	ld e, $72
	ld a, $48
	inc a
.loop1
	push af
.loop2
	ldh a, [rLY]
	cp $60
	jr c, .loop2
	ld a, d
	ldh [hSCX], a
	call .subfunction5
	inc e
	inc e
	dec d
	dec d
	pop af
	push af
	cp $1
	jr z, .skip1
	push de
	call .subfunction3
	pop de

.skip1
	call DelayFrame
	pop af
	dec a
	jr nz, .loop1
	ret

.subfunction3
	ld hl, wVirtualOAMSprite00XCoord
	ld c, $12 ; 18
	ld de, SPRITEOAMSTRUCT_LENGTH
.loop3
	dec [hl]
	dec [hl]
	add hl, de
	dec c
	jr nz, .loop3
	ret

.subfunction4
	ld hl, wLYOverrides
	ld a, $90
	ld bc, SCREEN_HEIGHT_PX
	call ByteFill
	ret

.subfunction5
	ld hl, wLYOverrides
	ld a, d
	ld c, $3e ; 62
.loop4
	ld [hli], a
	dec c
	jr nz, .loop4
	ld a, e
	ld c, $22 ; 34
.loop5
	ld [hli], a
	dec c
	jr nz, .loop5
	xor a
	ld c, $30 ; 48
.loop6
	ld [hli], a
	dec c
	jr nz, .loop6
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`BattleIntroSlidingPics:`
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, [rSVBK]`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`push af`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, BANK(wLYOverrides)`
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 [rSVBK], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`call .subfunction1`
hLabel - $ff00 -> LOW(hLabel) 2018-08-25 11:34:25 -07:00			`ld a, LOW(rSCX)`
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 [hLCDCPointer], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`call .subfunction2`
			`xor a`
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 [hLCDCPointer], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`pop af`
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 [rSVBK], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.subfunction1`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`call .subfunction4`
			`ld a, $90`
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 [hSCX], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ld a, %11100100`
			`call DmgToCgbBGPals`
			`lb de, %11100100, %11100100`
			`call DmgToCgbObjPals`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.subfunction2`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ld d, $90`
			`ld e, $72`
			`ld a, $48`
			`inc a`
			`.loop1`
			`push af`
			`.loop2`
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, [rLY]`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`cp $60`
			`jr c, .loop2`
			`ld a, d`
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 [hSCX], a`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`call .subfunction5`
			`inc e`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 08:46:23 -07:00			`inc e`
			`dec d`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`dec d`
			`pop af`
			`push af`
			`cp $1`
			`jr z, .skip1`
			`push de`
			`call .subfunction3`
			`pop de`

			`.skip1`
			`call DelayFrame`
			`pop af`
			`dec a`
			`jr nz, .loop1`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.subfunction3`
Fix wVirtualOAM labels, part 2. 2018-01-30 11:52:46 -08:00			`ld hl, wVirtualOAMSprite00XCoord`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ld c, $12 ; 18`
Resolve #461 2018-01-10 10:47:57 -08:00			`ld de, SPRITEOAMSTRUCT_LENGTH`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`.loop3`
			`dec [hl]`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 08:46:23 -07:00			`dec [hl]`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`add hl, de`
			`dec c`
			`jr nz, .loop3`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.subfunction4`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wLYOverrides`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ld a, $90`
			`ld bc, SCREEN_HEIGHT_PX`
			`call ByteFill`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.subfunction5`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wLYOverrides`
found the sliding animation at the start of battle 2015-11-10 17:18:49 -08:00			`ld a, d`
			`ld c, $3e ; 62`
			`.loop4`
			`ld [hli], a`
			`dec c`
			`jr nz, .loop4`
			`ld a, e`
			`ld c, $22 ; 34`
			`.loop5`
			`ld [hli], a`
			`dec c`
			`jr nz, .loop5`
			`xor a`
			`ld c, $30 ; 48`
			`.loop6`
			`ld [hli], a`
			`dec c`
			`jr nz, .loop6`
			`ret`