pokecrystal-board/engine/npc_movement.asm

Function6ec1: ; 6ec1

	ld hl, OBJECT_PALETTE
	add hl, bc
	bit 5, [hl]
	jr z, .not_bit_5

	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit 4, [hl] ; lost, uncomment next line to fix
;	jr nz, .resume
	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
	call WillObjectBumpIntoSomeoneElse
	pop bc
	pop hl
	ret c

.bit_6
	bit 5, [hl]
	jr nz, .bit_5
	push hl
	call HasObjectReachedMovementLimit
	pop hl
	ret c

	push hl
	call IsObjectMovingOffEdgeOfScreen
	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
	bit OAM_PRIORITY, [hl]
	jp nz, Function6fa1
	ld hl, OBJECT_NEXT_TILE
	add hl, bc
	ld a, [hl]
	ld d, a
	call GetTileCollision
	and a ; LANDTILE
	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
	cp WATERTILE
	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]
	maskbits NUM_DIRECTIONS
	ld e, a
	ld d, 0
	ld hl, .data_6f5b
	add hl, de
	pop af
	and [hl]
	ret z
	scf
	ret
; 6f5b

.data_6f5b
	db DOWN_MASK, UP_MASK, RIGHT_MASK, LEFT_MASK
; 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
	maskbits NUM_DIRECTIONS
	ld e, a
	ld d, 0
	ld hl, .data_6f7b
	add hl, de
	pop af
	and [hl]
	ret z
	scf
	ret
; 6f7b

.data_6f7b
	db UP_MASK, DOWN_MASK, LEFT_MASK, RIGHT_MASK
; 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]
	maskbits NUM_DIRECTIONS
	jr z, .down
	dec a
	jr z, .up
	dec a
	jr z, .left
	jr .right

.down
	inc e
	push de
	inc d
	jr .continue

.up
	push de
	inc d
	jr .continue

.left
	push de
	inc e
	jr .continue

.right
	inc d
	push de
	inc e

.continue
	call GetCoordTile
	call GetTileCollision
	pop de
	and a ; LANDTILE
	jr nz, .not_land
	call GetCoordTile
	call GetTileCollision
	and a ; LANDTILE
	jr nz, .not_land
	xor a
	ret

.not_land
	scf
	ret
; 6fd9


CheckFacingObject:: ; 6fd9

	call GetFacingTileCoord

; Double the distance for counter tiles.
	call CheckCounterTile
	jr nz, .asm_6ff1

	ld a, [PlayerStandingMapX]
	sub d
	cpl
	inc a
	add d
	ld d, a

	ld a, [PlayerStandingMapY]
	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


WillObjectBumpIntoSomeoneElse: ; 7009
	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

Unreferenced_Function7015:
	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
	call DoesObjectHaveASprite
	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

HasObjectReachedMovementLimit: ; 70a4
	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

IsObjectMovingOffEdgeOfScreen: ; 70ed
	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

Unreferenced_Function7113:
	ld a, [PlayerStandingMapX]
	ld d, a
	ld a, [PlayerStandingMapY]
	ld e, a
	ld bc, ObjectStructs
	xor a
.loop
	ld [hObjectStructIndexBuffer], a
	call DoesObjectHaveASprite
	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
opentext and breeding 2015-12-09 15:25:44 -08: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 08:43:41 -08:00			`bit 4, [hl] ; lost, uncomment next line to fix`
			`; jr nz, .resume`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`call WillObjectBumpIntoSomeoneElse`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`call HasObjectReachedMovementLimit`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`call IsObjectMovingOffEdgeOfScreen`
opentext and breeding 2015-12-09 15:25:44 -08: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 09:00:01 -08:00			`bit OAM_PRIORITY, [hl]`
opentext and breeding 2015-12-09 15:25:44 -08: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 09:00:01 -08:00			`and a ; LANDTILE`
opentext and breeding 2015-12-09 15:25:44 -08: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 14:47:52 -07:00			`cp WATERTILE`
opentext and breeding 2015-12-09 15:25:44 -08: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]`
Avoid "+- 1" at every maskbits 2018-01-16 14:27:50 -08:00			`maskbits NUM_DIRECTIONS`
opentext and breeding 2015-12-09 15:25:44 -08: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 12:20:32 -08:00			`db DOWN_MASK, UP_MASK, RIGHT_MASK, LEFT_MASK`
opentext and breeding 2015-12-09 15:25:44 -08: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`
Avoid "+- 1" at every maskbits 2018-01-16 14:27:50 -08:00			`maskbits NUM_DIRECTIONS`
opentext and breeding 2015-12-09 15:25:44 -08: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 12:20:32 -08:00			`db UP_MASK, DOWN_MASK, LEFT_MASK, RIGHT_MASK`
opentext and breeding 2015-12-09 15:25:44 -08: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]`
Avoid "+- 1" at every maskbits 2018-01-16 14:27:50 -08:00			`maskbits NUM_DIRECTIONS`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr z, .down`
opentext and breeding 2015-12-09 15:25:44 -08:00			`dec a`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr z, .up`
opentext and breeding 2015-12-09 15:25:44 -08:00			`dec a`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr z, .left`
			`jr .right`
opentext and breeding 2015-12-09 15:25:44 -08:00
Use maskbits some more 2018-01-11 09:00:01 -08:00			`.down`
opentext and breeding 2015-12-09 15:25:44 -08:00			`inc e`
			`push de`
			`inc d`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr .continue`
opentext and breeding 2015-12-09 15:25:44 -08:00
Use maskbits some more 2018-01-11 09:00:01 -08:00			`.up`
opentext and breeding 2015-12-09 15:25:44 -08:00			`push de`
			`inc d`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr .continue`
opentext and breeding 2015-12-09 15:25:44 -08:00
Use maskbits some more 2018-01-11 09:00:01 -08:00			`.left`
opentext and breeding 2015-12-09 15:25:44 -08:00			`push de`
			`inc e`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`jr .continue`
opentext and breeding 2015-12-09 15:25:44 -08:00
Use maskbits some more 2018-01-11 09:00:01 -08:00			`.right`
opentext and breeding 2015-12-09 15:25:44 -08:00			`inc d`
			`push de`
			`inc e`

Use maskbits some more 2018-01-11 09:00:01 -08:00			`.continue`
opentext and breeding 2015-12-09 15:25:44 -08:00			`call GetCoordTile`
			`call GetTileCollision`
			`pop de`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`and a ; LANDTILE`
			`jr nz, .not_land`
opentext and breeding 2015-12-09 15:25:44 -08:00			`call GetCoordTile`
			`call GetTileCollision`
Use maskbits some more 2018-01-11 09:00:01 -08:00			`and a ; LANDTILE`
			`jr nz, .not_land`
opentext and breeding 2015-12-09 15:25:44 -08:00			`xor a`
			`ret`

Use maskbits some more 2018-01-11 09:00:01 -08:00			`.not_land`
opentext and breeding 2015-12-09 15:25:44 -08: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-10 23:28:09 -08:00			`ld a, [PlayerStandingMapX]`
opentext and breeding 2015-12-09 15:25:44 -08:00			`sub d`
			`cpl`
			`inc a`
			`add d`
			`ld d, a`

Restored StandingTile and introduced LastTile 2016-01-10 23:28:09 -08:00			`ld a, [PlayerStandingMapY]`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`WillObjectBumpIntoSomeoneElse: ; 7009`
opentext and breeding 2015-12-09 15:25:44 -08: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`

More unreferenced labels cleanup 2018-01-02 07:04:21 -08:00			`Unreferenced_Function7015:`
opentext and breeding 2015-12-09 15:25:44 -08:00			`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-04 19:34:09 -07:00			`call DoesObjectHaveASprite`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`HasObjectReachedMovementLimit: ; 70a4`
opentext and breeding 2015-12-09 15:25:44 -08: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 10:46:34 -08:00			`IsObjectMovingOffEdgeOfScreen: ; 70ed`
opentext and breeding 2015-12-09 15:25:44 -08: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`

More unreferenced labels cleanup 2018-01-02 07:04:21 -08:00			`Unreferenced_Function7113:`
Restored StandingTile and introduced LastTile 2016-01-10 23:28:09 -08:00			`ld a, [PlayerStandingMapX]`
opentext and breeding 2015-12-09 15:25:44 -08:00			`ld d, a`
Restored StandingTile and introduced LastTile 2016-01-10 23:28:09 -08:00			`ld a, [PlayerStandingMapY]`
opentext and breeding 2015-12-09 15:25:44 -08:00			`ld e, a`
			`ld bc, ObjectStructs`
			`xor a`
			`.loop`
			`ld [hObjectStructIndexBuffer], a`
HDMA transfer functions 2016-05-04 19:34:09 -07:00			`call DoesObjectHaveASprite`
opentext and breeding 2015-12-09 15:25:44 -08: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`