estoy usando el bgb
edit, esto es la rutina
ld hl, DA2A
ld bc, 002F
ld d, 6
ldi a, (hl)
cp 13
jr z, 0A
cp 14
jr z, 06
cp AF
jr z, 02
cp D8
push hl
push de
call z, Pickup
pop de
pop hl
add hl, bc
dec d
jr nz, 7F03
call 76AC
ret
Pickup:
ld a, (hl)
and a
ret z
call 30A2
and 7
ret nz
ld d, h
ld e, l
ld hl, TablaProbsItems
call 30A2
cp (hl)
inc hl
jr c, 05
jr z, 03
inc hl
jr F7
ld a, (hl)
ld (de), a
ret
TablaProbsItems:
0A 05
(...)