| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270 |
- DayCareMScript:
- jp EnableAutoTextBoxDrawing
- DayCareMTextPointers:
- dw DayCareMText1
- DayCareMText1:
- TX_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
- callab 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
- callab CalcLevelFromExperience
- ld a, d
- cp MAX_LEVEL
- jr c, .skipCalcExp
- ld d, MAX_LEVEL
- callab CalcExperience
- ld hl, wDayCareMonExp
- ld a, [hExperience]
- ld [hli], a
- ld a, [hExperience + 1]
- ld [hli], a
- ld 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
- ld [hMoney], a
- ld a, [hli]
- ld [hMoney + 1], a
- ld a, [hl]
- ld [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:
- TX_FAR _DayCareIntroText
- db "@"
- DayCareWhichMonText:
- TX_FAR _DayCareWhichMonText
- db "@"
- DayCareWillLookAfterMonText:
- TX_FAR _DayCareWillLookAfterMonText
- db "@"
- DayCareComeSeeMeInAWhileText:
- TX_FAR _DayCareComeSeeMeInAWhileText
- db "@"
- DayCareMonHasGrownText:
- TX_FAR _DayCareMonHasGrownText
- db "@"
- DayCareOweMoneyText:
- TX_FAR _DayCareOweMoneyText
- db "@"
- DayCareGotMonBackText:
- TX_FAR _DayCareGotMonBackText
- db "@"
- DayCareMonNeedsMoreTimeText:
- TX_FAR _DayCareMonNeedsMoreTimeText
- db "@"
- DayCareAllRightThenText:
- TX_FAR _DayCareAllRightThenText
- DayCareComeAgainText:
- TX_FAR _DayCareComeAgainText
- db "@"
- DayCareNoRoomForMonText:
- TX_FAR _DayCareNoRoomForMonText
- db "@"
- DayCareOnlyHaveOneMonText:
- TX_FAR _DayCareOnlyHaveOneMonText
- db "@"
- DayCareCantAcceptMonWithHMText:
- TX_FAR _DayCareCantAcceptMonWithHMText
- db "@"
- DayCareHeresYourMonText:
- TX_FAR _DayCareHeresYourMonText
- db "@"
- DayCareNotEnoughMoneyText:
- TX_FAR _DayCareNotEnoughMoneyText
- db "@"
|
