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
|
MoveDeletion:
ld hl, .DeleterIntroText
call PrintText
call YesNoBox
jr c, .declined
ld hl, .DeleterAskWhichMonText
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, .DeleterAskWhichMoveText
call PrintText
call LoadStandardMenuHeader
farcall ChooseMoveToDelete
push af
call ReturnToMapWithSpeechTextbox
pop af
jr c, .declined
ld a, [wMenuCursorY]
push af
ld a, [wCurSpecies]
ld [wNamedObjectIndex], a
call GetMoveName
ld hl, .AskDeleteMoveText
call PrintText
call YesNoBox
pop bc
jr c, .declined
call .DeleteMove
call WaitSFX
ld de, SFX_MOVE_DELETED
call PlaySFX
call WaitSFX
ld hl, .DeleterForgotMoveText
call PrintText
ret
.egg
ld hl, .MailEggText
call PrintText
ret
.declined
ld hl, .DeleterNoComeAgainText
call PrintText
ret
.onlyonemove
ld hl, .MoveKnowsOneText
call PrintText
ret
.MoveKnowsOneText:
text_far _MoveKnowsOneText
text_end
.AskDeleteMoveText:
text_far _AskDeleteMoveText
text_end
.DeleterForgotMoveText:
text_far _DeleterForgotMoveText
text_end
.MailEggText:
text_far _DeleterEggText
text_end
.DeleterNoComeAgainText:
text_far _DeleterNoComeAgainText
text_end
.DeleterAskWhichMoveText:
text_far _DeleterAskWhichMoveText
text_end
.DeleterIntroText:
text_far _DeleterIntroText
text_end
.DeleterAskWhichMonText:
text_far _DeleterAskWhichMonText
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
|
