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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
CeladonMartRoof_Script:
call EnableAutoTextBoxDrawing
ret
CeladonMartRoofScript_GetDrinksInBag:
; construct a list of all drinks in the player's bag
xor a
ld [wFilteredBagItemsCount], a
ld de, wFilteredBagItems
ld hl, CeladonMartRoofDrinkList
.loop
ld a, [hli]
and a
jr z, .done
push hl
push de
ld [wTempByteValue], a
ld b, a
predef GetQuantityOfItemInBag
pop de
pop hl
ld a, b
and a
jr z, .loop
; A drink is in the bag
ld a, [wTempByteValue]
ld [de], a
inc de
push hl
ld hl, wFilteredBagItemsCount
inc [hl]
pop hl
jr .loop
.done
ld a, $ff
ld [de], a
ret
CeladonMartRoofDrinkList:
db FRESH_WATER
db SODA_POP
db LEMONADE
db 0 ; end
CeladonMartRoofScript_GiveDrinkToGirl:
ld hl, wStatusFlags5
set BIT_NO_TEXT_DELAY, [hl]
ld hl, CeladonMartRoofLittleGirlGiveHerWhichDrinkText
call PrintText
xor a
ld [wCurrentMenuItem], a
ld a, PAD_A | PAD_B
ld [wMenuWatchedKeys], a
ld a, [wFilteredBagItemsCount]
dec a
ld [wMaxMenuItem], a
ld a, 2
ld [wTopMenuItemY], a
ld a, 1
ld [wTopMenuItemX], a
ld a, [wFilteredBagItemsCount]
dec a
ld bc, 2
ld hl, 3
call AddNTimes
dec l
ld b, l
ld c, 12
hlcoord 0, 0
call TextBoxBorder
call UpdateSprites
call CeladonMartRoofScript_PrintDrinksInBag
ld hl, wStatusFlags5
res BIT_NO_TEXT_DELAY, [hl]
call HandleMenuInput
bit B_PAD_B, a
ret nz
ld hl, wFilteredBagItems
ld a, [wCurrentMenuItem]
ld d, 0
ld e, a
add hl, de
ld a, [hl]
ldh [hItemToRemoveID], a
cp FRESH_WATER
jr z, .gaveFreshWater
cp SODA_POP
jr z, .gaveSodaPop
; gave Lemonade
CheckEvent EVENT_GOT_TM49
jr nz, .alreadyGaveDrink
ld hl, CeladonMartRoofLittleGirlYayLemonadeText
call PrintText
call RemoveItemByIDBank12
lb bc, TM_TRI_ATTACK, 1
call GiveItem
jr nc, .bagFull
ld hl, CeladonMartRoofLittleGirlReceivedTM49Text
call PrintText
SetEvent EVENT_GOT_TM49
ret
.gaveSodaPop
CheckEvent EVENT_GOT_TM48
jr nz, .alreadyGaveDrink
ld hl, CeladonMartRoofLittleGirlYaySodaPopText
call PrintText
call RemoveItemByIDBank12
lb bc, TM_ROCK_SLIDE, 1
call GiveItem
jr nc, .bagFull
ld hl, CeladonMartRoofLittleGirlReceivedTM48Text
call PrintText
SetEvent EVENT_GOT_TM48
ret
.gaveFreshWater
CheckEvent EVENT_GOT_TM13
jr nz, .alreadyGaveDrink
ld hl, CeladonMartRoofLittleGirlYayFreshWaterText
call PrintText
call RemoveItemByIDBank12
lb bc, TM_ICE_BEAM, 1
call GiveItem
jr nc, .bagFull
ld hl, CeladonMartRoofLittleGirlReceivedTM13Text
call PrintText
SetEvent EVENT_GOT_TM13
ret
.bagFull
ld hl, CeladonMartRoofLittleGirlNoRoomText
call PrintText
ret
.alreadyGaveDrink
ld hl, CeladonMartRoofLittleGirlImNotThirstyText
call PrintText
ret
RemoveItemByIDBank12:
farcall RemoveItemByID
ret
CeladonMartRoofLittleGirlGiveHerWhichDrinkText:
text_far _CeladonMartRoofLittleGirlGiveHerWhichDrinkText
text_end
CeladonMartRoofLittleGirlYayFreshWaterText:
text_far _CeladonMartRoofLittleGirlYayFreshWaterText
text_waitbutton
text_end
CeladonMartRoofLittleGirlReceivedTM13Text:
text_far _CeladonMartRoofLittleGirlReceivedTM13Text
sound_get_item_1
text_far _CeladonMartRoofLittleGirlTM13ExplanationText
text_waitbutton
text_end
CeladonMartRoofLittleGirlYaySodaPopText:
text_far _CeladonMartRoofLittleGirlYaySodaPopText
text_waitbutton
text_end
CeladonMartRoofLittleGirlReceivedTM48Text:
text_far _CeladonMartRoofLittleGirlReceivedTM48Text
sound_get_item_1
text_far _CeladonMartRoofLittleGirlTM48ExplanationText
text_waitbutton
text_end
CeladonMartRoofLittleGirlYayLemonadeText:
text_far _CeladonMartRoofLittleGirlYayLemonadeText
text_waitbutton
text_end
CeladonMartRoofLittleGirlReceivedTM49Text:
text_far _CeladonMartRoofLittleGirlReceivedTM49Text
sound_get_item_1
text_far _CeladonMartRoofLittleGirlTM49ExplanationText
text_waitbutton
text_end
CeladonMartRoofLittleGirlNoRoomText:
text_far _CeladonMartRoofLittleGirlNoRoomText
text_waitbutton
text_end
CeladonMartRoofLittleGirlImNotThirstyText:
text_far _CeladonMartRoofLittleGirlImNotThirstyText
text_waitbutton
text_end
CeladonMartRoofScript_PrintDrinksInBag:
ld hl, wFilteredBagItems
xor a
ldh [hItemCounter], a
.loop
ld a, [hli]
cp $ff
ret z
push hl
ld [wNamedObjectIndex], a
call GetItemName
hlcoord 2, 2
ldh a, [hItemCounter]
ld bc, SCREEN_WIDTH * 2
call AddNTimes
ld de, wNameBuffer
call PlaceString
ld hl, hItemCounter
inc [hl]
pop hl
jr .loop
CeladonMartRoof_TextPointers:
def_text_pointers
dw_const CeladonMartRoofSuperNerdText, TEXT_CELADONMARTROOF_SUPER_NERD
dw_const CeladonMartRoofLittleGirlText, TEXT_CELADONMARTROOF_LITTLE_GIRL
dw_const CeladonMartRoofVendingMachineText, TEXT_CELADONMARTROOF_VENDING_MACHINE1
dw_const CeladonMartRoofVendingMachineText, TEXT_CELADONMARTROOF_VENDING_MACHINE2
dw_const CeladonMartRoofVendingMachineText, TEXT_CELADONMARTROOF_VENDING_MACHINE3
dw_const CeladonMartRoofCurrentFloorSignText, TEXT_CELADONMARTROOF_CURRENT_FLOOR_SIGN
CeladonMartRoofSuperNerdText:
text_far _CeladonMartRoofSuperNerdText
text_end
CeladonMartRoofLittleGirlText:
text_asm
call CeladonMartRoofScript_GetDrinksInBag
ld a, [wFilteredBagItemsCount]
and a
jr z, .noDrinksInBag
ld a, 1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, .GiveHerADrinkText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .done
call CeladonMartRoofScript_GiveDrinkToGirl
jr .done
.noDrinksInBag
ld hl, .ImThirstyText
call PrintText
.done
jp TextScriptEnd
.ImThirstyText:
text_far _CeladonMartRoofLittleGirlImThirstyText
text_end
.GiveHerADrinkText:
text_far _CeladonMartRoofLittleGirlGiveHerADrinkText
text_end
CeladonMartRoofVendingMachineText:
script_vending_machine
CeladonMartRoofCurrentFloorSignText:
text_far _CeladonMartRoofCurrentFloorSignText
text_end
|
