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
|
MoveDeletion:
ld hl, .IntroText
call PrintText
call YesNoBox
jr c, .declined
ld hl, .AskWhichMonText
call PrintText
farcall SelectMonFromParty
jr c, .declined
ld a, [CurPartySpecies]
cp EGG
jr z, .egg
ld a, [CurPartyMon]
ld hl, PartyMon1Moves + 1
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld a, [hl]
and a
jr z, .onlyonemove
ld hl, .AskWhichMoveText
call PrintText
call LoadStandardMenuDataHeader
farcall ChooseMoveToDelete
push af
call ReturnToMapWithSpeechTextbox
pop af
jr c, .declined
ld a, [wMenuCursorY]
push af
ld a, [CurSpecies]
ld [wd265], a
call GetMoveName
ld hl, .ConfirmDeleteText
call PrintText
call YesNoBox
pop bc
jr c, .declined
call .DeleteMove
call WaitSFX
ld de, SFX_MOVE_DELETED
call PlaySFX
call WaitSFX
ld hl, .MoveDeletedText
call PrintText
ret
.egg
ld hl, .EggText
call PrintText
ret
.declined
ld hl, .DeclinedDeletionText
call PrintText
ret
.onlyonemove
ld hl, .OnlyOneMoveText
call PrintText
ret
.OnlyOneMoveText: ; 0x2c5d1
; That #MON knows only one move.
text_jump UnknownText_0x1c5eba
db "@"
; 0x2c5d6
.ConfirmDeleteText: ; 0x2c5d6
; Oh, make it forget @ ?
text_jump UnknownText_0x1c5eda
db "@"
; 0x2c5db
.MoveDeletedText: ; 0x2c5db
; Done! Your #MON forgot the move.
text_jump UnknownText_0x1c5ef5
db "@"
; 0x2c5e0
.EggText: ; 0x2c5e0
; An EGG doesn't know any moves!
text_jump UnknownText_0x1c5f17
db "@"
; 0x2c5e5
.DeclinedDeletionText: ; 0x2c5e5
; No? Come visit me again.
text_jump UnknownText_0x1c5f36
db "@"
; 0x2c5ea
.AskWhichMoveText: ; 0x2c5ea
; Which move should it forget, then?
text_jump UnknownText_0x1c5f50
db "@"
; 0x2c5ef
.IntroText: ; 0x2c5ef
; Um… Oh, yes, I'm the MOVE DELETER. I can make #MON forget moves. Shall I make a #MON forget?
text_jump UnknownText_0x1c5f74
db "@"
; 0x2c5f4
.AskWhichMonText: ; 0x2c5f4
; Which #MON?
text_jump UnknownText_0x1c5fd1
db "@"
; 0x2c5f9
.DeleteMove: ; 2c5f9
ld a, b
push bc
dec a
ld c, a
ld b, 0
ld hl, PartyMon1Moves
add hl, bc
ld a, [CurPartyMon]
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
pop bc
push bc
inc b
.loop
ld a, b
cp NUM_MOVES + 1
jr z, .okay
inc hl
ld a, [hld]
ld [hl], a
inc hl
inc b
jr .loop
.okay
xor a
ld [hl], a
pop bc
ld a, b
push bc
dec a
ld c, a
ld b, 0
ld hl, PartyMon1PP
add hl, bc
ld a, [CurPartyMon]
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
pop bc
inc b
.loop2
ld a, b
cp NUM_MOVES + 1
jr z, .done
inc hl
ld a, [hld]
ld [hl], a
inc hl
inc b
jr .loop2
.done
xor a
ld [hl], a
ret
|
