pokecrystal/text/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, 5
	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
rept 2
	add hl, de
endr
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld de, StringBuffer1
	ld bc, 13
	jp CopyBytes
; 5097b


TypeNames: ; 5097b
	dw Normal
	dw Fighting
	dw Flying
	dw Poison
	dw Ground
	dw Rock
	dw Bird
	dw Bug
	dw Ghost
	dw Steel
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw Normal
	dw CurseType
	dw Fire
	dw Water
	dw Grass
	dw Electric
	dw Psychic
	dw Ice
	dw Dragon
	dw Dark

Normal:    db "NORMAL@"
Fighting:  db "FIGHTING@"
Flying:    db "FLYING@"
Poison:    db "POISON@"
CurseType: db "???@"
Fire:      db "FIRE@"
Water:     db "WATER@"
Grass:     db "GRASS@"
Electric:  db "ELECTRIC@"
Psychic:   db "PSYCHIC@"
Ice:       db "ICE@"
Ground:    db "GROUND@"
Rock:      db "ROCK@"
Bird:      db "BIRD@"
Bug:       db "BUG@"
Ghost:     db "GHOST@"
Steel:     db "STEEL@"
Dragon:    db "DRAGON@"
Dark:      db "DARK@"

; 50a28
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`PrintMonTypes: ; 5090d`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00: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-08 03:24:22 +00:00
			`push hl`
			`call GetBaseData`
			`pop hl`

			`push hl`
			`ld a, [BaseType1]`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`call .Print`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`; Single-typed monsters really`
			`; have two of the same type.`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00: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 19:50:33 +00:00			`jr z, .hide_type_2`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`ld bc, SCREEN_WIDTH`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`add hl, bc`

Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`.Print`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`ld b, a`
			`jr PrintType`

Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00: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-08 03:24:22 +00:00			`ld a, " "`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`ld bc, SCREEN_WIDTH - 3`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`add hl, bc`
			`ld [hl], a`
			`inc bc`
			`add hl, bc`
			`ld bc, 5`
			`jp ByteFill`
			`; 5093a`

Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`PrintMoveType: ; 5093a`
			`; 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-11 06:23:55 +00:00			`ld bc, MOVE_LENGTH`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00: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-11 06:23:55 +00:00			`ld a, [StringBuffer1 + MOVE_TYPE]`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`pop hl`

			`ld b, a`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00
			`PrintType: ; 50953`
			`; Print type b at hl.`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00: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`


			`GetTypeName: ; 50964`
Blind wram part 5. starting to go smoothly 2015-02-10 23:32:30 +00:00			`; Copy the name of type [wd265] to StringBuffer1.`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00
Blind wram part 5. starting to go smoothly 2015-02-10 23:32:30 +00:00			`ld a, [wd265]`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`ld hl, TypeNames`
			`ld e, a`
			`ld d, 0`
Reverted ld_hl_pointer macro 2015-07-21 02:18:18 +00:00			`rept 2`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`add hl, de`
Reverted ld_hl_pointer macro 2015-07-21 02:18:18 +00:00			`endr`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld de, StringBuffer1`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`ld bc, 13`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`jp CopyBytes`
			`; 5097b`


			`TypeNames: ; 5097b`
			`dw Normal`
			`dw Fighting`
			`dw Flying`
			`dw Poison`
			`dw Ground`
			`dw Rock`
			`dw Bird`
			`dw Bug`
			`dw Ghost`
			`dw Steel`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
			`dw Normal`
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`dw CurseType`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00			`dw Fire`
			`dw Water`
			`dw Grass`
			`dw Electric`
			`dw Psychic`
			`dw Ice`
			`dw Dragon`
			`dw Dark`

Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`Normal: db "NORMAL@"`
			`Fighting: db "FIGHTING@"`
			`Flying: db "FLYING@"`
			`Poison: db "POISON@"`
			`CurseType: db "???@"`
			`Fire: db "FIRE@"`
			`Water: db "WATER@"`
			`Grass: db "GRASS@"`
			`Electric: db "ELECTRIC@"`
			`Psychic: db "PSYCHIC@"`
			`Ice: db "ICE@"`
			`Ground: db "GROUND@"`
			`Rock: db "ROCK@"`
			`Bird: db "BIRD@"`
			`Bug: db "BUG@"`
			`Ghost: db "GHOST@"`
			`Steel: db "STEEL@"`
			`Dragon: db "DRAGON@"`
			`Dark: db "DARK@"`
split type strings and related asm out into text/types.asm 2013-09-08 03:24:22 +00:00
Recomment type names. This is mostly just whitespace reduction. 2014-07-09 19:50:33 +00:00			`; 50a28`