ref: e36a5059065abf67b878dcec41bb019bab32e613
dir: /engine/pokemon/types.asm/
PrintMonTypes: ; 5090d ; Print one or both types of [wCurSpecies] ; on the stats screen at hl. push hl call GetBaseData pop hl push hl ld a, [wBaseType1] call .Print ; Single-typed monsters really ; have two of the same type. ld a, [wBaseType1] ld b, a ld a, [wBaseType2] 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, wStringBuffer1 ld a, BANK(Moves) call FarCopyBytes ld a, [wStringBuffer1 + 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 wStringBuffer1. 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, wStringBuffer1 ld bc, MOVE_NAME_LENGTH jp CopyBytes ; 5097b INCLUDE "data/types/names.asm"