pokecrystal/engine/gfx/pic_animation.asm

1082 lines
16 KiB
NASM
Raw Normal View History

; Pic animation arrangement.
2018-06-24 14:09:41 +00:00
Unused_AnimateMon_Slow_Normal:
hlcoord 12, 0
ld a, [wBattleMode]
2015-11-07 14:48:32 +00:00
cp WILD_BATTLE
jr z, .wild
ld e, ANIM_MON_SLOW
ld d, $0
call AnimateFrontpic
ret
2015-11-07 14:48:32 +00:00
.wild
ld e, ANIM_MON_NORMAL
ld d, $0
call AnimateFrontpic
ret
2018-06-24 14:09:41 +00:00
AnimateMon_Menu:
2015-11-07 14:48:32 +00:00
ld e, ANIM_MON_MENU
ld d, $0
call AnimateFrontpic
ret
2018-06-24 14:09:41 +00:00
AnimateMon_Trade:
2015-11-07 14:48:32 +00:00
ld e, ANIM_MON_TRADE
ld d, $0
call AnimateFrontpic
ret
2018-06-24 14:09:41 +00:00
AnimateMon_Evolve:
2015-11-07 14:48:32 +00:00
ld e, ANIM_MON_EVOLVE
ld d, $0
call AnimateFrontpic
ret
2018-06-24 14:09:41 +00:00
AnimateMon_Hatch:
2015-11-07 14:48:32 +00:00
ld e, ANIM_MON_HATCH
ld d, $0
call AnimateFrontpic
ret
2018-06-24 14:09:41 +00:00
AnimateMon_Unused:
2015-11-07 14:48:32 +00:00
ld e, ANIM_MON_UNUSED
ld d, $0
call AnimateFrontpic
ret
2017-12-14 05:36:24 +00:00
pokeanim: MACRO
2018-05-06 16:16:57 +00:00
rept _NARG
; Workaround for a bug where macro args can't come after the start of a symbol
if !DEF(\1_POKEANIM)
\1_POKEANIM EQUS "PokeAnim_\1_"
endc
db (\1_POKEANIM - PokeAnim_SetupCommands) / 2
shift
2018-05-06 16:16:57 +00:00
endr
db (PokeAnim_Finish_ - PokeAnim_SetupCommands) / 2
ENDM
2018-06-24 14:09:41 +00:00
PokeAnims:
dw .Slow
dw .Normal
dw .Menu
dw .Trade
dw .Evolve
dw .Hatch
dw .Unused ; same as .Menu
dw .Egg1
dw .Egg2
2017-12-14 05:36:24 +00:00
.Slow: pokeanim StereoCry, Setup2, Play
.Normal: pokeanim StereoCry, Setup, Play
.Menu: pokeanim CryNoWait, Setup, Play, SetWait, Wait, Idle, Play
.Trade: pokeanim Idle, Play2, Idle, Play, SetWait, Wait, Cry, Setup, Play
.Evolve: pokeanim Idle, Play, SetWait, Wait, CryNoWait, Setup, Play
.Hatch: pokeanim Idle, Play, CryNoWait, Setup, Play, SetWait, Wait, Idle, Play
.Unused: pokeanim CryNoWait, Setup, Play, SetWait, Wait, Idle, Play
2017-12-14 05:36:24 +00:00
.Egg1: pokeanim Setup, Play
.Egg2: pokeanim Idle, Play
2018-06-24 14:09:41 +00:00
AnimateFrontpic:
2015-11-07 14:48:32 +00:00
call AnimateMon_CheckIfPokemon
ret c
call LoadMonAnimation
2015-11-07 14:48:32 +00:00
.loop
call SetUpPokeAnim
push af
2017-12-24 17:47:30 +00:00
farcall HDMATransferTileMapToWRAMBank3
pop af
2015-11-07 14:48:32 +00:00
jr nc, .loop
ret
2018-06-24 14:09:41 +00:00
LoadMonAnimation:
push hl
ld c, e
ld b, 0
ld hl, PokeAnims
add hl, bc
add hl, bc
ld a, [hli]
ld b, [hl]
ld c, a
pop hl
call PokeAnim_InitPicAttributes
ret
2018-06-24 14:09:41 +00:00
SetUpPokeAnim:
ld a, [rSVBK]
push af
ld a, BANK(wPokeAnimSceneIndex)
ld [rSVBK], a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
ld c, a
ld b, 0
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimPointer
ld a, [hli]
ld h, [hl]
ld l, a
add hl, bc
ld a, [hl]
ld hl, PokeAnim_SetupCommands
rst JumpTable
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
ld c, a
pop af
ld [rSVBK], a
ld a, c
and $80
ret z
scf
ret
2018-06-24 14:09:41 +00:00
PokeAnim_SetupCommands:
setup_command: MACRO
\1_: dw \1
2017-12-28 21:31:16 +00:00
ENDM
setup_command PokeAnim_Finish
setup_command PokeAnim_BasePic
setup_command PokeAnim_SetWait
setup_command PokeAnim_Wait
setup_command PokeAnim_Setup
setup_command PokeAnim_Setup2
setup_command PokeAnim_Idle
setup_command PokeAnim_Play
setup_command PokeAnim_Play2
setup_command PokeAnim_Cry
2015-11-07 14:48:32 +00:00
setup_command PokeAnim_CryNoWait
setup_command PokeAnim_StereoCry
2018-06-24 14:09:41 +00:00
PokeAnim_SetWait:
2015-11-07 14:48:32 +00:00
ld a, 18
ld [wPokeAnimWaitCounter], a
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
2018-06-24 14:09:41 +00:00
PokeAnim_Wait:
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimWaitCounter
dec [hl]
ret nz
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Setup:
ld c, FALSE
ld b, 0
call PokeAnim_InitAnim
call PokeAnim_SetVBank1
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Setup2:
ld c, FALSE
ld b, 4
call PokeAnim_InitAnim
call PokeAnim_SetVBank1
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Idle:
ld c, TRUE
ld b, 0
call PokeAnim_InitAnim
call PokeAnim_SetVBank1
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Play:
call PokeAnim_DoAnimScript
ld a, [wPokeAnimJumptableIndex]
bit 7, a
ret z
call PokeAnim_PlaceGraphic
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Play2:
call PokeAnim_DoAnimScript
ld a, [wPokeAnimJumptableIndex]
bit 7, a
ret z
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_BasePic:
call PokeAnim_DeinitFrames
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Finish:
call PokeAnim_DeinitFrames
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimSceneIndex
set 7, [hl]
ret
2018-06-24 14:09:41 +00:00
PokeAnim_Cry:
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpecies]
call _PlayMonCry
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_CryNoWait:
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpecies]
call PlayMonCry2
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_StereoCry:
ld a, $f
2018-01-23 22:39:09 +00:00
ld [wCryTracks], a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpecies]
2014-07-18 17:25:03 +00:00
call PlayStereoCry2
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSceneIndex]
inc a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSceneIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_DeinitFrames:
ld a, [rSVBK]
push af
ld a, BANK(wPokeAnimCoord)
ld [rSVBK], a
call PokeAnim_PlaceGraphic
2017-12-24 17:47:30 +00:00
farcall HDMATransferTileMapToWRAMBank3
call PokeAnim_SetVBank0
2017-12-24 17:47:30 +00:00
farcall HDMATransferAttrMapToWRAMBank3
pop af
ld [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
AnimateMon_CheckIfPokemon:
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
cp EGG
2015-11-07 14:48:32 +00:00
jr z, .fail
call IsAPokemon
2015-11-07 14:48:32 +00:00
jr c, .fail
and a
ret
2015-11-07 14:48:32 +00:00
.fail
scf
ret
2018-06-24 14:09:41 +00:00
PokeAnim_InitPicAttributes:
ld a, [rSVBK]
push af
ld a, BANK(wPokeAnimSceneIndex)
ld [rSVBK], a
2015-11-07 14:48:32 +00:00
push bc
push de
push hl
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimSceneIndex
ld bc, wPokeAnimStructEnd - wPokeAnimSceneIndex
xor a
call ByteFill
pop hl
pop de
pop bc
2015-11-07 14:48:32 +00:00
; bc contains anim pointer
ld a, c
2015-11-07 14:48:32 +00:00
ld [wPokeAnimPointer], a
ld a, b
2015-11-07 14:48:32 +00:00
ld [wPokeAnimPointer + 1], a
; hl contains tilemap coords
ld a, l
2015-11-07 14:48:32 +00:00
ld [wPokeAnimCoord], a
ld a, h
2015-11-07 14:48:32 +00:00
ld [wPokeAnimCoord + 1], a
; d = start tile
ld a, d
ld [wPokeAnimGraphicStartTile], a
2018-01-23 22:39:09 +00:00
ld a, BANK(wCurPartySpecies)
ld hl, wCurPartySpecies
call GetFarWRAMByte
2015-11-07 14:48:32 +00:00
ld [wPokeAnimSpecies], a
2018-01-23 22:39:09 +00:00
ld a, BANK(wUnownLetter)
ld hl, wUnownLetter
call GetFarWRAMByte
2015-11-07 14:48:32 +00:00
ld [wPokeAnimUnownLetter], a
2015-11-07 14:48:32 +00:00
call PokeAnim_GetSpeciesOrUnown
ld [wPokeAnimSpeciesOrUnown], a
2015-11-07 14:48:32 +00:00
call PokeAnim_GetFrontpicDims
ld a, c
2015-11-07 14:48:32 +00:00
ld [wPokeAnimFrontpicHeight], a
pop af
ld [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_InitAnim:
ld a, [rSVBK]
push af
ld a, BANK(wPokeAnimIdleFlag)
ld [rSVBK], a
push bc
ld hl, wPokeAnimIdleFlag
ld bc, wPokeAnimStructEnd - wPokeAnimIdleFlag
xor a
call ByteFill
pop bc
ld a, b
ld [wPokeAnimSpeed], a
ld a, c
ld [wPokeAnimIdleFlag], a
call GetMonAnimPointer
call GetMonFramesPointer
call GetMonBitmaskPointer
pop af
ld [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_DoAnimScript:
xor a
ld [hBGMapMode], a
.loop
ld a, [wPokeAnimJumptableIndex]
and $7f
ld hl, .Jumptable
rst JumpTable
ret
2018-06-24 14:09:41 +00:00
.Jumptable:
dw .RunAnim
dw .WaitAnim
2018-06-24 14:09:41 +00:00
.RunAnim:
call PokeAnim_GetPointer
ld a, [wPokeAnimCommand]
cp endanim_command
jr z, PokeAnim_End
cp setrepeat_command
jr z, .SetRepeat
cp dorepeat_command
jr z, .DoRepeat
call PokeAnim_GetFrame
ld a, [wPokeAnimParameter]
call PokeAnim_GetDuration
2015-11-07 14:48:32 +00:00
ld [wPokeAnimWaitCounter], a
call PokeAnim_StartWaitAnim
2018-06-24 14:09:41 +00:00
.WaitAnim:
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimWaitCounter]
dec a
2015-11-07 14:48:32 +00:00
ld [wPokeAnimWaitCounter], a
ret nz
call PokeAnim_StopWaitAnim
ret
2018-06-24 14:09:41 +00:00
.SetRepeat:
ld a, [wPokeAnimParameter]
ld [wPokeAnimRepeatTimer], a
jr .loop
2018-06-24 14:09:41 +00:00
.DoRepeat:
ld a, [wPokeAnimRepeatTimer]
and a
ret z
dec a
ld [wPokeAnimRepeatTimer], a
ret z
ld a, [wPokeAnimParameter]
ld [wPokeAnimFrame], a
jr .loop
2018-06-24 14:09:41 +00:00
PokeAnim_End:
ld hl, wPokeAnimJumptableIndex
set 7, [hl]
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetDuration:
; a * (1 + [wPokeAnimSpeed] / 16)
ld c, a
ld b, $0
2015-11-02 19:37:02 +00:00
ld hl, 0
ld a, [wPokeAnimSpeed]
call AddNTimes
ld a, h
swap a
and $f0
ld h, a
ld a, l
swap a
and $f
or h
add c
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetFrame:
call PokeAnim_PlaceGraphic
ld a, [wPokeAnimCommand]
and a
ret z
call PokeAnim_GetBitmaskIndex
push hl
call PokeAnim_CopyBitmaskToBuffer
pop hl
call PokeAnim_ConvertAndApplyBitmask
ret
2018-06-24 14:09:41 +00:00
PokeAnim_StartWaitAnim:
ld a, [wPokeAnimJumptableIndex]
inc a
ld [wPokeAnimJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_StopWaitAnim:
ld a, [wPokeAnimJumptableIndex]
dec a
ld [wPokeAnimJumptableIndex], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_IsUnown:
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpecies]
cp UNOWN
ret
2018-06-24 14:09:41 +00:00
PokeAnim_IsEgg:
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpecies]
cp EGG
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetPointer:
push hl
ld a, [wPokeAnimFrame]
ld e, a
ld d, $0
ld hl, wPokeAnimPointerAddr
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
add hl, de
ld a, [wPokeAnimPointerBank]
call GetFarHalfword
ld a, l
ld [wPokeAnimCommand], a
ld a, h
ld [wPokeAnimParameter], a
ld hl, wPokeAnimFrame
inc [hl]
pop hl
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetBitmaskIndex:
ld a, [wPokeAnimCommand]
dec a
ld c, a
ld b, $0
ld hl, wPokeAnimFramesAddr
ld a, [hli]
ld h, [hl]
ld l, a
add hl, bc
add hl, bc
ld a, [wPokeAnimFramesBank]
call GetFarHalfword
ld a, [wPokeAnimFramesBank]
call GetFarByte
ld [wPokeAnimCurBitmask], a
inc hl
ret
2018-06-24 14:09:41 +00:00
PokeAnim_CopyBitmaskToBuffer:
call .GetSize
push bc
ld hl, wPokeAnimBitmaskAddr
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wPokeAnimCurBitmask]
call AddNTimes
pop bc
ld de, wPokeAnimBitmaskBuffer
ld a, [wPokeAnimBitmaskBank]
call FarCopyBytes
ret
2018-06-24 14:09:41 +00:00
.GetSize:
push hl
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimFrontpicHeight]
sub 5 ; to get a number 0, 1, or 2
ld c, a
ld b, 0
ld hl, .Sizes
add hl, bc
ld c, [hl]
ld b, 0
pop hl
ret
.Sizes: db 4, 5, 7
poke_anim_box: MACRO
y = 7
rept \1
x = 7 + -\1
rept \1
db x + y
x = x + 1
endr
y = y + 7
endr
2017-12-28 21:31:16 +00:00
ENDM
2018-06-24 14:09:41 +00:00
PokeAnim_ConvertAndApplyBitmask:
xor a
ld [wPokeAnimBitmaskCurBit], a
ld [wPokeAnimBitmaskCurRow], a
ld [wPokeAnimBitmaskCurCol], a
2015-11-07 14:48:32 +00:00
.loop
push hl
call .IsCurBitSet
pop hl
ld a, b
and a
2015-11-07 14:48:32 +00:00
jr z, .next
ld a, [wPokeAnimFramesBank]
call GetFarByte
inc hl
push hl
call .ApplyFrame
pop hl
2015-11-07 14:48:32 +00:00
.next
push hl
call .NextBit
pop hl
2015-11-07 14:48:32 +00:00
jr nc, .loop
ret
2018-06-24 14:09:41 +00:00
.IsCurBitSet:
; which byte
ld a, [wPokeAnimBitmaskCurBit]
and $f8
rrca
rrca
rrca
ld e, a
ld d, 0
ld hl, wPokeAnimBitmaskBuffer
add hl, de
ld b, [hl]
; which bit
ld a, [wPokeAnimBitmaskCurBit]
and $7
2015-11-07 14:48:32 +00:00
jr z, .skip
ld c, a
ld a, b
.loop2
rrca
dec c
jr nz, .loop2
ld b, a
2015-11-07 14:48:32 +00:00
.skip
xor a
bit 0, b
2015-11-07 14:48:32 +00:00
jr z, .finish
ld a, 1
2015-11-07 14:48:32 +00:00
.finish
ld b, a
ld hl, wPokeAnimBitmaskCurBit
inc [hl]
ret
2018-06-24 14:09:41 +00:00
.ApplyFrame:
push af
call .GetCoord
pop af
push hl
call .GetTilemap
ld hl, wPokeAnimGraphicStartTile
add [hl]
pop hl
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
.GetCoord:
call .GetStartCoord
ld a, [wPokeAnimBitmaskCurRow]
2015-11-07 14:48:32 +00:00
ld bc, SCREEN_WIDTH
call AddNTimes
ld a, [wBoxAlignment]
and a
2015-11-07 14:48:32 +00:00
jr nz, .go
ld a, [wPokeAnimBitmaskCurCol]
ld e, a
ld d, 0
add hl, de
jr .skip2
2015-11-07 14:48:32 +00:00
.go
ld a, [wPokeAnimBitmaskCurCol]
ld e, a
ld a, l
sub e
ld l, a
ld a, h
sbc 0
ld h, a
.skip2
ret
; unused
db 6, 5, 4
2018-06-24 14:09:41 +00:00
.GetTilemap:
push af
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimFrontpicHeight]
cp 5
2015-11-07 14:48:32 +00:00
jr z, .check_add_24
cp 6
2015-11-07 14:48:32 +00:00
jr z, .check_add_13
pop af
ret
2015-11-07 14:48:32 +00:00
.check_add_24
pop af
cp 5 * 5
2015-11-07 14:48:32 +00:00
jr nc, .add_24
push hl
push de
ld hl, ._5by5
ld e, a
ld d, 0
add hl, de
ld a, [hl]
pop de
pop hl
ret
2015-11-07 14:48:32 +00:00
.add_24
add 24
ret
2015-11-07 14:48:32 +00:00
.check_add_13
pop af
cp 6 * 6
2015-11-07 14:48:32 +00:00
jr nc, .add_13
push hl
push de
ld hl, ._6by6
ld e, a
ld d, 0
add hl, de
ld a, [hl]
pop de
pop hl
ret
2015-11-07 14:48:32 +00:00
.add_13
add 13
ret
._5by5:
poke_anim_box 5
; db 9, 10, 11, 12, 13
; db 16, 17, 18, 19, 20
; db 23, 24, 25, 26, 27
; db 30, 31, 32, 33, 34
; db 37, 38, 39, 40, 41
._6by6:
poke_anim_box 6
; db 8, 9, 10, 11, 12, 13
; db 15, 16, 17, 18, 19, 20
; db 22, 23, 24, 25, 26, 27
; db 29, 30, 31, 32, 33, 34
; db 36, 37, 38, 39, 40, 41
; db 43, 44, 45, 46, 47, 48
2018-06-24 14:09:41 +00:00
.GetStartCoord:
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimCoord
ld a, [hli]
ld h, [hl]
ld l, a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimFrontpicHeight]
ld de, 0
ld bc, 6
cp 7
2015-11-07 14:48:32 +00:00
jr z, .okay
ld de, SCREEN_WIDTH + 1
ld bc, SCREEN_WIDTH + 5
cp 6
2015-11-07 14:48:32 +00:00
jr z, .okay
ld de, 2 * SCREEN_WIDTH + 1
ld bc, 2 * SCREEN_WIDTH + 5
2015-11-07 14:48:32 +00:00
.okay
ld a, [wBoxAlignment]
and a
2015-11-07 14:48:32 +00:00
jr nz, .add_bc
add hl, de
ret
2015-11-07 14:48:32 +00:00
.add_bc
add hl, bc
ret
2018-06-24 14:09:41 +00:00
.NextBit:
ld a, [wPokeAnimBitmaskCurRow]
inc a
ld [wPokeAnimBitmaskCurRow], a
ld c, a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimFrontpicHeight]
cp c
2015-11-07 14:48:32 +00:00
jr nz, .no_carry
xor a
ld [wPokeAnimBitmaskCurRow], a
ld a, [wPokeAnimBitmaskCurCol]
inc a
ld [wPokeAnimBitmaskCurCol], a
ld c, a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimFrontpicHeight]
cp c
2015-11-07 14:48:32 +00:00
jr nz, .no_carry
scf
ret
2015-11-07 14:48:32 +00:00
.no_carry
xor a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_PlaceGraphic:
call .ClearBox
ld a, [wBoxAlignment]
and a
jr nz, .flipped
ld de, 1
ld bc, 0
2015-11-07 14:48:32 +00:00
jr .okay
.flipped
ld de, -1
ld bc, 6
2015-11-07 14:48:32 +00:00
.okay
ld hl, wPokeAnimCoord
ld a, [hli]
ld h, [hl]
ld l, a
add hl, bc
ld c, 7
ld b, 7
ld a, [wPokeAnimGraphicStartTile]
2015-11-07 14:48:32 +00:00
.loop
push bc
push hl
push de
2015-11-07 14:48:32 +00:00
ld de, SCREEN_WIDTH
.loop2
ld [hl], a
inc a
add hl, de
dec b
2015-11-07 14:48:32 +00:00
jr nz, .loop2
pop de
pop hl
add hl, de
pop bc
dec c
2015-11-07 14:48:32 +00:00
jr nz, .loop
ret
2018-06-24 14:09:41 +00:00
.ClearBox:
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimCoord
ld a, [hli]
ld h, [hl]
ld l, a
ld b, 7
ld c, 7
call ClearBox
ret
2018-06-24 14:09:41 +00:00
PokeAnim_SetVBank1:
ld a, [rSVBK]
push af
ld a, BANK(wPokeAnimCoord)
ld [rSVBK], a
xor a
ld [hBGMapMode], a
call .SetFlag
2017-12-24 17:47:30 +00:00
farcall HDMATransferAttrMapToWRAMBank3
pop af
ld [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
.SetFlag:
call PokeAnim_GetAttrMapCoord
ld b, 7
ld c, 7
ld de, SCREEN_WIDTH
.row
push bc
push hl
.col
ld a, [hl]
or 8
ld [hl], a
add hl, de
dec c
jr nz, .col
pop hl
inc hl
pop bc
dec b
jr nz, .row
ret
2018-06-24 14:09:41 +00:00
PokeAnim_SetVBank0:
call PokeAnim_GetAttrMapCoord
ld b, 7
ld c, 7
ld de, SCREEN_WIDTH
.row
push bc
push hl
.col
ld a, [hl]
and $f7
ld [hl], a
add hl, de
dec c
jr nz, .col
pop hl
inc hl
pop bc
dec b
jr nz, .row
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetAttrMapCoord:
2015-11-07 14:48:32 +00:00
ld hl, wPokeAnimCoord
ld a, [hli]
ld h, [hl]
ld l, a
2018-01-23 22:39:09 +00:00
ld de, wAttrMap - wTileMap
add hl, de
ret
2018-06-24 14:09:41 +00:00
GetMonAnimPointer:
2015-11-07 14:48:32 +00:00
call PokeAnim_IsEgg
jr z, .egg
ld c, BANK(UnownAnimations)
ld hl, UnownAnimationPointers
ld de, UnownAnimationIdlePointers
2015-11-07 14:48:32 +00:00
call PokeAnim_IsUnown
jr z, .unown
ld c, BANK(PicAnimations)
ld hl, AnimationPointers
ld de, AnimationIdlePointers
2015-11-07 14:48:32 +00:00
.unown
ld a, [wPokeAnimIdleFlag]
and a
jr z, .idles
ld h, d
ld l, e
.idles
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpeciesOrUnown]
dec a
ld e, a
ld d, 0
add hl, de
add hl, de
ld a, c
ld [wPokeAnimPointerBank], a
call GetFarHalfword
ld a, l
ld [wPokeAnimPointerAddr], a
ld a, h
ld [wPokeAnimPointerAddr + 1], a
ret
.egg
ld hl, EggAnimation
ld c, BANK(EggAnimation)
ld a, [wPokeAnimIdleFlag]
and a
jr z, .idles_egg
ld hl, EggAnimationIdle
ld c, BANK(EggAnimationIdle)
.idles_egg
ld a, c
ld [wPokeAnimPointerBank], a
ld a, l
ld [wPokeAnimPointerAddr], a
ld a, h
ld [wPokeAnimPointerAddr + 1], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetFrontpicDims:
ld a, [rSVBK]
push af
2018-01-23 22:39:09 +00:00
ld a, BANK(wCurPartySpecies)
ld [rSVBK], a
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld [wCurSpecies], a
call GetBaseData
2018-01-23 22:39:09 +00:00
ld a, [wBasePicSize]
and $f
ld c, a
pop af
ld [rSVBK], a
ret
2018-06-24 14:09:41 +00:00
GetMonFramesPointer:
2015-11-07 14:48:32 +00:00
call PokeAnim_IsEgg
jr z, .egg
2015-11-07 14:48:32 +00:00
call PokeAnim_IsUnown
ld b, BANK(UnownFramesPointers)
ld c, BANK(UnownsFrames)
ld hl, UnownFramesPointers
2015-11-07 14:48:32 +00:00
jr z, .got_frames
ld a, [wPokeAnimSpecies]
2018-01-15 01:58:49 +00:00
cp JOHTO_POKEMON
ld b, BANK(FramesPointers)
ld c, BANK(KantoFrames)
ld hl, FramesPointers
2015-11-07 14:48:32 +00:00
jr c, .got_frames
ld c, BANK(JohtoFrames)
2015-11-07 14:48:32 +00:00
.got_frames
ld a, c
ld [wPokeAnimFramesBank], a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpeciesOrUnown]
dec a
ld e, a
ld d, 0
add hl, de
add hl, de
ld a, b
call GetFarHalfword
ld a, l
ld [wPokeAnimFramesAddr], a
ld a, h
ld [wPokeAnimFramesAddr + 1], a
ret
.egg
ld hl, EggFrames
ld c, BANK(EggFrames)
ld a, c
ld [wPokeAnimFramesBank], a
ld a, l
ld [wPokeAnimFramesAddr], a
ld a, h
ld [wPokeAnimFramesAddr + 1], a
ret
2018-06-24 14:09:41 +00:00
GetMonBitmaskPointer:
2015-11-07 14:48:32 +00:00
call PokeAnim_IsEgg
jr z, .egg
2015-11-07 14:48:32 +00:00
call PokeAnim_IsUnown
ld a, BANK(UnownBitmasksPointers)
ld hl, UnownBitmasksPointers
2015-11-07 14:48:32 +00:00
jr z, .unown
ld a, BANK(BitmasksPointers)
ld hl, BitmasksPointers
2015-11-07 14:48:32 +00:00
.unown
ld [wPokeAnimBitmaskBank], a
2015-11-07 14:48:32 +00:00
ld a, [wPokeAnimSpeciesOrUnown]
dec a
ld e, a
ld d, 0
add hl, de
add hl, de
ld a, [wPokeAnimBitmaskBank]
call GetFarHalfword
ld a, l
ld [wPokeAnimBitmaskAddr], a
ld a, h
ld [wPokeAnimBitmaskAddr + 1], a
ret
.egg
ld c, BANK(EggBitmasks)
ld hl, EggBitmasks
ld a, c
ld [wPokeAnimBitmaskBank], a
ld a, l
ld [wPokeAnimBitmaskAddr], a
ld a, h
ld [wPokeAnimBitmaskAddr + 1], a
ret
2018-06-24 14:09:41 +00:00
PokeAnim_GetSpeciesOrUnown:
2015-11-07 14:48:32 +00:00
call PokeAnim_IsUnown
jr z, .unown
ld a, [wPokeAnimSpecies]
ret
2015-11-07 14:48:32 +00:00
.unown
ld a, [wPokeAnimUnownLetter]
ret
2018-06-24 14:09:41 +00:00
Unused_HOF_AnimateAlignedFrontpic:
ld a, $1
ld [wBoxAlignment], a
2018-01-02 14:05:14 +00:00
2018-06-24 14:09:41 +00:00
HOF_AnimateFrontpic:
2015-11-07 14:48:32 +00:00
call AnimateMon_CheckIfPokemon
2016-01-12 17:46:18 +00:00
jr c, .fail
ld h, d
ld l, e
push bc
push hl
2017-12-28 12:32:33 +00:00
ld de, vTiles2
predef GetAnimatedFrontpic
pop hl
pop bc
ld d, 0
ld e, c
call AnimateFrontpic
xor a
ld [wBoxAlignment], a
ret
2016-01-12 17:46:18 +00:00
.fail
xor a
ld [wBoxAlignment], a
inc a
2018-01-23 22:39:09 +00:00
ld [wCurPartySpecies], a
ret