diff options
author | Rangi <remy.oukaour+rangi42@gmail.com> | 2019-01-01 15:06:23 -0500 |
---|---|---|
committer | Rangi <remy.oukaour+rangi42@gmail.com> | 2019-01-01 23:33:10 -0500 |
commit | c7796024590fec48ac79756793c1a6e3b54daf8f (patch) | |
tree | 0d61caa7ebe429995a61e800d1d78c3a82aec886 /scripts/daycarem.asm | |
parent | 90430e6dee9e207dc0b618d07566f83617343f60 (diff) |
Rename map files, labels, and constants to be consistent and work with Polished Map
Diffstat (limited to 'scripts/daycarem.asm')
-rwxr-xr-x | scripts/daycarem.asm | 269 |
1 files changed, 0 insertions, 269 deletions
diff --git a/scripts/daycarem.asm b/scripts/daycarem.asm deleted file mode 100755 index 60daa3d5..00000000 --- a/scripts/daycarem.asm +++ /dev/null @@ -1,269 +0,0 @@ -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 "@" |