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
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
EventScript_1A666F:: @ 81A666F
copyvar VAR_MON_BOX_POS, VAR_MON_BOX_ID
return
EventScript_1A6675:: @ 81A6675
copyvar VAR_MON_BOX_ID, VAR_MON_BOX_POS
return
Std_ObtainItem:: @ 81A667B
copyvar VAR_MON_BOX_POS, VAR_MON_BOX_ID
textcolor 3
additem VAR_0x8000, VAR_0x8001
copyvar VAR_0x8007, VAR_RESULT
call EventScript_1A6697
copyvar VAR_MON_BOX_ID, VAR_MON_BOX_POS
return
EventScript_1A6697:: @ 81A6697
bufferitemnameplural 1, VAR_0x8000, VAR_0x8001
checkitemtype VAR_0x8000
call EventScript_1A66BC
compare VAR_0x8007, 1
call_if_eq EventScript_1A6749
compare VAR_0x8007, 0
call_if_eq EventScript_1A675E
return
EventScript_1A66BC:: @ 81A66BC
switch VAR_RESULT
case POCKET_ITEMS, EventScript_1A66F9
case POCKET_KEY_ITEMS, EventScript_1A6709
case POCKET_POKE_BALLS, EventScript_1A6719
case POCKET_TM_CASE, EventScript_1A6729
case POCKET_BERRY_POUCH, EventScript_1A6739
end
EventScript_1A66F9:: @ 81A66F9
getstdstring 2, 24
compare VAR_0x8007, 1
call_if_eq EventScript_1A6764
return
EventScript_1A6709:: @ 81A6709
getstdstring 2, 25
compare VAR_0x8007, 1
call_if_eq EventScript_1A6764
return
EventScript_1A6719:: @ 81A6719
getstdstring 2, 26
compare VAR_0x8007, 1
call_if_eq EventScript_1A6764
return
EventScript_1A6729:: @ 81A6729
getstdstring 2, 27
compare VAR_0x8007, 1
call_if_eq EventScript_1A6768
return
EventScript_1A6739:: @ 81A6739
getstdstring 2, 28
compare VAR_0x8007, 1
call_if_eq EventScript_1A6764
return
EventScript_1A6749:: @ 81A6749
message Text_ObtainedTheX
waitfanfare
waitmessage
msgbox Text_PutItemAway
setvar VAR_RESULT, 1
return
EventScript_1A675E:: @ 81A675E
setvar VAR_RESULT, 0
return
EventScript_1A6764:: @ 81A6764
playfanfare MUS_FANFA1
return
EventScript_1A6768:: @ 81A6768
playfanfare MUS_FANFA1
return
Std_ObtainDecoration:: @ 81A676C
adddecor VAR_0x8000
copyvar VAR_0x8007, VAR_RESULT
call EventScript_1A677A
return
EventScript_1A677A:: @ 81A677A
getdecorname 1, VAR_0x8000
compare VAR_0x8007, 1
call_if_eq EventScript_1A6795
compare VAR_0x8007, 0
call_if_eq EventScript_1A67AD
return
EventScript_1A6795:: @ 81A6795
playfanfare MUS_FANFA4
message Text_1A52F0
waitfanfare
waitmessage
msgbox gUnknown_81A532F
setvar VAR_RESULT, 1
return
EventScript_1A67AD:: @ 81A67AD
setvar VAR_RESULT, 0
return
Std_FindItem:: @ 81A67B3
lock
faceplayer
waitse
copyvar VAR_0x8004, VAR_0x8000
copyvar VAR_0x8005, VAR_0x8001
checkitemspace VAR_0x8000, VAR_0x8001
copyvar VAR_0x8007, VAR_RESULT
getitemname 1, VAR_0x8000
checkitemtype VAR_0x8000
call EventScript_1A66BC
compare VAR_0x8007, 1
call_if_eq EventScript_1A67EE
compare VAR_0x8007, 0
call_if_eq EventScript_1A682D
release
return
EventScript_1A67EE:: @ 81A67EE
removeobject VAR_LAST_TALKED
additem VAR_0x8004, VAR_0x8005
specialvar VAR_RESULT, Special_ItemIsTM_GetMoveName
copyvar VAR_0x8008, VAR_RESULT
compare VAR_0x8008, 1
call_if_eq EventScript_1A6821
compare VAR_0x8008, 0
call_if_eq EventScript_1A6827
waitfanfare
waitmessage
msgbox Text_PutItemAway
return
EventScript_1A6821:: @ 81A6821
message Text_1A63E8
return
EventScript_1A6827:: @ 81A6827
message Text_FoundOneItem
return
EventScript_1A682D:: @ 81A682D
msgbox Text_ObtainedTheX
msgbox Text_TooBadBagFull
setvar VAR_RESULT, 0
return
EventScript_PickUpHiddenItem:: @ 81A6843
lockall
textcolor 3
waitse
compare VAR_0x8005, 0
goto_if_eq EventScript_PickUpHiddenCoins
call EventScript_GiveItem
compare VAR_0x8007, 1
goto_if_eq EventScript_ItemInPocketMessage
compare VAR_0x8007, 0
goto_if_eq EventScript_BagIsFullMessage
end
EventScript_GiveItem::
additem VAR_0x8005, VAR_0x8006
copyvar VAR_0x8007, VAR_RESULT
getitemname 1, VAR_0x8005
checkitemtype VAR_0x8005
call EventScript_1A66BC
return
EventScript_ItemInPocketMessage::
compare VAR_0x8006, 1
call_if_eq EventScript_FoundSingleItemMessage
compare VAR_0x8006, 1
call_if_ne EventScript_FoundMultipleItemsMessage
waitfanfare
waitmessage
msgbox Text_PutItemAway
special Special_SetHiddenItemFlag
releaseall
end
EventScript_FoundSingleItemMessage::
message Text_FoundOneItem
return
EventScript_FoundCoinsMessage::
getnumberstring 0, VAR_0x8006
message Text_FoundXCoins
return
EventScript_FoundMultipleItemsMessage::
getnumberstring 0, VAR_0x8006
message Text_FoundXItems
return
EventScript_BagIsFullMessage::
msgbox Text_FoundOneItem
msgbox Text_TooBadBagFull
setvar VAR_RESULT, 0
releaseall
end
EventScript_PickUpHiddenCoins::
goto_if_unset FLAG_GOT_COIN_CASE, EventScript_HiddenCoinsButNoCoinCase
checkcoins VAR_RESULT
specialvar VAR_RESULT, Special_CheckAddCoins
compare VAR_RESULT, 0
goto_if_eq EventScript_HiddenCoinsButTheCoinCaseIsFull
givecoins VAR_0x8006
getstdstring 1, 0x17
call EventScript_1A6764
call EventScript_FoundCoinsMessage
waitfanfare
waitmessage
msgbox Text_PutCoinsAwayInCoinCase
special Special_SetHiddenItemFlag
releaseall
end
EventScript_HiddenCoinsButTheCoinCaseIsFull::
getnumberstring 0, VAR_0x8006
getstdstring 1, 0x17
msgbox Text_FoundXCoins
msgbox Text_CoinCaseIsFull
setvar VAR_RESULT, 0
releaseall
end
EventScript_HiddenCoinsButNoCoinCase::
getnumberstring 0, VAR_0x8006
getstdstring 1, 0x17
msgbox Text_FoundXCoins
msgbox Text_NothingToPutThemIn
setvar VAR_RESULT, 0
releaseall
end
|
