mirror of https://github.com/pret/pokecrystal.git
123 lines
1.6 KiB
NASM
123 lines
1.6 KiB
NASM
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"
|