blob: 76e34c09513b3ecf1ada15855972958e839c092e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
dex_number: MACRO
db ((\1 / 100) % 10) + "0"
db ((\1 / 10) % 10) + "0"
db ((\1 / 1) % 10) + "0"
db "@"
ENDM
; \1 = feet
; \2 = inches
dex_height: MACRO
feet_tens_digit = (\1 / 10) % 10
IF feet_tens_digit == 0
db " "
ELSE
db feet_tens_digit + "0"
ENDC
feet_ones_digit = \1 % 10
db feet_ones_digit + "0"
inches_tens_digit = (\2 / 10) % 10
IF inches_tens_digit > 0
db $70
ELSE
db $72
ENDC
inches_ones_digit = \2 % 10
db inches_ones_digit + "0"
db "@"
ENDM
dex_weight: MACRO
IF \1 >= 1000
db ((\1 / 1000) % 10) + "0"
ELSE
db " "
ENDC
IF \1 >= 100
db ((\1 / 100) % 10) + "0"
ELSE
db " "
ENDC
IF \1 >= 10
db ((\1 / 10) % 10) + "0"
ELSE
db " "
ENDC
db (\1 % 10) + "0"
db $00, $83
ENDM
dex_weight_decimal: MACRO
x = \1 * 10
IF x >= 100
db ((x / 100) % 10) + "0"
ELSE
db " "
ENDC
IF x >= 10
db ((x / 100) % 10) + "0"
ELSE
db " "
ENDC
db (x % 10) + "0"
db (\2 % 10) + "0"
db $00, $FC
ENDM
; \1 = species string
dex_species: MACRO
; Add right padding to format to 11 characters, define 2 bytes
; for each character (using dex_species_char below)
I = 0
REPT STRLEN(\1)
I = I + 1
dex_species_char STRSUB(\1\, I\, 1)
ENDR
REPT 11 - STRLEN(\1)
dex_species_char " "
ENDR
db "@"
ENDM
dex_species_char: MACRO
IF \1 == " "
db $81, $40
ELSE
db $82, \1 + $1F
ENDC
ENDM
|
