jep-hack/engine/items/tmhm2.asm
Zeta_Null 2f8a41f833 First Commit
Upload literally everything from the pokecrystal16 expand-move-ID branch
2023-09-10 12:35:35 -04:00

58 lines
692 B
NASM

CanLearnTMHMMove:
ld a, [wCurPartySpecies]
ld [wCurSpecies], a
call GetBaseData
ld hl, wBaseTMHM
push hl
ld a, [wPutativeTMHMMove]
call GetMoveIndexFromID
ld b, h
ld c, l
ld hl, TMHMMoves
.loop
ld a, [hli]
or [hl]
jr z, .end
dec hl
ld a, [hli]
cp c
ld a, [hli]
jr nz, .loop
cp b
jr nz, .loop
ld a, l
sub LOW(TMHMMoves + 2)
rrca
ld c, a
pop hl
ld b, CHECK_FLAG
push de
ld d, 0
predef SmallFarFlagAction
pop de
ret
.end
pop hl
ld c, 0
ret
GetTMHMMove:
ld a, [wTempTMHM]
dec a
add a, a
ld hl, TMHMMoves
ld b, 0
ld c, a
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
call GetMoveIDFromIndex
ld [wTempTMHM], a
ret
INCLUDE "data/moves/tmhm_moves.asm"