mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
753 lines
14 KiB
NASM
753 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, [hSpriteIndex] ; 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
|
|
|
|
const_def
|
|
const BIT_TRAINER_BATTLE_TRANSITION ; 0
|
|
const BIT_STRONGER_BATTLE_TRANSITION ; 1
|
|
const BIT_DUNGEON_BATTLE_TRANSITION ; 2
|
|
DEF NUM_BATTLE_TRANSITION_BITS EQU const_value
|
|
|
|
; 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:
|
|
table_width 2, 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
|
|
assert_table_length 1 << NUM_BATTLE_TRANSITION_BITS
|
|
|
|
GetBattleTransitionID_WildOrTrainer:
|
|
ld a, [wCurOpponent]
|
|
cp OPP_ID_OFFSET
|
|
jr nc, .trainer
|
|
res BIT_TRAINER_BATTLE_TRANSITION, c
|
|
ret
|
|
.trainer
|
|
set BIT_TRAINER_BATTLE_TRANSITION, 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, [wCurEnemyLevel]
|
|
sub e
|
|
jr nc, .highLevelEnemy
|
|
res BIT_STRONGER_BATTLE_TRANSITION, c
|
|
ld a, 1
|
|
ld [wBattleTransitionSpiralDirection], a
|
|
ret
|
|
.highLevelEnemy
|
|
set BIT_STRONGER_BATTLE_TRANSITION, 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 BIT_DUNGEON_BATTLE_TRANSITION, 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 BIT_DUNGEON_BATTLE_TRANSITION, 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:
|
|
dc 3, 3, 2, 1
|
|
dc 3, 3, 3, 2
|
|
dc 3, 3, 3, 3
|
|
dc 3, 3, 3, 2
|
|
dc 3, 3, 2, 1
|
|
dc 3, 2, 1, 0
|
|
dc 2, 1, 0, 0
|
|
dc 1, 0, 0, 0
|
|
dc 0, 0, 0, 0
|
|
dc 1, 0, 0, 0
|
|
dc 2, 1, 0, 0
|
|
dc 3, 2, 1, 0
|
|
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
|