Egg hatching and more daycare text.

This commit is contained in:
yenatch 2014-03-03 21:53:36 -05:00
parent 5e3fe02fcf
commit 62600d525d

236
main.asm
View File

@ -29765,14 +29765,14 @@ Function16dac: ; 16dac
; 16dc7 ; 16dc7
Function16dc7: ; 16dc7 Function16dc7: ; 16dc7
ld hl, $6e04 ld hl, UnknownText_0x16e04
call PrintText call PrintText
callba Function50000 callba Function50000
jr c, .asm_16df8 jr c, .asm_16df8
ld a, [CurPartySpecies] ld a, [CurPartySpecies]
cp $fd cp EGG
jr z, .asm_16dfd jr z, .asm_16dfd
ld hl, $6e09 ld hl, UnknownText_0x16e09
call PrintText call PrintText
call Function2ed3 call Function2ed3
callba Function8461a callba Function8461a
@ -29780,22 +29780,50 @@ Function16dc7: ; 16dc7
ld a, [$ffac] ld a, [$ffac]
and a and a
jr nz, .asm_16df8 jr nz, .asm_16df8
ld hl, $6e0e ld hl, UnknownText_0x16e0e
jr .asm_16e00 jr .asm_16e00
.asm_16df8 .asm_16df8
ld hl, $6e13 ld hl, UnknownText_0x16e13
jr .asm_16e00 jr .asm_16e00
.asm_16dfd .asm_16dfd
ld hl, $6e18 ld hl, UnknownText_0x16e18
.asm_16e00 .asm_16e00
call PrintText call PrintText
ret ret
; 16e04 ; 16e04
INCBIN "baserom.gbc",$16e04,$16e1d - $16e04 UnknownText_0x16e04: ; 0x16e04
; Which #MON should I photo- graph?
text_jump UnknownText_0x1be024
db "@"
; 0x16e09
UnknownText_0x16e09: ; 0x16e09
; All righty. Hold still for a bit.
text_jump UnknownText_0x1be047
db "@"
; 0x16e0e
UnknownText_0x16e0e: ; 0x16e0e
; Presto! All done. Come again, OK?
text_jump UnknownText_0x1be06a
db "@"
; 0x16e13
UnknownText_0x16e13: ; 0x16e13
; Oh, no picture? Come again, OK?
text_jump UnknownText_0x1c0000
db "@"
; 0x16e18
UnknownText_0x16e18: ; 0x16e18
; An EGG? My talent is worth more…
text_jump UnknownText_0x1c0021
db "@"
; 0x16e1d
Function16e1d: ; 16e1d Function16e1d: ; 16e1d
@ -29842,16 +29870,16 @@ Function16e1d: ; 16e1d
.asm_16e70 .asm_16e70
ld c, $0 ld c, $0
ld a, [BreedMon1Species] ld a, [BreedMon1Species]
cp $84 cp DITTO
jr z, .asm_16e82 jr z, .asm_16e82
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
cp $84 cp DITTO
jr nz, .asm_16eb7 jr nz, .asm_16eb7
jr .asm_16e89 jr .asm_16e89
.asm_16e82 .asm_16e82
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
cp $84 cp DITTO
jr z, .asm_16eb7 jr z, .asm_16eb7
.asm_16e89 .asm_16e89
@ -29920,7 +29948,7 @@ Function16ed6: ; 16ed6
cp $ff cp $ff
jr z, .asm_16f3a jr z, .asm_16f3a
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
cp $84 cp DITTO
jr z, .asm_16f3c jr z, .asm_16f3c
ld [CurSpecies], a ld [CurSpecies], a
call GetBaseData call GetBaseData
@ -29933,7 +29961,7 @@ Function16ed6: ; 16ed6
swap a swap a
ld c, a ld c, a
ld a, [BreedMon1Species] ld a, [BreedMon1Species]
cp $84 cp DITTO
jr z, .asm_16f3c jr z, .asm_16f3c
ld [CurSpecies], a ld [CurSpecies], a
push bc push bc
@ -30016,7 +30044,7 @@ Function16f7a: ; 16f7a (5:6f7a)
jp z, Function1708a jp z, Function1708a
push de push de
push hl push hl
cp $fd cp EGG
jp nz, Function1707d jp nz, Function1707d
ld a, [hl] ld a, [hl]
and a and a
@ -30105,7 +30133,7 @@ Function16f7a: ; 16f7a (5:6f7a)
ld e, l ld e, l
ld hl, PlayerName ; $d47d ld hl, PlayerName ; $d47d
call CopyBytes call CopyBytes
ld hl, $708b ld hl, UnknownText_0x1708b
call PrintText call PrintText
ld a, [CurPartyMon] ; $d109 ld a, [CurPartyMon] ; $d109
ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname)
@ -30114,7 +30142,7 @@ Function16f7a: ; 16f7a (5:6f7a)
ld d, h ld d, h
ld e, l ld e, l
push de push de
ld hl, $70ba ld hl, UnknownText_0x170ba
call PrintText call PrintText
call YesNoBox call YesNoBox
pop de pop de
@ -30150,7 +30178,13 @@ Function1708a: ; 1708a (5:708a)
ret ret
; 1708b (5:708b) ; 1708b (5:708b)
INCBIN "baserom.gbc",$1708b,$17090 - $1708b UnknownText_0x1708b: ; 0x1708b
; Huh? @ @
text_jump UnknownText_0x1c0db0
start_asm
; 0x17090
Function17090: ; 17090
ld hl, VramState ; $d0ed ld hl, VramState ; $d0ed
res 0, [hl] res 0, [hl]
push hl push hl
@ -30159,18 +30193,34 @@ INCBIN "baserom.gbc",$1708b,$17090 - $1708b
ld a, [CurPartySpecies] ; $d108 ld a, [CurPartySpecies] ; $d108
push af push af
call Function1728f call Function1728f
ld hl, $70b0 ld hl, UnknownText_0x170b0
call PrintText call PrintText
pop af pop af
ld [CurPartySpecies], a ; $d108 ld [CurPartySpecies], a ; $d108
pop bc pop bc
pop de pop de
pop hl pop hl
ld hl, $70b5 ld hl, UnknownText_0x170b5
ret ret
; 170b0 (5:70b0) ; 170b0 (5:70b0)
INCBIN "baserom.gbc",$170b0,$170bf - $170b0 UnknownText_0x170b0: ; 0x170b0
;
text_jump UnknownText_0x1c0db8
db "@"
; 0x170b5
UnknownText_0x170b5: ; 0x170b5
; came out of its EGG!@ @
text_jump UnknownText_0x1c0dba
db "@"
; 0x170ba
UnknownText_0x170ba: ; 0x170ba
; Give a nickname to @ ?
text_jump UnknownText_0x1c0dd8
db "@"
; 0x170bf
Function170bf: ; 170bf Function170bf: ; 170bf
call Function17197 call Function17197
@ -30204,18 +30254,20 @@ Function170bf: ; 170bf
; 170e4 ; 170e4
Function170e4: ; 170e4 Function170e4: ; 170e4
GLOBAL EggMoves
push bc push bc
ld a, [EggSpecies] ld a, [EggSpecies]
dec a dec a
ld c, a ld c, a
ld b, $0 ld b, 0
ld hl, $7b11 ld hl, EggMovePointers
add hl, bc add hl, bc
add hl, bc add hl, bc
ld a, $8 ld a, BANK(EggMovePointers)
call GetFarHalfword call GetFarHalfword
.asm_170f6 .asm_170f6
ld a, $8 ld a, BANK(EggMoves)
call GetFarByte call GetFarByte
cp $ff cp $ff
jr z, .asm_17107 jr z, .asm_17107
@ -30228,7 +30280,7 @@ Function170e4: ; 170e4
.asm_17107 .asm_17107
call Function1720b call Function1720b
ld b, $4 ld b, NUM_MOVES
.asm_1710c .asm_1710c
ld a, [de] ld a, [de]
cp [hl] cp [hl]
@ -30242,25 +30294,25 @@ Function170e4: ; 170e4
ld a, [EggSpecies] ld a, [EggSpecies]
dec a dec a
ld c, a ld c, a
ld b, $0 ld b, 0
ld hl, $65b1 ld hl, EvosAttacksPointers
add hl, bc add hl, bc
add hl, bc add hl, bc
ld a, $10 ld a, BANK(EvosAttacksPointers)
call GetFarHalfword call GetFarHalfword
.asm_17127 .asm_17127
ld a, $10 ld a, BANK(EvosAttacks)
call GetFarByte call GetFarByte
inc hl inc hl
and a and a
jr nz, .asm_17127 jr nz, .asm_17127
.asm_17130 .asm_17130
ld a, $10 ld a, BANK(EvosAttacks)
call GetFarByte call GetFarByte
and a and a
jr z, .asm_17146 jr z, .asm_17146
inc hl inc hl
ld a, $10 ld a, BANK(EvosAttacks)
call GetFarByte call GetFarByte
ld b, a ld b, a
ld a, [de] ld a, [de]
@ -30270,9 +30322,9 @@ Function170e4: ; 170e4
jr .asm_17130 jr .asm_17130
.asm_17146 .asm_17146
ld hl, $567a ld hl, TMHMMoves
.asm_17149 .asm_17149
ld a, $4 ld a, BANK(TMHMMoves)
call GetFarByte call GetFarByte
inc hl inc hl
and a and a
@ -30305,7 +30357,7 @@ Function17169: ; 17169
ld a, [de] ld a, [de]
ld b, a ld b, a
ld hl, $df7d ld hl, $df7d
ld c, $4 ld c, NUM_MOVES
.asm_17172 .asm_17172
ld a, [hli] ld a, [hli]
and a and a
@ -30338,10 +30390,10 @@ Function17169: ; 17169
Function17197: ; 17197 Function17197: ; 17197
ld hl, $df47 ld hl, $df47
ld a, [BreedMon1Species] ld a, [BreedMon1Species]
cp $84 cp DITTO
jr z, .asm_171b1 jr z, .asm_171b1
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
cp $84 cp DITTO
jr z, .asm_171d7 jr z, .asm_171d7
ld a, [DittoInDaycare] ld a, [DittoInDaycare]
and a and a
@ -30398,10 +30450,10 @@ Function17197: ; 17197
Function1720b: ; 1720b Function1720b: ; 1720b
ld hl, $df0e ld hl, $df0e
ld a, [BreedMon1Species] ld a, [BreedMon1Species]
cp $84 cp DITTO
ret z ret z
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
cp $84 cp DITTO
jr z, .asm_17220 jr z, .asm_17220
ld a, [DittoInDaycare] ld a, [DittoInDaycare]
and a and a
@ -30452,9 +30504,9 @@ Function17254: ; 17254 (5:7254)
pop bc pop bc
pop hl pop hl
ld a, b ld a, b
ld [$FF00+$d7], a ld [$ffd7], a
ld a, c ld a, c
ld [$FF00+$ad], a ld [$ffad], a
ld bc, $707 ld bc, $707
ld a, $13 ld a, $13
call Predef call Predef
@ -30481,29 +30533,29 @@ Function1728f: ; 1728f (5:728f)
ld [$cf63], a ld [$cf63], a
ld a, [CurSpecies] ; $cf60 ld a, [CurSpecies] ; $cf60
push af push af
ld de, $0 ld de, MUSIC_NONE
call PlayMusic call PlayMusic
callba Function8000 callba Function8000
call DisableLCD call DisableLCD
ld hl, $7393 ld hl, EggHatchGFX
ld de, $8000 ld de, $8000
ld bc, $20 ld bc, $20
ld a, $5 ld a, BANK(EggHatchGFX)
call FarCopyBytes call FarCopyBytes
callba Function8cf53 callba Function8cf53
ld de, $9000 ld de, $9000
ld a, [$cf63] ld a, [$cf63]
call Function1723c call Function1723c
ld de, $9310 ld de, $9310
ld a, $fd ld a, EGG
call Function17224 call Function17224
ld de, $22 ld de, MUSIC_EVOLUTION
call PlayMusic call PlayMusic
call EnableLCD call EnableLCD
ld hl, $c4f7 ld hl, $c4f7
ld b, $98 ld b, $98
ld c, $31 ld c, $31
ld a, $fd ld a, EGG
call Function17254 call Function17254
ld c, $50 ld c, $50
call DelayFrames call DelayFrames
@ -30540,7 +30592,7 @@ Function1728f: ; 1728f (5:728f)
call Function1736d call Function1736d
jr .asm_172ee jr .asm_172ee
.asm_17327 .asm_17327
ld de, $a6 ld de, SFX_EGG_HATCH
call PlaySFX call PlaySFX
xor a xor a
ld [hSCX], a ; $ff00+$cf ld [hSCX], a ; $ff00+$cf
@ -30591,16 +30643,18 @@ Function1736d: ; 1736d (5:736d)
ld hl, $3 ld hl, $3
add hl, bc add hl, bc
ld [hl], $0 ld [hl], $0
ld de, $9e ld de, SFX_EGG_CRACK
jp PlaySFX jp PlaySFX
; 17393 (5:7393) ; 17393 (5:7393)
EggHatchGFX: ; 17393
INCBIN "baserom.gbc",$17393,$173b3 - $17393 INCBIN "baserom.gbc",$17393,$173b3 - $17393
; 173b3
; known jump sources: 17336 (5:7336) ; known jump sources: 17336 (5:7336)
Function173b3: ; 173b3 (5:73b3) Function173b3: ; 173b3 (5:73b3)
callba Function8cf53 callba Function8cf53
ld hl, $73ef ld hl, Unknown_173ef
.asm_173bc .asm_173bc
ld a, [hli] ld a, [hli]
cp $ff cp $ff
@ -30631,13 +30685,26 @@ Function173b3: ; 173b3 (5:73b3)
pop hl pop hl
jr .asm_173bc jr .asm_173bc
.asm_173e5 .asm_173e5
ld de, $a6 ld de, SFX_EGG_HATCH
call PlaySFX call PlaySFX
call Function1727f call Function1727f
ret ret
; 173ef (5:73ef) ; 173ef (5:73ef)
INCBIN "baserom.gbc",$173ef,$17418 - $173ef Unknown_173ef: ; 173ef
; Probably OAM.
db $54, $48, $00, $3c
db $5c, $48, $01, $04
db $54, $50, $00, $30
db $5c, $50, $01, $10
db $54, $58, $02, $24
db $5c, $58, $03, $1c
db $50, $4c, $00, $36
db $60, $4c, $01, $0a
db $50, $54, $02, $2a
db $60, $54, $03, $16
db $ff
; 17418
; known jump sources: 17346 (5:7346) ; known jump sources: 17346 (5:7346)
Function17418: ; 17418 (5:7418) Function17418: ; 17418 (5:7418)
@ -30649,7 +30716,7 @@ Function17418: ; 17418 (5:7418)
ret ret
Function17421: ; 17421 Function17421: ; 17421
ld hl, $7467 ld hl, UnknownText_0x17467
call PrintText call PrintText
ld a, [BreedMon1Species] ld a, [BreedMon1Species]
call Function37ce call Function37ce
@ -30662,7 +30729,7 @@ Function17421: ; 17421
jp PrintText jp PrintText
Function17440: ; 17440 Function17440: ; 17440
ld hl, $7462 ld hl, UnknownText_0x17462
call PrintText call PrintText
ld a, [BreedMon2Species] ld a, [BreedMon2Species]
call Function37ce call Function37ce
@ -30678,7 +30745,17 @@ Function1745f: ; 1745f
jp Functiona80 jp Functiona80
; 17462 ; 17462
INCBIN "baserom.gbc",$17462,$1746c - $17462 UnknownText_0x17462: ; 0x17462
; It's @ that was left with the DAY-CARE LADY.
text_jump UnknownText_0x1c0df3
db "@"
; 0x17467
UnknownText_0x17467: ; 0x17467
; It's @ that was left with the DAY-CARE MAN.
text_jump UnknownText_0x1c0e24
db "@"
; 0x1746c
Function1746c: ; 1746c Function1746c: ; 1746c
push bc push bc
@ -30688,25 +30765,62 @@ Function1746c: ; 1746c
call Function16e1d call Function16e1d
pop bc pop bc
ld a, [$d265] ld a, [$d265]
ld hl, $749c ld hl, UnknownText_0x1749c
cp $ff cp $ff
jr z, .asm_1749b jr z, .asm_1749b
ld hl, $74a1 ld hl, UnknownText_0x174a1
and a and a
jr z, .asm_1749b jr z, .asm_1749b
ld hl, $74a6 ld hl, UnknownText_0x174a6
cp $e6 cp 230
jr nc, .asm_1749b jr nc, .asm_1749b
cp $46 cp 70
ld hl, $74ab ld hl, UnknownText_0x174ab
jr nc, .asm_1749b jr nc, .asm_1749b
ld hl, $74b0 ld hl, UnknownText_0x174b0
.asm_1749b .asm_1749b
ret ret
; 1749c ; 1749c
INCBIN "baserom.gbc",$1749c,$174ba - $1749c UnknownText_0x1749c: ; 0x1749c
; It's brimming with energy.
text_jump UnknownText_0x1c0e54
db "@"
; 0x174a1
UnknownText_0x174a1: ; 0x174a1
; It has no interest in @ .
text_jump UnknownText_0x1c0e6f
db "@"
; 0x174a6
UnknownText_0x174a6: ; 0x174a6
; It appears to care for @ .
text_jump UnknownText_0x1c0e8d
db "@"
; 0x174ab
UnknownText_0x174ab: ; 0x174ab
; It's friendly with @ .
text_jump UnknownText_0x1c0eac
db "@"
; 0x174b0
UnknownText_0x174b0: ; 0x174b0
; It shows interest in @ .
text_jump UnknownText_0x1c0ec6
db "@"
; 0x174b5
Function_174b5: ; 174b5
ld hl, String_174b9
ret
; 174b9
String_174b9: ; 174b9
db "@"
; 174ba
SECTION "Tileset Data 1", ROMX, BANK[TILESETS_1] SECTION "Tileset Data 1", ROMX, BANK[TILESETS_1]