mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
25 lines
594 B
NASM
25 lines
594 B
NASM
GetMachinePrice::
|
|
; Input: [wcf91] = Item Id of a TM
|
|
; Output: Stores the TM price at hItemPrice
|
|
ld a, [wcf91] ; a contains TM item id
|
|
sub TM01 ; underflows below 0 for HM items (before TM items)
|
|
ret c ; HMs are priceless
|
|
ld d, a
|
|
ld hl, TechnicalMachinePrices
|
|
srl a
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
ld a, [hl] ; a contains byte whose high or low nybble is the TM price (in thousands)
|
|
srl d
|
|
jr nc, .highNybbleIsPrice ; is TM id odd?
|
|
swap a
|
|
.highNybbleIsPrice
|
|
and $f0
|
|
ldh [hItemPrice + 1], a
|
|
xor a
|
|
ldh [hItemPrice], a
|
|
ldh [hItemPrice + 2], a
|
|
ret
|
|
|
|
INCLUDE "data/items/tm_prices.asm"
|