Leahnaya/pokegold
1
0
Fork 0
mirror of https://github.com/pret/pokegold.git synced 2026-05-19 10:20:46 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity
dcda0bae06
pokegold/engine/movement.asm
pikalaxalt 6bd75976f3 finish engine/movement.asm
2016-06-18 16:41:56 -04:00

777 lines
10 KiB
NASM
Executable File
Raw Blame History

GetMovementByte:
ld hl, wMovementDataPointerBank
call GetMovementByte_
ret
Function4fbd:
ld hl, $1b
add hl, bc
ld e, [hl]
inc [hl]
ld d, $0
ld hl, wMovementPerson
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, [wMovementPerson]
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
ld 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
ld 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
ld 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
ld 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
Reference in New Issue View Git Blame Copy Permalink