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
|
MoveDeletion:
ld hl, .IntroText
call PrintText
call YesNoBox
jr c, .declined
ld hl, .AskWhichMonText
call PrintText
farcall SelectMonFromParty
jr c, .declined
ld a, [wCurPartySpecies]
cp EGG
jr z, .egg
ld a, [wCurPartyMon]
ld hl, wPartyMon1Moves + 1
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld a, [hl]
and a
jr z, .onlyonemove
ld hl, .AskWhichMoveText
call PrintText
call LoadStandardMenuHeader
farcall ChooseMoveToDelete
push af
call ReturnToMapWithSpeechTextbox
pop af
jr c, .declined
ld a, [wMenuCursorY]
push af
ld a, [wCurSpecies]
ld [wNamedObjectIndexBuffer], 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:
; That #MON knows only one move.
text_far UnknownText_0x1c5eba
text_end
.ConfirmDeleteText:
; Oh, make it forget @ ?
text_far UnknownText_0x1c5eda
text_end
.MoveDeletedText:
; Done! Your #MON forgot the move.
text_far UnknownText_0x1c5ef5
text_end
.EggText:
; An EGG doesn't know any moves!
text_far UnknownText_0x1c5f17
text_end
.DeclinedDeletionText:
; No? Come visit me again.
text_far UnknownText_0x1c5f36
text_end
.AskWhichMoveText:
; Which move should it forget, then?
text_far UnknownText_0x1c5f50
text_end
.IntroText:
; Um… Oh, yes, I'm the MOVE DELETER. I can make #MON forget moves. Shall I make a #MON forget?
text_far UnknownText_0x1c5f74
text_end
.AskWhichMonText:
; Which #MON?
text_far UnknownText_0x1c5fd1
text_end
.DeleteMove:
ld a, b
push bc
dec a
ld c, a
ld b, 0
ld hl, wPartyMon1Moves
add hl, bc
ld a, [wCurPartyMon]
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, wPartyMon1PP
add hl, bc
ld a, [wCurPartyMon]
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
|
