mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
38 lines
707 B
NASM
38 lines
707 B
NASM
BugContest_SetCaughtContestMon:
|
|
ld a, [wContestMon]
|
|
and a
|
|
jr z, .firstcatch
|
|
ld [wNamedObjectIndex], a
|
|
farcall DisplayAlreadyCaughtText
|
|
farcall DisplayCaughtContestMonStats
|
|
lb bc, 14, 7
|
|
call PlaceYesNoBox
|
|
ret c
|
|
|
|
.firstcatch
|
|
call .generatestats
|
|
ld a, [wTempEnemyMonSpecies]
|
|
ld [wNamedObjectIndex], a
|
|
call GetPokemonName
|
|
ld hl, .ContestCaughtMonText
|
|
call PrintText1bpp
|
|
ret
|
|
|
|
.generatestats
|
|
ld a, [wTempEnemyMonSpecies]
|
|
ld [wCurSpecies], a
|
|
ld [wCurPartySpecies], a
|
|
call GetBaseData
|
|
xor a
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
ld hl, wContestMon
|
|
call ByteFill
|
|
xor a
|
|
ld [wMonType], a
|
|
ld hl, wContestMon
|
|
jp GeneratePartyMonStats
|
|
|
|
.ContestCaughtMonText:
|
|
text_far _ContestCaughtMonText
|
|
text_end
|