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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
Func_58f43: ; 58f43 (16:4f43)
ld a, [$cf98]
ld [$d0b5], a
call GetMonHeader
ld d, $1
.asm_58f4e
inc d
call CalcExperience
push hl
ld hl, $cfa8
ld a, [$ff98]
ld c, a
ld a, [hld]
sub c
ld a, [$ff97]
ld c, a
ld a, [hld]
sbc c
ld a, [H_NUMTOPRINT] ; $ff96 (aliases: H_MULTIPLICAND)
ld c, a
ld a, [hl]
sbc c
pop hl
jr nc, .asm_58f4e
dec d
ret
; calculates the amount of experience needed for level d
CalcExperience: ; 58f6a (16:4f6a)
ld a, [W_MONHGROWTHRATE]
add a
add a
ld c, a
ld b, $0
ld hl, GrowthRateTable
add hl, bc
call CalcDSquared
ld a, d
ld [H_MULTIPLIER], a ; $ff99
call Multiply
ld a, [hl]
and $f0
swap a
ld [H_MULTIPLIER], a ; $ff99
call Multiply
ld a, [hli]
and $f
ld [H_DIVISOR], a ; $ff99
ld b, $4
call Divide
ld a, [H_MULTIPLICAND] ; $ff96 (aliases: H_NUMTOPRINT)
push af
ld a, [H_MULTIPLICAND+1]
push af
ld a, [H_MULTIPLICAND+2]
push af
call CalcDSquared
ld a, [hl]
and $7f
ld [H_MULTIPLIER], a ; $ff99
call Multiply
ld a, [H_MULTIPLICAND] ; $ff96 (aliases: H_NUMTOPRINT)
push af
ld a, [H_MULTIPLICAND+1]
push af
ld a, [H_MULTIPLICAND+2]
push af
ld a, [hli]
push af
xor a
ld [H_MULTIPLICAND], a ; $ff96
ld [H_MULTIPLICAND+1], a
ld a, d
ld [H_MULTIPLICAND+2], a
ld a, [hli]
ld [H_MULTIPLIER], a
call Multiply
ld b, [hl]
ld a, [H_MULTIPLICAND+2]
sub b
ld [H_MULTIPLICAND+2], a
ld b, $0
ld a, [H_MULTIPLICAND+1]
sbc b
ld [H_MULTIPLICAND+1], a
ld a, [H_MULTIPLICAND] ; $ff96
sbc b
ld [H_MULTIPLICAND], a ; $ff96
pop af
and $80
jr nz, .subtractSquaredTerm ; check sign
pop bc
ld a, [H_MULTIPLICAND+2]
add b
ld [H_MULTIPLICAND+2], a
pop bc
ld a, [H_MULTIPLICAND+1]
adc b
ld [H_MULTIPLICAND+1], a
pop bc
ld a, [H_MULTIPLICAND]
adc b
ld [H_MULTIPLICAND], a
jr .addCubedTerm
.subtractSquaredTerm
pop bc
ld a, [H_MULTIPLICAND+2]
sub b
ld [H_MULTIPLICAND+2], a
pop bc
ld a, [H_MULTIPLICAND+1]
sbc b
ld [H_MULTIPLICAND+1], a
pop bc
ld a, [H_MULTIPLICAND]
sbc b
ld [H_MULTIPLICAND], a
.addCubedTerm
pop bc
ld a, [H_MULTIPLICAND+2]
add b
ld [H_MULTIPLICAND+2], a
pop bc
ld a, [H_MULTIPLICAND+1]
adc b
ld [H_MULTIPLICAND+1], a
pop bc
ld a, [H_MULTIPLICAND]
adc b
ld [H_MULTIPLICAND], a
ret
; calculates d*d
CalcDSquared: ; 59010 (16:5010)
xor a
ld [H_MULTIPLICAND], a ; $ff96 (aliases: H_NUMTOPRINT)
ld [H_MULTIPLICAND+1], a
ld a, d
ld [H_MULTIPLICAND+2], a
ld [H_MULTIPLIER], a ; $ff99 (aliases: H_DIVISOR, H_REMAINDER, H_POWEROFTEN)
jp Multiply
; each entry has the following scheme:
; %AAAABBBB %SCCCCCCC %DDDDDDDD %EEEEEEEE
; resulting in
; (a*n^3)/b + sign*c*n^2 + d*n - e
; where sign = -1 <=> S=1
GrowthRateTable: ; 5901d (16:501d)
db $11,$00,$00,$00 ; medium fast n^3
db $34,$0A,$00,$1E ; (unused?) 3/4 n^3 + 10 n^2 - 30
db $34,$14,$00,$46 ; (unused?) 3/4 n^3 + 20 n^2 - 70
db $65,$8F,$64,$8C ; medium slow: 6/5 n^3 - 15 n^2 + 100 n - 140
db $45,$00,$00,$00 ; fast: 4/5 n^3
db $54,$00,$00,$00 ; slow: 5/4 n^3
|
