pokecrystal-board/engine/gfx/trademon_frontpic.asm

39 lines
776 B
NASM
Raw Normal View History

2018-06-24 16:09:41 +02:00
GetTrademonFrontpic:
ld a, [wOTTrademonSpecies]
ld hl, wOTTrademonDVs
2017-12-28 13:32:33 +01:00
ld de, vTiles2
push de
push af
predef GetUnownLetter
pop af
2018-01-23 17:39:09 -05:00
ld [wCurPartySpecies], a
ld [wCurSpecies], a
call GetBaseData
pop de
predef GetAnimatedFrontpic
ret
2018-06-24 16:09:41 +02:00
AnimateTrademonFrontpic:
ld a, [wOTTrademonSpecies]
call IsAPokemon
ret c
2017-12-24 12:47:30 -05:00
farcall ShowOTTrademonStats
ld a, [wOTTrademonSpecies]
2018-01-23 17:39:09 -05:00
ld [wCurPartySpecies], a
ld a, [wOTTrademonDVs]
2018-01-23 17:39:09 -05:00
ld [wTempMonDVs], a
ld a, [wOTTrademonDVs + 1]
2018-01-23 17:39:09 -05:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
2017-12-24 12:47:30 -05:00
farcall TradeAnim_ShowGetmonFrontpic
ld a, [wOTTrademonSpecies]
2018-01-23 17:39:09 -05:00
ld [wCurPartySpecies], a
hlcoord 7, 2
ld d, $0
ld e, ANIM_MON_TRADE
predef AnimateFrontpic
ret