mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
160 lines
2.8 KiB
NASM
160 lines
2.8 KiB
NASM
EvolveMon:
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld a, [wCurPartySpecies]
|
|
push af
|
|
ld a, [wCurSpecies]
|
|
push af
|
|
xor a
|
|
ld [wLowHealthAlarm], a
|
|
ld [wChannelSoundIDs + CHAN5], a
|
|
dec a ; SFX_STOP_ALL_MUSIC
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
ld a, $1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ld a, SFX_TINK
|
|
call PlaySound
|
|
call Delay3
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ldh [hTileAnimations], a
|
|
ld a, [wEvoOldSpecies]
|
|
ld [wWholeScreenPaletteMonSpecies], a
|
|
ld c, 0
|
|
call EvolutionSetWholeScreenPalette
|
|
ld a, [wEvoNewSpecies]
|
|
ld [wCurPartySpecies], a
|
|
ld [wCurSpecies], a
|
|
call Evolution_LoadPic
|
|
ld de, vFrontPic
|
|
ld hl, vBackPic
|
|
ld bc, 7 * 7
|
|
call CopyVideoData
|
|
ld a, [wEvoOldSpecies]
|
|
ld [wCurPartySpecies], a
|
|
ld [wCurSpecies], a
|
|
call Evolution_LoadPic
|
|
ld a, $1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
ld a, [wEvoOldSpecies]
|
|
call PlayCry
|
|
call WaitForSoundToFinish
|
|
ld c, BANK(Music_SafariZone)
|
|
ld a, MUSIC_SAFARI_ZONE
|
|
call PlayMusic
|
|
ld c, 80
|
|
call DelayFrames
|
|
ld c, 1 ; set PAL_BLACK instead of mon palette
|
|
call EvolutionSetWholeScreenPalette
|
|
lb bc, $1, $10
|
|
.animLoop
|
|
push bc
|
|
call Evolution_CheckForCancel
|
|
jr c, .evolutionCancelled
|
|
call Evolution_BackAndForthAnim
|
|
pop bc
|
|
inc b
|
|
dec c
|
|
dec c
|
|
jr nz, .animLoop
|
|
xor a
|
|
ld [wEvoCancelled], a
|
|
ld a, $31
|
|
ld [wEvoMonTileOffset], a
|
|
call Evolution_ChangeMonPic ; show the new species pic
|
|
ld a, [wEvoNewSpecies]
|
|
.done
|
|
ld [wWholeScreenPaletteMonSpecies], a
|
|
ld a, SFX_STOP_ALL_MUSIC
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
ld a, [wWholeScreenPaletteMonSpecies]
|
|
call PlayCry
|
|
ld c, 0
|
|
call EvolutionSetWholeScreenPalette
|
|
pop af
|
|
ld [wCurSpecies], a
|
|
pop af
|
|
ld [wCurPartySpecies], a
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ld a, [wEvoCancelled]
|
|
and a
|
|
ret z
|
|
scf
|
|
ret
|
|
.evolutionCancelled
|
|
pop bc
|
|
ld a, 1
|
|
ld [wEvoCancelled], a
|
|
ld a, [wEvoOldSpecies]
|
|
jr .done
|
|
|
|
EvolutionSetWholeScreenPalette:
|
|
ld b, SET_PAL_POKEMON_WHOLE_SCREEN
|
|
jp RunPaletteCommand
|
|
|
|
Evolution_LoadPic:
|
|
call GetMonHeader
|
|
hlcoord 7, 2
|
|
jp LoadFlippedFrontSpriteByMonIndex
|
|
|
|
Evolution_BackAndForthAnim:
|
|
; show the mon change back and forth between the new and old species b times
|
|
ld a, $31
|
|
ld [wEvoMonTileOffset], a
|
|
call Evolution_ChangeMonPic
|
|
ld a, -$31
|
|
ld [wEvoMonTileOffset], a
|
|
call Evolution_ChangeMonPic
|
|
dec b
|
|
jr nz, Evolution_BackAndForthAnim
|
|
ret
|
|
|
|
Evolution_ChangeMonPic:
|
|
push bc
|
|
xor a
|
|
ldh [hAutoBGTransferEnabled], a
|
|
hlcoord 7, 2
|
|
lb bc, 7, 7
|
|
ld de, SCREEN_WIDTH - 7
|
|
.loop
|
|
push bc
|
|
.innerLoop
|
|
ld a, [wEvoMonTileOffset]
|
|
add [hl]
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .innerLoop
|
|
pop bc
|
|
add hl, de
|
|
dec b
|
|
jr nz, .loop
|
|
ld a, 1
|
|
ldh [hAutoBGTransferEnabled], a
|
|
call Delay3
|
|
pop bc
|
|
ret
|
|
|
|
Evolution_CheckForCancel:
|
|
call DelayFrame
|
|
push bc
|
|
call JoypadLowSensitivity
|
|
ldh a, [hJoy5]
|
|
pop bc
|
|
and B_BUTTON
|
|
jr nz, .pressedB
|
|
.notAllowedToCancel
|
|
dec c
|
|
jr nz, Evolution_CheckForCancel
|
|
and a
|
|
ret
|
|
.pressedB
|
|
ld a, [wForceEvolution]
|
|
and a
|
|
jr nz, .notAllowedToCancel
|
|
scf
|
|
ret
|