mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-17 02:40:50 +12:00
1893b4c7cf
Rhyperior files are dummies and will need to be properly edited with sprites, Rhydon evo data, etc, but it (and the other files included) show that the trainer and pokemon sprite indexes have been separated, which allows us to add the other KEP mons
746 lines
14 KiB
NASM
746 lines
14 KiB
NASM
BattleTransition:
|
|
ld a, 1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
call Delay3
|
|
xor a
|
|
ldh [hWY], a
|
|
dec a
|
|
ld [wUpdateSpritesEnabled], a
|
|
call DelayFrame
|
|
|
|
; Determine which OAM block is being used by the enemy trainer sprite (if there
|
|
; is one).
|
|
ld hl, wSpritePlayerStateData1ImageIndex
|
|
ldh a, [hSpriteIndexOrTextID] ; enemy trainer sprite index (0 if wild battle)
|
|
ld c, a
|
|
ld b, 0
|
|
ld de, $10
|
|
.loop1
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr z, .skip1
|
|
inc b
|
|
.skip1
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop1
|
|
|
|
; Clear OAM except for the blocks used by the player and enemy trainer sprites.
|
|
ld hl, wShadowOAMSprite04
|
|
ld c, 9
|
|
.loop2
|
|
ld a, b
|
|
swap a
|
|
cp l
|
|
jr z, .skip2 ; skip clearing the block if the enemy trainer is using it
|
|
push hl
|
|
push bc
|
|
ld bc, $10
|
|
xor a
|
|
call FillMemory
|
|
pop bc
|
|
pop hl
|
|
.skip2
|
|
ld de, $10
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop2
|
|
|
|
call Delay3
|
|
call LoadBattleTransitionTile
|
|
ld bc, 0
|
|
ld a, [wLinkState]
|
|
cp LINK_STATE_BATTLING
|
|
jr z, .linkBattle
|
|
call GetBattleTransitionID_WildOrTrainer
|
|
call GetBattleTransitionID_CompareLevels
|
|
call GetBattleTransitionID_IsDungeonMap
|
|
.linkBattle
|
|
ld hl, BattleTransitions
|
|
add hl, bc
|
|
add hl, bc
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp hl
|
|
|
|
; the three GetBattleTransitionID functions set the first
|
|
; three bits of c, which determines what transition animation
|
|
; to play at the beginning of a battle
|
|
; bit 0: set if trainer battle
|
|
; bit 1: set if enemy is at least 3 levels higher than player
|
|
; bit 2: set if dungeon map
|
|
BattleTransitions:
|
|
dw BattleTransition_DoubleCircle ; %000
|
|
dw BattleTransition_Spiral ; %001
|
|
dw BattleTransition_Circle ; %010
|
|
dw BattleTransition_Spiral ; %011
|
|
dw BattleTransition_HorizontalStripes ; %100
|
|
dw BattleTransition_Shrink ; %101
|
|
dw BattleTransition_VerticalStripes ; %110
|
|
dw BattleTransition_Split ; %111
|
|
|
|
GetBattleTransitionID_WildOrTrainer:
|
|
ld a, [wCurOpponent]
|
|
and a
|
|
jr nz, .trainer
|
|
res 0, c
|
|
ret
|
|
.trainer
|
|
set 0, c
|
|
ret
|
|
|
|
GetBattleTransitionID_CompareLevels:
|
|
ld hl, wPartyMon1HP
|
|
.faintedLoop
|
|
ld a, [hli]
|
|
or [hl]
|
|
jr nz, .notFainted
|
|
ld de, wPartyMon2 - (wPartyMon1 + 1)
|
|
add hl, de
|
|
jr .faintedLoop
|
|
.notFainted
|
|
ld de, wPartyMon1Level - (wPartyMon1HP + 1)
|
|
add hl, de
|
|
ld a, [hl]
|
|
add $3
|
|
ld e, a
|
|
ld a, [wCurEnemyLVL]
|
|
sub e
|
|
jr nc, .highLevelEnemy
|
|
res 1, c
|
|
ld a, 1
|
|
ld [wBattleTransitionSpiralDirection], a
|
|
ret
|
|
.highLevelEnemy
|
|
set 1, c
|
|
xor a
|
|
ld [wBattleTransitionSpiralDirection], a
|
|
ret
|
|
|
|
GetBattleTransitionID_IsDungeonMap:
|
|
ld a, [wCurMap]
|
|
ld e, a
|
|
ld hl, DungeonMaps1
|
|
.loop1
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .noMatch1
|
|
cp e
|
|
jr nz, .loop1
|
|
.match
|
|
set 2, c
|
|
ret
|
|
.noMatch1
|
|
ld hl, DungeonMaps2
|
|
.loop2
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr z, .noMatch2
|
|
ld d, a
|
|
ld a, [hli]
|
|
cp e
|
|
jr c, .loop2
|
|
ld a, e
|
|
cp d
|
|
jr nc, .match
|
|
.noMatch2
|
|
res 2, c
|
|
ret
|
|
|
|
INCLUDE "data/maps/dungeon_maps.asm"
|
|
|
|
LoadBattleTransitionTile:
|
|
ld hl, vChars1 tile $7f
|
|
ld de, BattleTransitionTile
|
|
lb bc, BANK(BattleTransitionTile), 1
|
|
jp CopyVideoData
|
|
|
|
BattleTransitionTile: INCBIN "gfx/overworld/battle_transition.2bpp"
|
|
|
|
BattleTransition_BlackScreen:
|
|
ld a, $ff
|
|
ldh [rBGP], a
|
|
ldh [rOBP0], a
|
|
ldh [rOBP1], a
|
|
ret
|
|
|
|
; for non-dungeon trainer battles
|
|
; called regardless of mon levels, but does an
|
|
; outward spiral if enemy is at least 3 levels
|
|
; higher than player and does an inward spiral otherwise
|
|
BattleTransition_Spiral:
|
|
ld a, [wBattleTransitionSpiralDirection]
|
|
and a
|
|
jr z, .outwardSpiral
|
|
call BattleTransition_InwardSpiral
|
|
jr .done
|
|
.outwardSpiral
|
|
hlcoord 10, 10
|
|
ld a, $3
|
|
ld [wOutwardSpiralCurrentDirection], a
|
|
ld a, l
|
|
ld [wOutwardSpiralTileMapPointer + 1], a
|
|
ld a, h
|
|
ld [wOutwardSpiralTileMapPointer], a
|
|
ld b, 120
|
|
.loop
|
|
ld c, 3
|
|
.innerLoop
|
|
push bc
|
|
call BattleTransition_OutwardSpiral_
|
|
pop bc
|
|
dec c
|
|
jr nz, .innerLoop
|
|
call DelayFrame
|
|
dec b
|
|
jr nz, .loop
|
|
.done
|
|
call BattleTransition_BlackScreen
|
|
xor a
|
|
ld [wOutwardSpiralTileMapPointer + 1], a
|
|
ld [wOutwardSpiralTileMapPointer], a
|
|
ret
|
|
|
|
BattleTransition_InwardSpiral:
|
|
ld a, 7
|
|
ld [wInwardSpiralUpdateScreenCounter], a
|
|
hlcoord 0, 0
|
|
ld c, SCREEN_HEIGHT - 1
|
|
ld de, SCREEN_WIDTH
|
|
call BattleTransition_InwardSpiral_
|
|
inc c
|
|
jr .skip
|
|
.loop
|
|
ld de, SCREEN_WIDTH
|
|
call BattleTransition_InwardSpiral_
|
|
.skip
|
|
inc c
|
|
ld de, 1
|
|
call BattleTransition_InwardSpiral_
|
|
dec c
|
|
dec c
|
|
ld de, -SCREEN_WIDTH
|
|
call BattleTransition_InwardSpiral_
|
|
inc c
|
|
ld de, -1
|
|
call BattleTransition_InwardSpiral_
|
|
dec c
|
|
dec c
|
|
ld a, c
|
|
and a
|
|
jr nz, .loop
|
|
ret
|
|
|
|
BattleTransition_InwardSpiral_:
|
|
push bc
|
|
.loop
|
|
ld [hl], $ff
|
|
add hl, de
|
|
push bc
|
|
ld a, [wInwardSpiralUpdateScreenCounter]
|
|
dec a
|
|
jr nz, .skip
|
|
call BattleTransition_TransferDelay3
|
|
ld a, 7
|
|
.skip
|
|
ld [wInwardSpiralUpdateScreenCounter], a
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
pop bc
|
|
ret
|
|
|
|
BattleTransition_OutwardSpiral_:
|
|
ld bc, -SCREEN_WIDTH
|
|
ld de, SCREEN_WIDTH
|
|
ld a, [wOutwardSpiralTileMapPointer + 1]
|
|
ld l, a
|
|
ld a, [wOutwardSpiralTileMapPointer]
|
|
ld h, a
|
|
ld a, [wOutwardSpiralCurrentDirection]
|
|
cp $0
|
|
jr z, .up
|
|
cp $1
|
|
jr z, .left
|
|
cp $2
|
|
jr z, .down
|
|
cp $3
|
|
jr z, .right
|
|
.keepSameDirection
|
|
ld [hl], $ff
|
|
.done
|
|
ld a, l
|
|
ld [wOutwardSpiralTileMapPointer + 1], a
|
|
ld a, h
|
|
ld [wOutwardSpiralTileMapPointer], a
|
|
ret
|
|
.up
|
|
dec hl
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr nz, .changeDirection
|
|
inc hl
|
|
add hl, bc
|
|
jr .keepSameDirection
|
|
.left
|
|
add hl, de
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr nz, .changeDirection
|
|
add hl, bc
|
|
dec hl
|
|
jr .keepSameDirection
|
|
.down
|
|
inc hl
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr nz, .changeDirection
|
|
dec hl
|
|
add hl, de
|
|
jr .keepSameDirection
|
|
.right
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr nz, .changeDirection
|
|
add hl, de
|
|
inc hl
|
|
jr .keepSameDirection
|
|
.changeDirection
|
|
ld [hl], $ff
|
|
ld a, [wOutwardSpiralCurrentDirection]
|
|
inc a
|
|
cp $4
|
|
jr nz, .skip
|
|
xor a
|
|
.skip
|
|
ld [wOutwardSpiralCurrentDirection], a
|
|
jr .done
|
|
|
|
FlashScreen:
|
|
BattleTransition_FlashScreen_:
|
|
ld hl, BattleTransition_FlashScreenPalettes
|
|
.loop
|
|
ld a, [hli]
|
|
cp 1
|
|
jr z, .done
|
|
ldh [rBGP], a
|
|
ld c, 2
|
|
call DelayFrames
|
|
jr .loop
|
|
.done
|
|
dec b
|
|
jr nz, BattleTransition_FlashScreen_
|
|
ret
|
|
|
|
BattleTransition_FlashScreenPalettes:
|
|
db %11111001
|
|
db %11111110
|
|
db %11111111
|
|
db %11111110
|
|
db %11111001
|
|
db %11100100
|
|
db %10010000
|
|
db %01000000
|
|
db %00000000
|
|
db %01000000
|
|
db %10010000
|
|
db %11100100
|
|
db 1 ; end
|
|
|
|
; used for low level trainer dungeon battles
|
|
BattleTransition_Shrink:
|
|
ld c, SCREEN_HEIGHT / 2
|
|
.loop
|
|
push bc
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
hlcoord 0, 7
|
|
decoord 0, 8
|
|
ld bc, -SCREEN_WIDTH * 2
|
|
call BattleTransition_CopyTiles1
|
|
hlcoord 0, 10
|
|
decoord 0, 9
|
|
ld bc, SCREEN_WIDTH * 2
|
|
call BattleTransition_CopyTiles1
|
|
hlcoord 8, 0
|
|
decoord 9, 0
|
|
ld bc, -2
|
|
call BattleTransition_CopyTiles2
|
|
hlcoord 11, 0
|
|
decoord 10, 0
|
|
ld bc, 2
|
|
call BattleTransition_CopyTiles2
|
|
ld a, $1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ld c, 6
|
|
call DelayFrames
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
call BattleTransition_BlackScreen
|
|
ld c, 10
|
|
jp DelayFrames
|
|
|
|
; used for high level trainer dungeon battles
|
|
BattleTransition_Split:
|
|
ld c, SCREEN_HEIGHT / 2
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
.loop
|
|
push bc
|
|
hlcoord 0, 16
|
|
decoord 0, 17
|
|
ld bc, -SCREEN_WIDTH * 2
|
|
call BattleTransition_CopyTiles1
|
|
hlcoord 0, 1
|
|
decoord 0, 0
|
|
ld bc, SCREEN_WIDTH * 2
|
|
call BattleTransition_CopyTiles1
|
|
hlcoord 18, 0
|
|
decoord 19, 0
|
|
ld bc, -2
|
|
call BattleTransition_CopyTiles2
|
|
hlcoord 1, 0
|
|
decoord 0, 0
|
|
ld bc, 2
|
|
call BattleTransition_CopyTiles2
|
|
call BattleTransition_TransferDelay3
|
|
call Delay3
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
call BattleTransition_BlackScreen
|
|
ld c, 10
|
|
jp DelayFrames
|
|
|
|
BattleTransition_CopyTiles1:
|
|
ld a, c
|
|
ld [wBattleTransitionCopyTilesOffset], a
|
|
ld a, b
|
|
ld [wBattleTransitionCopyTilesOffset + 1], a
|
|
ld c, 8
|
|
.loop1
|
|
push bc
|
|
push hl
|
|
push de
|
|
ld bc, SCREEN_WIDTH
|
|
call CopyData
|
|
pop hl
|
|
pop de
|
|
ld a, [wBattleTransitionCopyTilesOffset]
|
|
ld c, a
|
|
ld a, [wBattleTransitionCopyTilesOffset + 1]
|
|
ld b, a
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop1
|
|
ld l, e
|
|
ld h, d
|
|
ld a, $ff
|
|
ld c, SCREEN_WIDTH
|
|
.loop2
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop2
|
|
ret
|
|
|
|
BattleTransition_CopyTiles2:
|
|
ld a, c
|
|
ld [wBattleTransitionCopyTilesOffset], a
|
|
ld a, b
|
|
ld [wBattleTransitionCopyTilesOffset + 1], a
|
|
ld c, SCREEN_HEIGHT / 2
|
|
.loop1
|
|
push bc
|
|
push hl
|
|
push de
|
|
ld c, SCREEN_HEIGHT
|
|
.loop2
|
|
ld a, [hl]
|
|
ld [de], a
|
|
ld a, e
|
|
add SCREEN_WIDTH
|
|
jr nc, .noCarry1
|
|
inc d
|
|
.noCarry1
|
|
ld e, a
|
|
ld a, l
|
|
add SCREEN_WIDTH
|
|
jr nc, .noCarry2
|
|
inc h
|
|
.noCarry2
|
|
ld l, a
|
|
dec c
|
|
jr nz, .loop2
|
|
pop hl
|
|
pop de
|
|
ld a, [wBattleTransitionCopyTilesOffset]
|
|
ld c, a
|
|
ld a, [wBattleTransitionCopyTilesOffset + 1]
|
|
ld b, a
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop1
|
|
ld l, e
|
|
ld h, d
|
|
ld de, SCREEN_WIDTH
|
|
ld c, SCREEN_HEIGHT
|
|
.loop3
|
|
ld [hl], $ff
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop3
|
|
ret
|
|
|
|
; used for high level wild dungeon battles
|
|
BattleTransition_VerticalStripes:
|
|
ld c, SCREEN_HEIGHT
|
|
hlcoord 0, 0
|
|
decoord 1, 17
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
.loop
|
|
push bc
|
|
push hl
|
|
push de
|
|
push de
|
|
call BattleTransition_VerticalStripes_
|
|
pop hl
|
|
call BattleTransition_VerticalStripes_
|
|
call BattleTransition_TransferDelay3
|
|
pop hl
|
|
ld bc, -SCREEN_WIDTH
|
|
add hl, bc
|
|
ld e, l
|
|
ld d, h
|
|
pop hl
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
jp BattleTransition_BlackScreen
|
|
|
|
BattleTransition_VerticalStripes_:
|
|
ld c, SCREEN_WIDTH / 2
|
|
.loop
|
|
ld [hl], $ff
|
|
inc hl
|
|
inc hl
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
; used for low level wild dungeon battles
|
|
BattleTransition_HorizontalStripes:
|
|
ld c, SCREEN_WIDTH
|
|
hlcoord 0, 0
|
|
decoord 19, 1
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
.loop
|
|
push bc
|
|
push hl
|
|
push de
|
|
push de
|
|
call BattleTransition_HorizontalStripes_
|
|
pop hl
|
|
call BattleTransition_HorizontalStripes_
|
|
call BattleTransition_TransferDelay3
|
|
pop de
|
|
pop hl
|
|
pop bc
|
|
inc hl
|
|
dec de
|
|
dec c
|
|
jr nz, .loop
|
|
jp BattleTransition_BlackScreen
|
|
|
|
BattleTransition_HorizontalStripes_:
|
|
ld c, SCREEN_HEIGHT / 2
|
|
ld de, SCREEN_WIDTH * 2
|
|
.loop
|
|
ld [hl], $ff
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
; used for high level wild non-dungeon battles
|
|
; makes one full circle around the screen
|
|
; by animating each half circle one at a time
|
|
BattleTransition_Circle:
|
|
call BattleTransition_FlashScreen
|
|
lb bc, 0, SCREEN_WIDTH / 2
|
|
ld hl, BattleTransition_HalfCircle1
|
|
call BattleTransition_Circle_Sub1
|
|
ld c, SCREEN_WIDTH / 2
|
|
ld b, 1
|
|
ld hl, BattleTransition_HalfCircle2
|
|
call BattleTransition_Circle_Sub1
|
|
jp BattleTransition_BlackScreen
|
|
|
|
BattleTransition_FlashScreen:
|
|
ld b, $3
|
|
call BattleTransition_FlashScreen_
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ret
|
|
|
|
BattleTransition_Circle_Sub1:
|
|
push bc
|
|
push hl
|
|
ld a, b
|
|
call BattleTransition_Circle_Sub2
|
|
pop hl
|
|
ld bc, 5
|
|
add hl, bc
|
|
call BattleTransition_TransferDelay3
|
|
pop bc
|
|
dec c
|
|
jr nz, BattleTransition_Circle_Sub1
|
|
ret
|
|
|
|
BattleTransition_TransferDelay3:
|
|
ld a, 1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
call Delay3
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ret
|
|
|
|
; used for low level wild non-dungeon battles
|
|
; makes two half circles around the screen
|
|
; by animating both half circles at the same time
|
|
BattleTransition_DoubleCircle:
|
|
call BattleTransition_FlashScreen
|
|
ld c, SCREEN_WIDTH / 2
|
|
ld hl, BattleTransition_HalfCircle1
|
|
ld de, BattleTransition_HalfCircle2
|
|
.loop
|
|
push bc
|
|
push hl
|
|
push de
|
|
push de
|
|
xor a
|
|
call BattleTransition_Circle_Sub2
|
|
pop hl
|
|
ld a, $1
|
|
call BattleTransition_Circle_Sub2
|
|
pop hl
|
|
ld bc, 5
|
|
add hl, bc
|
|
ld e, l
|
|
ld d, h
|
|
pop hl
|
|
add hl, bc
|
|
call BattleTransition_TransferDelay3
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
jp BattleTransition_BlackScreen
|
|
|
|
BattleTransition_Circle_Sub2:
|
|
ld [wBattleTransitionCircleScreenQuadrantY], a
|
|
ld a, [hli]
|
|
ld [wBattleTransitionCircleScreenQuadrantX], a
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld a, [hli]
|
|
ld d, a
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp BattleTransition_Circle_Sub3
|
|
|
|
; halves
|
|
const_def
|
|
const CIRCLE_LEFT
|
|
const CIRCLE_RIGHT
|
|
|
|
MACRO half_circle
|
|
; quadrant x, circle data, target coord
|
|
db \1
|
|
dw \2
|
|
dwcoord \3, \4
|
|
ENDM
|
|
|
|
BattleTransition_HalfCircle1:
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData1, 18, 6
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData2, 19, 3
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData3, 18, 0
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData4, 14, 0
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData5, 10, 0
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData5, 9, 0
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData4, 5, 0
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData3, 1, 0
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData2, 0, 3
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData1, 1, 6
|
|
|
|
BattleTransition_HalfCircle2:
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData1, 1, 11
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData2, 0, 14
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData3, 1, 17
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData4, 5, 17
|
|
half_circle CIRCLE_LEFT, BattleTransition_CircleData5, 9, 17
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData5, 10, 17
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData4, 14, 17
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData3, 18, 17
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData2, 19, 14
|
|
half_circle CIRCLE_RIGHT, BattleTransition_CircleData1, 18, 11
|
|
|
|
BattleTransition_Circle_Sub3:
|
|
push hl
|
|
ld a, [de]
|
|
ld c, a
|
|
inc de
|
|
.loop1
|
|
ld [hl], $ff
|
|
ld a, [wBattleTransitionCircleScreenQuadrantX]
|
|
and a
|
|
jr z, .skip1
|
|
inc hl
|
|
jr .skip2
|
|
.skip1
|
|
dec hl
|
|
.skip2
|
|
dec c
|
|
jr nz, .loop1
|
|
pop hl
|
|
ld a, [wBattleTransitionCircleScreenQuadrantY]
|
|
and a
|
|
ld bc, SCREEN_WIDTH
|
|
jr z, .skip3
|
|
ld bc, -SCREEN_WIDTH
|
|
.skip3
|
|
add hl, bc
|
|
ld a, [de]
|
|
inc de
|
|
cp -1
|
|
ret z
|
|
and a
|
|
jr z, BattleTransition_Circle_Sub3
|
|
ld c, a
|
|
.loop2
|
|
ld a, [wBattleTransitionCircleScreenQuadrantX]
|
|
and a
|
|
jr z, .skip4
|
|
dec hl
|
|
jr .skip5
|
|
.skip4
|
|
inc hl
|
|
.skip5
|
|
dec c
|
|
jr nz, .loop2
|
|
jr BattleTransition_Circle_Sub3
|
|
|
|
BattleTransition_CircleData1: db 2, 3, 5, 4, 9, -1
|
|
BattleTransition_CircleData2: db 1, 1, 2, 2, 4, 2, 4, 2, 3, -1
|
|
BattleTransition_CircleData3: db 2, 1, 3, 1, 4, 1, 4, 1, 4, 1, 3, 1, 2, 1, 1, 1, 1, -1
|
|
BattleTransition_CircleData4: db 4, 1, 4, 0, 3, 1, 3, 0, 2, 1, 2, 0, 1, -1
|
|
BattleTransition_CircleData5: db 4, 0, 3, 0, 3, 0, 2, 0, 2, 0, 1, 0, 1, 0, 1, -1
|