summaryrefslogtreecommitdiff
path: root/scripts/daycarem.asm
diff options
context:
space:
mode:
authorRangi <remy.oukaour+rangi42@gmail.com>2019-01-01 15:06:23 -0500
committerRangi <remy.oukaour+rangi42@gmail.com>2019-01-01 23:33:10 -0500
commitc7796024590fec48ac79756793c1a6e3b54daf8f (patch)
tree0d61caa7ebe429995a61e800d1d78c3a82aec886 /scripts/daycarem.asm
parent90430e6dee9e207dc0b618d07566f83617343f60 (diff)
Rename map files, labels, and constants to be consistent and work with Polished Map
Diffstat (limited to 'scripts/daycarem.asm')
-rwxr-xr-xscripts/daycarem.asm269
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 "@"