pokered/engine/items/tms.asm

; tests if mon [wcf91] can learn move [wMoveNum]
CanLearnTM:
	ld a, [wcf91]
	ld [wd0b5], a
	call GetMonHeader
	ld hl, wMonHLearnset
	push hl
	ld a, [wMoveNum]
	ld b, a
	ld c, $0
	ld hl, TechnicalMachines
.findTMloop
	ld a, [hli]
	cp b
	jr z, .TMfoundLoop
	inc c
	jr .findTMloop
.TMfoundLoop
	pop hl
	ld b, FLAG_TEST
	predef_jump FlagActionPredef

; converts TM/HM number in wd11e into move number
; HMs start at 51
TMToMove:
	ld a, [wd11e]
	dec a
	ld hl, TechnicalMachines
	ld b, $0
	ld c, a
	add hl, bc
	ld a, [hl]
	ld [wd11e], a
	ret

INCLUDE "data/moves/tmhm_moves.asm"
move-related things 2015-02-08 08:17:03 +00:00			`; tests if mon [wcf91] can learn move [wMoveNum]`
remove address comments 2016-06-12 00:24:04 +00:00			`CanLearnTM:`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wcf91]`
			`ld [wd0b5], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GetMonHeader`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wMonHLearnset`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push hl`
move-related things 2015-02-08 08:17:03 +00:00			`ld a, [wMoveNum]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
			`ld c, $0`
			`ld hl, TechnicalMachines`
			`.findTMloop`
			`ld a, [hli]`
			`cp b`
			`jr z, .TMfoundLoop`
			`inc c`
			`jr .findTMloop`
			`.TMfoundLoop`
			`pop hl`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_TEST`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef_jump FlagActionPredef`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`; converts TM/HM number in wd11e into move number`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`; HMs start at 51`
remove address comments 2016-06-12 00:24:04 +00:00			`TMToMove:`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd11e]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec a`
			`ld hl, TechnicalMachines`
			`ld b, $0`
			`ld c, a`
			`add hl, bc`
			`ld a, [hl]`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd11e], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

Add subdirectories to data/ similar to pokecrystal Top level text/ is now solely for the former text/maps/ files, and other files are in their respective subdirectories in data/. 2020-07-03 15:51:00 +00:00			`INCLUDE "data/moves/tmhm_moves.asm"`