diff options
Diffstat (limited to 'engine/evolution.asm')
-rwxr-xr-x | engine/evolution.asm | 156 |
1 files changed, 0 insertions, 156 deletions
diff --git a/engine/evolution.asm b/engine/evolution.asm deleted file mode 100755 index 7277e991..00000000 --- a/engine/evolution.asm +++ /dev/null @@ -1,156 +0,0 @@ -EvolveMon: - push hl - push de - push bc - ld a, [wcf91] - push af - ld a, [wd0b5] - push af - xor a - ld [wLowHealthAlarm], a - ld [wChannelSoundIDs + Ch5], a - call StopAllMusic - ld a, $1 - ld [H_AUTOBGTRANSFERENABLED], a - ld a, SFX_TINK - call PlaySound - call Delay3 - xor a - ld [H_AUTOBGTRANSFERENABLED], a - ld [hTilesetType], a - ld a, [wEvoOldSpecies] - ld [wWholeScreenPaletteMonSpecies], a - ld c, 0 - call EvolutionSetWholeScreenPalette - ld a, [wEvoNewSpecies] - ld [wcf91], a - ld [wd0b5], a - call Evolution_LoadPic - ld de, vFrontPic - ld hl, vBackPic - ld bc, 7 * 7 - call CopyVideoData - ld a, [wEvoOldSpecies] - ld [wcf91], a - ld [wd0b5], a - call Evolution_LoadPic - ld a, $1 - ld [H_AUTOBGTRANSFERENABLED], 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 - call StopAllMusic - ld a, [wWholeScreenPaletteMonSpecies] - call PlayCry - ld c, 0 - call EvolutionSetWholeScreenPalette - pop af - ld [wd0b5], a - pop af - ld [wcf91], 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 - coord hl, 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 - ld [H_AUTOBGTRANSFERENABLED], a - coord hl, 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 - ld [H_AUTOBGTRANSFERENABLED], a - call Delay3 - pop bc - ret - -Evolution_CheckForCancel: - call DelayFrame - push bc - call JoypadLowSensitivity - ld 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 |