summaryrefslogtreecommitdiff
path: root/engine/pokemon/breeding.asm
diff options
context:
space:
mode:
authormid-kid <esteve.varela@gmail.com>2018-06-24 16:09:41 +0200
committermid-kid <esteve.varela@gmail.com>2018-06-24 16:13:22 +0200
commit1d9a68dbdd0132035f1fc7b7ea8f7fdc24741507 (patch)
tree3af0a92f5f7dc10f32eed04d9daae52749fc33c2 /engine/pokemon/breeding.asm
parent131875d3e37044ec995287af7c93decd86a0d659 (diff)
Remove all address comments
Diffstat (limited to 'engine/pokemon/breeding.asm')
-rw-r--r--engine/pokemon/breeding.asm82
1 files changed, 31 insertions, 51 deletions
diff --git a/engine/pokemon/breeding.asm b/engine/pokemon/breeding.asm
index cc32122a7..4f4319be1 100644
--- a/engine/pokemon/breeding.asm
+++ b/engine/pokemon/breeding.asm
@@ -1,4 +1,4 @@
-CheckBreedmonCompatibility: ; 16e1d
+CheckBreedmonCompatibility:
call .CheckBreedingGroupCompatibility
ld c, $0
jp nc, .done
@@ -83,10 +83,9 @@ CheckBreedmonCompatibility: ; 16e1d
ld a, c
ld [wd265], a
ret
-; 16ebc
-.CheckDVs: ; 16ebc (5:6ebc)
+.CheckDVs:
; If Defense DVs match and the lower 3 bits of the Special DVs match,
; avoid breeding
ld a, [wBreedMon1DVs]
@@ -103,9 +102,8 @@ CheckBreedmonCompatibility: ; 16e1d
and %111
cp b
ret
-; 16ed6
-.CheckBreedingGroupCompatibility: ; 16ed6
+.CheckBreedingGroupCompatibility:
; If either mon is in the No Eggs group,
; they are not compatible.
ld a, [wBreedMon2Species]
@@ -173,9 +171,8 @@ CheckBreedmonCompatibility: ; 16e1d
.Compatible:
scf
ret
-; 16f3e
-DoEggStep:: ; 16f3e
+DoEggStep::
ld de, wPartySpecies
ld hl, wPartyMon1Happiness
ld c, 0
@@ -198,24 +195,22 @@ DoEggStep:: ; 16f3e
add hl, de
pop de
jr .loop
-; 16f5e
-OverworldHatchEgg:: ; 16f5e
+OverworldHatchEgg::
call RefreshScreen
call LoadStandardMenuHeader
call HatchEggs
call ExitAllMenus
call RestartMapMusic
jp CloseText
-; 16f70
-HatchEggs: ; 16f70 (5:6f70)
+HatchEggs:
ld de, wPartySpecies
ld hl, wPartyMon1Happiness
xor a
ld [wCurPartyMon], a
-.loop ; 16f7a (5:6f7a)
+.loop
ld a, [de]
inc de
cp -1
@@ -348,7 +343,7 @@ HatchEggs: ; 16f70 (5:6f70)
ld bc, MON_NAME_LENGTH
call CopyBytes
-.next ; 1707d (5:707d)
+.next
ld hl, wCurPartyMon
inc [hl]
pop hl
@@ -357,9 +352,8 @@ HatchEggs: ; 16f70 (5:6f70)
pop de
jp .loop
-.done ; 1708a (5:708a)
+.done
ret
-; 1708b (5:708b)
.Text_HatchEgg: ; 0x1708b
; Huh? @ @
@@ -382,7 +376,6 @@ HatchEggs: ; 16f70 (5:6f70)
pop hl
ld hl, .CameOutOfItsEgg
ret
-; 170b0 (5:70b0)
.ClearTextbox: ; 0x170b0
;
@@ -402,7 +395,7 @@ HatchEggs: ; 16f70 (5:6f70)
db "@"
; 0x170bf
-InitEggMoves: ; 170bf
+InitEggMoves:
call GetHeritableMoves
ld d, h
ld e, l
@@ -431,9 +424,8 @@ InitEggMoves: ; 170bf
.done
ret
-; 170e4
-GetEggMove: ; 170e4
+GetEggMove:
push bc
ld a, [wEggMonSpecies]
dec a
@@ -526,9 +518,8 @@ GetEggMove: ; 170e4
pop bc
and a
ret
-; 17169
-LoadEggMove: ; 17169
+LoadEggMove:
push de
push bc
ld a, [de]
@@ -561,9 +552,8 @@ LoadEggMove: ; 17169
pop bc
pop de
ret
-; 17197
-GetHeritableMoves: ; 17197
+GetHeritableMoves:
ld hl, wBreedMon2Moves
ld a, [wBreedMon1Species]
cp DITTO
@@ -619,9 +609,8 @@ GetHeritableMoves: ; 17197
pop af
ld [wCurPartySpecies], a
ret
-; 1720b
-GetBreedmonMovePointer: ; 1720b
+GetBreedmonMovePointer:
ld hl, wBreedMon1Moves
ld a, [wBreedMon1Species]
cp DITTO
@@ -636,10 +625,9 @@ GetBreedmonMovePointer: ; 1720b
.ditto
ld hl, wBreedMon2Moves
ret
-; 17224
-GetEggFrontpic: ; 17224 (5:7224)
+GetEggFrontpic:
push de
ld [wCurPartySpecies], a
ld [wCurSpecies], a
@@ -649,7 +637,7 @@ GetEggFrontpic: ; 17224 (5:7224)
pop de
predef_jump GetMonFrontpic
-GetHatchlingFrontpic: ; 1723c (5:723c)
+GetHatchlingFrontpic:
push de
ld [wCurPartySpecies], a
ld [wCurSpecies], a
@@ -659,7 +647,7 @@ GetHatchlingFrontpic: ; 1723c (5:723c)
pop de
predef_jump GetAnimatedFrontpic
-Hatch_UpdateFrontpicBGMapCenter: ; 17254 (5:7254)
+Hatch_UpdateFrontpicBGMapCenter:
push af
call WaitTop
push hl
@@ -681,7 +669,7 @@ Hatch_UpdateFrontpicBGMapCenter: ; 17254 (5:7254)
call SetPalettes
jp WaitBGMap
-EggHatch_DoAnimFrame: ; 1727f (5:727f)
+EggHatch_DoAnimFrame:
push hl
push de
push bc
@@ -692,7 +680,7 @@ EggHatch_DoAnimFrame: ; 1727f (5:727f)
pop hl
ret
-EggHatch_AnimationSequence: ; 1728f (5:728f)
+EggHatch_AnimationSequence:
ld a, [wd265]
ld [wJumptableIndex], a
ld a, [wCurSpecies]
@@ -782,13 +770,13 @@ EggHatch_AnimationSequence: ; 1728f (5:728f)
ld [wCurSpecies], a
ret
-Hatch_LoadFrontpicPal: ; 17363 (5:7363)
+Hatch_LoadFrontpicPal:
ld [wPlayerHPPal], a
ld b, SCGB_EVOLUTION
ld c, $0
jp GetSGBLayout
-EggHatch_CrackShell: ; 1736d (5:736d)
+EggHatch_CrackShell:
ld a, [wFrameCounter]
dec a
and $7
@@ -808,13 +796,11 @@ EggHatch_CrackShell: ; 1736d (5:736d)
ld [hl], $0
ld de, SFX_EGG_CRACK
jp PlaySFX
-; 17393 (5:7393)
-EggHatchGFX: ; 17393
+EggHatchGFX:
INCBIN "gfx/evo/egg_hatch.2bpp"
-; 173b3
-Hatch_InitShellFragments: ; 173b3 (5:73b3)
+Hatch_InitShellFragments:
farcall ClearSpriteAnims
ld hl, .SpriteData
.loop
@@ -856,14 +842,13 @@ Hatch_InitShellFragments: ; 173b3 (5:73b3)
call PlaySFX
call EggHatch_DoAnimFrame
ret
-; 173ef (5:73ef)
shell_fragment: MACRO
; y tile, y pxl, x tile, x pxl, frameset offset, ???
db (\1 * 8) % $100 + \2, (\3 * 8) % $100 + \4, \5 - SPRITE_ANIM_FRAMESET_EGG_HATCH_1, \6
ENDM
-.SpriteData: ; 173ef
+.SpriteData:
shell_fragment 10, 4, 9, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_1, $3c
shell_fragment 11, 4, 9, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_2, $04
shell_fragment 10, 4, 10, 0, SPRITE_ANIM_FRAMESET_EGG_HATCH_1, $30
@@ -875,9 +860,8 @@ ENDM
shell_fragment 10, 0, 10, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_3, $2a
shell_fragment 12, 0, 10, 4, SPRITE_ANIM_FRAMESET_EGG_HATCH_4, $16
db -1
-; 17418
-Hatch_ShellFragmentLoop: ; 17418 (5:7418)
+Hatch_ShellFragmentLoop:
ld c, 129
.loop
call EggHatch_DoAnimFrame
@@ -885,7 +869,7 @@ Hatch_ShellFragmentLoop: ; 17418 (5:7418)
jr nz, .loop
ret
-DayCareMon1: ; 17421
+DayCareMon1:
ld hl, DayCareMon1Text
call PrintText
ld a, [wBreedMon1Species]
@@ -898,7 +882,7 @@ DayCareMon1: ; 17421
call DayCareMonCompatibilityText
jp PrintText
-DayCareMon2: ; 17440
+DayCareMon2:
ld hl, DayCareMon2Text
call PrintText
ld a, [wBreedMon2Species]
@@ -911,9 +895,8 @@ DayCareMon2: ; 17440
call DayCareMonCompatibilityText
jp PrintText
-DayCareMonCursor: ; 1745f
+DayCareMonCursor:
jp WaitPressAorB_BlinkCursor
-; 17462
DayCareMon2Text: ; 0x17462
; It's @ that was left with the DAY-CARE LADY.
@@ -927,7 +910,7 @@ DayCareMon1Text: ; 0x17467
db "@"
; 0x1746c
-DayCareMonCompatibilityText: ; 1746c
+DayCareMonCompatibilityText:
push bc
ld de, wStringBuffer1
ld bc, NAME_LENGTH
@@ -951,7 +934,6 @@ DayCareMonCompatibilityText: ; 1746c
.done
ret
-; 1749c
.AllAlone: ; 0x1749c
; It's brimming with energy.
@@ -983,12 +965,10 @@ DayCareMonCompatibilityText: ; 1746c
db "@"
; 0x174b5
-Unreferenced_DayCareMonPrintEmptyString: ; 174b5
+Unreferenced_DayCareMonPrintEmptyString:
ld hl, .string
ret
-; 174b9
-.string ; 174b9
+.string
db "@"
-; 174ba