diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/events/print_photo.asm | 50 | ||||
| -rw-r--r-- | engine/events/print_unown.asm | 209 | ||||
| -rwxr-xr-x | engine/events/specials.asm | 2 | ||||
| -rwxr-xr-x | engine/items/tmhm2.asm | 6 | ||||
| -rw-r--r-- | engine/menus/intro_menu.asm | 4 | ||||
| -rw-r--r-- | engine/menus/naming_screen.asm | 10 | ||||
| -rw-r--r-- | engine/movie/gamefreak_presents.asm | 6 | ||||
| -rw-r--r-- | engine/pokemon/breeding.asm | 935 |
8 files changed, 1208 insertions, 14 deletions
diff --git a/engine/events/print_photo.asm b/engine/events/print_photo.asm new file mode 100644 index 00000000..056788b9 --- /dev/null +++ b/engine/events/print_photo.asm @@ -0,0 +1,50 @@ +PhotoStudio: + ld hl, .WhichMonPhotoText + call PrintText + farcall SelectMonFromParty + jr c, .cancel + ld a, [wCurPartySpecies] + cp EGG + jr z, .egg + + ld hl, .HoldStillText + call PrintText + call DisableSpriteUpdates + farcall PrintPartymon + call ReturnToMapWithSpeechTextbox + ldh a, [hPrinter] + and a + jr nz, .cancel + ld hl, .PrestoAllDoneText + jr .print_text + +.cancel + ld hl, .NoPhotoText + jr .print_text + +.egg + ld hl, .EggPhotoText + +.print_text + call PrintText + ret + +.WhichMonPhotoText: + text_far _WhichMonPhotoText + text_end + +.HoldStillText: + text_far _HoldStillText + text_end + +.PrestoAllDoneText: + text_far _PrestoAllDoneText + text_end + +.NoPhotoText: + text_far _NoPhotoText + text_end + +.EggPhotoText: + text_far _EggPhotoText + text_end diff --git a/engine/events/print_unown.asm b/engine/events/print_unown.asm new file mode 100644 index 00000000..893e8e6d --- /dev/null +++ b/engine/events/print_unown.asm @@ -0,0 +1,209 @@ +UNOWNSTAMP_BOLD_A EQU "♂" ; $ef +UNOWNSTAMP_BOLD_B EQU "♀" ; $f5 + +_UnownPrinter: + ld a, [wUnownDex] + and a + ret z + + ldh a, [hInMenu] + push af + ld a, $1 + ldh [hInMenu], a + ld a, [wOptions] + push af + set NO_TEXT_SCROLL, a + ld [wOptions], a + call ClearBGPalettes + call ClearTilemap + + ld de, UnownDexATile + ld hl, vTiles0 tile UNOWNSTAMP_BOLD_A + lb bc, BANK(UnownDexATile), 1 + call Request1bpp + + ld de, UnownDexBTile + ld hl, vTiles0 tile UNOWNSTAMP_BOLD_B + lb bc, BANK(UnownDexBTile), 1 + call Request1bpp + + hlcoord 0, 0 + lb bc, 3, 18 + call Textbox + + hlcoord 0, 5 + lb bc, 7, 7 + call Textbox + + hlcoord 0, 14 + lb bc, 2, 18 + call Textbox + + hlcoord 1, 2 + ld de, AlphRuinsStampString + call PlaceString + + hlcoord 1, 16 + ld de, UnownDexDoWhatString + call PlaceString + + hlcoord 10, 6 + ld de, UnownDexMenuString + call PlaceString + + xor a + ld [wJumptableIndex], a + call .UpdateUnownFrontpic + call WaitBGMap + + ld a, UNOWN + ld [wCurPartySpecies], a + xor a + ld [wTempMonDVs], a + ld [wTempMonDVs + 1], a + + ld b, SCGB_TRAINER_OR_MON_FRONTPIC_PALS + call GetSGBLayout + call SetPalettes + +.joy_loop + call JoyTextDelay + + ldh a, [hJoyPressed] + and B_BUTTON + jr nz, .pressed_b + + ldh a, [hJoyPressed] + and A_BUTTON + jr nz, .pressed_a + + call .LeftRight + call DelayFrame + jr .joy_loop + +.pressed_a + ld a, [wJumptableIndex] + push af + farcall PrintUnownStamp + call RestartMapMusic + pop af + ld [wJumptableIndex], a + jr .joy_loop + +.pressed_b + pop af + ld [wOptions], a + pop af + ldh [hInMenu], a + call ReturnToMapFromSubmenu + ret + +.LeftRight: + ldh a, [hJoyLast] + and D_RIGHT + jr nz, .press_right + ldh a, [hJoyLast] + and D_LEFT + jr nz, .press_left + ret + +.press_left + ld hl, wJumptableIndex + ld a, [hl] + and a + jr nz, .wrap_around_left + ld [hl], 26 + 1 +.wrap_around_left + dec [hl] + jr .return + +.press_right + ld hl, wJumptableIndex + ld a, [hl] + cp 26 + jr c, .wrap_around_right + ld [hl], -1 +.wrap_around_right + inc [hl] + +.return + call .UpdateUnownFrontpic + ret + +.UpdateUnownFrontpic: + ld a, [wJumptableIndex] + cp 26 + jr z, .vacant + inc a + ld [wUnownLetter], a + ld a, UNOWN + ld [wCurPartySpecies], a + xor a + ld [wBoxAlignment], a + ld de, vTiles2 + predef GetMonFrontpic + hlcoord 1, 6 + xor a + ldh [hGraphicStartTile], a + lb bc, 7, 7 + predef PlaceGraphic + ld de, vTiles2 tile $31 + farcall RotateUnownFrontpic + ret + +.vacant + hlcoord 1, 6 + lb bc, 7, 7 + call ClearBox + hlcoord 1, 9 + ld de, UnownDexVacantString + call PlaceString + xor a ; sDecompressScratch + call OpenSRAM + ld hl, sDecompressScratch + ld bc, $31 tiles + xor a + call ByteFill + ld hl, vTiles2 tile $31 + ld de, sDecompressScratch + ld c, $31 + ldh a, [hROMBank] + ld b, a + call Get2bpp + call CloseSRAM + ld c, 20 + call DelayFrames + ret + +AlphRuinsStampString: + db " ALPH RUINS STAMP@" + +UnownDexDoWhatString: + db "Do what?@" + +UnownDexMenuString: + db UNOWNSTAMP_BOLD_A, "▶PRINT" + next UNOWNSTAMP_BOLD_B, "▶CANCEL" + next "L▶BEFORE" + next "R▶NEXT" + db "@" + +UnownDexVacantString: + db "VACANT@" + +UnownDexATile: +INCBIN "gfx/printer/bold_a.1bpp" +UnownDexBTile: +INCBIN "gfx/printer/bold_b.1bpp" + +PlaceUnownPrinterFrontpic: + hlcoord 0, 0 + ld bc, SCREEN_WIDTH * SCREEN_HEIGHT + ld a, " " + call ByteFill + hlcoord 7, 11 + ld a, $31 + ldh [hGraphicStartTile], a + lb bc, 7, 7 + predef PlaceGraphic + ret diff --git a/engine/events/specials.asm b/engine/events/specials.asm index 11ae421e..605346b4 100755 --- a/engine/events/specials.asm +++ b/engine/events/specials.asm @@ -235,7 +235,7 @@ OverworldTownMap: ; c41a (3:441a) UnownPrinter: ; c427 (3:4427) call FadeToMenu - farcall Function16e3a + farcall _UnownPrinter call ExitAllMenus ret diff --git a/engine/items/tmhm2.asm b/engine/items/tmhm2.asm index a7a135d9..18218a06 100755 --- a/engine/items/tmhm2.asm +++ b/engine/items/tmhm2.asm @@ -7,7 +7,7 @@ CanLearnTMHMMove: ; 11a25 (4:5a25) ld a, [wPutativeTMHMMove] ld b, a ld c, $0 - ld hl, TMMovesList + ld hl, TMHMMoves .asm_11a3b ld a, [hli] and a @@ -34,7 +34,7 @@ CanLearnTMHMMove: ; 11a25 (4:5a25) GetTMHMMove: ; 11a56 (4:5a56) ld a, [wd151] dec a - ld hl, TMMovesList + ld hl, TMHMMoves ld b, $0 ld c, a add hl, bc @@ -42,7 +42,7 @@ GetTMHMMove: ; 11a56 (4:5a56) ld [wd151], a ret -TMMovesList: +TMHMMoves: db DYNAMICPUNCH db HEADBUTT db CURSE diff --git a/engine/menus/intro_menu.asm b/engine/menus/intro_menu.asm index db0d929a..0b5862ac 100644 --- a/engine/menus/intro_menu.asm +++ b/engine/menus/intro_menu.asm @@ -1152,7 +1152,7 @@ InitTitleScreen: ; 6291 (1:6291) ld bc, $2000 xor a call ByteFill - farcall ClearAnimatedObjectBuffer + farcall ClearSpriteAnims ld hl, TitleScreenGFX1 ld de, $9000 @@ -1331,7 +1331,7 @@ TitleScreenFrame: ; 63da (1:63da) call Function640f ld a, $1 ldh [hOAMUpdate], a - farcall AnimatedObjects_PlayFrame + farcall PlaySpriteAnimations xor a ldh [hOAMUpdate], a call Function64b1 diff --git a/engine/menus/naming_screen.asm b/engine/menus/naming_screen.asm index 570a649b..937f4267 100644 --- a/engine/menus/naming_screen.asm +++ b/engine/menus/naming_screen.asm @@ -290,14 +290,14 @@ Function11cd4: ; 11cd4 (4:5cd4) bit 7, a jr nz, .asm_11cef call Function11d27 - farcall AnimatedObjects_PlayFrameAndDelay + farcall PlaySpriteAnimationsAndDelay call Function11cff call DelayFrame and a ret .asm_11cef - callfar ClearAnimatedObjectBuffer + callfar ClearSpriteAnims call ClearSprites xor a ldh [hSCX], a @@ -817,7 +817,7 @@ Function11fde: ; 11fde (4:5fde) Function1201e: ; 1201e (4:601e) call ClearSprites - callfar ClearAnimatedObjectBuffer + callfar ClearSpriteAnims call LoadStandardFont call LoadFontsExtra ld de, NamingScreenGFX_MiddleLine ; $6232 @@ -1005,14 +1005,14 @@ Function1238d: ; 1238d (4:638d) bit 7, a jr nz, .asm_123a8 call Function123d5 - farcall AnimatedObjects_PlayFrameAndDelay + farcall PlaySpriteAnimationsAndDelay call Function123b8 call DelayFrame and a ret .asm_123a8 - callfar ClearAnimatedObjectBuffer + callfar ClearSpriteAnims call ClearSprites xor a ldh [hSCX], a diff --git a/engine/movie/gamefreak_presents.asm b/engine/movie/gamefreak_presents.asm index e71f26bf..2676c9f6 100644 --- a/engine/movie/gamefreak_presents.asm +++ b/engine/movie/gamefreak_presents.asm @@ -68,7 +68,7 @@ GFPresents_Init: ; e49f3 (39:49f3) lb bc, BANK(GFPresentsGFX2), 5 call Request2bpp - farcall ClearAnimatedObjectBuffer + farcall ClearSpriteAnims ld hl, wSpriteAnimDict ld a, 6 @@ -108,7 +108,7 @@ GFPresents_PlayFrame: ; e4a37 (39:4a37) bit 7, a jr nz, .finish - farcall AnimatedObjects_PlayFrame + farcall PlaySpriteAnimations call GFPresents_HandleFrame call DelayFrame @@ -123,7 +123,7 @@ GFPresents_PlayFrame: ; e4a37 (39:4a37) set 6, [hl] .finish - callfar ClearAnimatedObjectBuffer + callfar ClearSpriteAnims call ClearTilemap call ClearSprites diff --git a/engine/pokemon/breeding.asm b/engine/pokemon/breeding.asm new file mode 100644 index 00000000..b891df82 --- /dev/null +++ b/engine/pokemon/breeding.asm @@ -0,0 +1,935 @@ +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 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 [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 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 + +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 + + 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 [wNamedObjectIndexBuffer], 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, 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, .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 + 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(EggMovePointers) + 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(EvosAttacksPointers) + call GetFarByte + inc hl + and a + jr nz, .loop3 +.loop4 + ld a, BANK(EvosAttacksPointers) + call GetFarByte + and a + jr z, .inherit_tmhm + inc hl + ld a, BANK(EvosAttacksPointers) + 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 + +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, 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 + +GetBreedmonMovePointer: + 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 + +GetHatchlingFrontpic: + push de + ld [wCurPartySpecies], a + ld [wCurSpecies], a + call GetBaseData + ld hl, wBattleMonDVs + predef GetUnownLetter + pop de + predef_jump GetMonFrontpic + +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, [wNamedObjectIndexBuffer] + 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 GetHatchlingFrontpic + 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] + call PlayMonCry + 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 + 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 + +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: + 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, wBreedMon2Nick + 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, wBreedMon1Nick + 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 + +Unreferenced_DayCareMonPrintEmptyString: + ld hl, .string + ret + +.string + db "@" |