pokecrystal-board/engine/evolution_animation.asm

369 lines
5.0 KiB
NASM
Raw Normal View History

EvolutionAnimation: ; 4e5e1
push hl
push de
push bc
ld a, [CurSpecies]
push af
ld a, [rOBP0]
push af
ld a, [BaseDexNo]
push af
2015-12-14 17:06:41 -08:00
call .EvolutionAnimation
pop af
ld [BaseDexNo], a
pop af
ld [rOBP0], a
pop af
ld [CurSpecies], a
pop bc
pop de
pop hl
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionCanceled]
and a
ret z
scf
ret
; 4e607
2015-12-14 17:06:41 -08:00
.EvolutionAnimation: ; 4e607
2016-05-16 12:46:13 -07:00
ld a, %11100100
ld [rOBP0], a
ld de, MUSIC_NONE
call PlayMusic
callba ClearSpriteAnims
2015-12-14 17:06:41 -08:00
ld de, .GFX
ld hl, VTiles0
2015-12-14 17:06:41 -08:00
lb bc, BANK(.GFX), 8
call Request2bpp
xor a
ld [Danger], a
call WaitBGMap
xor a
ld [hBGMapMode], a
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionOldSpecies]
ld [PlayerHPPal], a
ld c, $0
2015-11-20 12:15:32 -08:00
call .GetSGBLayout
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionOldSpecies]
ld [CurPartySpecies], a
ld [CurSpecies], a
2015-11-20 12:15:32 -08:00
call .PlaceFrontpic
ld de, VTiles2
ld hl, VTiles2 tile $31
2016-05-16 12:46:13 -07:00
ld bc, 7 * 7
call Request2bpp
2016-05-16 12:46:13 -07:00
ld a, 7 * 7
ld [wEvolutionPicOffset], a
2015-11-20 12:15:32 -08:00
call .ReplaceFrontpic
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionNewSpecies]
ld [CurPartySpecies], a
ld [CurSpecies], a
2015-11-20 12:15:32 -08:00
call .LoadFrontpic
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionOldSpecies]
ld [CurPartySpecies], a
ld [CurSpecies], a
ld a, $1
ld [hBGMapMode], a
2015-12-14 17:06:41 -08:00
call .check_statused
jr c, .skip_cry
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionOldSpecies]
call PlayCry
.skip_cry
ld de, MUSIC_EVOLUTION
call PlayMusic
ld c, 80
call DelayFrames
ld c, $1
2015-11-20 12:15:32 -08:00
call .GetSGBLayout
call .AnimationSequence
jr c, .cancel_evo
2015-11-20 12:15:32 -08:00
ld a, -7 * 7
2016-05-16 12:46:13 -07:00
ld [wEvolutionPicOffset], a
2015-11-20 12:15:32 -08:00
call .ReplaceFrontpic
xor a
2016-05-16 12:46:13 -07:00
ld [wEvolutionCanceled], a
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionNewSpecies]
ld [PlayerHPPal], a
ld c, $0
2015-11-20 12:15:32 -08:00
call .GetSGBLayout
2015-12-14 17:06:41 -08:00
call .PlayEvolvedSFX
callba ClearSpriteAnims
2015-12-14 17:06:41 -08:00
call .check_statused
jr c, .no_anim
ld a, [wBoxAlignment]
push af
ld a, $1
ld [wBoxAlignment], a
ld a, [CurPartySpecies]
push af
ld a, [PlayerHPPal]
ld [CurPartySpecies], a
hlcoord 7, 2
ld d, $0
ld e, ANIM_MON_EVOLVE
predef AnimateFrontpic
pop af
ld [CurPartySpecies], a
pop af
ld [wBoxAlignment], a
ret
2015-12-14 17:06:41 -08:00
.no_anim
ret
2015-11-20 12:15:32 -08:00
.cancel_evo
ld a, $1
2016-05-16 12:46:13 -07:00
ld [wEvolutionCanceled], a
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionOldSpecies]
ld [PlayerHPPal], a
ld c, $0
2015-11-20 12:15:32 -08:00
call .GetSGBLayout
2015-12-14 17:06:41 -08:00
call .PlayEvolvedSFX
callba ClearSpriteAnims
2015-12-14 17:06:41 -08:00
call .check_statused
ret c
ld a, [PlayerHPPal]
call PlayCry
ret
; 4e703
2015-11-20 12:15:32 -08:00
.GetSGBLayout: ; 4e703
2016-06-06 15:23:00 -07:00
ld b, SCGB_EVOLUTION
jp GetSGBLayout
; 4e708
2015-11-20 12:15:32 -08:00
.PlaceFrontpic: ; 4e708
call GetBaseData
hlcoord 7, 2
2015-11-11 13:11:08 -08:00
jp PrepMonFrontpic
; 4e711
2015-11-20 12:15:32 -08:00
.LoadFrontpic: ; 4e711
call GetBaseData
ld a, $1
ld [wBoxAlignment], a
ld de, VTiles2
2015-11-20 12:15:32 -08:00
predef FrontpicPredef
xor a
ld [wBoxAlignment], a
ret
; 4e726
2015-11-20 12:15:32 -08:00
.AnimationSequence: ; 4e726
call ClearJoypad
2015-11-20 12:15:32 -08:00
lb bc, 1, 2 * 7 ; flash b times, wait c frames in between
.loop
push bc
2015-11-20 12:15:32 -08:00
call .WaitFrames_CheckPressedB
pop bc
2015-11-20 12:15:32 -08:00
jr c, .exit_sequence
push bc
2015-11-20 12:15:32 -08:00
call .Flash
pop bc
inc b
dec c
dec c
jr nz, .loop
and a
ret
2015-11-20 12:15:32 -08:00
.exit_sequence
scf
ret
; 4e741
2015-11-20 12:15:32 -08:00
.Flash: ; 4e741
ld a, -7 * 7 ; new stage
2016-05-16 12:46:13 -07:00
ld [wEvolutionPicOffset], a
2015-11-20 12:15:32 -08:00
call .ReplaceFrontpic
ld a, 7 * 7 ; previous stage
2016-05-16 12:46:13 -07:00
ld [wEvolutionPicOffset], a
2015-11-20 12:15:32 -08:00
call .ReplaceFrontpic
dec b
2015-11-20 12:15:32 -08:00
jr nz, .Flash
ret
; 4e755
2015-11-20 12:15:32 -08:00
.ReplaceFrontpic: ; 4e755
push bc
xor a
ld [hBGMapMode], a
hlcoord 7, 2
lb bc, 7, 7
2015-11-20 12:15:32 -08:00
ld de, SCREEN_WIDTH - 7
.loop1
push bc
.loop2
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionPicOffset]
add [hl]
ld [hli], a
dec c
jr nz, .loop2
pop bc
add hl, de
dec b
jr nz, .loop1
ld a, $1
ld [hBGMapMode], a
call WaitBGMap
pop bc
ret
; 4e779
2015-11-20 12:15:32 -08:00
.WaitFrames_CheckPressedB: ; 4e779
call DelayFrame
push bc
call JoyTextDelay
ld a, [hJoyDown]
pop bc
and B_BUTTON
jr nz, .pressed_b
2015-11-20 12:15:32 -08:00
.loop3
dec c
2015-11-20 12:15:32 -08:00
jr nz, .WaitFrames_CheckPressedB
and a
ret
.pressed_b
ld a, [wForceEvolution]
and a
2015-11-20 12:15:32 -08:00
jr nz, .loop3
scf
ret
; 4e794
.check_statused ; 4e794
ld a, [CurPartyMon]
ld hl, PartyMon1Species
call GetPartyLocation
ld b, h
ld c, l
callba CheckFaintedFrzSlp
ret
; 4e7a6
2015-12-14 17:06:41 -08:00
.PlayEvolvedSFX: ; 4e7a6
2016-05-16 12:46:13 -07:00
ld a, [wEvolutionCanceled]
and a
ret nz
ld de, SFX_EVOLVED
call PlaySFX
ld hl, wJumptableIndex
ld a, [hl]
push af
ld [hl], $0
2015-12-14 17:06:41 -08:00
.loop4
call .balls_of_light
2015-11-20 12:15:32 -08:00
jr nc, .done
2015-12-14 17:06:41 -08:00
call .AnimateBallsOfLight
jr .loop4
2015-11-20 12:15:32 -08:00
.done
ld c, 32
2015-12-14 17:06:41 -08:00
.loop5
call .AnimateBallsOfLight
dec c
2015-12-14 17:06:41 -08:00
jr nz, .loop5
pop af
ld [wJumptableIndex], a
ret
; 4e7cf
.balls_of_light ; 4e7cf
ld hl, wJumptableIndex
ld a, [hl]
cp 32
ret nc
ld d, a
inc [hl]
and $1
2015-12-14 17:06:41 -08:00
jr nz, .done_balls
ld e, $0
2015-12-14 17:06:41 -08:00
call .GenerateBallOfLight
ld e, $10
2015-12-14 17:06:41 -08:00
call .GenerateBallOfLight
2015-12-14 17:06:41 -08:00
.done_balls
scf
ret
; 4e7e8
2015-12-14 17:06:41 -08:00
.GenerateBallOfLight: ; 4e7e8
push de
depixel 9, 11
ld a, SPRITE_ANIM_INDEX_13
2015-11-13 07:48:49 -08:00
call _InitSpriteAnimStruct
2016-05-13 22:11:01 -07:00
ld hl, SPRITEANIMSTRUCT_JUMPTABLE_INDEX
add hl, bc
ld a, [wJumptableIndex]
2015-12-14 17:06:41 -08:00
and %1110
sla a
pop de
add e
ld [hl], a
2015-12-14 17:06:41 -08:00
ld hl, SPRITEANIMSTRUCT_TILE_ID
add hl, bc
ld [hl], $0
2015-12-14 17:06:41 -08:00
ld hl, SPRITEANIMSTRUCT_0C
add hl, bc
ld [hl], $10
ret
; 4e80c
2015-12-14 17:06:41 -08:00
.AnimateBallsOfLight: ; 4e80c
push bc
callab PlaySpriteAnimations
2015-11-20 12:15:32 -08:00
; a = (([hVBlankCounter] + 4) / 2) % NUM_PALETTES
ld a, [hVBlankCounter]
2015-12-14 17:06:41 -08:00
and %1110
srl a
inc a
inc a
and $7
ld b, a
2015-11-20 12:15:32 -08:00
ld hl, Sprites + 3 ; attributes
ld c, 40
2015-12-14 17:06:41 -08:00
.loop6
ld a, [hl]
or b
ld [hli], a
inc hl
inc hl
inc hl
dec c
2015-12-14 17:06:41 -08:00
jr nz, .loop6
pop bc
call DelayFrame
ret
; 4e831
2015-12-14 17:06:41 -08:00
.GFX:
INCBIN "gfx/evo/bubble_large.2bpp"
INCBIN "gfx/evo/bubble.2bpp"