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
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
|
GetMovementByte:
ld hl, wMovementDataBank
call _GetMovementByte
ret
Function4fbd:
ld hl, $1b
add hl, bc
ld e, [hl]
inc [hl]
ld d, $0
ld hl, wMovementObject
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld a, [hl]
ret
Function4fce:
ld hl, $1b
add hl, bc
ld e, [hl]
inc [hl]
ld d, $0
ld hl, wce8f
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld a, [hl]
ret
Function4fdf: ; 4fdf (1:4fdf)
ld hl, GetMovementPerson
jp Function4fe9
GetMovementPerson
ld a, [wMovementObject]
ret
Function4fe9: ; 4fe9 (1:4fe9)
call Function4ffd
.asm_4fec
xor a
ld [wce93], a
call Function5006
call Function5013
ld a, [wce93]
and a
jr nz, .asm_4fec
ret
Function4ffd: ; 4ffd (1:4ffd)
ld a, l
ld [wce94], a
ld a, h
ld [wce95], a
ret
Function5006: ; 5006 (1:5006)
ld hl, wce94
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
Function500d: ; 500d (1:500d)
ld a, $1
ld [wce93], a
ret
Function5013: ; 5013 (1:5013)
push af
call Function5457
pop af
ld hl, MovementPointers
rst JumpTable
ret
MovementPointers: ; 501d
dw Function527d
dw Function5281
dw Function5285
dw Function5289
dw Function538f
dw Function5393
dw Function5397
dw Function539b
dw Function529f
dw Function52a4
dw Function52a9
dw Function52ae
dw Function52b3
dw Function52b8
dw Function52bd
dw Function52c2
dw Function52c7
dw Function52cc
dw Function52d1
dw Function52d6
dw Function5317
dw Function531c
dw Function5321
dw Function5326
dw Function532b
dw Function5330
dw Function5335
dw Function533a
dw Function533f
dw Function5344
dw Function5349
dw Function534e
dw Function52db
dw Function52e0
dw Function52e5
dw Function52ea
dw Function52ef
dw Function52f4
dw Function52f9
dw Function52fe
dw Function5303
dw Function5308
dw Function530d
dw Function5312
dw Function5353
dw Function5358
dw Function535d
dw Function5362
dw Function5367
dw Function536c
dw Function5371
dw Function5376
dw Function537b
dw Function5380
dw Function5385
dw Function538a
dw Function5232
dw Function523b
dw Function5244
dw Function524d
dw Function5256
dw Function525f
dw Function51c1
dw Function51c5
dw Function51c9
dw Function51cd
dw Function51d1
dw Function51d5
dw Function51d9
dw Function51dd
dw Function51e1
dw Function5160
dw Function517a
dw Function519c
dw Function5157
dw Function51af
dw Function50cf
dw Function50d6
dw Function50dd
dw Function50e4
dw Function51fe
dw Function5128
dw Function514a
dw Function5268
dw Function526e
dw Function5274
dw Function5218
dw Function5135
dw Function5109
Function50cf: ; 50cf (1:50cf)
ld hl, $9
add hl, bc
ld [hl], $c
ret
Function50d6: ; 50d6 (1:50d6)
ld hl, $9
add hl, bc
ld [hl], $d
ret
Function50dd: ; 50dd (1:50dd)
ld hl, $9
add hl, bc
ld [hl], $e
ret
Function50e4: ; 50e4 (1:50e4)
call GetSpriteDirection
rlca
rlca
ld hl, $c
add hl, bc
ld [hl], a
ld hl, $b
add hl, bc
ld [hl], $4
call Function5006
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $9
add hl, bc
ld [hl], $3
ld hl, $7
add hl, bc
ld [hl], $ff
ret
Function5109: ; 5109 (1:5109)
call GetSpriteDirection
rlca
rlca
ld hl, $c
add hl, bc
ld [hl], a
call Function5006
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $7
add hl, bc
ld [hl], $ff
ld hl, $9
add hl, bc
ld [hl], $12
ret
Function5128: ; 5128 (1:5128)
ld hl, $b
add hl, bc
ld [hl], $6
ld hl, $9
add hl, bc
ld [hl], $10
ret
Function5135: ; 5135 (1:5135)
call Function5006
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $b
add hl, bc
ld [hl], $1
ld hl, $9
add hl, bc
ld [hl], $11
ret
Function514a: ; 514a (1:514a)
ld hl, $b
add hl, bc
ld [hl], $6
ld hl, $9
add hl, bc
ld [hl], $1
ret
Function5157: ; 5157 (1:5157)
ld hl, $1b
add hl, bc
ld [hl], $0
jp Function500d
Function5160: ; 5160 (1:5160)
call RestoreDefaultMovement
ld hl, $3
add hl, bc
ld [hl], a
ld hl, $1b
add hl, bc
ld [hl], $0
ld hl, wVramState
res 7, [hl]
ld hl, $9
add hl, bc
ld [hl], $1
ret
Function517a: ; 517a (1:517a)
call RestoreDefaultMovement
ld hl, $3
add hl, bc
ld [hl], a
ld hl, $1b
add hl, bc
ld [hl], $0
call Function5006
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $9
add hl, bc
ld [hl], $3
ld hl, wVramState
res 7, [hl]
ret
Function519c: ; 519c (1:519c)
call DeleteMapObject
ld hl, wObjectFollow_Leader
ldh a, [hMapObjectIndexBuffer]
cp [hl]
jr nz, .asm_51a9
ld [hl], $ff
.asm_51a9
ld hl, wVramState
res 7, [hl]
ret
Function51af: ; 51af (1:51af)
ld hl, $b
add hl, bc
ld [hl], $1
ld hl, $9
add hl, bc
ld [hl], $4
ld hl, wVramState
res 7, [hl]
ret
Function51c1: ; 51c1 (1:51c1)
ld a, $1
jr asm_51e6
Function51c5: ; 51c5 (1:51c5)
ld a, $2
jr asm_51e6
Function51c9: ; 51c9 (1:51c9)
ld a, $3
jr asm_51e6
Function51cd: ; 51cd (1:51cd)
ld a, $4
jr asm_51e6
Function51d1: ; 51d1 (1:51d1)
ld a, $5
jr asm_51e6
Function51d5: ; 51d5 (1:51d5)
ld a, $6
jr asm_51e6
Function51d9: ; 51d9 (1:51d9)
ld a, $7
jr asm_51e6
Function51dd: ; 51dd (1:51dd)
ld a, $8
jr asm_51e6
Function51e1: ; 51e1 (1:51e1)
call Function5006
jr asm_51e6
asm_51e6
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $9
add hl, bc
ld [hl], $3
ld hl, $b
add hl, bc
ld [hl], $1
ld hl, $7
add hl, bc
ld [hl], $ff
ret
Function51fe: ; 51fe (1:51fe)
ld a, $1
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $9
add hl, bc
ld [hl], $b
ld hl, $b
add hl, bc
ld [hl], $3
ld hl, $7
add hl, bc
ld [hl], $ff
ret
Function5218: ; 5218 (1:5218)
ld a, $18
ld hl, $a
add hl, bc
ld [hl], a
ld hl, $9
add hl, bc
ld [hl], $3
ld hl, $b
add hl, bc
ld [hl], $b
ld hl, $7
add hl, bc
ld [hl], $ff
ret
Function5232: ; 5232 (1:5232)
ld hl, $4
add hl, bc
res 3, [hl]
jp Function500d
Function523b: ; 523b (1:523b)
ld hl, $4
add hl, bc
set 3, [hl]
jp Function500d
Function5244: ; 5244 (1:5244)
ld hl, $4
add hl, bc
res 2, [hl]
jp Function500d
Function524d: ; 524d (1:524d)
ld hl, $4
add hl, bc
set 2, [hl]
jp Function500d
Function5256: ; 5256 (1:5256)
ld hl, $4
add hl, bc
res 0, [hl]
jp Function500d
Function525f: ; 525f (1:525f)
ld hl, $4
add hl, bc
set 0, [hl]
jp Function500d
Function5268: ; 5268 (1:5268)
call Function5518
jp Function500d
Function526e: ; 526e (1:526e)
call Function54e6
jp Function500d
Function5274: ; 5274 (1:5274)
call Function5006
call Function5504
jp Function500d
Function527d: ; 527d (1:527d)
ld a, $0
jr asm_528d
Function5281: ; 5281 (1:5281)
ld a, $4
jr asm_528d
Function5285: ; 5285 (1:5285)
ld a, $8
jr asm_528d
Function5289: ; 5289 (1:5289)
ld a, $c
jr asm_528d
asm_528d
ld hl, $8
add hl, bc
ld [hl], a
ld hl, $b
add hl, bc
ld [hl], $1
ld hl, $7
add hl, bc
ld [hl], $ff
ret
Function529f: ; 529f (1:529f)
ld a, $0
jp Function53b1
Function52a4: ; 52a4 (1:52a4)
ld a, $1
jp Function53b1
Function52a9: ; 52a9 (1:52a9)
ld a, $2
jp Function53b1
Function52ae: ; 52ae (1:52ae)
ld a, $3
jp Function53b1
Function52b3: ; 52b3 (1:52b3)
ld a, $4
jp Function53b1
Function52b8: ; 52b8 (1:52b8)
ld a, $5
jp Function53b1
Function52bd: ; 52bd (1:52bd)
ld a, $6
jp Function53b1
Function52c2: ; 52c2 (1:52c2)
ld a, $7
jp Function53b1
Function52c7: ; 52c7 (1:52c7)
ld a, $8
jp Function53b1
Function52cc: ; 52cc (1:52cc)
ld a, $9
jp Function53b1
Function52d1: ; 52d1 (1:52d1)
ld a, $a
jp Function53b1
Function52d6: ; 52d6 (1:52d6)
ld a, $b
jp Function53b1
Function52db: ; 52db (1:52db)
ld a, $0
jp Function53e5
Function52e0: ; 52e0 (1:52e0)
ld a, $1
jp Function53e5
Function52e5: ; 52e5 (1:52e5)
ld a, $2
jp Function53e5
Function52ea: ; 52ea (1:52ea)
ld a, $3
jp Function53e5
Function52ef: ; 52ef (1:52ef)
ld a, $4
jp Function53e5
Function52f4: ; 52f4 (1:52f4)
ld a, $5
jp Function53e5
Function52f9: ; 52f9 (1:52f9)
ld a, $6
jp Function53e5
Function52fe: ; 52fe (1:52fe)
ld a, $7
jp Function53e5
Function5303: ; 5303 (1:5303)
ld a, $8
jp Function53e5
Function5308: ; 5308 (1:5308)
ld a, $9
jp Function53e5
Function530d: ; 530d (1:530d)
ld a, $a
jp Function53e5
Function5312: ; 5312 (1:5312)
ld a, $b
jp Function53e5
Function5317: ; 5317 (1:5317)
ld a, $0
jp Function5407
Function531c: ; 531c (1:531c)
ld a, $1
jp Function5407
Function5321: ; 5321 (1:5321)
ld a, $2
jp Function5407
Function5326: ; 5326 (1:5326)
ld a, $3
jp Function5407
Function532b: ; 532b (1:532b)
ld a, $4
jp Function5407
Function5330: ; 5330 (1:5330)
ld a, $5
jp Function5407
Function5335: ; 5335 (1:5335)
ld a, $6
jp Function5407
Function533a: ; 533a (1:533a)
ld a, $7
jp Function5407
Function533f: ; 533f (1:533f)
ld a, $8
jp Function5407
Function5344: ; 5344 (1:5344)
ld a, $9
jp Function5407
Function5349: ; 5349 (1:5349)
ld a, $a
jp Function5407
Function534e: ; 534e (1:534e)
ld a, $b
jp Function5407
Function5353: ; 5353 (1:5353)
ld a, $0
jp Function5429
Function5358: ; 5358 (1:5358)
ld a, $1
jp Function5429
Function535d: ; 535d (1:535d)
ld a, $2
jp Function5429
Function5362: ; 5362 (1:5362)
ld a, $3
jp Function5429
Function5367: ; 5367 (1:5367)
ld a, $4
jp Function5429
Function536c: ; 536c (1:536c)
ld a, $5
jp Function5429
Function5371: ; 5371 (1:5371)
ld a, $6
jp Function5429
Function5376: ; 5376 (1:5376)
ld a, $7
jp Function5429
Function537b: ; 537b (1:537b)
ld a, $8
jp Function5429
Function5380: ; 5380 (1:5380)
ld a, $9
jp Function5429
Function5385: ; 5385 (1:5385)
ld a, $a
jp Function5429
Function538a: ; 538a (1:538a)
ld a, $b
jp Function5429
Function538f: ; 538f (1:538f)
ld a, $0
jr asm_539f
Function5393: ; 5393 (1:5393)
ld a, $4
jr asm_539f
Function5397: ; 5397 (1:5397)
ld a, $8
jr asm_539f
Function539b: ; 539b (1:539b)
ld a, $c
jr asm_539f
asm_539f
ld hl, $1d
add hl, bc
ld [hl], a
ld hl, $b
add hl, bc
ld [hl], $2
ld hl, $9
add hl, bc
ld [hl], $a
ret
Function53b1: ; 53b1 (1:53b1)
call InitStep
call UpdateGrassPriority
ld hl, $b
add hl, bc
ld [hl], $2
ld hl, $e
add hl, bc
ld a, [hl]
call CheckSuperTallGrassTile
jr z, .asm_53cc
call CheckGrassTile
jr c, .asm_53cf
.asm_53cc
call Function54f5
.asm_53cf
ld hl, wCenteredObject
ldh a, [hConnectionStripLength]
cp [hl]
jr z, .asm_53de
ld hl, $9
add hl, bc
ld [hl], $2
ret
.asm_53de
ld hl, $9
add hl, bc
ld [hl], $6
ret
Function53e5: ; 53e5 (1:53e5)
call InitStep
call UpdateGrassPriority
ld hl, $b
add hl, bc
ld [hl], $4
ld hl, wCenteredObject
ldh a, [hMapObjectIndexBuffer]
cp [hl]
jr z, .asm_5400
ld hl, $9
add hl, bc
ld [hl], $2
ret
.asm_5400
ld hl, $9
add hl, bc
ld [hl], $6
ret
Function5407: ; 5407 (1:5407)
call InitStep
call UpdateGrassPriority
ld hl, $b
add hl, bc
ld [hl], $1
ld hl, wCenteredObject
ldh a, [hConnectionStripLength]
cp [hl]
jr z, .asm_5422
ld hl, $9
add hl, bc
ld [hl], $2
ret
.asm_5422
ld hl, $9
add hl, bc
ld [hl], $6
ret
|
