ref: 9571c550b6a0dcb3a4f54513c881661a87271024
dir: /scripts/Daycare.asm/
Daycare_Script: jp EnableAutoTextBoxDrawing Daycare_TextPointers: dw DayCareMText1 DayCareMText1: text_asm call SaveScreenTilesToBuffer2 ld a, [wDayCareInUse] and a jp nz, .daycareInUse ld hl, DayCareIntroText call PrintText call YesNoChoice ld a, [wCurrentMenuItem] and a ld hl, DayCareComeAgainText jp nz, .done ld a, [wPartyCount] dec a ld hl, DayCareOnlyHaveOneMonText jp z, .done ld hl, DayCareWhichMonText call PrintText xor a ld [wUpdateSpritesEnabled], a ld [wPartyMenuTypeOrMessageID], a ld [wMenuItemToSwap], a call DisplayPartyMenu push af call GBPalWhiteOutWithDelay3 call RestoreScreenTilesAndReloadTilePatterns call LoadGBPal pop af ld hl, DayCareAllRightThenText jp c, .done callfar KnowsHMMove ld hl, DayCareCantAcceptMonWithHMText jp c, .done xor a ld [wPartyAndBillsPCSavedMenuItem], a ld a, [wWhichPokemon] ld hl, wPartyMonNicks call GetPartyMonName ld hl, DayCareWillLookAfterMonText call PrintText ld a, 1 ld [wDayCareInUse], a ld a, PARTY_TO_DAYCARE ld [wMoveMonType], a call MoveMon xor a ld [wRemoveMonFromBox], a call RemovePokemon ld a, [wcf91] call PlayCry ld hl, DayCareComeSeeMeInAWhileText jp .done .daycareInUse xor a ld hl, wDayCareMonName call GetPartyMonName ld a, DAYCARE_DATA ld [wMonDataLocation], a call LoadMonData callfar CalcLevelFromExperience ld a, d cp MAX_LEVEL jr c, .skipCalcExp ld d, MAX_LEVEL callfar CalcExperience ld hl, wDayCareMonExp ldh a, [hExperience] ld [hli], a ldh a, [hExperience + 1] ld [hli], a ldh a, [hExperience + 2] ld [hl], a ld d, MAX_LEVEL .skipCalcExp xor a ld [wDayCareNumLevelsGrown], a ld hl, wDayCareMonBoxLevel ld a, [hl] ld [wDayCareStartLevel], a cp d ld [hl], d ld hl, DayCareMonNeedsMoreTimeText jr z, .next ld a, [wDayCareStartLevel] ld b, a ld a, d sub b ld [wDayCareNumLevelsGrown], a ld hl, DayCareMonHasGrownText .next call PrintText ld a, [wPartyCount] cp PARTY_LENGTH ld hl, DayCareNoRoomForMonText jp z, .leaveMonInDayCare ld de, wDayCareTotalCost xor a ld [de], a inc de ld [de], a ld hl, wDayCarePerLevelCost ld a, $1 ld [hli], a ld [hl], $0 ld a, [wDayCareNumLevelsGrown] inc a ld b, a ld c, 2 .calcPriceLoop push hl push de push bc predef AddBCDPredef pop bc pop de pop hl dec b jr nz, .calcPriceLoop ld hl, DayCareOweMoneyText call PrintText ld a, MONEY_BOX ld [wTextBoxID], a call DisplayTextBoxID call YesNoChoice ld hl, DayCareAllRightThenText ld a, [wCurrentMenuItem] and a jp nz, .leaveMonInDayCare ld hl, wDayCareTotalCost ldh [hMoney], a ld a, [hli] ldh [hMoney + 1], a ld a, [hl] ldh [hMoney + 2], a call HasEnoughMoney jr nc, .enoughMoney ld hl, DayCareNotEnoughMoneyText jp .leaveMonInDayCare .enoughMoney xor a ld [wDayCareInUse], a ld hl, wDayCareNumLevelsGrown ld [hli], a inc hl ld de, wPlayerMoney + 2 ld c, $3 predef SubBCDPredef ld a, SFX_PURCHASE call PlaySoundWaitForCurrent ld a, MONEY_BOX ld [wTextBoxID], a call DisplayTextBoxID ld hl, DayCareHeresYourMonText call PrintText ld a, DAYCARE_TO_PARTY ld [wMoveMonType], a call MoveMon ld a, [wDayCareMonSpecies] ld [wcf91], a ld a, [wPartyCount] dec a push af ld bc, wPartyMon2 - wPartyMon1 push bc ld hl, wPartyMon1Moves call AddNTimes ld d, h ld e, l ld a, 1 ld [wLearningMovesFromDayCare], a predef WriteMonMoves pop bc pop af ; set mon's HP to max ld hl, wPartyMon1HP call AddNTimes ld d, h ld e, l ld bc, wPartyMon1MaxHP - wPartyMon1HP add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a ld a, [wcf91] call PlayCry ld hl, DayCareGotMonBackText jr .done .leaveMonInDayCare ld a, [wDayCareStartLevel] ld [wDayCareMonBoxLevel], a .done call PrintText jp TextScriptEnd DayCareIntroText: text_far _DayCareIntroText text_end DayCareWhichMonText: text_far _DayCareWhichMonText text_end DayCareWillLookAfterMonText: text_far _DayCareWillLookAfterMonText text_end DayCareComeSeeMeInAWhileText: text_far _DayCareComeSeeMeInAWhileText text_end DayCareMonHasGrownText: text_far _DayCareMonHasGrownText text_end DayCareOweMoneyText: text_far _DayCareOweMoneyText text_end DayCareGotMonBackText: text_far _DayCareGotMonBackText text_end DayCareMonNeedsMoreTimeText: text_far _DayCareMonNeedsMoreTimeText text_end DayCareAllRightThenText: text_far _DayCareAllRightThenText DayCareComeAgainText: text_far _DayCareComeAgainText text_end DayCareNoRoomForMonText: text_far _DayCareNoRoomForMonText text_end DayCareOnlyHaveOneMonText: text_far _DayCareOnlyHaveOneMonText text_end DayCareCantAcceptMonWithHMText: text_far _DayCareCantAcceptMonWithHMText text_end DayCareHeresYourMonText: text_far _DayCareHeresYourMonText text_end DayCareNotEnoughMoneyText: text_far _DayCareNotEnoughMoneyText text_end