2018-01-17 04:47:45 +00:00
; PrintDayCareText.TextTable indexes
2015-12-19 01:07:09 +00:00
const_def
2015-12-25 03:58:42 +00:00
const DAYCARETEXT_MAN_INTRO
const DAYCARETEXT_MAN_EGG
const DAYCARETEXT_LADY_INTRO
const DAYCARETEXT_LADY_EGG
const DAYCARETEXT_WHICH_ONE
const DAYCARETEXT_DEPOSIT
const DAYCARETEXT_CANT_BREED_EGG
const DAYCARETEXT_LAST_MON
const DAYCARETEXT_LAST_ALIVE_MON
const DAYCARETEXT_COME_BACK_LATER
const DAYCARETEXT_REMOVE_MAIL
const DAYCARETEXT_GENIUSES
const DAYCARETEXT_ASK_WITHDRAW
const DAYCARETEXT_WITHDRAW
2018-01-17 04:47:45 +00:00
const DAYCARETEXT_GOT_BACK
2015-12-25 03:58:42 +00:00
const DAYCARETEXT_TOO_SOON
const DAYCARETEXT_PARTY_FULL
const DAYCARETEXT_NOT_ENOUGH_MONEY
const DAYCARETEXT_OH_FINE
const DAYCARETEXT_COME_AGAIN
2015-12-19 01:07:09 +00:00
2018-01-24 16:17:05 +00:00
DayCareMan: ; 166d6
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
bit DAYCAREMAN_HAS_MON_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr nz , .AskWithdrawMon
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_MAN_INTRO
2015-12-19 01:07:09 +00:00
call DayCareManIntroText
jr c , .cancel
call DayCareAskDepositPokemon
jr c , .print_text
2017-12-24 17:47:30 +00:00
farcall DepositMonWithDayCareMan
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
set DAYCAREMAN_HAS_MON_F , [ hl ]
2015-12-19 01:07:09 +00:00
call DayCare_DepositPokemonText
call DayCare_InitBreeding
2015-11-17 02:46:36 +00:00
ret
2016-04-10 18:42:14 +00:00
.AskWithdrawMon:
2017-12-24 17:47:30 +00:00
farcall GetBreedMon1LevelGrowth
2015-11-17 02:46:36 +00:00
ld hl , wBreedMon1Nick
2015-12-25 03:58:42 +00:00
call GetPriceToRetrieveBreedmon
call DayCare_AskWithdrawBreedMon
2015-12-19 01:07:09 +00:00
jr c , .print_text
2018-02-14 10:51:47 +00:00
farcall RetrieveMonFromDayCareMan
2018-01-17 04:47:45 +00:00
call DayCare_GetBackMonForMoney
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
res DAYCAREMAN_HAS_MON_F , [ hl ]
res DAYCAREMAN_MONS_COMPATIBLE_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr .cancel
2015-11-17 02:46:36 +00:00
2015-12-19 01:07:09 +00:00
.print_text
call PrintDayCareText
2015-11-17 02:46:36 +00:00
2015-12-19 01:07:09 +00:00
.cancel
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_COME_AGAIN
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
ret
; 1672a
2018-01-24 16:17:05 +00:00
DayCareLady: ; 1672a
2017-12-10 18:37:15 +00:00
ld hl , wDayCareLady
2018-01-22 18:18:23 +00:00
bit DAYCARELADY_HAS_MON_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr nz , .AskWithdrawMon
2017-12-10 18:37:15 +00:00
ld hl , wDayCareLady
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_LADY_INTRO
2015-12-19 01:07:09 +00:00
call DayCareLadyIntroText
jr c , .cancel
call DayCareAskDepositPokemon
jr c , .print_text
2017-12-24 17:47:30 +00:00
farcall DepositMonWithDayCareLady
2017-12-10 18:37:15 +00:00
ld hl , wDayCareLady
2018-01-22 18:18:23 +00:00
set DAYCARELADY_HAS_MON_F , [ hl ]
2015-12-19 01:07:09 +00:00
call DayCare_DepositPokemonText
call DayCare_InitBreeding
2015-11-17 02:46:36 +00:00
ret
2016-04-10 18:42:14 +00:00
.AskWithdrawMon:
2017-12-24 17:47:30 +00:00
farcall GetBreedMon2LevelGrowth
2015-11-17 02:46:36 +00:00
ld hl , wBreedMon2Nick
2015-12-25 03:58:42 +00:00
call GetPriceToRetrieveBreedmon
call DayCare_AskWithdrawBreedMon
2015-12-19 01:07:09 +00:00
jr c , .print_text
2018-02-14 10:51:47 +00:00
farcall RetrieveMonFromDayCareLady
2018-01-17 04:47:45 +00:00
call DayCare_GetBackMonForMoney
2017-12-10 18:37:15 +00:00
ld hl , wDayCareLady
2018-01-22 18:18:23 +00:00
res DAYCARELADY_HAS_MON_F , [ hl ]
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
res DAYCAREMAN_MONS_COMPATIBLE_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr .cancel
2015-11-17 02:46:36 +00:00
2015-12-19 01:07:09 +00:00
.print_text
call PrintDayCareText
2015-11-17 02:46:36 +00:00
2015-12-19 01:07:09 +00:00
.cancel
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_COME_AGAIN
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
ret
; 16781
2015-12-19 01:07:09 +00:00
DayCareLadyIntroText: ; 16781
2018-01-22 18:18:23 +00:00
bit DAYCARELADY_ACTIVE_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr nz , .okay
2018-01-22 18:18:23 +00:00
set DAYCARELADY_ACTIVE_F , [ hl ]
2015-11-17 02:46:36 +00:00
inc a
2015-12-19 01:07:09 +00:00
.okay
call PrintDayCareText
2015-11-17 02:46:36 +00:00
call YesNoBox
ret
; 1678f
2015-12-19 01:07:09 +00:00
DayCareManIntroText: ; 1678f
2018-01-22 18:18:23 +00:00
set DAYCAREMAN_ACTIVE_F , [ hl ]
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
call YesNoBox
ret
; 16798
2015-12-19 01:07:09 +00:00
DayCareAskDepositPokemon: ; 16798
2018-01-23 22:39:09 +00:00
ld a , [ wPartyCount ]
2015-11-17 02:46:36 +00:00
cp 2
2015-12-19 01:07:09 +00:00
jr c , .OnlyOneMon
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_WHICH_ONE
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2017-11-30 19:27:25 +00:00
ld b , PARTYMENUACTION_GIVE_MON
2017-12-24 17:47:30 +00:00
farcall SelectTradeOrDayCareMon
2015-12-19 01:07:09 +00:00
jr c , .Declined
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartySpecies ]
2015-11-17 02:46:36 +00:00
cp EGG
2015-12-19 01:07:09 +00:00
jr z , .Egg
2017-12-24 17:47:30 +00:00
farcall Ch eckCurPartyMonFainted
2015-12-19 01:07:09 +00:00
jr c , .OutOfUsableMons
2018-01-23 22:39:09 +00:00
ld hl , wPartyMon1Item
2015-11-17 02:46:36 +00:00
ld bc , PARTYMON_STRUCT_LENGTH
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartyMon ]
2015-11-17 02:46:36 +00:00
call AddNTimes
ld d , [ hl ]
2017-12-24 17:47:30 +00:00
farcall ItemIsMail
2015-12-19 01:07:09 +00:00
jr c , .HoldingMail
2018-01-23 22:39:09 +00:00
ld hl , wPartyMonNicknames
ld a , [ wCurPartyMon ]
2015-11-17 02:46:36 +00:00
call GetNick
and a
ret
2016-04-10 18:42:14 +00:00
.Declined:
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_OH_FINE
2015-11-17 02:46:36 +00:00
scf
ret
2016-04-10 18:42:14 +00:00
.Egg:
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_CANT_BREED_EGG
2015-11-17 02:46:36 +00:00
scf
ret
2016-04-10 18:42:14 +00:00
.OnlyOneMon:
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_LAST_MON
2015-11-17 02:46:36 +00:00
scf
ret
2016-04-10 18:42:14 +00:00
.OutOfUsableMons:
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_LAST_ALIVE_MON
2015-11-17 02:46:36 +00:00
scf
ret
2016-04-10 18:42:14 +00:00
.HoldingMail:
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_REMOVE_MAIL
2015-11-17 02:46:36 +00:00
scf
ret
; 167f1
2015-12-19 01:07:09 +00:00
.DummyText: ; 0x167f1
2015-11-17 02:46:36 +00:00
;
text_jump UnknownText_0x1bdaa7
db "@"
; 0x167f6
2015-12-19 01:07:09 +00:00
DayCare_DepositPokemonText: ; 167f6
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_DEPOSIT
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartySpecies ]
2018-01-17 04:47:45 +00:00
call PlayMonCry
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_COME_BACK_LATER
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
ret
; 16807
2015-12-25 03:58:42 +00:00
DayCare_AskWithdrawBreedMon: ; 16807
2018-01-23 22:39:09 +00:00
ld a , [ wStringBuffer2 + 1 ]
2015-11-17 02:46:36 +00:00
and a
2015-12-25 03:58:42 +00:00
jr nz , .grew_at_least_one_level
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_TOO_SOON
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
call YesNoBox
2015-12-25 03:58:42 +00:00
jr c , .refused
jr .check_money
2015-11-17 02:46:36 +00:00
2015-12-25 03:58:42 +00:00
.grew_at_least_one_level
ld a , DAYCARETEXT_GENIUSES
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
call YesNoBox
2015-12-25 03:58:42 +00:00
jr c , .refused
ld a , DAYCARETEXT_ASK_WITHDRAW
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
call YesNoBox
2015-12-25 03:58:42 +00:00
jr c , .refused
2015-11-17 02:46:36 +00:00
2015-12-25 03:58:42 +00:00
.check_money
2018-01-23 22:39:09 +00:00
ld de , wMoney
ld bc , wStringBuffer2 + 2
2017-12-24 17:47:30 +00:00
farcall CompareMoney
2015-12-25 03:58:42 +00:00
jr c , .not_enough_money
2018-01-23 22:39:09 +00:00
ld a , [ wPartyCount ]
2015-12-25 03:58:42 +00:00
cp PARTY_LENGTH
jr nc , .PartyFull
2015-11-17 02:46:36 +00:00
and a
ret
2015-12-25 03:58:42 +00:00
.refused
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_OH_FINE
2015-11-17 02:46:36 +00:00
scf
ret
2015-12-25 03:58:42 +00:00
.not_enough_money
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_NOT_ENOUGH_MONEY
2015-11-17 02:46:36 +00:00
scf
ret
2016-04-10 18:42:14 +00:00
.PartyFull:
2018-01-17 04:47:45 +00:00
ld a , DAYCARETEXT_PARTY_FULL
2015-11-17 02:46:36 +00:00
scf
ret
; 16850
2018-01-17 04:47:45 +00:00
DayCare_GetBackMonForMoney: ; 16850
2018-01-23 22:39:09 +00:00
ld bc , wStringBuffer2 + 2
ld de , wMoney
2017-12-24 17:47:30 +00:00
farcall TakeMoney
2015-12-25 03:58:42 +00:00
ld a , DAYCARETEXT_WITHDRAW
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartySpecies ]
2018-01-17 04:47:45 +00:00
call PlayMonCry
ld a , DAYCARETEXT_GOT_BACK
2015-12-19 01:07:09 +00:00
call PrintDayCareText
2015-11-17 02:46:36 +00:00
ret
; 1686d
2015-12-25 03:58:42 +00:00
GetPriceToRetrieveBreedmon: ; 1686d
2015-11-17 02:46:36 +00:00
ld a , b
2018-01-23 22:39:09 +00:00
ld [ wStringBuffer2 ], a
2015-11-17 02:46:36 +00:00
ld a , d
2018-01-23 22:39:09 +00:00
ld [ wStringBuffer2 + 1 ], a
ld de , wStringBuffer1
2015-11-17 02:46:36 +00:00
ld bc , NAME_LENGTH
call CopyBytes
ld hl , 0
2015-12-25 03:58:42 +00:00
ld bc , 100
2018-01-23 22:39:09 +00:00
ld a , [ wStringBuffer2 + 1 ]
2015-11-17 02:46:36 +00:00
call AddNTimes
2015-12-25 03:58:42 +00:00
ld de , 100
2015-11-17 02:46:36 +00:00
add hl , de
xor a
2018-01-23 22:39:09 +00:00
ld [ wStringBuffer2 + 2 ], a
2015-11-17 02:46:36 +00:00
ld a , h
2018-01-23 22:39:09 +00:00
ld [ wStringBuffer2 + 3 ], a
2015-11-17 02:46:36 +00:00
ld a , l
2018-01-23 22:39:09 +00:00
ld [ wStringBuffer2 + 4 ], a
2015-11-17 02:46:36 +00:00
ret
; 1689b
2015-12-19 01:07:09 +00:00
PrintDayCareText: ; 1689b
2015-11-17 02:46:36 +00:00
ld e , a
ld d , 0
2015-12-25 03:58:42 +00:00
ld hl , .TextTable
2015-11-17 02:46:36 +00:00
add hl , de
2015-12-27 02:59:03 +00:00
add hl , de
2015-11-17 02:46:36 +00:00
ld a , [ hli ]
ld h , [ hl ]
ld l , a
call PrintText
ret
; 168aa
2015-12-25 03:58:42 +00:00
.TextTable: ; 168aa
2018-01-17 04:47:45 +00:00
; entries correspond to DAYCARETEXT_* constants
2015-12-19 01:07:09 +00:00
dw .DayCareManIntro ; 00
dw .DayCareManOddEgg ; 01
dw .DayCareLadyIntro ; 02
dw .DayCareLadyOddEgg ; 03
dw .WhichOne ; 04
dw .OkayIllRaiseYourMon ; 05
dw .CantAcceptEgg ; 06
dw .JustOneMon ; 07
dw .LastHealthyMon ; 08
dw .ComeBackForItLater ; 09
dw .RemoveMail ; 0a
dw .AreWeGeniusesOrWhat ; 0b
dw .AskRetrieveMon ; 0c
dw .PerfectHeresYourMon ; 0d
dw .GotBackMon ; 0e
dw .ImmediatelyWithdrawMon ; 0f
dw .PartyFull ; 10
dw .NotEnoughMoney ; 11
dw .OhFineThen ; 12
dw .ComeAgain ; 13
2015-11-17 02:46:36 +00:00
; 168d2
2015-12-19 01:07:09 +00:00
.DayCareManIntro: ; 0x168d2
2015-11-17 02:46:36 +00:00
; I'm the DAY-CARE MAN. Want me to raise a #MON?
text_jump UnknownText_0x1bdaa9
db "@"
; 0x168d7
2015-12-19 01:07:09 +00:00
.DayCareManOddEgg: ; 0x168d7
2015-11-17 02:46:36 +00:00
; I'm the DAY-CARE MAN. Do you know about EGGS? I was raising #MON with my wife, you see. We were shocked to find an EGG! How incredible is that? So, want me to raise a #MON?
text_jump UnknownText_0x1bdad8
db "@"
; 0x168dc
2015-12-19 01:07:09 +00:00
.DayCareLadyIntro: ; 0x168dc
2015-11-17 02:46:36 +00:00
; I'm the DAY-CARE LADY. Should I raise a #MON for you?
text_jump UnknownText_0x1bdb85
db "@"
; 0x168e1
2015-12-19 01:07:09 +00:00
.DayCareLadyOddEgg: ; 0x168e1
2015-11-17 02:46:36 +00:00
; I'm the DAY-CARE LADY. Do you know about EGGS? My husband and I were raising some #MON, you see. We were shocked to find an EGG! How incredible could that be? Should I raise a #MON for you?
text_jump UnknownText_0x1bdbbb
db "@"
; 0x168e6
2015-12-19 01:07:09 +00:00
.WhichOne: ; 0x168e6
2015-11-17 02:46:36 +00:00
; What should I raise for you?
text_jump UnknownText_0x1bdc79
db "@"
; 0x168eb
2015-12-19 01:07:09 +00:00
.JustOneMon: ; 0x168eb
2015-11-17 02:46:36 +00:00
; Oh? But you have just one #MON.
text_jump UnknownText_0x1bdc97
db "@"
; 0x168f0
2015-12-19 01:07:09 +00:00
.CantAcceptEgg: ; 0x168f0
2015-11-17 02:46:36 +00:00
; Sorry, but I can't accept an EGG.
text_jump UnknownText_0x1bdcb8
db "@"
; 0x168f5
2015-12-19 01:07:09 +00:00
.RemoveMail: ; 0x168f5
2015-11-17 02:46:36 +00:00
; Remove MAIL before you come see me.
text_jump UnknownText_0x1bdcda
db "@"
; 0x168fa
2015-12-19 01:07:09 +00:00
.LastHealthyMon: ; 0x168fa
2015-11-17 02:46:36 +00:00
; If you give me that, what will you battle with?
text_jump UnknownText_0x1bdcff
db "@"
; 0x168ff
2015-12-19 01:07:09 +00:00
.OkayIllRaiseYourMon: ; 0x168ff
2015-11-17 02:46:36 +00:00
; OK. I'll raise your @ .
text_jump UnknownText_0x1bdd30
db "@"
; 0x16904
2015-12-19 01:07:09 +00:00
.ComeBackForItLater: ; 0x16904
2015-11-17 02:46:36 +00:00
; Come back for it later.
text_jump UnknownText_0x1bdd4b
db "@"
; 0x16909
2015-12-19 01:07:09 +00:00
.AreWeGeniusesOrWhat: ; 0x16909
2015-11-17 02:46:36 +00:00
; Are we geniuses or what? Want to see your @ ?
text_jump UnknownText_0x1bdd64
db "@"
; 0x1690e
2015-12-19 01:07:09 +00:00
.AskRetrieveMon: ; 0x1690e
2015-11-17 02:46:36 +00:00
; Your @ has grown a lot. By level, it's grown by @ . If you want your #MON back, it will cost ¥@ .
text_jump UnknownText_0x1bdd96
db "@"
; 0x16913
2015-12-19 01:07:09 +00:00
.PerfectHeresYourMon: ; 0x16913
2015-11-17 02:46:36 +00:00
; Perfect! Here's your #MON.
text_jump UnknownText_0x1bde04
db "@"
; 0x16918
2015-12-19 01:07:09 +00:00
.GotBackMon: ; 0x16918
2015-11-17 02:46:36 +00:00
; got back @ .
text_jump UnknownText_0x1bde1f
db "@"
; 0x1691d
2015-12-19 01:07:09 +00:00
.ImmediatelyWithdrawMon: ; 0x1691d
2015-11-17 02:46:36 +00:00
; Huh? Back already? Your @ needs a little more time with us. If you want your #MON back, it will cost ¥100.
text_jump UnknownText_0x1bde32
db "@"
; 0x16922
2015-12-19 01:07:09 +00:00
.PartyFull: ; 0x16922
2015-11-17 02:46:36 +00:00
; You have no room for it.
text_jump UnknownText_0x1bdea2
db "@"
; 0x16927
2015-12-19 01:07:09 +00:00
.NotEnoughMoney: ; 0x16927
2015-11-17 02:46:36 +00:00
; You don't have enough money.
text_jump UnknownText_0x1bdebc
db "@"
; 0x1692c
2015-12-19 01:07:09 +00:00
.OhFineThen: ; 0x1692c
2015-11-17 02:46:36 +00:00
; Oh, fine then.
text_jump UnknownText_0x1bded9
db "@"
; 0x16931
2015-12-19 01:07:09 +00:00
.ComeAgain: ; 0x16931
2015-11-17 02:46:36 +00:00
; Come again.
text_jump UnknownText_0x1bdee9
db "@"
; 0x16936
2018-01-24 16:17:05 +00:00
DayCareManOutside: ; 16936
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
bit DAYCAREMAN_HAS_EGG_F , [ hl ]
2015-12-19 01:07:09 +00:00
jr nz , .AskGiveEgg
ld hl , .NotYet
2015-11-17 02:46:36 +00:00
call PrintText
ret
2015-12-19 01:07:09 +00:00
.NotYet: ; 0x16944
2015-11-17 02:46:36 +00:00
; Not yet…
text_jump UnknownText_0x1bdef6
db "@"
; 0x16949
2015-12-19 01:07:09 +00:00
.AskGiveEgg: ; 16949
ld hl , .IntroText
2015-11-17 02:46:36 +00:00
call PrintText
call YesNoBox
2015-12-19 01:07:09 +00:00
jr c , .Declined
2018-01-23 22:39:09 +00:00
ld a , [ wPartyCount ]
2015-11-17 02:46:36 +00:00
cp PARTY_LENGTH
2015-12-19 01:07:09 +00:00
jr nc , .PartyFull
call DayCare_GiveEgg
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
res DAYCAREMAN_HAS_EGG_F , [ hl ]
2015-12-19 01:07:09 +00:00
call DayCare_InitBreeding
ld hl , .GotEggText
2015-11-17 02:46:36 +00:00
call PrintText
2017-12-10 18:37:15 +00:00
ld de , SFX_GET_EGG_FROM_DAY_CARE_LADY
2015-11-17 02:46:36 +00:00
call PlaySFX
ld c , 120
call DelayFrames
2015-12-19 01:07:09 +00:00
ld hl , .TakeGoodCareOfItText
jr .Load0
2015-11-17 02:46:36 +00:00
2016-04-10 18:42:14 +00:00
.Declined:
2015-12-19 01:07:09 +00:00
ld hl , .IllKeepItThanksText
2015-11-17 02:46:36 +00:00
2016-04-10 18:42:14 +00:00
.Load0:
2015-11-17 02:46:36 +00:00
call PrintText
2018-01-12 06:40:20 +00:00
xor a ; FALSE
2018-01-23 22:39:09 +00:00
ld [ wScriptVar ], a
2015-11-17 02:46:36 +00:00
ret
2016-04-10 18:42:14 +00:00
.PartyFull:
2015-12-19 01:07:09 +00:00
ld hl , .PartyFullText
2015-11-17 02:46:36 +00:00
call PrintText
2018-01-12 06:40:20 +00:00
ld a , TRUE
2018-01-23 22:39:09 +00:00
ld [ wScriptVar ], a
2015-11-17 02:46:36 +00:00
ret
; 16993
2015-12-19 01:07:09 +00:00
.IntroText: ; 0x16993
2015-11-17 02:46:36 +00:00
; Ah, it's you! We were raising your #MON, and my goodness, were we surprised! Your #MON had an EGG! We don't know how it got there, but your #MON had it. You want it?
text_jump UnknownText_0x1bdf00
db "@"
; 0x16998
2015-12-19 01:07:09 +00:00
.GotEggText: ; 0x16998
2015-11-17 02:46:36 +00:00
; received the EGG!
text_jump UnknownText_0x1bdfa5
db "@"
; 0x1699d
2015-12-19 01:07:09 +00:00
.TakeGoodCareOfItText: ; 0x1699d
2015-11-17 02:46:36 +00:00
; Take good care of it.
text_jump UnknownText_0x1bdfba
db "@"
; 0x169a2
2015-12-19 01:07:09 +00:00
.IllKeepItThanksText: ; 0x169a2
2015-11-17 02:46:36 +00:00
; Well then, I'll keep it. Thanks!
text_jump UnknownText_0x1bdfd1
db "@"
; 0x169a7
2015-12-19 01:07:09 +00:00
.PartyFullText: ; 0x169a7
2015-11-17 02:46:36 +00:00
; You have no room in your party. Come back later.
text_jump UnknownText_0x1bdff2
db "@"
; 0x169ac
2015-12-19 01:07:09 +00:00
DayCare_GiveEgg: ; 169ac
2015-11-17 02:46:36 +00:00
ld a , [ wEggMonLevel ]
2018-01-23 22:39:09 +00:00
ld [ wCurPartyLevel ], a
ld hl , wPartyCount
2015-11-17 02:46:36 +00:00
ld a , [ hl ]
cp PARTY_LENGTH
2015-12-19 01:07:09 +00:00
jr nc , .PartyFull
2015-11-17 02:46:36 +00:00
inc a
ld [ hl ], a
2015-12-19 01:07:09 +00:00
2015-11-17 02:46:36 +00:00
ld c , a
ld b , 0
add hl , bc
ld a , EGG
ld [ hli ], a
ld a , [ wEggMonSpecies ]
2018-01-23 22:39:09 +00:00
ld [ wCurSpecies ], a
ld [ wCurPartySpecies ], a
2015-12-19 01:07:09 +00:00
ld a , - 1
2015-11-17 02:46:36 +00:00
ld [ hl ], a
2015-12-19 01:07:09 +00:00
2018-01-23 22:39:09 +00:00
ld hl , wPartyMonNicknames
2018-01-20 17:25:55 +00:00
ld bc , MON_NAME_LENGTH
2015-12-19 01:07:09 +00:00
call DayCare_GetCurrentPartyMember
2015-11-17 02:46:36 +00:00
ld hl , wEggNick
call CopyBytes
2015-12-19 01:07:09 +00:00
2018-01-23 22:39:09 +00:00
ld hl , wPartyMonOT
2015-11-17 02:46:36 +00:00
ld bc , NAME_LENGTH
2015-12-19 01:07:09 +00:00
call DayCare_GetCurrentPartyMember
2015-11-17 02:46:36 +00:00
ld hl , wEggOT
call CopyBytes
2015-12-19 01:07:09 +00:00
2018-01-23 22:39:09 +00:00
ld hl , wPartyMon1
2015-11-17 02:46:36 +00:00
ld bc , PARTYMON_STRUCT_LENGTH
2015-12-19 01:07:09 +00:00
call DayCare_GetCurrentPartyMember
2015-11-17 02:46:36 +00:00
ld hl , wEggMon
ld bc , wEggMonEnd - wEggMon
call CopyBytes
2015-12-19 01:07:09 +00:00
2015-11-17 02:46:36 +00:00
call GetBaseData
2018-01-23 22:39:09 +00:00
ld a , [ wPartyCount ]
2015-11-17 02:46:36 +00:00
dec a
2018-01-23 22:39:09 +00:00
ld hl , wPartyMon1
2015-11-17 02:46:36 +00:00
ld bc , PARTYMON_STRUCT_LENGTH
call AddNTimes
ld b , h
ld c , l
ld hl , MON_ID + 1
add hl , bc
push hl
ld hl , MON_MAXHP
add hl , bc
ld d , h
ld e , l
pop hl
push bc
2018-02-22 17:12:43 +00:00
ld b , FALSE
2018-02-22 16:13:29 +00:00
predef CalcMonStats
2015-11-17 02:46:36 +00:00
pop bc
ld hl , MON_HP
add hl , bc
xor a
ld [ hli ], a
ld [ hl ], a
and a
ret
2016-04-10 18:42:14 +00:00
.PartyFull:
2015-11-17 02:46:36 +00:00
scf
ret
; 16a31
2015-12-19 01:07:09 +00:00
DayCare_GetCurrentPartyMember: ; 16a31
2018-01-23 22:39:09 +00:00
ld a , [ wPartyCount ]
2015-11-17 02:46:36 +00:00
dec a
call AddNTimes
ld d , h
ld e , l
ret
; 16a3b
2015-12-19 01:07:09 +00:00
DayCare_InitBreeding: ; 16a3b
2017-12-10 18:37:15 +00:00
ld a , [ wDayCareLady ]
2018-01-22 18:18:23 +00:00
bit DAYCARELADY_HAS_MON_F , a
2015-11-17 02:46:36 +00:00
ret z
2017-12-10 18:37:15 +00:00
ld a , [ wDayCareMan ]
2018-01-22 18:18:23 +00:00
bit DAYCAREMAN_HAS_MON_F , a
2015-11-17 02:46:36 +00:00
ret z
2017-12-24 17:47:30 +00:00
callfar Ch eckBreedmonCompatibility
2015-11-17 02:46:36 +00:00
ld a , [ wd265 ]
and a
ret z
inc a
ret z
2017-12-10 18:37:15 +00:00
ld hl , wDayCareMan
2018-01-22 18:18:23 +00:00
set DAYCAREMAN_MONS_COMPATIBLE_F , [ hl ]
2015-12-19 01:07:09 +00:00
.loop
2015-11-17 02:46:36 +00:00
call Random
cp 150
2015-12-19 01:07:09 +00:00
jr c , .loop
2015-11-17 02:46:36 +00:00
ld [ wStepsToEgg ], a
2015-12-19 01:07:09 +00:00
jp .UselessJump
2015-11-17 02:46:36 +00:00
; 16a66
2015-12-19 01:07:09 +00:00
.UselessJump: ; 16a66
2015-11-17 02:46:36 +00:00
xor a
ld hl , wEggMon
ld bc , wEggMonEnd - wEggMon
call Byte Fill
ld hl , wEggNick
2018-01-20 17:25:55 +00:00
ld bc , MON_NAME_LENGTH
2015-11-17 02:46:36 +00:00
call Byte Fill
ld hl , wEggOT
ld bc , NAME_LENGTH
call Byte Fill
ld a , [ wBreedMon1DVs ]
2018-01-23 22:39:09 +00:00
ld [ wTempMonDVs ], a
2015-11-17 02:46:36 +00:00
ld a , [ wBreedMon1DVs + 1 ]
2018-01-23 22:39:09 +00:00
ld [ wTempMonDVs + 1 ], a
2015-11-17 02:46:36 +00:00
ld a , [ wBreedMon1Species ]
2018-01-23 22:39:09 +00:00
ld [ wCurPartySpecies ], a
2015-11-17 02:46:36 +00:00
ld a , $ 3
2018-01-23 22:39:09 +00:00
ld [ wMonType ], a
2015-11-17 02:46:36 +00:00
ld a , [ wBreedMon1Species ]
cp DI TTO
ld a , $ 1
2015-12-19 01:07:09 +00:00
jr z , .LoadWhichBreedmonIsTheMother
2015-11-17 02:46:36 +00:00
ld a , [ wBreedMon2Species ]
cp DI TTO
ld a , $ 0
2015-12-19 01:07:09 +00:00
jr z , .LoadWhichBreedmonIsTheMother
2018-01-16 19:30:10 +00:00
farcall GetGender
2015-11-17 02:46:36 +00:00
ld a , $ 0
2015-12-19 01:07:09 +00:00
jr z , .LoadWhichBreedmonIsTheMother
2015-11-17 02:46:36 +00:00
inc a
2016-04-10 18:42:14 +00:00
.LoadWhichBreedmonIsTheMother:
2015-12-19 01:07:09 +00:00
ld [ wBreedMotherOrNonDitto ], a
2015-11-17 02:46:36 +00:00
and a
ld a , [ wBreedMon1Species ]
2015-12-19 01:07:09 +00:00
jr z , .GotMother
2015-11-17 02:46:36 +00:00
ld a , [ wBreedMon2Species ]
2016-04-10 18:42:14 +00:00
.GotMother:
2018-01-23 22:39:09 +00:00
ld [ wCurPartySpecies ], a
2017-12-24 17:47:30 +00:00
callfar GetPreEvolution
callfar GetPreEvolution
2015-11-17 02:46:36 +00:00
ld a , EGG_LEVEL
2018-01-23 22:39:09 +00:00
ld [ wCurPartyLevel ], a
2015-11-17 02:46:36 +00:00
2018-01-22 18:18:23 +00:00
; Nidoran♀ can give birth to either gender of Nidoran
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartySpecies ]
2015-11-17 02:46:36 +00:00
cp NIDORAN_F
2015-12-19 01:07:09 +00:00
jr nz , .GotEggSpecies
2015-11-17 02:46:36 +00:00
call Random
2018-02-05 02:21:34 +00:00
cp 50 percent + 1
2015-11-17 02:46:36 +00:00
ld a , NIDORAN_F
2015-12-19 01:07:09 +00:00
jr c , .GotEggSpecies
2015-11-17 02:46:36 +00:00
ld a , NIDORAN_M
2016-04-10 18:42:14 +00:00
.GotEggSpecies:
2018-01-23 22:39:09 +00:00
ld [ wCurPartySpecies ], a
ld [ wCurSpecies ], a
2015-11-17 02:46:36 +00:00
ld [ wEggMonSpecies ], a
call GetBaseData
ld hl , wEggNick
2015-12-19 01:07:09 +00:00
ld de , .String_EGG
2015-11-17 02:46:36 +00:00
call CopyName2
2018-01-23 22:39:09 +00:00
ld hl , wPlayerName
2015-11-17 02:46:36 +00:00
ld de , wEggOT
ld bc , NAME_LENGTH
call CopyBytes
xor a
ld [ wEggMonItem ], a
ld de , wEggMonMoves
xor a
2018-01-23 22:39:09 +00:00
ld [ wBuffer1 ], a
2018-01-16 19:30:10 +00:00
predef FillMoves
2017-12-24 17:47:30 +00:00
farcall InitEggMoves
2015-11-17 02:46:36 +00:00
ld hl , wEggMonID
2018-01-23 22:39:09 +00:00
ld a , [ wPlayerID ]
2015-11-17 02:46:36 +00:00
ld [ hli ], a
2018-01-23 22:39:09 +00:00
ld a , [ wPlayerID + 1 ]
2015-11-17 02:46:36 +00:00
ld [ hl ], a
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartyLevel ]
2015-11-17 02:46:36 +00:00
ld d , a
2017-12-24 17:47:30 +00:00
callfar CalcExpAtLevel
2015-11-17 02:46:36 +00:00
ld hl , wEggMonExp
ld a , [ hMultiplicand ]
ld [ hli ], a
2015-12-19 01:07:09 +00:00
ld a , [ hMultiplicand + 1 ]
2015-11-17 02:46:36 +00:00
ld [ hli ], a
2015-12-19 01:07:09 +00:00
ld a , [ hMultiplicand + 2 ]
2015-11-17 02:46:36 +00:00
ld [ hl ], a
xor a
2015-12-19 01:07:09 +00:00
ld b , wEggMonDVs - wEggMonStatExp
2015-11-17 02:46:36 +00:00
ld hl , wEggMonStatExp
2015-12-19 01:07:09 +00:00
.loop2
2015-11-17 02:46:36 +00:00
ld [ hli ], a
dec b
2015-12-19 01:07:09 +00:00
jr nz , .loop2
2015-11-17 02:46:36 +00:00
ld hl , wEggMonDVs
call Random
ld [ hli ], a
2018-01-23 22:39:09 +00:00
ld [ wTempMonDVs ], a
2015-11-17 02:46:36 +00:00
call Random
ld [ hld ], a
2018-01-23 22:39:09 +00:00
ld [ wTempMonDVs + 1 ], a
2015-11-17 02:46:36 +00:00
ld de , wBreedMon1DVs
ld a , [ wBreedMon1Species ]
cp DI TTO
2015-12-19 01:07:09 +00:00
jr z , .GotDVs
2015-11-17 02:46:36 +00:00
ld de , wBreedMon2DVs
ld a , [ wBreedMon2Species ]
cp DI TTO
2015-12-19 01:07:09 +00:00
jr z , .GotDVs
2016-05-11 21:16:03 +00:00
ld a , TEMPMON
2018-01-23 22:39:09 +00:00
ld [ wMonType ], a
2015-11-17 02:46:36 +00:00
push hl
2018-01-16 19:30:10 +00:00
farcall GetGender
2015-11-17 02:46:36 +00:00
pop hl
ld de , wBreedMon1DVs
ld bc , wBreedMon2DVs
2015-12-19 01:07:09 +00:00
jr c , .SkipDVs
jr z , .ParentCheck2
ld a , [ wBreedMotherOrNonDitto ]
2015-11-17 02:46:36 +00:00
and a
2015-12-19 01:07:09 +00:00
jr z , .GotDVs
2015-11-17 02:46:36 +00:00
ld d , b
ld e , c
2015-12-19 01:07:09 +00:00
jr .GotDVs
2015-11-17 02:46:36 +00:00
2016-04-10 18:42:14 +00:00
.ParentCheck2:
2015-12-19 01:07:09 +00:00
ld a , [ wBreedMotherOrNonDitto ]
2015-11-17 02:46:36 +00:00
and a
2015-12-19 01:07:09 +00:00
jr nz , .GotDVs
2015-11-17 02:46:36 +00:00
ld d , b
ld e , c
2016-04-10 18:42:14 +00:00
.GotDVs:
2015-11-17 02:46:36 +00:00
ld a , [ de ]
inc de
and $ f
ld b , a
ld a , [ hl ]
and $ f0
add b
ld [ hli ], a
ld a , [ de ]
and $ 7
ld b , a
ld a , [ hl ]
and $ f8
add b
ld [ hl ], a
2016-04-10 18:42:14 +00:00
.SkipDVs:
2018-01-23 22:39:09 +00:00
ld hl , wStringBuffer1
2015-12-19 01:07:09 +00:00
ld de , wMonOrItemNameBuffer
2015-11-17 02:46:36 +00:00
ld bc , NAME_LENGTH
call CopyBytes
ld hl , wEggMonMoves
ld de , wEggMonPP
2018-01-16 19:30:10 +00:00
predef FillPP
2015-12-19 01:07:09 +00:00
ld hl , wMonOrItemNameBuffer
2018-01-23 22:39:09 +00:00
ld de , wStringBuffer1
2015-11-17 02:46:36 +00:00
ld bc , NAME_LENGTH
call CopyBytes
2018-01-23 22:39:09 +00:00
ld a , [ wBaseEggSteps ]
2015-11-17 02:46:36 +00:00
ld hl , wEggMonHappiness
ld [ hli ], a
xor a
ld [ hli ], a
2015-12-27 02:59:03 +00:00
ld [ hli ], a
2015-11-17 02:46:36 +00:00
ld [ hl ], a
2018-01-23 22:39:09 +00:00
ld a , [ wCurPartyLevel ]
2015-11-17 02:46:36 +00:00
ld [ wEggMonLevel ], a
ret
; 16be0
2015-12-19 01:07:09 +00:00
.String_EGG: ; 16be0
2015-11-17 02:46:36 +00:00
db "EGG@"
; 16be4