Remove all address comments

This commit is contained in:
mid-kid
2018-06-24 16:09:41 +02:00
parent 131875d3e3
commit 1d9a68dbdd
616 changed files with 12133 additions and 20380 deletions

View File

@@ -1,4 +1,4 @@
_BasementKey: ; 507b4
_BasementKey:
; Are we even in the right map to use this?
ld a, [wMapGroup]
cp GROUP_GOLDENROD_UNDERGROUND
@@ -26,7 +26,6 @@ _BasementKey: ; 507b4
ld a, FALSE
ld [wItemEffectSucceeded], a
ret
; 507e1
.BasementKeyScript: ; 0x507e1
closetext

File diff suppressed because it is too large Load Diff

View File

@@ -5,7 +5,7 @@ GetMobileOTTrainerClass: ; mobile function
ld c, a
ret
.GetMobileOTTrainerClass: ; 4e930
.GetMobileOTTrainerClass:
ld a, [hli]
xor [hl]
ld c, a

View File

@@ -1,4 +1,4 @@
Function_LoadOpponentTrainerAndPokemons: ; 1f8000
Function_LoadOpponentTrainerAndPokemons:
ld a, [rSVBK]
push af
ld a, BANK(wBT_OTTrainer)
@@ -92,7 +92,7 @@ endc
ret
Function_LoadRandomBattleTowerMon: ; 1f8081
Function_LoadRandomBattleTowerMon:
ld c, BATTLETOWER_PARTY_LENGTH
.loop
push bc
@@ -207,7 +207,6 @@ Function_LoadRandomBattleTowerMon: ; 1f8081
ld [sBTMonPrevTrainer3], a
call CloseSRAM
ret
; 1f814e
INCLUDE "data/battle_tower/classes.asm"

View File

@@ -1,27 +1,24 @@
CheckForMobileBattleRules: ; 8b1e1
CheckForMobileBattleRules:
ld de, .PointerTables
call BattleTower_ExecuteJumptable
ret z
call BattleTower_PleaseReturnWhenReady
scf
ret
; 8b1ed
.PointerTables: ; 8b1ed
.PointerTables:
db 2
dw .Functions
dw .TextPointers
.Functions: ; 8b1f2
.Functions:
dw BattleTower_CheckPartyLengthIs3
dw BattleTower_CheckPartyHasThreeMonsThatAreNotEggs
; 8b1f6
.TextPointers: ; 8b1f6
.TextPointers:
dw .ExcuseMeText
dw JumpText_NeedAtLeastThreeMon
dw JumpText_EggDoesNotQualify
; 8b1fc
.ExcuseMeText: ; 0x8b1fc
; Excuse me!
@@ -29,7 +26,7 @@ CheckForMobileBattleRules: ; 8b1e1
db "@"
; 0x8b201
_CheckForBattleTowerRules: ; 8b201
_CheckForBattleTowerRules:
ld hl, wStringBuffer2
ld [hl], "3"
inc hl
@@ -40,27 +37,24 @@ _CheckForBattleTowerRules: ; 8b201
call BattleTower_PleaseReturnWhenReady
scf
ret
; 8b215
.PointerTables: ; 8b215
.PointerTables:
db 4
dw .Functions
dw .TextPointers
.Functions: ; 8b21a
.Functions:
dw Function_PartyCountEq3
dw Function_PartySpeciesAreUnique
dw Function_PartyItemsAreUnique
dw Function_HasPartyAnEgg
; 8b222
.TextPointers: ; 8b222
.TextPointers:
dw JumpText_ExcuseMeYoureNotReady
dw JumpText_OnlyThreeMonMayBeEntered
dw JumpText_TheMonMustAllBeDifferentKinds
dw JumpText_TheMonMustNotHoldTheSameItems
dw JumpText_YouCantTakeAnEgg
; 8b22c
JumpText_ExcuseMeYoureNotReady: ; 0x8b22c
; Excuse me. You're not ready.
@@ -68,11 +62,10 @@ JumpText_ExcuseMeYoureNotReady: ; 0x8b22c
db "@"
; 0x8b231
BattleTower_PleaseReturnWhenReady: ; 8b231
BattleTower_PleaseReturnWhenReady:
ld hl, .PleaseReturnWhenReady
call PrintText
ret
; 8b238
.PleaseReturnWhenReady: ; 0x8b238
; Please return when you're ready.
@@ -116,7 +109,7 @@ JumpText_YouCantTakeAnEgg: ; 0x8b256
db "@"
; 0x8b25b
BattleTower_ExecuteJumptable: ; 8b25b
BattleTower_ExecuteJumptable:
ld bc, 0
.loop
call .DoJumptableFunction
@@ -126,9 +119,8 @@ BattleTower_ExecuteJumptable: ; 8b25b
ld a, b
and a
ret
; 8b26c
.DoJumptableFunction: ; 8b26c
.DoJumptableFunction:
push de
push bc
call .GetFunctionPointer
@@ -137,16 +129,14 @@ BattleTower_ExecuteJumptable: ; 8b25b
pop bc
pop de
ret
; 8b276
.Next_CheckReachedEnd: ; 8b276
.Next_CheckReachedEnd:
inc c
ld a, [de]
cp c
ret
; 8b27a
.GetFunctionPointer: ; 8b27a
.GetFunctionPointer:
inc de
ld a, [de]
ld l, a
@@ -154,9 +144,8 @@ BattleTower_ExecuteJumptable: ; 8b25b
ld a, [de]
ld h, a
ret
; 8b281
.GetTextPointers: ; 8b281
.GetTextPointers:
inc de
inc de
inc de
@@ -166,16 +155,14 @@ BattleTower_ExecuteJumptable: ; 8b25b
ld a, [de]
ld h, a
ret
; 8b28a
.LoadTextPointer: ; 8b28a
.LoadTextPointer:
ld a, [hli]
ld h, [hl]
ld l, a
ret
; 8b28e
.PrintFailureText: ; 8b28e
.PrintFailureText:
push de
push bc
ld a, b
@@ -186,18 +173,16 @@ BattleTower_ExecuteJumptable: ; 8b25b
ld b, $1
pop de
ret
; 8b29d
.PrintFirstText: ; 8b29d
.PrintFirstText:
push de
call .GetTextPointers
call .LoadTextPointer
call PrintText
pop de
ret
; 8b2a9
.PrintNthText: ; 8b2a9
.PrintNthText:
push bc
call .GetTextPointers
inc hl
@@ -209,15 +194,13 @@ BattleTower_ExecuteJumptable: ; 8b25b
call PrintText
pop bc
ret
; 8b2bb
BattleTower_CheckPartyLengthIs3: ; 8b2bb
BattleTower_CheckPartyLengthIs3:
ld a, [wPartyCount]
cp BATTLETOWER_PARTY_LENGTH
ret
; 8b2c1
BattleTower_CheckPartyHasThreeMonsThatAreNotEggs: ; 8b2c1
BattleTower_CheckPartyHasThreeMonsThatAreNotEggs:
ld hl, wPartyCount
ld a, [hli]
ld b, $0
@@ -237,23 +220,20 @@ BattleTower_CheckPartyHasThreeMonsThatAreNotEggs: ; 8b2c1
ld a, b
cp BATTLETOWER_PARTY_LENGTH
ret
; 8b2da
Function_PartyCountEq3: ; 8b2da
Function_PartyCountEq3:
ld a, [wPartyCount]
cp BATTLETOWER_PARTY_LENGTH
ret z
scf
ret
; 8b2e2
Function_PartySpeciesAreUnique: ; 8b2e2
Function_PartySpeciesAreUnique:
ld hl, wPartyMon1Species
call VerifyUniqueness
ret
; 8b2e9
VerifyUniqueness: ; 8b2e9
VerifyUniqueness:
ld de, wPartyCount
ld a, [de]
inc de
@@ -296,18 +276,16 @@ VerifyUniqueness: ; 8b2e9
pop hl
scf
ret
; 8b31a
.nextmon ; 8b31a
.nextmon
push bc
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
inc de
pop bc
ret
; 8b322
.isegg ; 8b322
.isegg
push bc
ld b, a
ld a, [de]
@@ -315,15 +293,13 @@ VerifyUniqueness: ; 8b2e9
ld a, b
pop bc
ret
; 8b32a
Function_PartyItemsAreUnique: ; 8b32a
Function_PartyItemsAreUnique:
ld hl, wPartyMon1Item
call VerifyUniqueness
ret
; 8b331
Function_HasPartyAnEgg: ; 8b331
Function_HasPartyAnEgg:
ld hl, wPartyCount
ld a, [hli]
ld c, a
@@ -339,4 +315,3 @@ Function_HasPartyAnEgg: ; 8b331
.found
scf
ret
; 8b342

View File

@@ -1,4 +1,4 @@
BattleTowerText:: ; 11c000
BattleTowerText::
; Print text c for trainer [wBT_OTTrainerClass]
; 1: Intro text
; 2: Player lost
@@ -83,19 +83,18 @@ endc
ld [rSVBK], a
call PlaceHLTextAtBC
ret
; 11c05d
INCLUDE "mobile/fixed_words.asm"
INCLUDE "data/trainers/genders.asm"
BTMaleTrainerTexts: ; 11f332
BTMaleTrainerTexts:
dw .Greetings
dw .PlayerLost
dw .PlayerWon
.Greetings: ; 11f338
.Greetings:
dw BTGreetingM1
dw BTGreetingM2
dw BTGreetingM3
@@ -122,7 +121,7 @@ BTMaleTrainerTexts: ; 11f332
dw BTGreetingM24
dw BTGreetingM25
.PlayerLost: ; 11f36a
.PlayerLost:
dw BTLossM1
dw BTLossM2
dw BTLossM3
@@ -149,7 +148,7 @@ BTMaleTrainerTexts: ; 11f332
dw BTLossM24
dw BTLossM25
.PlayerWon: ; 11f39c
.PlayerWon:
dw BTWinM1
dw BTWinM2
dw BTWinM3
@@ -182,7 +181,7 @@ BTFemaleTrainerTexts:
dw .PlayerLost
dw .PlayerWon
.Greetings: ; 11f3d4
.Greetings:
dw BTGreetingF1
dw BTGreetingF2
dw BTGreetingF3
@@ -199,7 +198,7 @@ BTFemaleTrainerTexts:
dw BTGreetingF14
dw BTGreetingF15
.PlayerLost: ; 11f3f2
.PlayerLost:
dw BTLossF1
dw BTLossF2
dw BTLossF3
@@ -216,7 +215,7 @@ BTFemaleTrainerTexts:
dw BTLossF14
dw BTLossF15
.PlayerWon: ; 11f410
.PlayerWon:
dw BTWinF1
dw BTWinF2
dw BTWinF3

View File

@@ -1,4 +1,4 @@
BuenasPassword: ; 8af6b
BuenasPassword:
xor a
ld [wWhichIndexSet], a
ld hl, .MenuHeader
@@ -26,7 +26,6 @@ BuenasPassword: ; 8af6b
ld a, b
ld [wScriptVar], a
ret
; 8afa9
.MenuHeader: ; 0x8afa9
db MENU_BACKUP_TILES ; flags
@@ -44,7 +43,7 @@ BuenasPassword: ; 8af6b
dw .PlacePasswordChoices
; 0x8afb4
.PasswordIndices: ; 8afb8
.PasswordIndices:
db NUM_PASSWORDS_PER_CATEGORY
x = 0
rept NUM_PASSWORDS_PER_CATEGORY
@@ -53,7 +52,7 @@ x = x + 1
endr
db -1
.PlacePasswordChoices: ; 8afbd
.PlacePasswordChoices:
push de
ld a, [wBuenasPassword]
and $f0
@@ -65,9 +64,8 @@ endr
pop hl
call PlaceString
ret
; 8afd4
BuenaPrize: ; 8afd4
BuenaPrize:
xor a
ld [wMenuScrollPosition], a
ld a, $1
@@ -149,7 +147,6 @@ BuenaPrize: ; 8afd4
call JoyWaitAorB
call PlayClickSFX
ret
; 8b072
.Text_AskWhichPrize: ; 0x8b072
; Which prize would you like?
@@ -186,19 +183,17 @@ BuenaPrize: ; 8afd4
db "@"
; 0x8b090
Buena_DisplayBlueCardBalance: ; 8b090
Buena_DisplayBlueCardBalance:
ld hl, BlueCardBalanceMenuHeader
call LoadMenuHeader
ret
; 8b097
PrintBlueCardBalance: ; 8b097
PrintBlueCardBalance:
ld de, wBlueCardBalance
call .DrawBox
ret
; 8b09e
.DrawBox: ; 8b09e
.DrawBox:
push de
xor a
ld [hBGMapMode], a
@@ -221,29 +216,24 @@ PrintBlueCardBalance: ; 8b097
lb bc, 1, 2
call PrintNum
ret
; 8b0ca
.Points_string:
db "Points@"
; 8b0d1
BlueCardBalanceMenuHeader: ; 0x8b0d1
db MENU_BACKUP_TILES ; flags
menu_coords 0, 11, 11, 13
; 8b0d6
Buena_PlacePrizeMenuBox: ; 8b0d6
Buena_PlacePrizeMenuBox:
ld hl, .MenuHeader
call LoadMenuHeader
ret
; 8b0dd
.MenuHeader ; 0x8b0dd
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 17, TEXTBOX_Y - 1
; 8b0e2
Buena_PrizeMenu: ; 8b0e2
Buena_PrizeMenu:
ld hl, .MenuHeader
call CopyMenuHeader
ld a, [wMenuSelection]
@@ -268,7 +258,6 @@ Buena_PrizeMenu: ; 8b0e2
.cancel
xor a
ret
; 8b113
.MenuHeader: ; 0x8b113
db MENU_BACKUP_TILES ; flags
@@ -286,11 +275,10 @@ Buena_PrizeMenu: ; 8b0e2
dba .indices
dba .prizeitem
dba .prizepoints
; 8b129
NUM_BUENA_PRIZES EQU 9 ; ((BuenaPrizeItems.End - BuenaPrizeItems) / 2)
.indices ; 8b129
.indices
db NUM_BUENA_PRIZES
x = 1
rept NUM_BUENA_PRIZES
@@ -298,9 +286,8 @@ rept NUM_BUENA_PRIZES
x = x + 1
endr
db -1
; 8b134
.prizeitem ; 8b134
.prizeitem
ld a, [wMenuSelection]
call Buena_getprize
ld a, [hl]
@@ -310,9 +297,8 @@ endr
pop hl
call PlaceString
ret
; 8b147
.prizepoints ; 8b147
.prizepoints
ld a, [wMenuSelection]
call Buena_getprize
inc hl
@@ -321,9 +307,8 @@ endr
add c
ld [de], a
ret
; 8b154
Buena_getprize: ; 8b154
Buena_getprize:
dec a
ld hl, BuenaPrizeItems
ld b, 0
@@ -331,6 +316,5 @@ Buena_getprize: ; 8b154
add hl, bc
add hl, bc
ret
; 8b15e
INCLUDE "data/items/buena_prizes.asm"

View File

@@ -1,4 +1,4 @@
AskRememberPassword: ; 4ae12
AskRememberPassword:
call .DoMenu
ld a, $0
jr c, .okay
@@ -8,7 +8,7 @@ AskRememberPassword: ; 4ae12
ld [wScriptVar], a
ret
.DoMenu: ; 4ae1f
.DoMenu:
lb bc, 14, 7
push bc
ld hl, YesNoMenuHeader
@@ -42,7 +42,7 @@ AskRememberPassword: ; 4ae12
scf
ret
Buena_ExitMenu: ; 4ae5e
Buena_ExitMenu:
ld a, [hOAMUpdate]
push af
call ExitMenu

View File

@@ -1,4 +1,4 @@
BugContest_SetCaughtContestMon: ; e6ce
BugContest_SetCaughtContestMon:
ld a, [wContestMon]
and a
jr z, .firstcatch
@@ -18,7 +18,7 @@ BugContest_SetCaughtContestMon: ; e6ce
call PrintText
ret
.generatestats ; e6fd
.generatestats
ld a, [wTempEnemyMonSpecies]
ld [wCurSpecies], a
ld [wCurPartySpecies], a

View File

@@ -1,4 +1,4 @@
GiveParkBalls: ; 135db
GiveParkBalls:
xor a
ld [wContestMon], a
ld a, 20

View File

@@ -1,4 +1,4 @@
SelectRandomBugContestContestants: ; 139a8
SelectRandomBugContestContestants:
; Select five random people to participate in the current contest.
; First we have to make sure that any old data is cleared away.
@@ -54,9 +54,8 @@ SelectRandomBugContestContestants: ; 139a8
dec c
jr nz, .loop2
ret
; 139ed
CheckBugContestContestantFlag: ; 139ed
CheckBugContestContestantFlag:
; Checks the flag of the Bug Catching Contestant whose index is loaded in a.
; Bug: If a >= NUM_BUG_CONTESTANTS when this is called,
@@ -73,11 +72,10 @@ CheckBugContestContestantFlag: ; 139ed
ld b, CHECK_FLAG
call EventFlagAction
ret
; 139fe
INCLUDE "data/events/bug_contest_flags.asm"
ContestDropOffMons: ; 13a12
ContestDropOffMons:
ld hl, wPartyMon1HP
ld a, [hli]
or [hl]
@@ -100,9 +98,8 @@ ContestDropOffMons: ; 13a12
ld a, $1
ld [wScriptVar], a
ret
; 13a31
ContestReturnMons: ; 13a31
ContestReturnMons:
; Restore the species of the second mon.
ld hl, wPartySpecies + 1
ld a, [wBugContestSecondPartySpecies]
@@ -120,4 +117,3 @@ ContestReturnMons: ; 13a31
ld a, b
ld [wPartyCount], a
ret
; 13a47

View File

@@ -1,4 +1,4 @@
DisplayCaughtContestMonStats: ; cc000
DisplayCaughtContestMonStats:
call ClearBGPalettes
call ClearTileMap
call ClearSprites
@@ -86,12 +86,12 @@ DisplayCaughtContestMonStats: ; cc000
.This:
db " THIS <PKMN> @"
SwitchMonText: ; cc0c2
SwitchMonText:
; Switch #MON?
text_jump UnknownText_0x1c10cf
db "@"
DisplayAlreadyCaughtText: ; cc0c7
DisplayAlreadyCaughtText:
call GetPokemonName
ld hl, .AlreadyCaughtText
jp PrintText
@@ -103,5 +103,5 @@ DisplayAlreadyCaughtText: ; cc0c7
DummyPredef2F:
DummyPredef38:
DummyPredef39: ; cc0d5
DummyPredef39:
ret

View File

@@ -1,4 +1,4 @@
_BugContestJudging: ; 1369d
_BugContestJudging:
call ContestScore
farcall StubbedTrainerRankings_BugContestScore
call BugContest_JudgeContestants
@@ -24,7 +24,6 @@ _BugContestJudging: ; 1369d
ld hl, BugContest_FirstPlaceText
call PrintText
jp BugContest_GetPlayersResult
; 136eb
BugContest_FirstPlaceText: ; 0x136eb
text_jump ContestJudging_FirstPlaceText
@@ -34,7 +33,6 @@ BugContest_FirstPlaceText: ; 0x136eb
call WaitSFX
ld hl, BugContest_FirstPlaceScoreText
ret
; 136fd
BugContest_FirstPlaceScoreText: ; 0x136fd
; The winning score was @ points!
@@ -51,7 +49,6 @@ BugContest_SecondPlaceText: ; 0x13702
call WaitSFX
ld hl, BugContest_SecondPlaceScoreText
ret
; 13714
BugContest_SecondPlaceScoreText: ; 0x13714
; The score was @ points!
@@ -68,7 +65,6 @@ BugContest_ThirdPlaceText: ; 0x13719
call WaitSFX
ld hl, BugContest_ThirdPlaceScoreText
ret
; 1372b
BugContest_ThirdPlaceScoreText: ; 0x1372b
; The score was @ points!
@@ -76,7 +72,7 @@ BugContest_ThirdPlaceScoreText: ; 0x1372b
db "@"
; 0x13730
LoadContestantName: ; 13730
LoadContestantName:
; If a = 1, get your name.
dec a ; BUG_CONTEST_PLAYER
jr z, .player
@@ -131,14 +127,12 @@ LoadContestantName: ; 13730
ld de, wBugContestWinnerName
ld bc, NAME_LENGTH
jp CopyBytes
; 13783
INCLUDE "data/events/bug_contest_winners.asm"
; 13807
BugContest_GetPlayersResult: ; 13807
BugContest_GetPlayersResult:
ld hl, wBugContestThirdPlaceWinnerID
ld de, - BUG_CONTESTANT_SIZE
ld b, 3 ; 3rd, 2nd, or 1st
@@ -152,9 +146,8 @@ BugContest_GetPlayersResult: ; 13807
.done
ret
; 13819
BugContest_JudgeContestants: ; 13819
BugContest_JudgeContestants:
call ClearContestResults
call ComputeAIContestantScores
ld hl, wBugContestTempWinnerID
@@ -168,9 +161,8 @@ BugContest_JudgeContestants: ; 13819
ld [hl], a
call DetermineContestWinners
ret
; 13833
ClearContestResults: ; 13833
ClearContestResults:
ld hl, wBugContestResults
ld b, wBugContestWinnersEnd - wBugContestResults
xor a
@@ -179,9 +171,8 @@ ClearContestResults: ; 13833
dec b
jr nz, .loop
ret
; 1383e
DetermineContestWinners: ; 1383e
DetermineContestWinners:
ld de, wBugContestTempScore
ld hl, wBugContestFirstPlaceScore
ld c, 2
@@ -224,9 +215,8 @@ DetermineContestWinners: ; 1383e
.done
ret
; 138a0
CopyTempContestant: ; 138a0
CopyTempContestant:
; Could've just called CopyBytes.
ld de, wBugContestTempWinnerID
rept BUG_CONTESTANT_SIZE + -1
@@ -238,9 +228,8 @@ endr
inc de
ld [hl], a
ret
; 138b0
ComputeAIContestantScores: ; 138b0
ComputeAIContestantScores:
ld e, 0
.loop
push de
@@ -298,9 +287,8 @@ ComputeAIContestantScores: ; 138b0
cp NUM_BUG_CONTESTANTS
jr nz, .loop
ret
; 13900
ContestScore: ; 13900
ContestScore:
; Determine the player's score in the Bug Catching Contest.
xor a
@@ -383,9 +371,8 @@ ContestScore: ; 13900
.done
ret
; 1397f
.AddContestStat: ; 1397f
.AddContestStat:
ld hl, hMultiplicand
add [hl]
ld [hl], a
@@ -393,4 +380,3 @@ ContestScore: ; 13900
dec hl
inc [hl]
ret
; 13988

View File

@@ -1,4 +1,4 @@
_CardKey: ; 50779
_CardKey:
; Are we even in the right map to use this?
ld a, [wMapGroup]
cp GROUP_RADIO_TOWER_3F
@@ -31,7 +31,6 @@ _CardKey: ; 50779
ld a, FALSE
ld [wItemEffectSucceeded], a
ret
; 507af
.CardKeyScript: ; 0x507af
closetext

View File

@@ -1,4 +1,4 @@
CatchTutorial:: ; 4e554
CatchTutorial::
ld a, [wBattleType]
dec a
ld c, a
@@ -11,12 +11,12 @@ CatchTutorial:: ; 4e554
ld l, a
jp hl
.dw ; 4e564 (13:6564)
.dw
dw .DudeTutorial
dw .DudeTutorial
dw .DudeTutorial
.DudeTutorial: ; 4e56a (13:656a)
.DudeTutorial:
; Back up your name to your Mom's name.
ld hl, wPlayerName
ld de, wMomsName
@@ -52,7 +52,7 @@ CatchTutorial:: ; 4e554
call CopyBytes
ret
.LoadDudeData: ; 4e5b7 (13:65b7)
.LoadDudeData:
ld hl, wDudeNumItems
ld [hl], 1
inc hl
@@ -68,14 +68,14 @@ CatchTutorial:: ; 4e554
ld hl, wDudeNumBalls
ld a, 1
ld [hli], a
ld a, POKE_BALL ; 5
ld a, POKE_BALL
ld [hli], a
ld [hli], a
ld [hl], -1
ret
.Dude: ; 4e5da
.Dude:
db "DUDE@"
.AutoInput: ; 4e5df
.AutoInput:
db NO_INPUT, $ff ; end

View File

@@ -1,35 +1,35 @@
_DudeAutoInput_A:: ; 1de28a
_DudeAutoInput_A::
ld hl, DudeAutoInput_A
jr _DudeAutoInput
_DudeAutoInput_RightA: ; 1de28f
_DudeAutoInput_RightA:
ld hl, DudeAutoInput_RightA
jr _DudeAutoInput
_DudeAutoInput_DownA: ; 1de294
_DudeAutoInput_DownA:
ld hl, DudeAutoInput_DownA
jr _DudeAutoInput
_DudeAutoInput: ; 1de299
_DudeAutoInput:
ld a, BANK(DudeAutoInputs)
call StartAutoInput
ret
DudeAutoInputs: ; used only for BANK(DudeAutoInputs)
DudeAutoInput_A: ; 1de29f
DudeAutoInput_A:
db NO_INPUT, $50
db A_BUTTON, $00
db NO_INPUT, $ff ; end
DudeAutoInput_RightA: ; 1de2a5
DudeAutoInput_RightA:
db NO_INPUT, $08
db D_RIGHT, $00
db NO_INPUT, $08
db A_BUTTON, $00
db NO_INPUT, $ff ; end
DudeAutoInput_DownA: ; 1de2af
DudeAutoInput_DownA:
db NO_INPUT, $fe
db NO_INPUT, $fe
db NO_INPUT, $fe

View File

@@ -1,6 +1,6 @@
SPECIALCELEBIEVENT_CELEBI EQU $84
CelebiShrineEvent: ; 4989a
CelebiShrineEvent:
call DelayFrame
ld a, [wVramState]
push af
@@ -49,9 +49,8 @@ CelebiShrineEvent: ; 4989a
call CelebiEvent_SetBattleType
ret
; 498f9
.RestorePlayerSprite_DespawnLeaves: ; 498f9
.RestorePlayerSprite_DespawnLeaves:
ld hl, wVirtualOAMSprite00TileID
xor a
ld c, 4
@@ -69,9 +68,8 @@ endr
call ByteFill
ret
; 49912
LoadCelebiGFX: ; 49912
LoadCelebiGFX:
farcall ClearSpriteAnims
ld de, SpecialCelebiLeafGFX
ld hl, vTiles1
@@ -85,9 +83,8 @@ LoadCelebiGFX: ; 49912
ld [wJumptableIndex], a
ret
; 49935
CelebiEvent_CountDown: ; 49935
CelebiEvent_CountDown:
ld hl, wFrameCounter
ld a, [hl]
and a
@@ -101,9 +98,8 @@ CelebiEvent_CountDown: ; 49935
set 7, [hl]
ret
; 49944
CelebiEvent_SpawnLeaf: ; 49944
CelebiEvent_SpawnLeaf:
; unused
ld hl, wcf65
ld a, [hl]
@@ -123,19 +119,18 @@ CelebiEvent_SpawnLeaf: ; 49944
ld [hl], $80
ret
; 49962
SpecialCelebiLeafGFX: ; 49962
SpecialCelebiLeafGFX:
INCBIN "gfx/overworld/cut_grass.2bpp"
SpecialCelebiGFX: ; 499a2
SpecialCelebiGFX:
INCBIN "gfx/overworld/celebi/1.2bpp"
INCBIN "gfx/overworld/celebi/2.2bpp"
INCBIN "gfx/overworld/celebi/3.2bpp"
INCBIN "gfx/overworld/celebi/4.2bpp"
UpdateCelebiPosition: ; 49aa2 (12:5aa2)
UpdateCelebiPosition:
ld hl, SPRITEANIMSTRUCT_XOFFSET
add hl, bc
ld a, [hl]
@@ -230,7 +225,7 @@ UpdateCelebiPosition: ; 49aa2 (12:5aa2)
ret
.FreezeCelebiPosition: ; 49b30 (12:5b30)
.FreezeCelebiPosition:
pop af
ld hl, SPRITEANIMSTRUCT_FRAMESET_ID
add hl, bc
@@ -239,13 +234,12 @@ UpdateCelebiPosition: ; 49aa2 (12:5aa2)
ret
CelebiEvent_Cosine: ; 49b3b (12:5b3b)
CelebiEvent_Cosine:
; a = d * cos(a * pi/32)
add %010000 ; cos(x) = sin(x + pi/2)
calc_sine_wave
; 49bae
GetCelebiSpriteTile: ; 49bae
GetCelebiSpriteTile:
push hl
push bc
push de
@@ -304,9 +298,8 @@ GetCelebiSpriteTile: ; 49bae
pop hl
ret
; 49bed
.AddE: ; 49bed
.AddE:
push af
ld a, d
add e
@@ -314,16 +307,14 @@ GetCelebiSpriteTile: ; 49bae
pop af
ret
; 49bf3
CelebiEvent_SetBattleType: ; 49bf3
CelebiEvent_SetBattleType:
ld a, BATTLETYPE_CELEBI
ld [wBattleType], a
ret
; 49bf9
CheckCaughtCelebi: ; 49bf9
CheckCaughtCelebi:
ld a, [wBattleResult]
bit BATTLERESULT_CAUGHT_CELEBI, a
jr z, .false
@@ -339,4 +330,3 @@ CheckCaughtCelebi: ; 49bf9
.done
ret
; 49c0c

View File

@@ -1,4 +1,4 @@
CheckForHiddenItems: ; b8172
CheckForHiddenItems:
; Checks to see if there are hidden items on the screen that have not yet been found. If it finds one, returns carry.
call GetMapScriptsBank
ld [wBuffer1], a
@@ -75,11 +75,9 @@ CheckForHiddenItems: ; b8172
pop hl
scf
ret
; b81e2
.GetFarByte: ; b81e2
.GetFarByte:
ld a, [wBuffer1]
call GetFarByte
inc hl
ret
; b81ea

View File

@@ -1,4 +1,4 @@
CheckSave:: ; 4cffe
CheckSave::
ld a, BANK(sCheckValue1) ; BANK(sCheckValue2)
call GetSRAMBank
ld a, [sCheckValue1]

View File

@@ -1,4 +1,4 @@
CheckTime:: ; c000
CheckTime::
ld a, [wTimeOfDay]
ld hl, .TimeOfDayTable
ld de, 2
@@ -11,7 +11,7 @@ CheckTime:: ; c000
ld c, a
ret
.TimeOfDayTable: ; c012
.TimeOfDayTable:
db MORN_F, MORN
db DAY_F, DAY
db NITE_F, NITE

Some files were not shown because too many files have changed in this diff Show More