mirror of https://github.com/pret/pokecrystal.git
39 lines
688 B
NASM
39 lines
688 B
NASM
BugContest_SetCaughtContestMon: ; e6ce
|
|
ld a, [wContestMon]
|
|
and a
|
|
jr z, .firstcatch
|
|
ld [wd265], a
|
|
farcall DisplayAlreadyCaughtText
|
|
farcall DisplayCaughtContestMonStats
|
|
lb bc, 14, 7
|
|
call PlaceYesNoBox
|
|
ret c
|
|
|
|
.firstcatch
|
|
call .generatestats
|
|
ld a, [TempEnemyMonSpecies]
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld hl, .caughttext
|
|
call PrintText
|
|
ret
|
|
|
|
.generatestats ; e6fd
|
|
ld a, [TempEnemyMonSpecies]
|
|
ld [CurSpecies], a
|
|
ld [CurPartySpecies], a
|
|
call GetBaseData
|
|
xor a
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
ld hl, wContestMon
|
|
call ByteFill
|
|
xor a
|
|
ld [MonType], a
|
|
ld hl, wContestMon
|
|
jp GeneratePartyMonStats
|
|
|
|
.caughttext ; 0xe71d
|
|
; Caught @ !
|
|
text_jump UnknownText_0x1c10c0
|
|
db "@"
|