Rooba
/
pokecrystal
mirror of https://github.com/pret/pokecrystal.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
pokecrystal/engine/npc_movement.asm

574 lines
6.8 KiB
NASM
Raw Normal View History

opentext and breeding
2015-12-09 23:25:44 +00:00
Function6ec1: ; 6ec1
ld hl, OBJECT_PALETTE
add hl, bc
bit 5, [hl]
jr z, .not_bit_5
ld hl, OBJECT_FLAGS1
add hl, bc
Document one more bug
2017-12-21 16:43:41 +00:00
bit 4, [hl] ; lost, uncomment next line to fix
; jr nz, .resume
opentext and breeding
2015-12-09 23:25:44 +00:00
push hl
push bc
call Function6f2c
pop bc
pop hl
ret c
jr .resume
.not_bit_5
ld hl, OBJECT_FLAGS1
add hl, bc
bit 4, [hl]
jr nz, .resume
push hl
push bc
call Function6f07
pop bc
pop hl
ret c
.resume
bit 6, [hl]
jr nz, .bit_6
push hl
push bc
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
call WillObjectBumpIntoSomeoneElse
opentext and breeding
2015-12-09 23:25:44 +00:00
pop bc
pop hl
ret c
.bit_6
bit 5, [hl]
jr nz, .bit_5
push hl
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
call HasObjectReachedMovementLimit
opentext and breeding
2015-12-09 23:25:44 +00:00
pop hl
ret c
push hl
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
call IsObjectMovingOffEdgeOfScreen
opentext and breeding
2015-12-09 23:25:44 +00:00
pop hl
ret c
.bit_5
and a
ret
; 6f07
Function6f07: ; 6f07
call Function6f5f
ret c
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld e, [hl]
ld hl, OBJECT_PALETTE
add hl, bc
Use maskbits some more
2018-01-11 17:00:01 +00:00
bit OAM_PRIORITY, [hl]
opentext and breeding
2015-12-09 23:25:44 +00:00
jp nz, Function6fa1
ld hl, OBJECT_NEXT_TILE
add hl, bc
ld a, [hl]
ld d, a
call GetTileCollision
Use maskbits some more
2018-01-11 17:00:01 +00:00
and a ; LANDTILE
opentext and breeding
2015-12-09 23:25:44 +00:00
jr z, Function6f3e
scf
ret
; 6f2c
Function6f2c: ; 6f2c
call Function6f5f
ret c
ld hl, OBJECT_NEXT_TILE
add hl, bc
ld a, [hl]
call GetTileCollision
Fix WATERTILE/WALLTILE constants WATRTILE was wrongly defined as 15, and WALLTILE as 1. Those had to be flipped around. This has allowed for us to replace inmediate values with these constants in several places to improve readability. WATRTILE was renamed to WATERTILE in the name of readability.
2017-10-28 21:47:52 +00:00
cp WATERTILE
opentext and breeding
2015-12-09 23:25:44 +00:00
jr z, Function6f3e
scf
ret
; 6f3e
Function6f3e: ; 6f3e
ld hl, OBJECT_NEXT_TILE
add hl, bc
ld a, [hl]
call Function6f7f
ret nc
push af
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
Use maskbits some more
2018-01-11 17:00:01 +00:00
maskbits NUM_DIRECTIONS +- 1
opentext and breeding
2015-12-09 23:25:44 +00:00
ld e, a
ld d, 0
ld hl, .data_6f5b
add hl, de
pop af
and [hl]
ret z
scf
ret
; 6f5b
.data_6f5b
Move more data tables into data/ files.
2017-12-11 20:20:32 +00:00
db DOWN_MASK, UP_MASK, RIGHT_MASK, LEFT_MASK
opentext and breeding
2015-12-09 23:25:44 +00:00
; 6f5f
Function6f5f: ; 6f5f
ld hl, OBJECT_STANDING_TILE
add hl, bc
ld a, [hl]
call Function6f7f
ret nc
push af
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
Use maskbits some more
2018-01-11 17:00:01 +00:00
maskbits NUM_DIRECTIONS +- 1
opentext and breeding
2015-12-09 23:25:44 +00:00
ld e, a
ld d, 0
ld hl, .data_6f7b
add hl, de
pop af
and [hl]
ret z
scf
ret
; 6f7b
.data_6f7b
Move more data tables into data/ files.
2017-12-11 20:20:32 +00:00
db UP_MASK, DOWN_MASK, LEFT_MASK, RIGHT_MASK
opentext and breeding
2015-12-09 23:25:44 +00:00
; 6f7f
Function6f7f: ; 6f7f
ld d, a
and $f0
cp $b0
jr z, .done
cp $c0
jr z, .done
xor a
ret
.done
ld a, d
and 7
ld e, a
ld d, 0
ld hl, .data_6f99
add hl, de
ld a, [hl]
scf
ret
; 6f99
.data_6f99
db 8, 4, 1, 2
db 10, 6, 9, 5
; 6fa1
Function6fa1: ; 6fa1
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
Use maskbits some more
2018-01-11 17:00:01 +00:00
maskbits NUM_DIRECTIONS +- 1
jr z, .down
opentext and breeding
2015-12-09 23:25:44 +00:00
dec a
Use maskbits some more
2018-01-11 17:00:01 +00:00
jr z, .up
opentext and breeding
2015-12-09 23:25:44 +00:00
dec a
Use maskbits some more
2018-01-11 17:00:01 +00:00
jr z, .left
jr .right
opentext and breeding
2015-12-09 23:25:44 +00:00
Use maskbits some more
2018-01-11 17:00:01 +00:00
.down
opentext and breeding
2015-12-09 23:25:44 +00:00
inc e
push de
inc d
Use maskbits some more
2018-01-11 17:00:01 +00:00
jr .continue
opentext and breeding
2015-12-09 23:25:44 +00:00
Use maskbits some more
2018-01-11 17:00:01 +00:00
.up
opentext and breeding
2015-12-09 23:25:44 +00:00
push de
inc d
Use maskbits some more
2018-01-11 17:00:01 +00:00
jr .continue
opentext and breeding
2015-12-09 23:25:44 +00:00
Use maskbits some more
2018-01-11 17:00:01 +00:00
.left
opentext and breeding
2015-12-09 23:25:44 +00:00
push de
inc e
Use maskbits some more
2018-01-11 17:00:01 +00:00
jr .continue
opentext and breeding
2015-12-09 23:25:44 +00:00
Use maskbits some more
2018-01-11 17:00:01 +00:00
.right
opentext and breeding
2015-12-09 23:25:44 +00:00
inc d
push de
inc e
Use maskbits some more
2018-01-11 17:00:01 +00:00
.continue
opentext and breeding
2015-12-09 23:25:44 +00:00
call GetCoordTile
call GetTileCollision
pop de
Use maskbits some more
2018-01-11 17:00:01 +00:00
and a ; LANDTILE
jr nz, .not_land
opentext and breeding
2015-12-09 23:25:44 +00:00
call GetCoordTile
call GetTileCollision
Use maskbits some more
2018-01-11 17:00:01 +00:00
and a ; LANDTILE
jr nz, .not_land
opentext and breeding
2015-12-09 23:25:44 +00:00
xor a
ret
Use maskbits some more
2018-01-11 17:00:01 +00:00
.not_land
opentext and breeding
2015-12-09 23:25:44 +00:00
scf
ret
; 6fd9
CheckFacingObject:: ; 6fd9
call GetFacingTileCoord
; Double the distance for counter tiles.
call CheckCounterTile
jr nz, .asm_6ff1
Restored StandingTile and introduced LastTile
2016-01-11 07:28:09 +00:00
ld a, [PlayerStandingMapX]
opentext and breeding
2015-12-09 23:25:44 +00:00
sub d
cpl
inc a
add d
ld d, a
Restored StandingTile and introduced LastTile
2016-01-11 07:28:09 +00:00
ld a, [PlayerStandingMapY]
opentext and breeding
2015-12-09 23:25:44 +00:00
sub e
cpl
inc a
add e
ld e, a
.asm_6ff1
ld bc, ObjectStructs ; redundant
ld a, 0
ld [hMapObjectIndexBuffer], a
call IsNPCAtCoord
ret nc
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld a, [hl]
cp STANDING
jr z, .standing
xor a
ret
.standing
scf
ret
; 7009
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
WillObjectBumpIntoSomeoneElse: ; 7009
opentext and breeding
2015-12-09 23:25:44 +00:00
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld e, [hl]
jr IsNPCAtCoord
; 7015
Function7015: ; unreferenced
ld a, [hMapObjectIndexBuffer]
call GetObjectStruct
call .CheckWillBeFacingNPC
call IsNPCAtCoord
ret
.CheckWillBeFacingNPC: ; 7021
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld d, [hl]
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld e, [hl]
call GetSpriteDirection
and a
jr z, .down
cp OW_UP
jr z, .up
cp OW_LEFT
jr z, .left
inc d
ret
.down
inc e
ret
.up
dec e
ret
.left
dec d
ret
; 7041
IsNPCAtCoord: ; 7041
ld bc, ObjectStructs
xor a
.loop
ld [hObjectStructIndexBuffer], a
HDMA transfer functions
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
opentext and breeding
2015-12-09 23:25:44 +00:00
jr z, .next
ld hl, OBJECT_FLAGS1
add hl, bc
bit 7, [hl]
jr nz, .next
ld hl, OBJECT_PALETTE
add hl, bc
bit 7, [hl]
jr z, .got
call Function7171
jr nc, .ok
jr .ok2
.got
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .ok
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .ok
.ok2
ld a, [hMapObjectIndexBuffer]
ld l, a
ld a, [hObjectStructIndexBuffer]
cp l
jr nz, .setcarry
.ok
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .next
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .next
ld a, [hMapObjectIndexBuffer]
ld l, a
ld a, [hObjectStructIndexBuffer]
cp l
jr nz, .setcarry
.next
ld hl, OBJECT_STRUCT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [hObjectStructIndexBuffer]
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
and a
ret
.setcarry
scf
ret
; 70a4
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
HasObjectReachedMovementLimit: ; 70a4
opentext and breeding
2015-12-09 23:25:44 +00:00
ld hl, OBJECT_RADIUS
add hl, bc
ld a, [hl]
and a
jr z, .nope
and $f
jr z, .check_y
ld e, a
ld d, a
ld hl, OBJECT_INIT_X
add hl, bc
ld a, [hl]
sub d
ld d, a
ld a, [hl]
add e
ld e, a
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr z, .yes
cp e
jr z, .yes
.check_y
ld hl, OBJECT_RADIUS
add hl, bc
ld a, [hl]
swap a
and $f
jr z, .nope
ld e, a
ld d, a
ld hl, OBJECT_INIT_Y
add hl, bc
ld a, [hl]
sub d
ld d, a
ld a, [hl]
add e
ld e, a
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [hl]
cp d
jr z, .yes
cp e
jr z, .yes
.nope
xor a
ret
.yes
scf
ret
; 70ed
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 18:46:34 +00:00
IsObjectMovingOffEdgeOfScreen: ; 70ed
opentext and breeding
2015-12-09 23:25:44 +00:00
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [XCoord]
cp [hl]
jr z, .check_y
jr nc, .yes
add $9
cp [hl]
jr c, .yes
.check_y
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [YCoord]
cp [hl]
jr z, .nope
jr nc, .yes
add $8
cp [hl]
jr c, .yes
.nope
and a
ret
.yes
scf
ret
; 7113
Function7113: ; unreferenced
Restored StandingTile and introduced LastTile
2016-01-11 07:28:09 +00:00
ld a, [PlayerStandingMapX]
opentext and breeding
2015-12-09 23:25:44 +00:00
ld d, a
Restored StandingTile and introduced LastTile
2016-01-11 07:28:09 +00:00
ld a, [PlayerStandingMapY]
opentext and breeding
2015-12-09 23:25:44 +00:00
ld e, a
ld bc, ObjectStructs
xor a
.loop
ld [hObjectStructIndexBuffer], a
HDMA transfer functions
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
opentext and breeding
2015-12-09 23:25:44 +00:00
jr z, .next
ld hl, OBJECT_MOVEMENTTYPE
add hl, bc
ld a, [hl]
cp SPRITEMOVEDATA_SNORLAX
jr nz, .not_snorlax
call Function7171
jr c, .yes
jr .next
.not_snorlax
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .check_current_coords
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .check_current_coords
ld a, [hObjectStructIndexBuffer]
cp $0
jr z, .next
jr .yes
.check_current_coords
ld hl, OBJECT_MAP_Y
add hl, bc
ld a, [hl]
cp e
jr nz, .next
ld hl, OBJECT_MAP_X
add hl, bc
ld a, [hl]
cp d
jr nz, .next
jr .yes
.next
ld hl, OBJECT_STRUCT_LENGTH
add hl, bc
ld b, h
ld c, l
ld a, [hObjectStructIndexBuffer]
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
xor a
ret
.yes
scf
ret
; 7171
Function7171: ; 7171
ld hl, OBJECT_NEXT_MAP_X
add hl, bc
ld a, d
sub [hl]
jr c, .nope
cp $2
jr nc, .nope
ld hl, OBJECT_NEXT_MAP_Y
add hl, bc
ld a, e
sub [hl]
jr c, .nope
cp $2
jr nc, .nope
scf
ret
.nope
and a
ret
; 718d