diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/events/daycare.asm | 197 | ||||
| -rw-r--r-- | engine/events/halloffame.asm | 4 | ||||
| -rw-r--r-- | engine/events/lucky_number.asm | 2 | ||||
| -rw-r--r-- | engine/events/std_scripts.asm | 2 |
4 files changed, 90 insertions, 115 deletions
diff --git a/engine/events/daycare.asm b/engine/events/daycare.asm index 9cbe61ce..2cc6c12a 100644 --- a/engine/events/daycare.asm +++ b/engine/events/daycare.asm @@ -1,9 +1,9 @@ ; PrintDayCareText.TextTable indexes const_def const DAYCARETEXT_MAN_INTRO - const DAYCARETEXT_MAN_EGG + const DAYCARETEXT_MAN_INTRO_EGG const DAYCARETEXT_LADY_INTRO - const DAYCARETEXT_LADY_EGG + const DAYCARETEXT_LADY_INTRO_EGG const DAYCARETEXT_WHICH_ONE const DAYCARETEXT_DEPOSIT const DAYCARETEXT_CANT_BREED_EGG @@ -160,10 +160,9 @@ DayCareAskDepositPokemon: scf ret -.DummyText: - ; +.DaycareDummyText: text_far _DaycareDummyText - db "@" + text_end DayCare_DepositPokemonText: ld a, DAYCARETEXT_DEPOSIT @@ -201,7 +200,7 @@ DayCare_AskWithdrawBreedMon: jr c, .not_enough_money ld a, [wPartyCount] cp PARTY_LENGTH - jr nc, .PartyFull + jr nc, .party_full and a ret @@ -215,7 +214,7 @@ DayCare_AskWithdrawBreedMon: scf ret -.PartyFull: +.party_full ld a, DAYCARETEXT_PARTY_FULL scf ret @@ -268,142 +267,121 @@ PrintDayCareText: .TextTable: ; entries correspond to DAYCARETEXT_* constants - 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 - -.DayCareManIntro: - ; I'm the DAY-CARE MAN. Want me to raise a #MON? + dw .DayCareManIntroText ; 00 + dw .DayCareManIntroEggText ; 01 + dw .DayCareLadyIntroText ; 02 + dw .DayCareLadyIntroEggText ; 03 + dw .WhatShouldIRaiseText ; 04 + dw .IllRaiseYourMonText ; 05 + dw .CantAcceptEggText ; 06 + dw .OnlyOneMonText ; 07 + dw .LastHealthyMonText ; 08 + dw .ComeBackLaterText ; 09 + dw .RemoveMailText ; 0a + dw .AreWeGeniusesText ; 0b + dw .YourMonHasGrownText ; 0c + dw .PerfectHeresYourMonText ; 0d + dw .GotBackMonText ; 0e + dw .BackAlreadyText ; 0f + dw .HaveNoRoomText ; 10 + dw .NotEnoughMoneyText ; 11 + dw .OhFineThenText ; 12 + dw .ComeAgainText ; 13 + +.DayCareManIntroText: text_far _DayCareManIntroText - db "@" + text_end -.DayCareManOddEgg: - ; 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_far _DayCareManOddEggText - db "@" +.DayCareManIntroEggText: + text_far _DayCareManIntroEggText + text_end -.DayCareLadyIntro: - ; I'm the DAY-CARE LADY. Should I raise a #MON for you? +.DayCareLadyIntroText: text_far _DayCareLadyIntroText - db "@" + text_end -.DayCareLadyOddEgg: - ; 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_far _DayCareLadyOddEggText - db "@" +.DayCareLadyIntroEggText: + text_far _DayCareLadyIntroEggText + text_end -.WhichOne: - ; What should I raise for you? +.WhatShouldIRaiseText: text_far _WhatShouldIRaiseText - db "@" + text_end -.JustOneMon: - ; Oh? But you have just one #MON. +.OnlyOneMonText: text_far _OnlyOneMonText - db "@" + text_end -.CantAcceptEgg: - ; Sorry, but I can't accept an EGG. +.CantAcceptEggText: text_far _CantAcceptEggText - db "@" + text_end -.RemoveMail: - ; Remove MAIL before you come see me. +.RemoveMailText: text_far _RemoveMailText - db "@" + text_end -.LastHealthyMon: - ; If you give me that, what will you battle with? +.LastHealthyMonText: text_far _LastHealthyMonText - db "@" + text_end -.OkayIllRaiseYourMon: - ; OK. I'll raise your @ . +.IllRaiseYourMonText: text_far _IllRaiseYourMonText - db "@" + text_end -.ComeBackForItLater: - ; Come back for it later. +.ComeBackLaterText: text_far _ComeBackLaterText - db "@" + text_end -.AreWeGeniusesOrWhat: - ; Are we geniuses or what? Want to see your @ ? +.AreWeGeniusesText: text_far _AreWeGeniusesText - db "@" + text_end -.AskRetrieveMon: - ; Your @ has grown a lot. By level, it's grown by @ . If you want your #MON back, it will cost ¥@ . +.YourMonHasGrownText: text_far _YourMonHasGrownText - db "@" + text_end -.PerfectHeresYourMon: - ; Perfect! Here's your #MON. +.PerfectHeresYourMonText: text_far _PerfectHeresYourMonText - db "@" + text_end -.GotBackMon: - ; got back @ . +.GotBackMonText: text_far _GotBackMonText - db "@" + text_end -.ImmediatelyWithdrawMon: - ; Huh? Back already? Your @ needs a little more time with us. If you want your #MON back, it will cost ¥100. +.BackAlreadyText: text_far _BackAlreadyText - db "@" + text_end -.PartyFull: - ; You have no room for it. +.HaveNoRoomText: text_far _HaveNoRoomText - db "@" + text_end -.NotEnoughMoney: - ; You don't have enough money. +.NotEnoughMoneyText: text_far _NotEnoughMoneyText - db "@" + text_end -.OhFineThen: - ; Oh, fine then. +.OhFineThenText: text_far _OhFineThenText - db "@" + text_end -.ComeAgain: - ; Come again. +.ComeAgainText: text_far _ComeAgainText - db "@" + text_end DayCareManOutside: ld hl, wDayCareMan bit DAYCAREMAN_HAS_EGG_F, [hl] jr nz, .AskGiveEgg - ld hl, .NotYet + ld hl, .NotYetText call PrintText ret -.NotYet: - ; Not yet… +.NotYetText: text_far _NotYetText - db "@" + text_end .AskGiveEgg: - ld hl, .IntroText + ld hl, .FoundAnEggText call PrintText call YesNoBox jr c, .Declined @@ -414,13 +392,13 @@ DayCareManOutside: ld hl, wDayCareMan res DAYCAREMAN_HAS_EGG_F, [hl] call DayCare_InitBreeding - ld hl, .GotEggText + ld hl, .ReceivedEggText call PrintText ld de, SFX_GET_EGG call PlaySFX ld c, 120 call DelayFrames - ld hl, .TakeGoodCareOfItText + ld hl, .TakeGoodCareOfEggText jr .Load0 .Declined: @@ -433,36 +411,31 @@ DayCareManOutside: ret .PartyFull: - ld hl, .PartyFullText + ld hl, .NoRoomForEggText call PrintText ld a, TRUE ld [wScriptVar], a ret -.IntroText: - ; 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? +.FoundAnEggText: text_far _FoundAnEggText - db "@" + text_end -.GotEggText: - ; received the EGG! +.ReceivedEggText: text_far _ReceivedEggText - db "@" + text_end -.TakeGoodCareOfItText: - ; Take good care of it. +.TakeGoodCareOfEggText: text_far _TakeGoodCareOfEggText - db "@" + text_end .IllKeepItThanksText: - ; Well then, I'll keep it. Thanks! text_far _IllKeepItThanksText - db "@" + text_end -.PartyFullText: - ; You have no room in your party. Come back later. +.NoRoomForEggText: text_far _NoRoomForEggText - db "@" + text_end DayCare_GiveEgg: ld a, [wEggMonLevel] diff --git a/engine/events/halloffame.asm b/engine/events/halloffame.asm index 53ab9f9a..bd6c8a90 100644 --- a/engine/events/halloffame.asm +++ b/engine/events/halloffame.asm @@ -15,7 +15,9 @@ HallOfFame:: set STATUSFLAGS_HALL_OF_FAME_F, [hl] ; Bug: Gold/Silver fail to (conditionally) erase the previous save and -; initialize the current save, if the player did not save on this playthrough! +; initialize the current save, if the player did not save on this playthrough. +; pokecrystal does the following here (routine doesn't exist in Gold/Silver): +; farcall HallOfFame_InitSaveIfNeeded ld hl, wHallOfFameCount ld a, [hl] diff --git a/engine/events/lucky_number.asm b/engine/events/lucky_number.asm index 2a6991ac..a3f9bc5d 100644 --- a/engine/events/lucky_number.asm +++ b/engine/events/lucky_number.asm @@ -96,7 +96,7 @@ CheckForLuckyNumberWinners: .SkipBox: inc c ld a, c - cp NUM_BOXES_JAPANESE + cp NUM_BOXES_JAPANESE ; fails to find winning mon in boxes 10-14 if not the active box jr c, .BoxesLoop call CloseSRAM diff --git a/engine/events/std_scripts.asm b/engine/events/std_scripts.asm index 6fd704d3..c1e9164c 100644 --- a/engine/events/std_scripts.asm +++ b/engine/events/std_scripts.asm @@ -530,7 +530,7 @@ InitializeEventsScript: setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M setevent EVENT_KURTS_HOUSE_KURT_2 setevent EVENT_BURNED_TOWER_FIREBREATHER_DICK_ASHES - setevent EVENT_RANG_CLEAR_BELL_1 ; ? + setevent EVENT_ECRUTEAK_TIN_TOWER_ENTRANCE_SAGE_LEFT setevent EVENT_PLAYERS_HOUSE_MOM_2 setflag ENGINE_ROCKET_SIGNAL_ON_CH20 setflag ENGINE_ROCKETS_IN_MAHOGANY |