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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
LearnMove: ; 6e43 (1:6e43)
call SaveScreenTilesToBuffer1
ld a, [wWhichPokemon] ; $cf92
ld hl, W_PARTYMON1NAME ; $d2b5
call GetPartyMonName
ld hl, $cd6d
ld de, $d036
ld bc, $b
call CopyData
DontAbandonLearning: ; 6e5b (1:6e5b)
ld hl, W_PARTYMON1_MOVE1 ; $d173
ld bc, $2c
ld a, [wWhichPokemon] ; $cf92
call AddNTimes
ld d, h
ld e, l
ld b, $4
.asm_6e6b
ld a, [hl]
and a
jr z, .asm_6e8b
inc hl
dec b
jr nz, .asm_6e6b
push de
call TryingToLearn
pop de
jp c, AbandonLearning
push hl
push de
ld [$d11e], a
call GetMoveName
ld hl, OneTwoAndText
call PrintText
pop de
pop hl
.asm_6e8b
ld a, [$d0e0]
ld [hl], a
ld bc, $15
add hl, bc
push hl
push de
dec a
ld hl, Moves ; $4000
ld bc, $6
call AddNTimes
ld de, $cee9
ld a, BANK(Moves)
call FarCopyData
ld a, [$ceee]
pop de
pop hl
ld [hl], a
ld a, [W_ISINBATTLE] ; $d057
and a
jp z, PrintLearnedMove
ld a, [wWhichPokemon] ; $cf92
ld b, a
ld a, [wPlayerMonNumber] ; $cc2f
cp b
jp nz, PrintLearnedMove
ld h, d
ld l, e
ld de, W_PLAYERMONMOVES
ld bc, $4
call CopyData
ld bc, $11
add hl, bc
ld de, W_PLAYERMONPP ; $d02d
ld bc, $4
call CopyData
jp PrintLearnedMove
AbandonLearning: ; 6eda (1:6eda)
ld hl, AbandonLearningText
call PrintText
FuncCoord 14, 7 ; $c43a
ld hl, Coord
ld bc, $80f
ld a, $14
ld [$d125], a
call DisplayTextBoxID
ld a, [wCurrentMenuItem] ; $cc26
and a
jp nz, DontAbandonLearning
ld hl, DidNotLearnText
call PrintText
ld b, $0
ret
PrintLearnedMove: ; 6efe (1:6efe)
ld hl, LearnedMove1Text
call PrintText
ld b, $1
ret
TryingToLearn: ; 6f07 (1:6f07)
push hl
ld hl, TryingToLearnText
call PrintText
FuncCoord 14, 7 ; $c43a
ld hl, Coord
ld bc, $80f
ld a, $14
ld [$d125], a
call DisplayTextBoxID
pop hl
ld a, [wCurrentMenuItem] ; $cc26
rra
ret c
ld bc, $fffc
add hl, bc
push hl
ld de, $d0dc
ld bc, $4
call CopyData
callab Func_39b87
pop hl
.asm_6f39
push hl
ld hl, WhichMoveToForgetText
call PrintText
FuncCoord 4, 7 ; $c430
ld hl, Coord
ld b, $4
ld c, $e
call TextBoxBorder
FuncCoord 6, 8 ; $c446
ld hl, Coord
ld de, $d0e1
ld a, [$fff6]
set 2, a
ld [$fff6], a
call PlaceString
ld a, [$fff6]
res 2, a
ld [$fff6], a
ld hl, wTopMenuItemY ; $cc24
ld a, $8
ld [hli], a
ld a, $5
ld [hli], a
xor a
ld [hli], a
inc hl
ld a, [$cd6c]
ld [hli], a
ld a, $3
ld [hli], a
ld [hl], $0
ld hl, $fff6
set 1, [hl]
call HandleMenuInput
ld hl, $fff6
res 1, [hl]
push af
call LoadScreenTilesFromBuffer1
pop af
pop hl
bit 1, a
jr nz, .asm_6fab
push hl
ld a, [wCurrentMenuItem] ; $cc26
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
push af
push bc
call IsMoveHM
pop bc
pop de
ld a, d
jr c, .asm_6fa2
pop hl
add hl, bc
and a
ret
.asm_6fa2
ld hl, HMCantDeleteText
call PrintText
pop hl
jr .asm_6f39
.asm_6fab
scf
ret
LearnedMove1Text: ; 6fb4 (1:6fb4)
TX_FAR _LearnedMove1Text
db $b,6,"@"
WhichMoveToForgetText: ; 6fb4 (1:6fb4)
TX_FAR _WhichMoveToForgetText
db "@"
AbandonLearningText: ; 6fb9 (1:6fb9)
TX_FAR _AbandonLearningText
db "@"
DidNotLearnText: ; 6fbe (1:6fbe)
TX_FAR _DidNotLearnText
db "@"
TryingToLearnText: ; 6fc3 (1:6fc3)
TX_FAR _TryingToLearnText
db "@"
OneTwoAndText: ; 6fc8 (1:6fc8)
TX_FAR _OneTwoAndText
db $a
db $8
ld a, (SFX_02_58 - SFX_Headers_02) / 3
call PlaySoundWaitForCurrent
ld hl, PoofText
ret
PoofText: ; 6fd7 (1:6fd7)
TX_FAR _PoofText
db $a
ForgotAndText: ; 6fdc (1:6fdc)
TX_FAR _ForgotAndText
db "@"
HMCantDeleteText: ; 6fe1 (1:6fe1)
TX_FAR _HMCantDeleteText
db "@"
|
