This repository has been archived by the owner on Aug 26, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
pewtercity.asm
322 lines (290 loc) · 5.56 KB
/
pewtercity.asm
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
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
PewterCityScript:
call EnableAutoTextBoxDrawing
ld hl, PewterCityScriptPointers
ld a, [wPewterCityCurScript]
jp CallFunctionInTable
PewterCityScriptPointers:
dw PewterCityScript0
dw PewterCityScript1
dw PewterCityScript2
dw PewterCityScript3
dw PewterCityScript4
dw PewterCityScript5
dw PewterCityScript6
PewterCityScript0:
xor a
ld [wMuseum1fCurScript], a
ResetEvent EVENT_BOUGHT_MUSEUM_TICKET
call PewterCityScript_1925e
ret
PewterCityScript_1925e:
CheckEvent EVENT_BEAT_BROCK
ret nz
ld hl, CoordsData_19277
call ArePlayerCoordsInArray
ret nc
ld a, $f0
ld [wJoyIgnore], a
ld a, $5
ld [hSpriteIndexOrTextID], a
jp DisplayTextID
CoordsData_19277:
db $11,$23
db $11,$24
db $12,$25
db $13,$25
db $ff
PewterCityScript1:
ld a, [wNPCMovementScriptPointerTableNum]
and a
ret nz
ld a, $3
ld [H_SPRITEINDEX], a
ld a, SPRITE_FACING_UP
ld [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, ($3 << 4) | SPRITE_FACING_UP
ld [hSpriteImageIndex], a
call SetSpriteImageIndexAfterSettingFacingDirection
call PlayDefaultMusic
ld hl, wFlags_0xcd60
set 4, [hl]
ld a, $d
ld [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $3c
ld [$ffeb], a
ld a, $30
ld [$ffec], a
ld a, $c
ld [$ffed], a
ld a, $11
ld [$ffee], a
ld a, $3
ld [wSpriteIndex], a
call SetSpritePosition1
ld a, $3
ld [H_SPRITEINDEX], a
ld de, MovementData_PewterMuseumGuyExit
call MoveSprite
ld a, $2
ld [wPewterCityCurScript], a
ret
MovementData_PewterMuseumGuyExit:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
PewterCityScript2:
ld a, [wd730]
bit 0, a
ret nz
ld a, HS_MUSEUM_GUY
ld [wMissableObjectIndex], a
predef HideObject
ld a, $3
ld [wPewterCityCurScript], a
ret
PewterCityScript3:
ld a, $3
ld [wSpriteIndex], a
call SetSpritePosition2
ld a, HS_MUSEUM_GUY
ld [wMissableObjectIndex], a
predef ShowObject
xor a
ld [wJoyIgnore], a
ld a, $0
ld [wPewterCityCurScript], a
ret
PewterCityScript4:
ld a, [wNPCMovementScriptPointerTableNum]
and a
ret nz
ld a, $5
ld [H_SPRITEINDEX], a
ld a, SPRITE_FACING_LEFT
ld [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, ($1 << 4) | SPRITE_FACING_LEFT
ld [hSpriteImageIndex], a
call SetSpriteImageIndexAfterSettingFacingDirection
call PlayDefaultMusic
ld hl, wFlags_0xcd60
set 4, [hl]
ld a, $e
ld [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $3c
ld [$ffeb], a
ld a, $40
ld [$ffec], a
ld a, $16
ld [$ffed], a
ld a, $10
ld [$ffee], a
ld a, $5
ld [wSpriteIndex], a
call SetSpritePosition1
ld a, $5
ld [H_SPRITEINDEX], a
ld de, MovementData_PewterGymGuyExit
call MoveSprite
ld a, $5
ld [wPewterCityCurScript], a
ret
MovementData_PewterGymGuyExit:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db $FF
PewterCityScript5:
ld a, [wd730]
bit 0, a
ret nz
ld a, HS_GYM_GUY
ld [wMissableObjectIndex], a
predef HideObject
ld a, $6
ld [wPewterCityCurScript], a
ret
PewterCityScript6:
ld a, $5
ld [wSpriteIndex], a
call SetSpritePosition2
ld a, HS_GYM_GUY
ld [wMissableObjectIndex], a
predef ShowObject
xor a
ld [wJoyIgnore], a
ld a, $0
ld [wPewterCityCurScript], a
ret
PewterCityTextPointers:
dw PewterCityText1
dw PewterCityText2
dw PewterCityText3
dw PewterCityText4
dw PewterCityText5
dw PewterCityText6
dw PewterCityText7
dw MartSignText
dw PokeCenterSignText
dw PewterCityText10
dw PewterCityText11
dw PewterCityText12
dw PewterCityText13
dw PewterCityText14
PewterCityText1:
TX_FAR _PewterCityText1
db "@"
PewterCityText2:
TX_FAR _PewterCityText2
db "@"
PewterCityText3:
TX_ASM
ld hl, PewterCityText_193f1
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .asm_193c9
ld hl, PewterCityText_193f6
call PrintText
jr .asm_193ee
.asm_193c9
ld hl, PewterCityText_193fb
call PrintText
xor a
ld [hJoyPressed], a
ld [hJoyHeld], a
ld [wNPCMovementScriptFunctionNum], a
ld a, $2
ld [wNPCMovementScriptPointerTableNum], a
ld a, [H_LOADEDROMBANK]
ld [wNPCMovementScriptBank], a
ld a, $3
ld [wSpriteIndex], a
call GetSpritePosition2
ld a, $1
ld [wPewterCityCurScript], a
.asm_193ee
jp TextScriptEnd
PewterCityText_193f1:
TX_FAR _PewterCityText_193f1
db "@"
PewterCityText_193f6:
TX_FAR _PewterCityText_193f6
db "@"
PewterCityText_193fb:
TX_FAR _PewterCityText_193fb
db "@"
PewterCityText13:
TX_FAR _PewterCityText13
db "@"
PewterCityText4:
TX_ASM
ld hl, PewterCityText_19427
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
cp $0
jr nz, .asm_1941e
ld hl, PewterCityText_1942c
call PrintText
jr .asm_19424
.asm_1941e
ld hl, PewterCityText_19431
call PrintText
.asm_19424
jp TextScriptEnd
PewterCityText_19427:
TX_FAR _PewterCityText_19427
db "@"
PewterCityText_1942c:
TX_FAR _PewterCityText_1942c
db "@"
PewterCityText_19431:
TX_FAR _PewterCityText_19431
db "@"
PewterCityText5:
TX_ASM
ld hl, PewterCityText_1945d
call PrintText
xor a
ld [hJoyHeld], a
ld [wNPCMovementScriptFunctionNum], a
ld a, $3
ld [wNPCMovementScriptPointerTableNum], a
ld a, [H_LOADEDROMBANK]
ld [wNPCMovementScriptBank], a
ld a, $5
ld [wSpriteIndex], a
call GetSpritePosition2
ld a, $4
ld [wPewterCityCurScript], a
jp TextScriptEnd
PewterCityText_1945d:
TX_FAR _PewterCityText_1945d
db "@"
PewterCityText14:
TX_FAR _PewterCityText14
db "@"
PewterCityText6:
TX_FAR _PewterCityText6
db "@"
PewterCityText7:
TX_FAR _PewterCityText7
db "@"
PewterCityText10:
TX_FAR _PewterCityText10
db "@"
PewterCityText11:
TX_FAR _PewterCityText11
db "@"
PewterCityText12:
TX_FAR _PewterCityText12
db "@"