pokecrystal/engine/events/bug_contest/caught_mon.asm

38 lines
703 B
NASM
Raw Normal View History

2018-06-24 14:09:41 +00:00
BugContest_SetCaughtContestMon:
ld a, [wContestMon]
and a
jr z, .firstcatch
ld [wNamedObjectIndex], a
2017-12-24 17:47:30 +00:00
farcall DisplayAlreadyCaughtText
farcall DisplayCaughtContestMonStats
lb bc, 14, 7
call PlaceYesNoBox
ret c
.firstcatch
call .generatestats
2018-01-23 22:39:09 +00:00
ld a, [wTempEnemyMonSpecies]
ld [wNamedObjectIndex], a
call GetPokemonName
ld hl, .ContestCaughtMonText
call PrintText
ret
2018-06-24 14:09:41 +00:00
.generatestats
2018-01-23 22:39:09 +00:00
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
2018-01-23 22:39:09 +00:00
ld [wMonType], a
ld hl, wContestMon
jp GeneratePartyMonStats
.ContestCaughtMonText:
text_far _ContestCaughtMonText
text_end