pokecrystal-board/engine/types.asm

PrintMonTypes: ; 5090d
; Print one or both types of [CurSpecies]
; on the stats screen at hl.

	push hl
	call GetBaseData
	pop hl

	push hl
	ld a, [BaseType1]
	call .Print

	; Single-typed monsters really
	; have two of the same type.
	ld a, [BaseType1]
	ld b, a
	ld a, [BaseType2]
	cp b
	pop hl
	jr z, .hide_type_2

	ld bc, SCREEN_WIDTH
	add hl, bc

.Print:
	ld b, a
	jr PrintType

.hide_type_2
	; Erase any type name that was here before.
	; Seems to be pointless in localized versions.
	ld a, " "
	ld bc, SCREEN_WIDTH - 3
	add hl, bc
	ld [hl], a
	inc bc
	add hl, bc
	ld bc, NAME_LENGTH_JAPANESE - 1
	jp ByteFill
; 5093a


PrintMoveType: ; 5093a
; Print the type of move b at hl.

	push hl
	ld a, b
	dec a
	ld bc, MOVE_LENGTH
	ld hl, Moves
	call AddNTimes
	ld de, StringBuffer1
	ld a, BANK(Moves)
	call FarCopyBytes
	ld a, [StringBuffer1 + MOVE_TYPE]
	pop hl

	ld b, a


PrintType: ; 50953
; Print type b at hl.

	ld a, b

	push hl
	add a
	ld hl, TypeNames
	ld e, a
	ld d, 0
	add hl, de
	ld a, [hli]
	ld e, a
	ld d, [hl]
	pop hl

	jp PlaceString
; 50964


GetTypeName: ; 50964
; Copy the name of type [wd265] to StringBuffer1.

	ld a, [wd265]
	ld hl, TypeNames
	ld e, a
	ld d, 0
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld de, StringBuffer1
	ld bc, MOVE_NAME_LENGTH
	jp CopyBytes
; 5097b


INCLUDE "data/types/names.asm"


Unreferenced_GetGen1TrainerClassName: ; 50a28
	ld hl, Gen1TrainerClassNames
	ld a, [TrainerClass]
	dec a
	ld c, a
	ld b, 0
	add hl, bc
	add hl, bc
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld de, StringBuffer1
.copy
	ld a, [hli]
	ld [de], a
	inc de
	cp "@"
	jr nz, .copy
	ret

INCLUDE "data/unused/gen_1_trainer_names.asm"
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`PrintMonTypes: ; 5090d`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`; Print one or both types of [CurSpecies]`
			`; on the stats screen at hl.`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00
			`push hl`
			`call GetBaseData`
			`pop hl`

			`push hl`
			`ld a, [BaseType1]`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`call .Print`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`; Single-typed monsters really`
			`; have two of the same type.`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld a, [BaseType1]`
			`ld b, a`
			`ld a, [BaseType2]`
			`cp b`
			`pop hl`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`jr z, .hide_type_2`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`ld bc, SCREEN_WIDTH`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`add hl, bc`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 11:42:14 -07:00			`.Print:`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld b, a`
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`jr PrintType`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`.hide_type_2`
			`; Erase any type name that was here before.`
			`; Seems to be pointless in localized versions.`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld a, " "`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00			`ld bc, SCREEN_WIDTH - 3`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`add hl, bc`
			`ld [hl], a`
			`inc bc`
			`add hl, bc`
Move code out of data/ 2018-01-16 15:07:06 -08:00			`ld bc, NAME_LENGTH_JAPANESE - 1`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`jp ByteFill`
			`; 5093a`

Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`PrintMoveType: ; 5093a`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`; Print the type of move b at hl.`

			`push hl`
			`ld a, b`
			`dec a`
Use constants for move struct positioning. This eliminates the need for arbitrary move labels like Move2 and Move1 that don't have anything to do with their respective moves. 2014-06-10 23:23:55 -07:00			`ld bc, MOVE_LENGTH`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld hl, Moves`
			`call AddNTimes`
			`ld de, StringBuffer1`
			`ld a, BANK(Moves)`
			`call FarCopyBytes`
Use constants for move struct positioning. This eliminates the need for arbitrary move labels like Move2 and Move1 that don't have anything to do with their respective moves. 2014-06-10 23:23:55 -07:00			`ld a, [StringBuffer1 + MOVE_TYPE]`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`pop hl`

			`ld b, a`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`PrintType: ; 50953`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`; Print type b at hl.`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld a, b`

			`push hl`
			`add a`
			`ld hl, TypeNames`
			`ld e, a`
			`ld d, 0`
			`add hl, de`
			`ld a, [hli]`
			`ld e, a`
			`ld d, [hl]`
			`pop hl`

			`jp PlaceString`
			`; 50964`


Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 11:30:10 -08:00			`GetTypeName: ; 50964`
Blind wram part 5. starting to go smoothly 2015-02-10 15:32:30 -08:00			`; Copy the name of type [wd265] to StringBuffer1.`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 12:50:33 -07:00
Blind wram part 5. starting to go smoothly 2015-02-10 15:32:30 -08:00			`ld a, [wd265]`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld hl, TypeNames`
			`ld e, a`
			`ld d, 0`
			`add hl, de`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 08:46:23 -07:00			`add hl, de`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld de, StringBuffer1`
Move code out of data/ 2018-01-16 15:07:06 -08:00			`ld bc, MOVE_NAME_LENGTH`
split type strings and related asm out into text/types.asm 2013-09-07 20:24:22 -07:00			`jp CopyBytes`
			`; 5097b`


More constants and data tables 2018-01-10 22:45:27 -08:00			`INCLUDE "data/types/names.asm"`
Move code out of data/ 2018-01-16 15:07:06 -08:00

			`Unreferenced_GetGen1TrainerClassName: ; 50a28`
			`ld hl, Gen1TrainerClassNames`
			`ld a, [TrainerClass]`
			`dec a`
			`ld c, a`
			`ld b, 0`
			`add hl, bc`
			`add hl, bc`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld de, StringBuffer1`
			`.copy`
			`ld a, [hli]`
			`ld [de], a`
			`inc de`
			`cp "@"`
			`jr nz, .copy`
			`ret`

			`INCLUDE "data/unused/gen_1_trainer_names.asm"`