mirror of https://github.com/pret/pokecrystal.git
99 lines
1.2 KiB
NASM
99 lines
1.2 KiB
NASM
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, wShadowOAMSprite00XCoord
|
|
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
|