ref: 7233c19f57a452da2496f3eba5ed8d0a4293616e
dir: /engine/overworld/npc_movement.asm/
CanObjectMoveInDirection: ld hl, OBJECT_PALETTE add hl, bc bit SWIMMING_F, [hl] jr z, .not_swimming ld hl, OBJECT_FLAGS1 add hl, bc bit NOCLIP_TILES_F, [hl] ; lost, uncomment next line to fix ; jr nz, .noclip_tiles push hl push bc call WillObjectBumpIntoLand pop bc pop hl ret c jr .continue .not_swimming ld hl, OBJECT_FLAGS1 add hl, bc bit NOCLIP_TILES_F, [hl] jr nz, .noclip_tiles push hl push bc call WillObjectBumpIntoWater pop bc pop hl ret c .noclip_tiles .continue bit NOCLIP_OBJS_F, [hl] jr nz, .noclip_objs push hl push bc call WillObjectBumpIntoSomeoneElse pop bc pop hl ret c .noclip_objs bit MOVE_ANYWHERE_F, [hl] jr nz, .move_anywhere push hl call HasObjectReachedMovementLimit pop hl ret c push hl call IsObjectMovingOffEdgeOfScreen pop hl ret c .move_anywhere and a ret WillObjectBumpIntoWater: 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 ; LAND_TILE jr z, WillObjectBumpIntoTile scf ret WillObjectBumpIntoLand: call Function6f5f ret c ld hl, OBJECT_NEXT_TILE add hl, bc ld a, [hl] call GetTileCollision cp WATER_TILE jr z, WillObjectBumpIntoTile scf ret WillObjectBumpIntoTile: 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 .data_6f5b db DOWN_MASK ; DOWN db UP_MASK ; UP db RIGHT_MASK ; LEFT db LEFT_MASK ; RIGHT Function6f5f: 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 .data_6f7b db UP_MASK ; DOWN db DOWN_MASK ; UP db LEFT_MASK ; LEFT db RIGHT_MASK ; RIGHT Function6f7f: ld d, a and $f0 cp HI_NYBBLE_SIDE_WALLS jr z, .continue cp HI_NYBBLE_SIDE_BUOYS jr z, .continue xor a ret .continue ld a, d and 7 ld e, a ld d, 0 ld hl, .data_6f99 add hl, de ld a, [hl] scf ret .data_6f99 db RIGHT_MASK ; COLL_RIGHT_WALL/BUOY db LEFT_MASK ; COLL_LEFT_WALL/BUOY db DOWN_MASK ; COLL_UP_WALL/BUOY db UP_MASK ; COLL_DOWN_WALL/BUOY db UP_MASK | RIGHT_MASK ; COLL_DOWN_RIGHT_WALL/BUOY db UP_MASK | LEFT_MASK ; COLL_DOWN_LEFT_WALL/BUOY db DOWN_MASK | RIGHT_MASK ; COLL_UP_RIGHT_WALL/BUOY db DOWN_MASK | LEFT_MASK ; COLL_UP_LEFT_WALL/BUOY Function6fa1: 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 ; LAND_TILE jr nz, .not_land call GetCoordTile call GetTileCollision and a ; LAND_TILE jr nz, .not_land xor a ret .not_land scf ret CheckFacingObject:: call GetFacingTileCoord ; Double the distance for counter tiles. call CheckCounterTile jr nz, .asm_6ff1 ld a, [wPlayerStandingMapX] sub d cpl inc a add d ld d, a ld a, [wPlayerStandingMapY] sub e cpl inc a add e ld e, a .asm_6ff1 ld bc, wObjectStructs ; redundant ld a, 0 ldh [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 WillObjectBumpIntoSomeoneElse: 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 Function7015: ; unreferenced ldh a, [hMapObjectIndexBuffer] call GetObjectStruct call .CheckWillBeFacingNPC call IsNPCAtCoord ret .CheckWillBeFacingNPC: 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 IsNPCAtCoord: ld bc, wObjectStructs xor a .loop ldh [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 BIG_OBJECT_F, [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 ldh a, [hMapObjectIndexBuffer] ld l, a ldh 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 ldh a, [hMapObjectIndexBuffer] ld l, a ldh a, [hObjectStructIndexBuffer] cp l jr nz, .setcarry .next ld hl, OBJECT_LENGTH add hl, bc ld b, h ld c, l ldh a, [hObjectStructIndexBuffer] inc a cp NUM_OBJECT_STRUCTS jr nz, .loop and a ret .setcarry scf ret HasObjectReachedMovementLimit: 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 IsObjectMovingOffEdgeOfScreen: ld hl, OBJECT_NEXT_MAP_X add hl, bc ld a, [wXCoord] 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, [wYCoord] cp [hl] jr z, .nope jr nc, .yes add $8 cp [hl] jr c, .yes .nope and a ret .yes scf ret Function7113: ; unreferenced ld a, [wPlayerStandingMapX] ld d, a ld a, [wPlayerStandingMapY] ld e, a ld bc, wObjectStructs xor a .loop ldh [hObjectStructIndexBuffer], a call DoesObjectHaveASprite jr z, .next ld hl, OBJECT_MOVEMENTTYPE add hl, bc ld a, [hl] cp SPRITEMOVEDATA_BIGDOLLSYM 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 ldh a, [hObjectStructIndexBuffer] cp PLAYER_OBJECT 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_LENGTH add hl, bc ld b, h ld c, l ldh a, [hObjectStructIndexBuffer] inc a cp NUM_OBJECT_STRUCTS jr nz, .loop xor a ret .yes scf ret Function7171: 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