kep-hack/engine/predefs17_2.asm
2014-05-22 18:13:20 -04:00

16 lines
356 B
NASM
Executable file

; updates the types of a party mon (pointed to in hl) to the ones of the mon specified in $d11e
SetPartyMonTypes: ; 5db5e (17:5b5e)
call Load16BitRegisters
ld bc, W_PARTYMON1_TYPE1 - W_PARTYMON1DATA ; $5
add hl, bc
ld a, [$d11e]
ld [$d0b5], a
push hl
call GetMonHeader
pop hl
ld a, [W_MONHTYPE1]
ld [hli], a
ld a, [W_MONHTYPE2]
ld [hl], a
ret