Organize the engine/ directory
This is an informed attempt at reorganizing the engine/ directory by creating categorized subdirectories, in order to make it easier to navigate and find things. The directories created are as follows: * engine/game: Contains all "minigames", things like the unown puzzle and slot machine. * engine/gfx: Contains all handling of graphics. From loading palettes to playing animations. * engine/link: Contains all multiplayer functionality. * engine/menu: Contains all generic/misc. menus and menu code. Other, more specialized menus are in their own subdirectories (pokedex, pokegear, party menu, etc). * engine/overworld: Contains all handling of the overworld. From loading and connecting maps to wild encounters and the scripting engine. * engine/pokegear: In the same vein as engine/pokedex, except it could use some more splitting up. * engine/pokemon: Contains everything related to manipulating pokemon data. From the pokemon storage system to evolution and mail. * engine/printer: Contains everything related to printing things as well as the printer communication. * engine/title: Contains intro sequences, title screens and credits.
This commit is contained in:
mid-kid
994
engine/pokemon/breeding.asm
Executable file
994
engine/pokemon/breeding.asm
Executable file
@@ -0,0 +1,994 @@
|
||||
CheckBreedmonCompatibility: ; 16e1d
|
||||
call .CheckBreedingGroupCompatibility
|
||||
ld c, $0
|
||||
jp nc, .done
|
||||
ld a, [wBreedMon1Species]
|
||||
ld [wCurPartySpecies], a
|
||||
ld a, [wBreedMon1DVs]
|
||||
ld [wTempMonDVs], a
|
||||
ld a, [wBreedMon1DVs + 1]
|
||||
ld [wTempMonDVs + 1], a
|
||||
ld a, TEMPMON
|
||||
ld [wMonType], a
|
||||
predef GetGender
|
||||
jr c, .genderless
|
||||
ld b, $1
|
||||
jr nz, .breedmon2
|
||||
inc b
|
||||
|
||||
.breedmon2
|
||||
push bc
|
||||
ld a, [wBreedMon2Species]
|
||||
ld [wCurPartySpecies], a
|
||||
ld a, [wBreedMon2DVs]
|
||||
ld [wTempMonDVs], a
|
||||
ld a, [wBreedMon2DVs + 1]
|
||||
ld [wTempMonDVs + 1], a
|
||||
ld a, $3
|
||||
ld [wMonType], a
|
||||
predef GetGender
|
||||
pop bc
|
||||
jr c, .genderless
|
||||
ld a, $1
|
||||
jr nz, .compare_gender
|
||||
inc a
|
||||
|
||||
.compare_gender
|
||||
cp b
|
||||
jr nz, .compute
|
||||
|
||||
.genderless
|
||||
ld c, $0
|
||||
ld a, [wBreedMon1Species]
|
||||
cp DITTO
|
||||
jr z, .ditto1
|
||||
ld a, [wBreedMon2Species]
|
||||
cp DITTO
|
||||
jr nz, .done
|
||||
jr .compute
|
||||
|
||||
.ditto1
|
||||
ld a, [wBreedMon2Species]
|
||||
cp DITTO
|
||||
jr z, .done
|
||||
|
||||
.compute
|
||||
call .CheckDVs
|
||||
ld c, 255
|
||||
jp z, .done
|
||||
ld a, [wBreedMon2Species]
|
||||
ld b, a
|
||||
ld a, [wBreedMon1Species]
|
||||
cp b
|
||||
ld c, 254
|
||||
jr z, .compare_ids
|
||||
ld c, 128
|
||||
.compare_ids
|
||||
; Speed up
|
||||
ld a, [wBreedMon1ID]
|
||||
ld b, a
|
||||
ld a, [wBreedMon2ID]
|
||||
cp b
|
||||
jr nz, .done
|
||||
ld a, [wBreedMon1ID + 1]
|
||||
ld b, a
|
||||
ld a, [wBreedMon2ID + 1]
|
||||
cp b
|
||||
jr nz, .done
|
||||
ld a, c
|
||||
sub 77
|
||||
ld c, a
|
||||
|
||||
.done
|
||||
ld a, c
|
||||
ld [wd265], a
|
||||
ret
|
||||
; 16ebc
|
||||
|
||||
|
||||
.CheckDVs: ; 16ebc (5:6ebc)
|
||||
; If Defense DVs match and the lower 3 bits of the Special DVs match,
|
||||
; avoid breeding
|
||||
ld a, [wBreedMon1DVs]
|
||||
and %1111
|
||||
ld b, a
|
||||
ld a, [wBreedMon2DVs]
|
||||
and %1111
|
||||
cp b
|
||||
ret nz
|
||||
ld a, [wBreedMon1DVs + 1]
|
||||
and %111
|
||||
ld b, a
|
||||
ld a, [wBreedMon2DVs + 1]
|
||||
and %111
|
||||
cp b
|
||||
ret
|
||||
; 16ed6
|
||||
|
||||
.CheckBreedingGroupCompatibility: ; 16ed6
|
||||
; If either mon is in the No Eggs group,
|
||||
; they are not compatible.
|
||||
ld a, [wBreedMon2Species]
|
||||
ld [wCurSpecies], a
|
||||
call GetBaseData
|
||||
ld a, [wBaseEggGroups]
|
||||
cp EGG_NONE * $11
|
||||
jr z, .Incompatible
|
||||
|
||||
ld a, [wBreedMon1Species]
|
||||
ld [wCurSpecies], a
|
||||
call GetBaseData
|
||||
ld a, [wBaseEggGroups]
|
||||
cp EGG_NONE * $11
|
||||
jr z, .Incompatible
|
||||
|
||||
; Ditto is automatically compatible with everything.
|
||||
; If not Ditto, load the breeding groups into b/c and d/e.
|
||||
ld a, [wBreedMon2Species]
|
||||
cp DITTO
|
||||
jr z, .Compatible
|
||||
ld [wCurSpecies], a
|
||||
call GetBaseData
|
||||
ld a, [wBaseEggGroups]
|
||||
push af
|
||||
and $f
|
||||
ld b, a
|
||||
pop af
|
||||
and $f0
|
||||
swap a
|
||||
ld c, a
|
||||
|
||||
ld a, [wBreedMon1Species]
|
||||
cp DITTO
|
||||
jr z, .Compatible
|
||||
ld [wCurSpecies], a
|
||||
push bc
|
||||
call GetBaseData
|
||||
pop bc
|
||||
ld a, [wBaseEggGroups]
|
||||
push af
|
||||
and $f
|
||||
ld d, a
|
||||
pop af
|
||||
and $f0
|
||||
swap a
|
||||
ld e, a
|
||||
|
||||
ld a, d
|
||||
cp b
|
||||
jr z, .Compatible
|
||||
cp c
|
||||
jr z, .Compatible
|
||||
|
||||
ld a, e
|
||||
cp b
|
||||
jr z, .Compatible
|
||||
cp c
|
||||
jr z, .Compatible
|
||||
|
||||
.Incompatible:
|
||||
and a
|
||||
ret
|
||||
|
||||
.Compatible:
|
||||
scf
|
||||
ret
|
||||
; 16f3e
|
||||
|
||||
DoEggStep:: ; 16f3e
|
||||
ld de, wPartySpecies
|
||||
ld hl, wPartyMon1Happiness
|
||||
ld c, 0
|
||||
.loop
|
||||
ld a, [de]
|
||||
inc de
|
||||
cp -1
|
||||
ret z
|
||||
cp EGG
|
||||
jr nz, .next
|
||||
dec [hl]
|
||||
jr nz, .next
|
||||
ld a, 1
|
||||
and a
|
||||
ret
|
||||
|
||||
.next
|
||||
push de
|
||||
ld de, PARTYMON_STRUCT_LENGTH
|
||||
add hl, de
|
||||
pop de
|
||||
jr .loop
|
||||
; 16f5e
|
||||
|
||||
OverworldHatchEgg:: ; 16f5e
|
||||
call RefreshScreen
|
||||
call LoadStandardMenuHeader
|
||||
call HatchEggs
|
||||
call ExitAllMenus
|
||||
call RestartMapMusic
|
||||
jp CloseText
|
||||
; 16f70
|
||||
|
||||
HatchEggs: ; 16f70 (5:6f70)
|
||||
ld de, wPartySpecies
|
||||
ld hl, wPartyMon1Happiness
|
||||
xor a
|
||||
ld [wCurPartyMon], a
|
||||
|
||||
.loop ; 16f7a (5:6f7a)
|
||||
ld a, [de]
|
||||
inc de
|
||||
cp -1
|
||||
jp z, .done
|
||||
push de
|
||||
push hl
|
||||
cp EGG
|
||||
jp nz, .next
|
||||
ld a, [hl]
|
||||
and a
|
||||
jp nz, .next
|
||||
ld [hl], $78
|
||||
|
||||
push de
|
||||
|
||||
farcall SetEggMonCaughtData
|
||||
farcall StubbedTrainerRankings_EggsHatched
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, wPartyMon1Species
|
||||
ld bc, PARTYMON_STRUCT_LENGTH
|
||||
call AddNTimes
|
||||
ld a, [hl]
|
||||
ld [wCurPartySpecies], a
|
||||
dec a
|
||||
call SetSeenAndCaughtMon
|
||||
|
||||
ld a, [wCurPartySpecies]
|
||||
cp TOGEPI
|
||||
jr nz, .nottogepi
|
||||
; set the event flag for hatching togepi
|
||||
ld de, EVENT_TOGEPI_HATCHED
|
||||
ld b, SET_FLAG
|
||||
call EventFlagAction
|
||||
.nottogepi
|
||||
|
||||
pop de
|
||||
|
||||
ld a, [wCurPartySpecies]
|
||||
dec de
|
||||
ld [de], a
|
||||
ld [wd265], a
|
||||
ld [wCurSpecies], a
|
||||
call GetPokemonName
|
||||
xor a
|
||||
ld [wd26b], a
|
||||
call GetBaseData
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, wPartyMon1
|
||||
ld bc, PARTYMON_STRUCT_LENGTH
|
||||
call AddNTimes
|
||||
push hl
|
||||
ld bc, MON_MAXHP
|
||||
add hl, bc
|
||||
ld d, h
|
||||
ld e, l
|
||||
pop hl
|
||||
push hl
|
||||
ld bc, MON_LEVEL
|
||||
add hl, bc
|
||||
ld a, [hl]
|
||||
ld [wCurPartyLevel], a
|
||||
pop hl
|
||||
push hl
|
||||
ld bc, MON_STATUS
|
||||
add hl, bc
|
||||
xor a
|
||||
ld [hli], a
|
||||
ld [hl], a
|
||||
pop hl
|
||||
push hl
|
||||
ld bc, MON_STAT_EXP - 1
|
||||
add hl, bc
|
||||
ld b, FALSE
|
||||
predef CalcMonStats
|
||||
pop bc
|
||||
ld hl, MON_MAXHP
|
||||
add hl, bc
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld hl, MON_HP
|
||||
add hl, bc
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
ld a, [de]
|
||||
ld [hl], a
|
||||
ld hl, MON_ID
|
||||
add hl, bc
|
||||
ld a, [wPlayerID]
|
||||
ld [hli], a
|
||||
ld a, [wPlayerID + 1]
|
||||
ld [hl], a
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, wPartyMonOT
|
||||
ld bc, NAME_LENGTH
|
||||
call AddNTimes
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld hl, wPlayerName
|
||||
call CopyBytes
|
||||
ld hl, .Text_HatchEgg
|
||||
call PrintText
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, wPartyMonNicknames
|
||||
ld bc, MON_NAME_LENGTH
|
||||
call AddNTimes
|
||||
ld d, h
|
||||
ld e, l
|
||||
push de
|
||||
ld hl, .Text_NicknameHatchling
|
||||
call PrintText
|
||||
call YesNoBox
|
||||
pop de
|
||||
jr c, .nonickname
|
||||
|
||||
ld a, $1
|
||||
ld [wd26b], a
|
||||
xor a
|
||||
ld [wMonType], a
|
||||
push de
|
||||
ld b, $0
|
||||
farcall NamingScreen
|
||||
pop hl
|
||||
ld de, wStringBuffer1
|
||||
call InitName
|
||||
jr .next
|
||||
|
||||
.nonickname
|
||||
ld hl, wStringBuffer1
|
||||
ld bc, MON_NAME_LENGTH
|
||||
call CopyBytes
|
||||
|
||||
.next ; 1707d (5:707d)
|
||||
ld hl, wCurPartyMon
|
||||
inc [hl]
|
||||
pop hl
|
||||
ld de, PARTYMON_STRUCT_LENGTH
|
||||
add hl, de
|
||||
pop de
|
||||
jp .loop
|
||||
|
||||
.done ; 1708a (5:708a)
|
||||
ret
|
||||
; 1708b (5:708b)
|
||||
|
||||
.Text_HatchEgg: ; 0x1708b
|
||||
; Huh? @ @
|
||||
text_jump UnknownText_0x1c0db0
|
||||
start_asm
|
||||
ld hl, wVramState
|
||||
res 0, [hl]
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
ld a, [wCurPartySpecies]
|
||||
push af
|
||||
call EggHatch_AnimationSequence
|
||||
ld hl, .ClearTextbox
|
||||
call PrintText
|
||||
pop af
|
||||
ld [wCurPartySpecies], a
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
ld hl, .CameOutOfItsEgg
|
||||
ret
|
||||
; 170b0 (5:70b0)
|
||||
|
||||
.ClearTextbox: ; 0x170b0
|
||||
;
|
||||
text_jump UnknownText_0x1c0db8
|
||||
db "@"
|
||||
; 0x170b5
|
||||
|
||||
.CameOutOfItsEgg: ; 0x170b5
|
||||
; came out of its EGG!@ @
|
||||
text_jump UnknownText_0x1c0dba
|
||||
db "@"
|
||||
; 0x170ba
|
||||
|
||||
.Text_NicknameHatchling: ; 0x170ba
|
||||
; Give a nickname to @ ?
|
||||
text_jump UnknownText_0x1c0dd8
|
||||
db "@"
|
||||
; 0x170bf
|
||||
|
||||
InitEggMoves: ; 170bf
|
||||
call GetHeritableMoves
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld b, NUM_MOVES
|
||||
.loop
|
||||
ld a, [de]
|
||||
and a
|
||||
jr z, .done
|
||||
ld hl, wEggMonMoves
|
||||
ld c, NUM_MOVES
|
||||
.next
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .skip
|
||||
inc hl
|
||||
dec c
|
||||
jr nz, .next
|
||||
call GetEggMove
|
||||
jr nc, .skip
|
||||
call LoadEggMove
|
||||
|
||||
.skip
|
||||
inc de
|
||||
dec b
|
||||
jr nz, .loop
|
||||
|
||||
.done
|
||||
ret
|
||||
; 170e4
|
||||
|
||||
GetEggMove: ; 170e4
|
||||
push bc
|
||||
ld a, [wEggMonSpecies]
|
||||
dec a
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, EggMovePointers
|
||||
add hl, bc
|
||||
add hl, bc
|
||||
ld a, BANK(EggMovePointers)
|
||||
call GetFarHalfword
|
||||
.loop
|
||||
ld a, BANK(EggMoves)
|
||||
call GetFarByte
|
||||
cp -1
|
||||
jr z, .reached_end
|
||||
ld b, a
|
||||
ld a, [de]
|
||||
cp b
|
||||
jr z, .done_carry
|
||||
inc hl
|
||||
jr .loop
|
||||
|
||||
.reached_end
|
||||
call GetBreedmonMovePointer
|
||||
ld b, NUM_MOVES
|
||||
.loop2
|
||||
ld a, [de]
|
||||
cp [hl]
|
||||
jr z, .found_eggmove
|
||||
inc hl
|
||||
dec b
|
||||
jr z, .inherit_tmhm
|
||||
jr .loop2
|
||||
|
||||
.found_eggmove
|
||||
ld a, [wEggMonSpecies]
|
||||
dec a
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, EvosAttacksPointers
|
||||
add hl, bc
|
||||
add hl, bc
|
||||
ld a, BANK(EvosAttacksPointers)
|
||||
call GetFarHalfword
|
||||
.loop3
|
||||
ld a, BANK(EvosAttacks)
|
||||
call GetFarByte
|
||||
inc hl
|
||||
and a
|
||||
jr nz, .loop3
|
||||
.loop4
|
||||
ld a, BANK(EvosAttacks)
|
||||
call GetFarByte
|
||||
and a
|
||||
jr z, .inherit_tmhm
|
||||
inc hl
|
||||
ld a, BANK(EvosAttacks)
|
||||
call GetFarByte
|
||||
ld b, a
|
||||
ld a, [de]
|
||||
cp b
|
||||
jr z, .done_carry
|
||||
inc hl
|
||||
jr .loop4
|
||||
|
||||
.inherit_tmhm
|
||||
ld hl, TMHMMoves
|
||||
.loop5
|
||||
ld a, BANK(TMHMMoves)
|
||||
call GetFarByte
|
||||
inc hl
|
||||
and a
|
||||
jr z, .done
|
||||
ld b, a
|
||||
ld a, [de]
|
||||
cp b
|
||||
jr nz, .loop5
|
||||
ld [wPutativeTMHMMove], a
|
||||
predef CanLearnTMHMMove
|
||||
ld a, c
|
||||
and a
|
||||
jr z, .done
|
||||
|
||||
.done_carry
|
||||
pop bc
|
||||
scf
|
||||
ret
|
||||
|
||||
.done
|
||||
pop bc
|
||||
and a
|
||||
ret
|
||||
; 17169
|
||||
|
||||
LoadEggMove: ; 17169
|
||||
push de
|
||||
push bc
|
||||
ld a, [de]
|
||||
ld b, a
|
||||
ld hl, wEggMonMoves
|
||||
ld c, NUM_MOVES
|
||||
.loop
|
||||
ld a, [hli]
|
||||
and a
|
||||
jr z, .done
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ld de, wEggMonMoves
|
||||
ld hl, wEggMonMoves + 1
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
|
||||
.done
|
||||
dec hl
|
||||
ld [hl], b
|
||||
ld hl, wEggMonMoves
|
||||
ld de, wEggMonPP
|
||||
predef FillPP
|
||||
pop bc
|
||||
pop de
|
||||
ret
|
||||
; 17197
|
||||
|
||||
GetHeritableMoves: ; 17197
|
||||
ld hl, wBreedMon2Moves
|
||||
ld a, [wBreedMon1Species]
|
||||
cp DITTO
|
||||
jr z, .ditto1
|
||||
ld a, [wBreedMon2Species]
|
||||
cp DITTO
|
||||
jr z, .ditto2
|
||||
ld a, [wBreedMotherOrNonDitto]
|
||||
and a
|
||||
ret z
|
||||
ld hl, wBreedMon1Moves
|
||||
ret
|
||||
|
||||
.ditto1
|
||||
ld a, [wCurPartySpecies]
|
||||
push af
|
||||
ld a, [wBreedMon2Species]
|
||||
ld [wCurPartySpecies], a
|
||||
ld a, [wBreedMon2DVs]
|
||||
ld [wTempMonDVs], a
|
||||
ld a, [wBreedMon2DVs + 1]
|
||||
ld [wTempMonDVs + 1], a
|
||||
ld a, TEMPMON
|
||||
ld [wMonType], a
|
||||
predef GetGender
|
||||
jr c, .inherit_mon2_moves
|
||||
jr nz, .inherit_mon2_moves
|
||||
jr .inherit_mon1_moves
|
||||
|
||||
.ditto2
|
||||
ld a, [wCurPartySpecies]
|
||||
push af
|
||||
ld a, [wBreedMon1Species]
|
||||
ld [wCurPartySpecies], a
|
||||
ld a, [wBreedMon1DVs]
|
||||
ld [wTempMonDVs], a
|
||||
ld a, [wBreedMon1DVs + 1]
|
||||
ld [wTempMonDVs + 1], a
|
||||
ld a, TEMPMON
|
||||
ld [wMonType], a
|
||||
predef GetGender
|
||||
jr c, .inherit_mon1_moves
|
||||
jr nz, .inherit_mon1_moves
|
||||
|
||||
.inherit_mon2_moves
|
||||
ld hl, wBreedMon2Moves
|
||||
pop af
|
||||
ld [wCurPartySpecies], a
|
||||
ret
|
||||
|
||||
.inherit_mon1_moves
|
||||
ld hl, wBreedMon1Moves
|
||||
pop af
|
||||
ld [wCurPartySpecies], a
|
||||
ret
|
||||
; 1720b
|
||||
|
||||
GetBreedmonMovePointer: ; 1720b
|
||||
ld hl, wBreedMon1Moves
|
||||
ld a, [wBreedMon1Species]
|
||||
cp DITTO
|
||||
ret z
|
||||
ld a, [wBreedMon2Species]
|
||||
cp DITTO
|
||||
jr z, .ditto
|
||||
ld a, [wBreedMotherOrNonDitto]
|
||||
and a
|
||||
ret z
|
||||
|
||||
.ditto
|
||||
ld hl, wBreedMon2Moves
|
||||
ret
|
||||
; 17224
|
||||
|
||||
|
||||
GetEggFrontpic: ; 17224 (5:7224)
|
||||
push de
|
||||
ld [wCurPartySpecies], a
|
||||
ld [wCurSpecies], a
|
||||
call GetBaseData
|
||||
ld hl, wBattleMonDVs
|
||||
predef GetUnownLetter
|
||||
pop de
|
||||
predef_jump GetMonFrontpic
|
||||
|
||||
GetHatchlingFrontpic: ; 1723c (5:723c)
|
||||
push de
|
||||
ld [wCurPartySpecies], a
|
||||
ld [wCurSpecies], a
|
||||
call GetBaseData
|
||||
ld hl, wBattleMonDVs
|
||||
predef GetUnownLetter
|
||||
pop de
|
||||
predef_jump GetAnimatedFrontpic
|
||||
|
||||
Hatch_UpdateFrontpicBGMapCenter: ; 17254 (5:7254)
|
||||
push af
|
||||
call WaitTop
|
||||
push hl
|
||||
push bc
|
||||
hlcoord 0, 0
|
||||
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
||||
ld a, " "
|
||||
call ByteFill
|
||||
pop bc
|
||||
pop hl
|
||||
ld a, b
|
||||
ld [hBGMapAddress + 1], a
|
||||
ld a, c
|
||||
ld [hGraphicStartTile], a
|
||||
lb bc, 7, 7
|
||||
predef PlaceGraphic
|
||||
pop af
|
||||
call Hatch_LoadFrontpicPal
|
||||
call SetPalettes
|
||||
jp WaitBGMap
|
||||
|
||||
EggHatch_DoAnimFrame: ; 1727f (5:727f)
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
callfar PlaySpriteAnimations
|
||||
call DelayFrame
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
ret
|
||||
|
||||
EggHatch_AnimationSequence: ; 1728f (5:728f)
|
||||
ld a, [wd265]
|
||||
ld [wJumptableIndex], a
|
||||
ld a, [wCurSpecies]
|
||||
push af
|
||||
ld de, MUSIC_NONE
|
||||
call PlayMusic
|
||||
farcall BlankScreen
|
||||
call DisableLCD
|
||||
ld hl, EggHatchGFX
|
||||
ld de, vTiles0 tile $00
|
||||
ld bc, 2 tiles
|
||||
ld a, BANK(EggHatchGFX)
|
||||
call FarCopyBytes
|
||||
farcall ClearSpriteAnims
|
||||
ld de, vTiles2 tile $00
|
||||
ld a, [wJumptableIndex]
|
||||
call GetHatchlingFrontpic
|
||||
ld de, vTiles2 tile $31
|
||||
ld a, EGG
|
||||
call GetEggFrontpic
|
||||
ld de, MUSIC_EVOLUTION
|
||||
call PlayMusic
|
||||
call EnableLCD
|
||||
hlcoord 7, 4
|
||||
ld b, HIGH(vBGMap0)
|
||||
ld c, $31 ; Egg tiles start here
|
||||
ld a, EGG
|
||||
call Hatch_UpdateFrontpicBGMapCenter
|
||||
ld c, 80
|
||||
call DelayFrames
|
||||
xor a
|
||||
ld [wFrameCounter], a
|
||||
ld a, [hSCX]
|
||||
ld b, a
|
||||
.outerloop
|
||||
ld hl, wFrameCounter
|
||||
ld a, [hl]
|
||||
inc [hl]
|
||||
cp 8
|
||||
jr nc, .done
|
||||
ld e, [hl]
|
||||
.loop
|
||||
; wobble e times
|
||||
ld a, 2
|
||||
ld [hSCX], a
|
||||
ld a, -2
|
||||
ld [wGlobalAnimXOffset], a
|
||||
call EggHatch_DoAnimFrame
|
||||
ld c, 2
|
||||
call DelayFrames
|
||||
ld a, -2
|
||||
ld [hSCX], a
|
||||
ld a, 2
|
||||
ld [wGlobalAnimXOffset], a
|
||||
call EggHatch_DoAnimFrame
|
||||
ld c, 2
|
||||
call DelayFrames
|
||||
dec e
|
||||
jr nz, .loop
|
||||
ld c, 16
|
||||
call DelayFrames
|
||||
call EggHatch_CrackShell
|
||||
jr .outerloop
|
||||
|
||||
.done
|
||||
ld de, SFX_EGG_HATCH
|
||||
call PlaySFX
|
||||
xor a
|
||||
ld [hSCX], a
|
||||
ld [wGlobalAnimXOffset], a
|
||||
call ClearSprites
|
||||
call Hatch_InitShellFragments
|
||||
hlcoord 6, 3
|
||||
ld b, HIGH(vBGMap0)
|
||||
ld c, $00 ; Hatchling tiles start here
|
||||
ld a, [wJumptableIndex]
|
||||
call Hatch_UpdateFrontpicBGMapCenter
|
||||
call Hatch_ShellFragmentLoop
|
||||
call WaitSFX
|
||||
ld a, [wJumptableIndex]
|
||||
ld [wCurPartySpecies], a
|
||||
hlcoord 6, 3
|
||||
ld d, $0
|
||||
ld e, ANIM_MON_HATCH
|
||||
predef AnimateFrontpic
|
||||
pop af
|
||||
ld [wCurSpecies], a
|
||||
ret
|
||||
|
||||
Hatch_LoadFrontpicPal: ; 17363 (5:7363)
|
||||
ld [wPlayerHPPal], a
|
||||
ld b, SCGB_EVOLUTION
|
||||
ld c, $0
|
||||
jp GetSGBLayout
|
||||
|
||||
EggHatch_CrackShell: ; 1736d (5:736d)
|
||||
ld a, [wFrameCounter]
|
||||
dec a
|
||||
and $7
|
||||
cp $7
|
||||
ret z
|
||||
srl a
|
||||
ret nc
|
||||
swap a
|
||||
srl a
|
||||
add 9 * 8 + 4
|
||||
ld d, a
|
||||
ld e, 11 * 8
|
||||
ld a, SPRITE_ANIM_INDEX_EGG_CRACK
|
||||
call _InitSpriteAnimStruct
|
||||
ld hl, SPRITEANIMSTRUCT_TILE_ID
|
||||
add hl, bc
|
||||
ld [hl], $0
|
||||
ld de, SFX_EGG_CRACK
|
||||
jp PlaySFX
|
||||
; 17393 (5:7393)
|
||||
|
||||
EggHatchGFX: ; 17393
|
||||
INCBIN "gfx/evo/egg_hatch.2bpp"
|
||||
; 173b3
|
||||
|
||||
Hatch_InitShellFragments: ; 173b3 (5:73b3)
|
||||
farcall ClearSpriteAnims
|
||||
ld hl, .SpriteData
|
||||
.loop
|
||||
ld a, [hli]
|
||||
cp -1
|
||||
jr z, .done
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
push hl
|
||||
push bc
|
||||
|
||||
ld a, SPRITE_ANIM_INDEX_EGG_HATCH
|
||||
call _InitSpriteAnimStruct
|
||||
|
||||
ld hl, SPRITEANIMSTRUCT_TILE_ID
|
||||
add hl, bc
|
||||
ld [hl], $0
|
||||
|
||||
pop de
|
||||
ld a, e
|
||||
ld hl, SPRITEANIMSTRUCT_FRAMESET_ID
|
||||
add hl, bc
|
||||
add [hl]
|
||||
ld [hl], a
|
||||
|
||||
ld hl, SPRITEANIMSTRUCT_JUMPTABLE_INDEX
|
||||
add hl, bc
|
||||
ld [hl], d
|
||||
|
||||
pop hl
|
||||
jr .loop
|
||||
.done
|
||||
ld de, SFX_EGG_HATCH
|
||||
call PlaySFX
|
||||
call EggHatch_DoAnimFrame
|
||||
ret
|
||||
; 173ef (5:73ef)
|
||||
|
||||
shell_fragment: MACRO
|
||||
; y tile, y pxl, x tile, x pxl, frameset offset, ???
|
||||
db (\1 * 8) % $100 + \2, (\3 * 8) % $100 + \4, \5 - SPRITE_ANIM_FRAMESET_EGG_HATCH_1, \6
|
||||
ENDM
|
||||
|
||||
.SpriteData: ; 173ef
|
||||
shell_fragment 10, 4, 9, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_1, $3c
|
||||
shell_fragment 11, 4, 9, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_2, $04
|
||||
shell_fragment 10, 4, 10, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_1, $30
|
||||
shell_fragment 11, 4, 10, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_2, $10
|
||||
shell_fragment 10, 4, 11, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_3, $24
|
||||
shell_fragment 11, 4, 11, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_4, $1c
|
||||
shell_fragment 10, 0, 9, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_1, $36
|
||||
shell_fragment 12, 0, 9, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_2, $0a
|
||||
shell_fragment 10, 0, 10, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_3, $2a
|
||||
shell_fragment 12, 0, 10, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_4, $16
|
||||
db -1
|
||||
; 17418
|
||||
|
||||
Hatch_ShellFragmentLoop: ; 17418 (5:7418)
|
||||
ld c, 129
|
||||
.loop
|
||||
call EggHatch_DoAnimFrame
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
DayCareMon1: ; 17421
|
||||
ld hl, DayCareMon1Text
|
||||
call PrintText
|
||||
ld a, [wBreedMon1Species]
|
||||
call PlayMonCry
|
||||
ld a, [wDayCareLady]
|
||||
bit DAYCARELADY_HAS_MON_F, a
|
||||
jr z, DayCareMonCursor
|
||||
call ButtonSound
|
||||
ld hl, wBreedMon2Nick
|
||||
call DayCareMonCompatibilityText
|
||||
jp PrintText
|
||||
|
||||
DayCareMon2: ; 17440
|
||||
ld hl, DayCareMon2Text
|
||||
call PrintText
|
||||
ld a, [wBreedMon2Species]
|
||||
call PlayMonCry
|
||||
ld a, [wDayCareMan]
|
||||
bit DAYCAREMAN_HAS_MON_F, a
|
||||
jr z, DayCareMonCursor
|
||||
call ButtonSound
|
||||
ld hl, wBreedMon1Nick
|
||||
call DayCareMonCompatibilityText
|
||||
jp PrintText
|
||||
|
||||
DayCareMonCursor: ; 1745f
|
||||
jp WaitPressAorB_BlinkCursor
|
||||
; 17462
|
||||
|
||||
DayCareMon2Text: ; 0x17462
|
||||
; It's @ that was left with the DAY-CARE LADY.
|
||||
text_jump UnknownText_0x1c0df3
|
||||
db "@"
|
||||
; 0x17467
|
||||
|
||||
DayCareMon1Text: ; 0x17467
|
||||
; It's @ that was left with the DAY-CARE MAN.
|
||||
text_jump UnknownText_0x1c0e24
|
||||
db "@"
|
||||
; 0x1746c
|
||||
|
||||
DayCareMonCompatibilityText: ; 1746c
|
||||
push bc
|
||||
ld de, wStringBuffer1
|
||||
ld bc, NAME_LENGTH
|
||||
call CopyBytes
|
||||
call CheckBreedmonCompatibility
|
||||
pop bc
|
||||
ld a, [wd265]
|
||||
ld hl, .AllAlone
|
||||
cp -1
|
||||
jr z, .done
|
||||
ld hl, .Incompatible
|
||||
and a
|
||||
jr z, .done
|
||||
ld hl, .HighCompatibility
|
||||
cp 230
|
||||
jr nc, .done
|
||||
cp 70
|
||||
ld hl, .ModerateCompatibility
|
||||
jr nc, .done
|
||||
ld hl, .SlightCompatibility
|
||||
|
||||
.done
|
||||
ret
|
||||
; 1749c
|
||||
|
||||
.AllAlone: ; 0x1749c
|
||||
; It's brimming with energy.
|
||||
text_jump UnknownText_0x1c0e54
|
||||
db "@"
|
||||
; 0x174a1
|
||||
|
||||
.Incompatible: ; 0x174a1
|
||||
; It has no interest in @ .
|
||||
text_jump UnknownText_0x1c0e6f
|
||||
db "@"
|
||||
; 0x174a6
|
||||
|
||||
.HighCompatibility: ; 0x174a6
|
||||
; It appears to care for @ .
|
||||
text_jump UnknownText_0x1c0e8d
|
||||
db "@"
|
||||
; 0x174ab
|
||||
|
||||
.ModerateCompatibility: ; 0x174ab
|
||||
; It's friendly with @ .
|
||||
text_jump UnknownText_0x1c0eac
|
||||
db "@"
|
||||
; 0x174b0
|
||||
|
||||
.SlightCompatibility: ; 0x174b0
|
||||
; It shows interest in @ .
|
||||
text_jump UnknownText_0x1c0ec6
|
||||
db "@"
|
||||
; 0x174b5
|
||||
|
||||
Unreferenced_DayCareMonPrintEmptyString: ; 174b5
|
||||
ld hl, .string
|
||||
ret
|
||||
; 174b9
|
||||
|
||||
.string ; 174b9
|
||||
db "@"
|
||||
; 174ba
|
||||
|
||||
Reference in New Issue
Block a user