First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/pokemon/breeding.asm

@@ -0,0 +1,993 @@
+CheckBreedmonCompatibility:
+	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, TEMPMON
+	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 hl, DITTO
+	call GetPokemonIDFromIndex
+	ld b, a
+	ld c, $0
+	ld a, [wBreedMon1Species]
+	cp b
+	jr z, .ditto1
+	ld a, [wBreedMon2Species]
+	cp b
+	jr nz, .done
+	jr .compute
+
+.ditto1
+	ld a, [wBreedMon2Species]
+	cp b
+	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 [wBreedingCompatibility], a
+	ret
+
+.CheckDVs:
+; 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
+
+.CheckBreedingGroupCompatibility:
+; 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 hl, DITTO
+	call GetPokemonIDFromIndex
+	ld d, a
+	ld a, [wBreedMon2Species]
+	cp d
+	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 d
+	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
+
+DoEggStep::
+	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
+
+OverworldHatchEgg::
+	call RefreshScreen
+	call LoadStandardMenuHeader
+	call HatchEggs
+	call ExitAllMenus
+	call RestartMapMusic
+	jp CloseText
+
+HatchEggs:
+	ld de, wPartySpecies
+	ld hl, wPartyMon1Happiness
+	xor a
+	ld [wCurPartyMon], a
+
+.loop
+	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
+	call SetSeenAndCaughtMon
+
+	ld a, [wCurPartySpecies]
+	call GetPokemonIndexFromID
+	ld a, l
+	sub LOW(TOGEPI)
+	if HIGH(TOGEPI) == 0
+		or h
+	else
+		jr nz, .nottogepi
+		if HIGH(TOGEPI) == 1
+			dec h
+		else
+			ld a, h
+			cp HIGH(TOGEPI)
+		endc
+	endc
+	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 [wNamedObjectIndex], a
+	ld [wCurSpecies], a
+	call GetPokemonName
+	xor a
+	ld [wUnusedEggHatchFlag], 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, wPartyMonOTs
+	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, .BreedAskNicknameText
+	call PrintText
+	call YesNoBox
+	pop de
+	jr c, .nonickname
+
+	ld a, TRUE
+	ld [wUnusedEggHatchFlag], a
+	xor a
+	ld [wMonType], a
+	push de
+	ld b, NAME_MON
+	farcall NamingScreen
+	pop hl
+	ld de, wStringBuffer1
+	call InitName
+	jr .next
+
+.nonickname
+	ld hl, wStringBuffer1
+	ld bc, MON_NAME_LENGTH
+	call CopyBytes
+
+.next
+	ld hl, wCurPartyMon
+	inc [hl]
+	pop hl
+	ld de, PARTYMON_STRUCT_LENGTH
+	add hl, de
+	pop de
+	jp .loop
+
+.done
+	ret
+
+.Text_HatchEgg:
+	; Huh? @ @
+	text_far Text_BreedHuh
+	text_asm
+	ld hl, wVramState
+	res 0, [hl]
+	push hl
+	push de
+	push bc
+	ld a, [wCurPartySpecies]
+	push af
+	call EggHatch_AnimationSequence
+	ld hl, .BreedClearboxText
+	call PrintText
+	pop af
+	ld [wCurPartySpecies], a
+	pop bc
+	pop de
+	pop hl
+	ld hl, .BreedEggHatchText
+	ret
+
+.BreedClearboxText:
+	text_far _BreedClearboxText
+	text_end
+
+.BreedEggHatchText:
+	text_far _BreedEggHatchText
+	text_end
+
+.BreedAskNicknameText:
+	text_far _BreedAskNicknameText
+	text_end
+
+InitEggMoves:
+	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
+
+GetEggMove:
+	push bc
+	push de
+	call GetBreedmonMovePointer
+	ld b, NUM_MOVES
+	ld a, [de]
+	ld c, a
+.breedmon_loop
+	ld a, [hli]
+	and a
+	jr z, .not_breedmon
+	cp c
+	jr z, .breedmon_found
+	dec b
+	jr nz, .breedmon_loop
+.not_breedmon
+
+	ld a, c
+	call GetMoveIndexFromID
+	ld d, h
+	ld e, l
+.not_learnset_move
+	ld a, [wEggMonSpecies]
+	call GetPokemonIndexFromID
+	ld b, h
+	ld c, l
+	ld hl, EggMovePointers
+	ld a, BANK(EggMovePointers)
+	call LoadDoubleIndirectPointer
+.egg_move_loop
+	push hl
+	call GetFarWord
+	ld a, h
+	and l
+	ld c, a
+	ld a, h
+	cp d
+	jr nz, .no_egg_match
+	ld a, l
+	cp e
+.no_egg_match
+	pop hl
+	jr z, .is_egg_move
+	inc hl
+	inc hl
+	ld a, b
+	inc c
+	jr nz, .egg_move_loop
+
+	ld bc, TMHMMoves
+.tmhm_loop
+	ld a, BANK(TMHMMoves)
+	ld h, b
+	ld l, c
+	call GetFarWord
+	ld a, h
+	and l
+	jr z, .done
+	inc bc
+	inc bc
+	ld a, h
+	cp d
+	jr nz, .tmhm_loop
+	ld a, l
+	cp e
+	jr nz, .tmhm_loop
+	pop de
+	ld a, [de]
+	push de
+	ld [wPutativeTMHMMove], a
+	predef CanLearnTMHMMove
+	xor a
+	cp c ;will carry if non-zero
+	jr .done
+
+.breedmon_found
+	call GetMoveIndexFromID
+	ld d, h
+	ld e, l
+	ld a, [wEggMonSpecies]
+	call GetPokemonIndexFromID
+	ld b, h
+	ld c, l
+	ld hl, EvosAttacksPointers
+	ld a, BANK(EvosAttacksPointers)
+	call LoadDoubleIndirectPointer
+	call FarSkipEvolutions
+.learnset_loop
+	ld a, b
+	call GetFarByte
+	inc hl
+	and a
+	jr z, .not_learnset_move
+	push hl
+	call GetFarWord
+	ld a, l
+	cp e
+	ld a, h
+	pop hl
+	inc hl
+	inc hl
+	jr nz, .learnset_loop
+	cp d
+	jr nz, .learnset_loop
+.is_egg_move
+	scf
+.done
+	pop de
+	pop bc
+	ret
+
+LoadEggMove:
+	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
+
+GetHeritableMoves:
+	ld hl, DITTO
+	call GetPokemonIDFromIndex
+	ld b, a
+	ld hl, wBreedMon2Moves
+	ld a, [wBreedMon1Species]
+	cp b
+	jr z, .ditto1
+	ld a, [wBreedMon2Species]
+	cp b
+	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
+
+GetBreedmonMovePointer:
+	ld hl, DITTO
+	call GetPokemonIDFromIndex
+	ld b, a
+	ld hl, wBreedMon1Moves
+	ld a, [wBreedMon1Species]
+	cp b
+	ret z
+	ld a, [wBreedMon2Species]
+	cp b
+	jr z, .ditto
+	ld a, [wBreedMotherOrNonDitto]
+	and a
+	ret z
+
+.ditto
+	ld hl, wBreedMon2Moves
+	ret
+
+GetEggFrontpic:
+; BUG: A hatching Unown egg would not show the right letter (see docs/bugs_and_glitches.md)
+	push de
+	ld [wCurPartySpecies], a
+	ld [wCurSpecies], a
+	call GetBaseData
+	ld hl, wBattleMonDVs
+	predef GetUnownLetter
+	pop de
+	predef_jump GetMonFrontpic
+
+GetHatchlingFrontpic:
+	push de
+	ld [wCurPartySpecies], a
+	ld [wCurSpecies], a
+	call GetBaseData
+	ld hl, wBattleMonDVs
+	predef GetUnownLetter
+	pop de
+	predef_jump GetAnimatedFrontpic
+
+Hatch_UpdateFrontpicBGMapCenter:
+	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
+	ldh [hBGMapAddress + 1], a
+	ld a, c
+	ldh [hGraphicStartTile], a
+	lb bc, 7, 7
+	predef PlaceGraphic
+	pop af
+	call Hatch_LoadFrontpicPal
+	call SetPalettes
+	jp WaitBGMap
+
+EggHatch_DoAnimFrame:
+	push hl
+	push de
+	push bc
+	callfar PlaySpriteAnimations
+	call DelayFrame
+	pop bc
+	pop de
+	pop hl
+	ret
+
+EggHatch_AnimationSequence:
+	ld a, [wNamedObjectIndex]
+	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
+	ldh 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
+	ldh [hSCX], a
+	ld a, -2
+	ld [wGlobalAnimXOffset], a
+	call EggHatch_DoAnimFrame
+	ld c, 2
+	call DelayFrames
+	ld a, -2
+	ldh [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
+	ldh [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:
+	ld [wPlayerHPPal], a
+	ld b, SCGB_EVOLUTION
+	ld c, $0
+	jp GetSGBLayout
+
+EggHatch_CrackShell:
+	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
+
+EggHatchGFX:
+INCBIN "gfx/evo/egg_hatch.2bpp"
+
+Hatch_InitShellFragments:
+	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
+
+MACRO shell_fragment
+; 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:
+	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
+
+Hatch_ShellFragmentLoop:
+	ld c, 129
+.loop
+	call EggHatch_DoAnimFrame
+	dec c
+	jr nz, .loop
+	ret
+
+DayCareMon1:
+	ld hl, LeftWithDayCareManText
+	call PrintText
+	ld a, [wBreedMon1Species]
+	call PlayMonCry
+	ld a, [wDayCareLady]
+	bit DAYCARELADY_HAS_MON_F, a
+	jr z, DayCareMonCursor
+	call PromptButton
+	ld hl, wBreedMon2Nickname
+	call DayCareMonCompatibilityText
+	jp PrintText
+
+DayCareMon2:
+	ld hl, LeftWithDayCareLadyText
+	call PrintText
+	ld a, [wBreedMon2Species]
+	call PlayMonCry
+	ld a, [wDayCareMan]
+	bit DAYCAREMAN_HAS_MON_F, a
+	jr z, DayCareMonCursor
+	call PromptButton
+	ld hl, wBreedMon1Nickname
+	call DayCareMonCompatibilityText
+	jp PrintText
+
+DayCareMonCursor:
+	jp WaitPressAorB_BlinkCursor
+
+LeftWithDayCareLadyText:
+	text_far _LeftWithDayCareLadyText
+	text_end
+
+LeftWithDayCareManText:
+	text_far _LeftWithDayCareManText
+	text_end
+
+DayCareMonCompatibilityText:
+	push bc
+	ld de, wStringBuffer1
+	ld bc, NAME_LENGTH
+	call CopyBytes
+	call CheckBreedmonCompatibility
+	pop bc
+	ld a, [wBreedingCompatibility]
+	ld hl, .BreedBrimmingWithEnergyText
+	cp -1
+	jr z, .done
+	ld hl, .BreedNoInterestText
+	and a
+	jr z, .done
+	ld hl, .BreedAppearsToCareForText
+	cp 230
+	jr nc, .done
+	cp 70
+	ld hl, .BreedFriendlyText
+	jr nc, .done
+	ld hl, .BreedShowsInterestText
+
+.done
+	ret
+
+.BreedBrimmingWithEnergyText:
+	text_far _BreedBrimmingWithEnergyText
+	text_end
+
+.BreedNoInterestText:
+	text_far _BreedNoInterestText
+	text_end
+
+.BreedAppearsToCareForText:
+	text_far _BreedAppearsToCareForText
+	text_end
+
+.BreedFriendlyText:
+	text_far _BreedFriendlyText
+	text_end
+
+.BreedShowsInterestText:
+	text_far _BreedShowsInterestText
+	text_end
+
+DayCareMonPrintEmptyString: ; unreferenced
+	ld hl, .string
+	ret
+
+.string
+	db "@"