Merge branch '2Tie-master'

1 files changed, 50 insertions, 0 deletions

diff --git a/engine/items/tmhm.asm b/engine/items/tmhm.asm
new file mode 100644
index 0000000..d2c4872
--- /dev/null
+++ b/engine/items/tmhm.asm
@@ -0,0 +1,50 @@
+INCLUDE "constants.asm"
+
+SECTION "engine/items/tmhm.asm", ROMX
+
+CanLearnTMHMMove: ; 04:528f
+; Gets the index of TM or HM with move ID wce32, 
+; then checks the corresponding flag in wMonDexIndex's learnset.
+; Sets register c to 1 if TM/HM is in learnset OR if debug is enabled.
+	ld a, [wDebugFlags]
+	ld c, 01
+	bit 1, a
+	ret nz
+	
+	ld a, [wMonDexIndex]
+	ld [wCurSpecies], a
+	call GetMonHeader
+	ld hl, wMonHLearnset
+	push hl
+	
+	ld a, [wce32]
+	ld b, a
+	ld c, 0
+	ld hl, TMHMMoves
+.loop
+	ld a, [hli]
+	cp b
+	jr z, .jump
+	inc c
+	jr .loop
+	
+.jump
+	pop hl
+	ld b, 2 ;CHECK_FLAG
+	push de
+	ld d, 0
+	predef SmallFarFlagAction
+	pop de
+	ret
+
+GetTMHMMove: ; 04:52C1
+; converts TM/HM list index to TM/HM move ID
+	ld a, [wNamedObjectIndexBuffer]
+	dec a
+	ld hl, TMHMMoves
+	ld b, 0
+	ld c, a
+	add hl, bc
+	ld a, [hl]
+	ld [wNamedObjectIndexBuffer], a
+	ret
\ No newline at end of file