2017-12-16 16:00:50 -08:00
|
|
|
GetTrademonFrontpic: ; 4d7fd
|
|
|
|
|
ld a, [wOTTrademonSpecies]
|
|
|
|
|
ld hl, wOTTrademonDVs
|
|
|
|
|
ld de, VTiles2
|
|
|
|
|
push de
|
|
|
|
|
push af
|
|
|
|
|
predef GetUnownLetter
|
|
|
|
|
pop af
|
|
|
|
|
ld [CurPartySpecies], a
|
|
|
|
|
ld [CurSpecies], a
|
|
|
|
|
call GetBaseData
|
|
|
|
|
pop de
|
2017-12-24 12:03:20 -08:00
|
|
|
predef GetAnimatedFrontpicPredef
|
2017-12-16 16:00:50 -08:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
AnimateTrademonFrontpic: ; 4d81e
|
|
|
|
|
ld a, [wOTTrademonSpecies]
|
|
|
|
|
call IsAPokemon
|
|
|
|
|
ret c
|
2017-12-24 09:47:30 -08:00
|
|
|
farcall ShowOTTrademonStats
|
2017-12-16 16:00:50 -08:00
|
|
|
ld a, [wOTTrademonSpecies]
|
|
|
|
|
ld [CurPartySpecies], a
|
|
|
|
|
ld a, [wOTTrademonDVs]
|
|
|
|
|
ld [TempMonDVs], a
|
|
|
|
|
ld a, [wOTTrademonDVs + 1]
|
|
|
|
|
ld [TempMonDVs + 1], a
|
|
|
|
|
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
|
|
|
|
|
call GetSGBLayout
|
|
|
|
|
ld a, %11100100 ; 3,2,1,0
|
|
|
|
|
call DmgToCgbBGPals
|
2017-12-24 09:47:30 -08:00
|
|
|
farcall TradeAnim_ShowGetmonFrontpic
|
2017-12-16 16:00:50 -08:00
|
|
|
ld a, [wOTTrademonSpecies]
|
|
|
|
|
ld [CurPartySpecies], a
|
|
|
|
|
hlcoord 7, 2
|
|
|
|
|
ld d, $0
|
|
|
|
|
ld e, ANIM_MON_TRADE
|
|
|
|
|
predef AnimateFrontpic
|
|
|
|
|
ret
|
