Consistent labels for each nickname in RAM

This commit is contained in:
Rangi
2021-03-17 16:16:02 -04:00
parent 6c8f8609cb
commit 4522162d45
57 changed files with 382 additions and 303 deletions

View File

@@ -1258,7 +1258,7 @@ BattleTowerAction_EggTicket: ; BattleTowerAction $0e
cp EGG
jr nz, .not_egg
push hl
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld de, NAME_LENGTH_JAPANESE
ld a, b
and a

View File

@@ -48,7 +48,7 @@ DisplayCaughtContestMonStats:
ld [wTempMonLevel], a
call PrintLevel
ld de, wEnemyMonNick
ld de, wEnemyMonNickname
hlcoord 1, 8
call PlaceString

View File

@@ -40,7 +40,7 @@ DayCareMan:
.AskWithdrawMon:
farcall GetBreedMon1LevelGrowth
ld hl, wBreedMon1Nick
ld hl, wBreedMon1Nickname
call GetPriceToRetrieveBreedmon
call DayCare_AskWithdrawBreedMon
jr c, .print_text
@@ -78,7 +78,7 @@ DayCareLady:
.AskWithdrawMon:
farcall GetBreedMon2LevelGrowth
ld hl, wBreedMon2Nick
ld hl, wBreedMon2Nickname
call GetPriceToRetrieveBreedmon
call DayCare_AskWithdrawBreedMon
jr c, .print_text
@@ -137,7 +137,7 @@ DayCareAskDepositPokemon:
jr c, .HoldingMail
ld hl, wPartyMonNicknames
ld a, [wCurPartyMon]
call GetNick
call GetNickname
and a
ret
@@ -467,13 +467,13 @@ DayCare_GiveEgg:
ld hl, wPartyMonNicknames
ld bc, MON_NAME_LENGTH
call DayCare_GetCurrentPartyMember
ld hl, wEggNick
ld hl, wEggMonNickname
call CopyBytes
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
call DayCare_GetCurrentPartyMember
ld hl, wEggOT
ld hl, wEggMonOT
call CopyBytes
ld hl, wPartyMon1
@@ -550,10 +550,10 @@ DayCare_InitBreeding:
ld hl, wEggMon
ld bc, BOXMON_STRUCT_LENGTH
call ByteFill
ld hl, wEggNick
ld hl, wEggMonNickname
ld bc, MON_NAME_LENGTH
call ByteFill
ld hl, wEggOT
ld hl, wEggMonOT
ld bc, NAME_LENGTH
call ByteFill
ld a, [wBreedMon1DVs]
@@ -606,11 +606,11 @@ DayCare_InitBreeding:
ld [wEggMonSpecies], a
call GetBaseData
ld hl, wEggNick
ld hl, wEggMonNickname
ld de, .String_EGG
call CopyName2
ld hl, wPlayerName
ld de, wEggOT
ld de, wEggMonOT
ld bc, NAME_LENGTH
call CopyBytes
xor a

View File

@@ -33,7 +33,7 @@ HaircutOrGrooming:
cp EGG
jr z, .egg
push hl
call GetCurNick
call GetCurNickname
call CopyPokemonName_Buffer1_Buffer3
pop hl
call Random

View File

@@ -49,7 +49,7 @@ CheckMagikarpLength:
ld [de], a
inc de
ld a, [wCurPartyMon]
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
call SkipNames
call CopyBytes
ld a, MAGIKARPLENGTH_BEAT_RECORD

View File

@@ -60,7 +60,7 @@ CheckCanLearnMoveTutorMove:
push bc
ld a, [wCurPartyMon]
ld hl, wPartyMonNicknames
call GetNick
call GetNickname
pop bc
ld a, c

View File

@@ -14,7 +14,7 @@ _NameRater:
cp EGG
jr z, .egg
; ... or a Pokemon you got from a trade.
call GetCurNick
call GetCurNickname
call CheckIfMonIsYourOT
jr c, .traded
; This name is good, but we can do better. How about it?
@@ -57,7 +57,7 @@ _NameRater:
.samename
push hl
call GetCurNick
call GetCurNickname
ld hl, NameRaterNamedText
call PrintText
pop hl
@@ -80,7 +80,7 @@ _NameRater:
CheckIfMonIsYourOT:
; Checks to see if the partymon loaded in [wCurPartyMon] has the different OT as you. Returns carry if not.
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
ld a, [wCurPartyMon]
call AddNTimes
@@ -138,10 +138,10 @@ CompareNewToOld:
ld a, [wCurPartyMon]
call AddNTimes
push hl
call GetNicknameLength
call GetNicknamenameLength
ld b, c
ld hl, wStringBuffer2
call GetNicknameLength
call GetNicknamenameLength
pop hl
ld a, c
cp b
@@ -165,7 +165,7 @@ CompareNewToOld:
scf
ret
GetNicknameLength:
GetNicknamenameLength:
; Gets the length of the name starting at hl and returns it in c.
ld c, 0
.loop

View File

@@ -132,7 +132,7 @@ DoNPCTrade:
call GetTradeMonName
call CopyTradeName
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
call Trade_GetAttributeOfCurrentPartymon
ld de, wPlayerTrademonOTName
@@ -196,7 +196,7 @@ DoNPCTrade:
.incomplete
farcall SetGiftPartyMonCaughtData
ld e, NPCTRADE_NICK
ld e, NPCTRADE_NICKNAME
call GetTradeAttr
ld de, wOTTrademonNickname
call CopyTradeName
@@ -216,7 +216,7 @@ DoNPCTrade:
ld de, wOTTrademonSenderName
call CopyTradeName
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
call Trade_GetAttributeOfLastPartymon
ld hl, wOTTrademonOTName

View File

@@ -42,8 +42,8 @@ _GiveOddEgg:
ld a, NICKNAMED_MON_STRUCT_LENGTH
call AddNTimes
; Writes to wOddEgg, wOddEggName, and wOddEggOTName,
; even though OddEggs does not have data for wOddEggOTName
; Writes to wOddEgg, wOddEggName, and wOddEggOT,
; even though OddEggs does not have data for wOddEggOT
ld de, wOddEgg
ld bc, NICKNAMED_MON_STRUCT_LENGTH + NAME_LENGTH
call CopyBytes
@@ -78,11 +78,11 @@ _GiveOddEgg:
ld bc, MON_NAME_LENGTH
call CopyBytes
; load pointer to wTempOddEggNickname in wMobileMonOTNamePointer
; load pointer to wTempOddEggNickname in wMobileMonOTPointer
ld a, LOW(wTempOddEggNickname)
ld [wMobileMonOTNamePointer], a
ld [wMobileMonOTPointer], a
ld a, HIGH(wTempOddEggNickname)
ld [wMobileMonOTNamePointer + 1], a
ld [wMobileMonOTPointer + 1], a
; load pointer to wOddEggName in wMobileMonNicknamePointer
ld a, LOW(wOddEggName)
ld [wMobileMonNicknamePointer], a

View File

@@ -19,13 +19,13 @@ FieldMoveJumptable:
scf
ret
GetPartyNick:
GetPartyNickname:
; write wCurPartyMon nickname to wStringBuffer1-3
ld hl, wPartyMonNicknames
ld a, BOXMON
ld [wMonType], a
ld a, [wCurPartyMon]
call GetNick
call GetNickname
call CopyName1
; copy text from wStringBuffer2 to wStringBuffer3
ld de, wStringBuffer2
@@ -204,7 +204,7 @@ Script_CutFromMenu:
special UpdateTimePals
Script_Cut:
callasm GetPartyNick
callasm GetPartyNickname
writetext UseCutText
reloadmappart
callasm CutDownTreeOrGrass
@@ -379,7 +379,7 @@ SurfFunction:
.DoSurf:
call GetSurfType
ld [wSurfingPlayerState], a
call GetPartyNick
call GetPartyNickname
ld hl, SurfFromMenuScript
call QueueScript
ld a, $81
@@ -516,7 +516,7 @@ TrySurfOW::
call GetSurfType
ld [wSurfingPlayerState], a
call GetPartyNick
call GetPartyNickname
ld a, BANK(AskSurfScript)
ld hl, AskSurfScript
@@ -674,7 +674,7 @@ Script_WaterfallFromMenu:
special UpdateTimePals
Script_UsedWaterfall:
callasm GetPartyNick
callasm GetPartyNickname
writetext .UseWaterfallText
waitbutton
closetext
@@ -798,7 +798,7 @@ EscapeRopeOrDig:
ld de, wNextWarp
ld bc, 3
call CopyBytes
call GetPartyNick
call GetPartyNickname
ld a, [wEscapeRopeOrDigType]
cp $2
jr nz, .escaperope
@@ -911,7 +911,7 @@ TeleportFunction:
ret
.DoTeleport:
call GetPartyNick
call GetPartyNickname
ld hl, .TeleportScript
call QueueScript
ld a, $81
@@ -999,7 +999,7 @@ SetStrengthFlag:
add hl, de
ld a, [hl]
ld [wStrengthSpecies], a
call GetPartyNick
call GetPartyNickname
ret
Script_StrengthFromMenu:
@@ -1166,7 +1166,7 @@ Script_WhirlpoolFromMenu:
special UpdateTimePals
Script_UsedWhirlpool:
callasm GetPartyNick
callasm GetPartyNickname
writetext UseWhirlpoolText
reloadmappart
callasm DisappearWhirlpool
@@ -1265,7 +1265,7 @@ HeadbuttFromMenuScript:
special UpdateTimePals
HeadbuttScript:
callasm GetPartyNick
callasm GetPartyNickname
writetext UseHeadbuttText
reloadmappart
@@ -1362,7 +1362,7 @@ RockSmashFromMenuScript:
special UpdateTimePals
RockSmashScript:
callasm GetPartyNick
callasm GetPartyNickname
writetext UseRockSmashText
closetext
special WaitSFX

View File

@@ -128,7 +128,7 @@ DoPoisonStep::
jr z, .mon_not_fainted
ld c, HAPPINESS_POISONFAINT
farcall ChangeHappiness
farcall GetPartyNick
farcall GetPartyNickname
ld hl, .PoisonFaintText
call PrintText

View File

@@ -249,10 +249,10 @@ GetCaughtLocation:
GetCaughtOT:
ld a, [wCurPartyMon]
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
ld bc, NAME_LENGTH
call AddNTimes
ld de, wSeerOTName
ld de, wSeerOT
ld bc, NAME_LENGTH
call CopyBytes
@@ -264,7 +264,7 @@ GetCaughtOT:
ld hl, .female
.got_grammar
ld de, wSeerOTNameGrammar
ld de, wSeerOTGrammar
ld a, "@"
ld [de], a
ret

View File

@@ -42,13 +42,13 @@ GiveShuckle:
dec a
ld hl, wPartyMonNicknames
call SkipNames
ld de, SpecialShuckleNick
ld de, SpecialShuckleNickname
call CopyName2
; OT.
ld a, [wPartyCount]
dec a
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
call SkipNames
ld de, SpecialShuckleOT
call CopyName2
@@ -68,7 +68,7 @@ GiveShuckle:
SpecialShuckleOT:
db "MANIA@"
SpecialShuckleNick:
SpecialShuckleNickname:
db "SHUCKIE@"
ReturnShuckie:
@@ -94,7 +94,7 @@ ReturnShuckie:
; OT
ld a, [wCurPartyMon]
ld hl, wPartyMonOT
ld hl, wPartyMonOTs
call SkipNames
ld de, SpecialShuckleOT
.CheckOT:

View File

@@ -8,7 +8,7 @@ SweetScentFromMenu:
.SweetScent:
reloadmappart
special UpdateTimePals
callasm GetPartyNick
callasm GetPartyNickname
writetext UseSweetScentText
waitbutton
callasm SweetScentEncounter