pokered/engine/items/tms.asm

; tests if mon [wcf91] can learn move [wMoveNum]
CanLearnTM: ; 1373e (4:773e)
	ld a, [wcf91]
	ld [wd0b5], a
	call GetMonHeader
	ld hl, W_MONHLEARNSET
	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, $2  ; read corresponding bit from TM compatibility array
	predef_jump FlagActionPredef

; converts TM/HM number in wd11e into move number
; HMs start at 51
TMToMove: ; 13763 (4:7763)
	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/tms.asm"
move-related things 2015-02-08 08:17:03 +00:00			`; tests if mon [wcf91] can learn move [wMoveNum]`
Rename predef functions so they aren't excessive in length. This is mostly because of an rgbasm bug that prevents macro arguments from exceeding 16 characters, but the names were bad anyway. 2014-06-16 20:03:05 +00:00			`CanLearnTM: ; 1373e (4:773e)`
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`
			`ld hl, W_MONHLEARNSET`
			`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`
			`ld b, $2 ; read corresponding bit from TM compatibility array`
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`
			`TMToMove: ; 13763 (4:7763)`
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`

			`INCLUDE "data/tms.asm"`