pokecrystal/engine/overworld/map_objects.asm

3040 lines
48 KiB
NASM
Raw Normal View History

INCLUDE "data/sprites/facings.asm"
2015-02-11 22:13:22 +00:00
INCLUDE "data/sprites/map_objects.asm"
2015-11-16 05:52:53 +00:00
2018-06-24 14:09:41 +00:00
DeleteMapObject::
2015-02-11 22:13:22 +00:00
push bc
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
push af
ld h, b
ld l, c
ld bc, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
xor a
call ByteFill
pop af
cp -1
jr z, .ok
2015-02-11 22:13:22 +00:00
bit 7, a
jr nz, .ok
2015-02-11 22:13:22 +00:00
call GetMapObject
ld hl, OBJECT_SPRITE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], -1
.ok
2015-02-11 22:13:22 +00:00
pop bc
ret
2020-10-05 20:15:57 +00:00
HandleObjectStep:
call CheckObjectStillVisible
2015-02-11 22:13:22 +00:00
ret c
call HandleStepType
call HandleObjectAction
2015-02-11 22:13:22 +00:00
ret
CheckObjectStillVisible:
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
res OBJ_FLAGS2_6, [hl]
2018-01-23 22:39:09 +00:00
ld a, [wXCoord]
2015-02-11 22:13:22 +00:00
ld e, a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
add 1
2015-02-11 22:13:22 +00:00
sub e
jr c, .ok
cp MAPOBJECT_SCREEN_WIDTH
jr nc, .ok
2018-01-23 22:39:09 +00:00
ld a, [wYCoord]
2015-02-11 22:13:22 +00:00
ld e, a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
add 1
2015-02-11 22:13:22 +00:00
sub e
jr c, .ok
cp MAPOBJECT_SCREEN_HEIGHT
jr nc, .ok
jr .yes
2015-02-11 22:13:22 +00:00
.ok
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
set OBJ_FLAGS2_6, [hl]
2018-01-23 22:39:09 +00:00
ld a, [wXCoord]
2015-02-11 22:13:22 +00:00
ld e, a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_INIT_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
add 1
2015-02-11 22:13:22 +00:00
sub e
jr c, .ok2
cp MAPOBJECT_SCREEN_WIDTH
jr nc, .ok2
2018-01-23 22:39:09 +00:00
ld a, [wYCoord]
2015-02-11 22:13:22 +00:00
ld e, a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_INIT_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
add 1
2015-02-11 22:13:22 +00:00
sub e
jr c, .ok2
cp MAPOBJECT_SCREEN_HEIGHT
jr nc, .ok2
.yes
2015-02-11 22:13:22 +00:00
and a
ret
.ok2
ld hl, OBJECT_FLAGS1
2015-02-11 22:13:22 +00:00
add hl, bc
bit WONT_DELETE_F, [hl]
jr nz, .yes2
2015-12-17 20:14:51 +00:00
call DeleteMapObject
2015-02-11 22:13:22 +00:00
scf
ret
.yes2
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
set OBJ_FLAGS2_6, [hl]
2015-02-11 22:13:22 +00:00
and a
ret
HandleStepType:
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and a
jr z, .zero
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
bit FROZEN_F, [hl]
jr nz, .frozen
cp STEP_TYPE_FROM_MOVEMENT
jr z, .one
2015-12-29 18:15:58 +00:00
jr .ok3
2015-02-11 22:13:22 +00:00
.zero
call StepFunction_Reset
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
bit FROZEN_F, [hl]
jr nz, .frozen
.one
call StepFunction_FromMovement
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and a
ret z
cp STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret z
2015-12-29 18:15:58 +00:00
.ok3
ld hl, StepTypesJumptable
2015-02-11 22:13:22 +00:00
rst JumpTable
ret
2020-10-23 01:25:40 +00:00
.frozen
2015-02-11 22:13:22 +00:00
ret
HandleObjectAction:
ld hl, OBJECT_FLAGS1
2015-02-11 22:13:22 +00:00
add hl, bc
bit INVISIBLE_F, [hl]
jr nz, SetFacingStanding
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
bit OBJ_FLAGS2_6, [hl]
jr nz, SetFacingStanding
2020-10-23 01:25:40 +00:00
bit FROZEN_F, [hl]
jr nz, _CallFrozenObjectAction
; use first column (normal)
ld de, ObjectActionPairPointers
jr CallObjectAction
2015-02-11 22:13:22 +00:00
HandleFrozenObjectAction:
ld hl, OBJECT_FLAGS1
2015-02-11 22:13:22 +00:00
add hl, bc
bit INVISIBLE_F, [hl]
jr nz, SetFacingStanding
_CallFrozenObjectAction:
2020-10-23 01:25:40 +00:00
; use second column (frozen)
ld de, ObjectActionPairPointers + 2
jr CallObjectAction ; pointless
2015-02-11 22:13:22 +00:00
CallObjectAction:
ld hl, OBJECT_ACTION
add hl, bc
ld a, [hl]
ld l, a
ld h, 0
add hl, hl
add hl, hl
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
call _hl_
ret
INCLUDE "engine/overworld/map_object_action.asm"
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
CopyNextCoordsTileToStandingCoordsTile:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ld hl, OBJECT_STANDING_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
call SetTallGrassFlags
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call UselessAndA
2015-02-11 22:13:22 +00:00
ret
CopyStandingCoordsTileToNextCoordsTile:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
UpdateTallGrassFlags:
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
bit OVERHEAD_F, [hl]
jr z, .ok
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call SetTallGrassFlags
.ok
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call UselessAndA
ret c ; never happens
ld hl, OBJECT_STANDING_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call UselessAndA
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
SetTallGrassFlags:
call CheckSuperTallGrassTile
jr z, .set
call CheckGrassTile
jr c, .reset
.set
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
set OVERHEAD_F, [hl]
2015-02-11 22:13:22 +00:00
ret
.reset
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
res OVERHEAD_F, [hl]
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
UselessAndA:
2015-02-11 22:13:22 +00:00
and a
ret
2018-06-24 14:09:41 +00:00
EndSpriteMovement:
2015-02-11 22:13:22 +00:00
xor a
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hli], a
ld [hli], a ; OBJECT_1C
ld [hli], a ; OBJECT_1D
ld [hl], a ; OBJECT_1E
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
InitStep:
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_FLAGS1
2015-02-11 22:13:22 +00:00
add hl, bc
bit FIXED_FACING_F, [hl]
jr nz, GetNextTile
2015-02-11 22:13:22 +00:00
add a
2015-12-27 02:59:03 +00:00
add a
and %00001100
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
; fallthrough
2018-06-24 14:09:41 +00:00
GetNextTile:
2015-02-11 22:13:22 +00:00
call GetStepVector
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld a, d
2015-11-14 19:41:47 +00:00
call GetStepVectorSign
ld hl, OBJECT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
add [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld d, a
ld a, e
2015-11-14 19:41:47 +00:00
call GetStepVectorSign
ld hl, OBJECT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
add [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld e, a
push bc
2015-11-13 05:49:27 +00:00
call GetCoordTile
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
AddStepVector:
2015-02-11 22:13:22 +00:00
call GetStepVector
ld hl, OBJECT_SPRITE_X
add hl, bc
ld a, [hl]
add d
ld [hl], a
ld hl, OBJECT_SPRITE_Y
add hl, bc
ld a, [hl]
add e
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
GetStepVector:
2015-02-11 22:13:22 +00:00
; Return (x, y, duration, speed) in (d, e, a, h).
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00001111
2015-02-11 22:13:22 +00:00
add a
2015-12-27 02:59:03 +00:00
add a
2015-02-11 22:13:22 +00:00
ld l, a
ld h, 0
ld de, StepVectors
add hl, de
ld d, [hl]
inc hl
ld e, [hl]
inc hl
ld a, [hli]
ld h, [hl]
ret
2018-06-24 14:09:41 +00:00
StepVectors:
2015-02-11 22:13:22 +00:00
; x, y, duration, speed
; slow
db 0, 1, 16, 1
db 0, -1, 16, 1
db -1, 0, 16, 1
db 1, 0, 16, 1
; normal
db 0, 2, 8, 2
db 0, -2, 8, 2
db -2, 0, 8, 2
db 2, 0, 8, 2
; fast
db 0, 4, 4, 4
db 0, -4, 4, 4
db -4, 0, 4, 4
db 4, 0, 4, 4
2018-01-11 06:45:27 +00:00
2018-06-24 14:09:41 +00:00
GetStepVectorSign:
2015-02-11 22:13:22 +00:00
add a
ret z ; 0 or 128 (-128)
2015-02-11 22:13:22 +00:00
ld a, 1
ret nc ; +1 to +127
2015-02-11 22:13:22 +00:00
ld a, -1
ret ; -127 to -1
2018-01-11 06:45:27 +00:00
2018-06-24 14:09:41 +00:00
UpdatePlayerStep:
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00000011
ld [wPlayerStepDirection], a
2015-11-14 19:41:47 +00:00
call AddStepVector
ld a, [wPlayerStepVectorX]
2015-02-11 22:13:22 +00:00
add d
ld [wPlayerStepVectorX], a
ld a, [wPlayerStepVectorY]
2015-02-11 22:13:22 +00:00
add e
ld [wPlayerStepVectorY], a
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_CONTINUE_F, [hl]
2015-02-11 22:13:22 +00:00
ret
GetMapObjectField: ; unreferenced
2015-02-11 22:13:22 +00:00
push bc
ld e, a
ld d, 0
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call GetMapObject
add hl, de
ld a, [hl]
pop bc
ret
2018-06-24 14:09:41 +00:00
RestoreDefaultMovement:
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp -1
jr z, .ok
2015-02-11 22:13:22 +00:00
push bc
call GetMapObject
2015-07-29 22:22:23 +00:00
ld hl, MAPOBJECT_MOVEMENT
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop bc
ret
.ok
2019-08-21 12:43:21 +00:00
ld a, SPRITEMOVEDATA_STANDING_DOWN
2015-02-11 22:13:22 +00:00
ret
ObjectMovementByte_ZeroAnonJumptableIndex: ; unreferenced
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ret
ObjectMovementByte_IncAnonJumptableIndex:
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ret
ObjectMovementByte_DecAnonJumptableIndex:
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
dec [hl]
ret
ObjectMovementByte_AnonJumptable:
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop hl
rst JumpTable
ret
Field1c_ZeroAnonJumptableIndex:
ld hl, OBJECT_1C
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ret
Field1c_IncAnonJumptableIndex:
ld hl, OBJECT_1C
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ret
Field1c_AnonJumptable:
ld hl, OBJECT_1C
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop hl
rst JumpTable
ret
Field1c_GetAnonJumptableIndex: ; unreferenced
ld hl, OBJECT_1C
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ret
Field1c_SetAnonJumptableIndex: ; unreferenced
ld hl, OBJECT_1C
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ret
StepFunction_Reset:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
push bc
2015-11-13 05:49:27 +00:00
call GetCoordTile
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
call EndSpriteMovement
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_FromMovement:
call Field1c_ZeroAnonJumptableIndex
2015-11-06 21:42:38 +00:00
call GetSpriteMovementFunction
2015-02-11 22:13:22 +00:00
ld a, [hl]
ld hl, .Pointers
rst JumpTable
ret
2018-06-24 14:09:41 +00:00
.Pointers:
; entries correspond to SPRITEMOVEFN_* constants
dw MovementFunction_Null ; 00
dw MovementFunction_RandomWalkY ; 01
dw MovementFunction_RandomWalkX ; 02
dw MovementFunction_RandomWalkXY ; 03
dw MovementFunction_RandomSpinSlow ; 04
dw MovementFunction_RandomSpinFast ; 05
dw MovementFunction_Standing ; 06
dw MovementFunction_ObeyDPad ; 07
dw MovementFunction_Indexed1 ; 08
dw MovementFunction_Indexed2 ; 09
dw MovementFunction_0a ; 0a
dw MovementFunction_0b ; 0b
dw MovementFunction_0c ; 0c
dw MovementFunction_0d ; 0d
dw MovementFunction_0e ; 0e
dw MovementFunction_Follow ; 0f
dw MovementFunction_Script ; 10
dw MovementFunction_Strength ; 11
dw MovementFunction_FollowNotExact ; 12
dw MovementFunction_Shadow ; 13
dw MovementFunction_Emote ; 14
dw MovementFunction_BigStanding ; 15
dw MovementFunction_Bouncing ; 16
dw MovementFunction_ScreenShake ; 17
dw MovementFunction_SpinClockwise ; 18
dw MovementFunction_SpinCounterclockwise ; 19
dw MovementFunction_BoulderDust ; 1a
dw MovementFunction_ShakingGrass ; 1b
MovementFunction_Null:
ret
MovementFunction_RandomWalkY:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %00000001
jp _RandomWalkContinue
2015-02-11 22:13:22 +00:00
MovementFunction_RandomWalkX:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %00000001
or %00000010
jp _RandomWalkContinue
2015-02-11 22:13:22 +00:00
MovementFunction_RandomWalkXY:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %00000011
jp _RandomWalkContinue
2015-02-11 22:13:22 +00:00
MovementFunction_RandomSpinSlow:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %00001100
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-11-14 19:41:47 +00:00
jp RandomStepDuration_Slow
2015-02-11 22:13:22 +00:00
MovementFunction_RandomSpinFast:
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00001100
2015-02-11 22:13:22 +00:00
ld d, a
call Random
ldh a, [hRandomAdd]
and %00001100
2015-02-11 22:13:22 +00:00
cp d
jr nz, .keep
xor %00001100
.keep
2015-02-11 22:13:22 +00:00
ld [hl], a
2015-11-14 19:41:47 +00:00
jp RandomStepDuration_Fast
2015-02-11 22:13:22 +00:00
MovementFunction_Standing:
call CopyStandingCoordsTileToNextCoordsTile
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STAND
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_RESTORE
2015-02-11 22:13:22 +00:00
ret
MovementFunction_ObeyDPad:
ld hl, GetPlayerNextMovementByte
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_Indexed1:
ld hl, GetIndexedMovementByte1
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_Indexed2:
ld hl, GetIndexedMovementByte2
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_0a:
jp _GetMovementObject
2015-02-11 22:13:22 +00:00
MovementFunction_0b:
jp _GetMovementObject
2015-02-11 22:13:22 +00:00
MovementFunction_0c:
jp _GetMovementObject
2015-02-11 22:13:22 +00:00
MovementFunction_0d:
ld hl, GetPlayerNextMovementByte
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_0e:
jp _GetMovementObject
2015-02-11 22:13:22 +00:00
MovementFunction_Follow:
2015-12-29 18:15:58 +00:00
ld hl, GetFollowerNextMovementByte
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_Script:
2015-12-29 18:15:58 +00:00
ld hl, GetMovementByte
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
MovementFunction_Strength:
call ObjectMovementByte_AnonJumptable
.anon_dw
dw .start
dw .stop
2015-02-11 22:13:22 +00:00
.start:
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call CheckPitTile
jr z, .on_pit
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
bit OBJ_FLAGS2_2, [hl]
res OBJ_FLAGS2_2, [hl]
jr z, .ok
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_RANGE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00000011
or 0
2015-12-17 20:14:51 +00:00
call InitStep
call CanObjectMoveInDirection
jr c, .ok2
2015-02-11 22:13:22 +00:00
ld de, SFX_STRENGTH
call PlaySFX
2015-11-14 19:41:47 +00:00
call SpawnStrengthBoulderDust
2015-12-17 20:14:51 +00:00
call UpdateTallGrassFlags
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_STRENGTH_BOULDER
2015-02-11 22:13:22 +00:00
ret
.ok2
call CopyStandingCoordsTileToNextCoordsTile
.ok
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ret
.on_pit
call ObjectMovementByte_IncAnonJumptableIndex
.stop:
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ret
MovementFunction_FollowNotExact:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_RANGE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
push bc
call GetObjectStruct
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp STANDING
jr z, .standing
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp d
jr z, .equal
jr c, .less
ld a, 3
jr .done
2015-02-11 22:13:22 +00:00
.less
ld a, 2
jr .done
2015-02-11 22:13:22 +00:00
.equal
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp e
jr z, .standing
jr c, .less2
ld a, 0
jr .done
2015-02-11 22:13:22 +00:00
.less2
ld a, 1
.done
2015-02-11 22:13:22 +00:00
ld d, a
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00001100
2015-02-11 22:13:22 +00:00
or d
pop bc
jp NormalStep
2015-02-11 22:13:22 +00:00
.standing
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STAND
2015-02-11 22:13:22 +00:00
ret
MovementFunction_BigStanding:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_BIG_DOLL_SYM
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_STANDING
2015-02-11 22:13:22 +00:00
ret
MovementFunction_Bouncing:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_BOUNCE
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_STANDING
2015-02-11 22:13:22 +00:00
ret
MovementFunction_SpinCounterclockwise:
call ObjectMovementByte_AnonJumptable
.anon_dw
dw _MovementSpinInit
dw _MovementSpinRepeat
dw _MovementSpinTurnLeft
2015-02-11 22:13:22 +00:00
MovementFunction_SpinClockwise:
call ObjectMovementByte_AnonJumptable
.anon_dw
dw _MovementSpinInit
dw _MovementSpinRepeat
dw _MovementSpinTurnRight
2015-02-11 22:13:22 +00:00
_MovementSpinInit:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
call ObjectMovementByte_IncAnonJumptableIndex
; fallthrough
_MovementSpinRepeat:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STAND
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_RANGE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ld a, $10
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_SLEEP
call ObjectMovementByte_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
_MovementSpinTurnLeft:
ld de, .facings_counterclockwise
call _MovementSpinNextFacing
jr MovementFunction_SpinCounterclockwise
2015-02-11 22:13:22 +00:00
.facings_counterclockwise:
db OW_RIGHT
db OW_LEFT
db OW_DOWN
db OW_UP
2015-02-11 22:13:22 +00:00
_MovementSpinTurnRight:
ld de, .facings_clockwise
call _MovementSpinNextFacing
jr MovementFunction_SpinClockwise
2015-02-11 22:13:22 +00:00
.facings_clockwise:
db OW_LEFT
db OW_RIGHT
db OW_UP
db OW_DOWN
2015-02-11 22:13:22 +00:00
_MovementSpinNextFacing:
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
and %00001100
2015-02-11 22:13:22 +00:00
rrca
rrca
push hl
ld l, a
ld h, 0
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
pop hl
ld [hl], a
call ObjectMovementByte_DecAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
MovementFunction_Shadow:
call InitMovementField1dField1e
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SHADOW
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, de
ld a, [hl]
inc a
add a
add 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
2018-01-16 22:27:50 +00:00
maskbits NUM_DIRECTIONS
2015-12-17 20:14:51 +00:00
ld d, 1 * 8 + 6
cp DOWN
jr z, .ok
cp UP
jr z, .ok
2015-12-17 20:14:51 +00:00
ld d, 1 * 8 + 4
.ok
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], d
ld hl, OBJECT_SPRITE_X_OFFSET
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], STEP_TYPE_TRACKING_OBJECT
2015-02-11 22:13:22 +00:00
ret
MovementFunction_Emote:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
call InitMovementField1dField1e
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_EMOTE
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], -2 * 8
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_X_OFFSET
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], STEP_TYPE_TRACKING_OBJECT
2015-02-11 22:13:22 +00:00
ret
MovementFunction_BoulderDust:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
call InitMovementField1dField1e
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_BOULDER_DUST
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, de
ld a, [hl]
inc a
add a
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
and %00000011
2015-02-11 22:13:22 +00:00
ld e, a
ld d, 0
ld hl, .dust_coords
2015-12-29 18:15:58 +00:00
add hl, de
add hl, de
2015-02-11 22:13:22 +00:00
ld d, [hl]
inc hl
ld e, [hl]
ld hl, OBJECT_SPRITE_X_OFFSET
add hl, bc
ld [hl], d
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], e
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], STEP_TYPE_TRACKING_OBJECT
2015-02-11 22:13:22 +00:00
ret
.dust_coords:
2015-02-11 22:13:22 +00:00
; x, y
db 0, -4
db 0, 8
db 6, 2
db -6, 2
MovementFunction_ShakingGrass:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
call InitMovementField1dField1e
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_GRASS_SHAKE
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, de
ld a, [hl]
add -1
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], STEP_TYPE_TRACKING_OBJECT
2015-02-11 22:13:22 +00:00
ret
InitMovementField1dField1e:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_RANGE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
push bc
call GetObjectStruct
2015-02-11 22:13:22 +00:00
ld d, b
ld e, c
pop bc
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], e
inc hl
ld [hl], d
ret
MovementFunction_ScreenShake:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_00
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_RANGE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
call .GetDurationAndField1e
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], e
ld hl, OBJECT_1E
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_SCREENSHAKE
2015-02-11 22:13:22 +00:00
ret
.GetDurationAndField1e:
2015-02-11 22:13:22 +00:00
ld d, a
and %00111111
2015-02-11 22:13:22 +00:00
ld e, a
ld a, d
rlca
rlca
and %00000011
2015-02-11 22:13:22 +00:00
ld d, a
inc d
ld a, 1
.loop
2015-02-11 22:13:22 +00:00
dec d
ret z
add a
jr .loop
2015-02-11 22:13:22 +00:00
_RandomWalkContinue:
2015-12-17 20:14:51 +00:00
call InitStep
call CanObjectMoveInDirection
jr c, .new_duration
2015-12-17 20:14:51 +00:00
call UpdateTallGrassFlags
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STEP
2015-11-16 16:53:26 +00:00
ld hl, wCenteredObject
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
cp [hl]
jr z, .centered
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_CONTINUE_WALK
2015-02-11 22:13:22 +00:00
ret
.centered
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-11-16 16:53:26 +00:00
ld [hl], STEP_TYPE_PLAYER_WALK
2015-02-11 22:13:22 +00:00
ret
.new_duration:
2015-12-17 20:14:51 +00:00
call EndSpriteMovement
call CopyStandingCoordsTileToNextCoordsTile
; fallthrough
2018-06-24 14:09:41 +00:00
RandomStepDuration_Slow:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %01111111
jr _SetRandomStepDuration
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
RandomStepDuration_Fast:
2015-02-11 22:13:22 +00:00
call Random
ldh a, [hRandomAdd]
and %00011111
_SetRandomStepDuration:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STAND
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_SLEEP
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
StepTypesJumptable:
; entries correspond to STEP_TYPE_* constants
dw StepFunction_Reset ; 00
dw StepFunction_FromMovement ; 01
dw StepFunction_NPCWalk ; 02
dw StepFunction_Sleep ; 03
dw StepFunction_Standing ; 04
dw StepFunction_Restore ; 05
dw StepFunction_PlayerWalk ; 06
dw StepFunction_ContinueWalk ; 07
dw StepFunction_NPCJump ; 08
dw StepFunction_PlayerJump ; 09
dw StepFunction_Turn ; 0a
dw StepFunction_Bump ; 0b
dw StepFunction_TeleportFrom ; 0c
dw StepFunction_TeleportTo ; 0d
dw StepFunction_Skyfall ; 0e
dw StepFunction_StrengthBoulder ; 0f
dw StepFunction_GotBite ; 10
dw StepFunction_RockSmash ; 11
dw StepFunction_DigTo ; 12
dw StepFunction_TrackingObject ; 13
dw StepFunction_14 ; 14
dw StepFunction_ScreenShake ; 15
dw StepFunction_16 ; 16
dw StepFunction_17 ; 17
dw StepFunction_Delete ; 18
dw StepFunction_SkyfallTop ; 19
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
WaitStep_InPlace:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_NPCJump:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Jump
dw .Land
2015-02-11 22:13:22 +00:00
.Jump:
2015-11-14 19:41:47 +00:00
call AddStepVector
2015-02-11 22:13:22 +00:00
call UpdateJumpPosition
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
call GetNextTile
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
res OVERHEAD_F, [hl]
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
.Land:
2015-11-14 19:41:47 +00:00
call AddStepVector
2015-02-11 22:13:22 +00:00
call UpdateJumpPosition
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_PlayerJump:
call Field1c_AnonJumptable
.anon_dw
2015-12-17 20:14:51 +00:00
dw .initjump
dw .stepjump
dw .initland
dw .stepland
2015-02-11 22:13:22 +00:00
2015-12-29 18:15:58 +00:00
.initjump
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_START_F, [hl]
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.stepjump
2015-02-11 22:13:22 +00:00
call UpdateJumpPosition
2015-12-17 20:14:51 +00:00
call UpdatePlayerStep
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
res OVERHEAD_F, [hl]
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_STOP_F, [hl]
set PLAYERSTEP_MIDAIR_F, [hl]
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
2015-12-29 18:15:58 +00:00
.initland
call GetNextTile
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_START_F, [hl]
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.stepland
2015-02-11 22:13:22 +00:00
call UpdateJumpPosition
2015-12-17 20:14:51 +00:00
call UpdatePlayerStep
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_STOP_F, [hl]
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_TeleportFrom:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .InitSpin
dw .DoSpin
dw .InitSpinRise
dw .DoSpinRise
2015-02-11 22:13:22 +00:00
.InitSpin:
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
.DoSpin:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SPIN
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
.InitSpinRise:
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], $10
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
res OVERHEAD_F, [hl]
call Field1c_IncAnonJumptableIndex
.DoSpinRise:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SPIN
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ld a, [hl]
ld d, $60
call Sine
ld a, h
sub $60
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_TeleportTo:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .InitWait
dw .DoWait
dw .InitDescent
dw .DoDescent
dw .InitFinalSpin
dw .DoFinalSpin
dw .FinishStep
2015-02-11 22:13:22 +00:00
.InitWait:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_00
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
.DoWait:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
call Field1c_IncAnonJumptableIndex
.InitDescent:
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
.DoDescent:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SPIN
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ld a, [hl]
ld d, $60
call Sine
ld a, h
sub $60
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
call Field1c_IncAnonJumptableIndex
.InitFinalSpin:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
ret
.DoFinalSpin:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SPIN
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
.FinishStep:
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_Skyfall:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Init
dw .Step
dw .Fall
dw .Finish
2015-02-11 22:13:22 +00:00
.Init:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_00
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
.Step:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_STEP
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-29 18:15:58 +00:00
ld [hl], 16
call Field1c_IncAnonJumptableIndex
.Fall:
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ld a, [hl]
ld d, $60
call Sine
ld a, h
sub $60
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
call Field1c_IncAnonJumptableIndex
.Finish:
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_GotBite:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Init
dw .Run
2015-02-11 22:13:22 +00:00
.Init:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], 8
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], 0
call Field1c_IncAnonJumptableIndex
.Run:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld a, [hl]
xor 1
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_RockSmash:
2015-12-29 18:15:58 +00:00
call .Step
jp WaitStep_InPlace
2015-02-11 22:13:22 +00:00
.Step:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld a, [hl]
and %00000001
ld a, OBJECT_ACTION_STAND
jr z, .yes
ld a, OBJECT_ACTION_00
.yes
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ret
StepFunction_DigTo:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld a, [hl]
and %00000001
ld a, OBJECT_ACTION_SPIN
jr z, .yes
ld a, OBJECT_ACTION_SPIN_FLICKER
.yes
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2015-12-29 18:15:58 +00:00
jp WaitStep_InPlace
2015-02-11 22:13:22 +00:00
StepFunction_Sleep:
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_Delete:
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
jp DeleteMapObject
2015-02-11 22:13:22 +00:00
StepFunction_Bump:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_Restore:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Reset
dw StepFunction_Standing
2015-02-11 22:13:22 +00:00
.Reset:
2015-11-02 16:15:32 +00:00
call RestoreDefaultMovement
call GetInitialFacing
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
call Field1c_IncAnonJumptableIndex
; fallthrough
StepFunction_Standing:
call Stubbed_UpdateYOffset
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
ret
StepFunction_NPCWalk:
call Stubbed_UpdateYOffset
2015-11-14 19:41:47 +00:00
call AddStepVector
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_ContinueWalk:
2015-11-14 19:41:47 +00:00
call AddStepVector
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
2015-11-14 19:41:47 +00:00
jp RandomStepDuration_Slow
2015-02-11 22:13:22 +00:00
StepFunction_PlayerWalk:
call Field1c_AnonJumptable
.anon_dw
2015-12-17 20:14:51 +00:00
dw .init
dw .step
2015-02-11 22:13:22 +00:00
2015-12-29 18:15:58 +00:00
.init
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_START_F, [hl]
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.step
2015-12-17 20:14:51 +00:00
call UpdatePlayerStep
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, wPlayerStepFlags
2019-01-25 02:41:14 +00:00
set PLAYERSTEP_STOP_F, [hl]
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_Turn:
call Field1c_AnonJumptable
.anon_dw
2015-12-17 20:14:51 +00:00
dw .init1
dw .step1
dw .init2
dw .step2
2015-02-11 22:13:22 +00:00
2015-12-29 18:15:58 +00:00
.init1
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ld [hl], 2
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], 2
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.step1
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.init2
ld hl, OBJECT_1D ; new facing
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
2015-12-17 20:14:51 +00:00
ld [hl], 2
call Field1c_IncAnonJumptableIndex
2015-12-29 18:15:58 +00:00
.step2
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_StrengthBoulder:
2015-11-14 19:41:47 +00:00
call AddStepVector
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
push bc
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
ld b, a
2017-12-24 17:47:30 +00:00
farcall CopyDECoordsToMapObject
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2019-01-25 02:41:14 +00:00
res OBJ_FLAGS2_2, [hl]
2015-12-17 20:14:51 +00:00
call CopyNextCoordsTileToStandingCoordsTile
ld hl, OBJECT_DIRECTION_WALKING
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
StepFunction_TrackingObject:
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
ld hl, OBJECT_SPRITE
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
and a
jr z, .nope
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_X
add hl, de
ld a, [hl]
ld hl, OBJECT_SPRITE_X
add hl, bc
ld [hl], a
ld hl, OBJECT_SPRITE_Y
add hl, de
ld a, [hl]
ld hl, OBJECT_SPRITE_Y
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld a, [hl]
and a
ret z
dec [hl]
ret nz
.nope
2015-12-17 20:14:51 +00:00
jp DeleteMapObject
2015-02-11 22:13:22 +00:00
StepFunction_14:
StepFunction_ScreenShake:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Init
dw .Run
2015-02-11 22:13:22 +00:00
.Init:
2015-02-11 22:13:22 +00:00
xor a
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
call Field1c_IncAnonJumptableIndex
.Run:
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
ld a, [wPlayerStepVectorY]
2015-02-11 22:13:22 +00:00
sub d
ld [wPlayerStepVectorY], a
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
jr z, .ok
2015-02-11 22:13:22 +00:00
ld a, [hl]
2015-12-29 18:15:58 +00:00
call .GetSign
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld d, a
ld a, [wPlayerStepVectorY]
2015-02-11 22:13:22 +00:00
add d
ld [wPlayerStepVectorY], a
2015-02-11 22:13:22 +00:00
ret
.ok
2015-12-17 20:14:51 +00:00
call DeleteMapObject
2015-02-11 22:13:22 +00:00
ret
.GetSign:
ld hl, OBJECT_1E
2015-02-11 22:13:22 +00:00
add hl, bc
and 1
ld a, [hl]
ret z
cpl
inc a
ret
StepFunction_16:
call Field1c_AnonJumptable ; ????
StepFunction_17:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .null
dw .null
dw .null
.null
2015-02-11 22:13:22 +00:00
StepFunction_SkyfallTop:
call Field1c_AnonJumptable
.anon_dw
2015-12-29 18:15:58 +00:00
dw .Init
dw .Run
2015-02-11 22:13:22 +00:00
.Init:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_ACTION
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], OBJECT_ACTION_SKYFALL
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], 16
call Field1c_IncAnonJumptableIndex
2015-02-11 22:13:22 +00:00
2015-12-29 18:15:58 +00:00
.Run:
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_STEP_DURATION
add hl, bc
dec [hl]
ret nz
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], $60
2015-11-16 02:28:15 +00:00
ld hl, OBJECT_STEP_FRAME
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], 0
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_FROM_MOVEMENT
2015-02-11 22:13:22 +00:00
ret
Stubbed_UpdateYOffset:
; dummied out
ret
ld hl, OBJECT_1D
2015-02-11 22:13:22 +00:00
add hl, bc
inc [hl]
ld a, [hl]
srl a
srl a
and %00000111
2015-02-11 22:13:22 +00:00
ld l, a
ld h, 0
ld de, .y_offsets
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], a
ret
.y_offsets:
2015-02-11 22:13:22 +00:00
db 0, -1, -2, -3, -4, -3, -2, -1
2018-06-24 14:09:41 +00:00
UpdateJumpPosition:
2015-02-11 22:13:22 +00:00
call GetStepVector
ld a, h
ld hl, OBJECT_1F
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
add e
ld [hl], a
nop
srl e
ld d, 0
ld hl, .y_offsets
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld [hl], a
ret
.y_offsets:
2015-02-11 22:13:22 +00:00
db -4, -6, -8, -10, -11, -12, -12, -12
db -11, -10, -9, -8, -6, -4, 0, 0
2018-12-09 23:13:37 +00:00
GetPlayerNextMovementByte:
2015-12-29 18:15:58 +00:00
; copy [wPlayerNextMovement] to [wPlayerMovement]
ld a, [wPlayerNextMovement]
ld hl, wPlayerMovement
2015-02-11 22:13:22 +00:00
ld [hl], a
2016-05-14 16:28:00 +00:00
; load [wPlayerNextMovement] with movement_step_sleep
ld a, movement_step_sleep
2015-12-29 18:15:58 +00:00
ld [wPlayerNextMovement], a
; recover the previous value of [wPlayerNextMovement]
2015-02-11 22:13:22 +00:00
ld a, [hl]
ret
2015-12-29 18:15:58 +00:00
GetMovementByte:
2019-04-19 15:35:27 +00:00
ld hl, wMovementDataBank
2015-12-29 18:15:58 +00:00
call _GetMovementByte
2015-02-11 22:13:22 +00:00
ret
GetIndexedMovementByte1:
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
inc [hl]
ld d, 0
ld hl, wMovementObject
2015-02-11 22:13:22 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld a, [hl]
ret
GetIndexedMovementByte2:
2015-11-12 04:38:57 +00:00
ld hl, OBJECT_MOVEMENT_BYTE_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
inc [hl]
ld d, 0
2020-10-23 01:25:40 +00:00
ld hl, wIndexedMovement2Pointer
2015-02-11 22:13:22 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
ld a, [hl]
ret
2018-06-24 14:09:41 +00:00
_GetMovementObject:
ld hl, GetMovementObject
2015-11-12 04:38:57 +00:00
jp HandleMovementData
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
GetMovementObject:
ld a, [wMovementObject]
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
HandleMovementData:
2015-12-29 18:15:58 +00:00
call .StorePointer
.loop
2015-02-11 22:13:22 +00:00
xor a
2015-12-29 18:15:58 +00:00
ld [wMovementByteWasControlSwitch], a
call JumpMovementPointer
call DoMovementFunction
2015-12-29 18:15:58 +00:00
ld a, [wMovementByteWasControlSwitch]
2015-02-11 22:13:22 +00:00
and a
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
.StorePointer:
2015-02-11 22:13:22 +00:00
ld a, l
2015-11-02 16:15:32 +00:00
ld [wMovementPointer], a
2015-02-11 22:13:22 +00:00
ld a, h
2015-11-02 16:15:32 +00:00
ld [wMovementPointer + 1], a
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
JumpMovementPointer:
2015-11-02 16:15:32 +00:00
ld hl, wMovementPointer
2015-02-11 22:13:22 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
ContinueReadingMovement:
ld a, 1
2015-12-29 18:15:58 +00:00
ld [wMovementByteWasControlSwitch], a
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
DoMovementFunction:
2015-02-11 22:13:22 +00:00
push af
2015-11-02 16:15:32 +00:00
call ApplyMovementToFollower
2015-02-11 22:13:22 +00:00
pop af
ld hl, MovementPointers
rst JumpTable
ret
INCLUDE "engine/overworld/movement.asm"
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
ApplyMovementToFollower:
2015-02-11 22:13:22 +00:00
ld e, a
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Follower]
cp -1
2015-02-11 22:13:22 +00:00
ret z
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Leader]
2015-02-11 22:13:22 +00:00
ld d, a
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
cp d
ret nz
ld a, e
2016-05-14 16:28:00 +00:00
cp movement_step_sleep
2015-02-11 22:13:22 +00:00
ret z
2015-12-29 18:15:58 +00:00
cp movement_step_end
2015-02-11 22:13:22 +00:00
ret z
2015-12-29 18:15:58 +00:00
cp movement_step_4b
2015-02-11 22:13:22 +00:00
ret z
2015-12-29 18:15:58 +00:00
cp movement_step_bump
2015-02-11 22:13:22 +00:00
ret z
2016-05-14 17:46:14 +00:00
cp movement_slow_step
2015-02-11 22:13:22 +00:00
ret c
push af
2015-12-29 18:15:58 +00:00
ld hl, wFollowerMovementQueueLength
2015-02-11 22:13:22 +00:00
inc [hl]
ld e, [hl]
ld d, 0
2015-12-29 18:15:58 +00:00
ld hl, wFollowMovementQueue
2015-02-11 22:13:22 +00:00
add hl, de
pop af
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
GetFollowerNextMovementByte:
2015-12-29 18:15:58 +00:00
ld hl, wFollowerMovementQueueLength
2015-02-11 22:13:22 +00:00
ld a, [hl]
and a
jr z, .done
cp -1
jr z, .done
2015-02-11 22:13:22 +00:00
dec [hl]
ld e, a
ld d, 0
2015-12-29 18:15:58 +00:00
ld hl, wFollowMovementQueue
2015-02-11 22:13:22 +00:00
add hl, de
inc e
ld a, -1
.loop
2015-02-11 22:13:22 +00:00
ld d, [hl]
ld [hld], a
ld a, d
dec e
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
.done
2015-12-29 18:15:58 +00:00
call .CancelFollowIfLeaderMissing
2015-02-11 22:13:22 +00:00
ret c
2016-05-14 16:28:00 +00:00
ld a, movement_step_sleep
2015-02-11 22:13:22 +00:00
ret
.CancelFollowIfLeaderMissing:
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Leader]
cp -1
jr z, .nope
2015-02-11 22:13:22 +00:00
push bc
call GetObjectStruct
ld hl, OBJECT_SPRITE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop bc
and a
jr z, .nope
2015-02-11 22:13:22 +00:00
and a
ret
.nope
2015-12-29 18:15:58 +00:00
ld a, -1
2015-11-02 16:15:32 +00:00
ld [wObjectFollow_Follower], a
2015-11-12 04:38:57 +00:00
ld a, movement_step_end
2015-02-11 22:13:22 +00:00
scf
ret
2018-06-24 14:09:41 +00:00
SpawnShadow:
2015-02-11 22:13:22 +00:00
push bc
2015-11-14 19:41:47 +00:00
ld de, .ShadowObject
call CopyTempObjectData
call InitTempObject
2015-02-11 22:13:22 +00:00
pop bc
ret
.ShadowObject:
2015-11-14 19:41:47 +00:00
; vtile, palette, movement
db $00, PAL_OW_SILVER, SPRITEMOVEDATA_SHADOW
2018-01-18 20:58:55 +00:00
2018-06-24 14:09:41 +00:00
SpawnStrengthBoulderDust:
2015-02-11 22:13:22 +00:00
push bc
2015-11-14 19:41:47 +00:00
ld de, .BoulderDustObject
call CopyTempObjectData
call InitTempObject
2015-02-11 22:13:22 +00:00
pop bc
ret
.BoulderDustObject:
; vtile, palette, movement
2015-11-14 19:41:47 +00:00
db $00, PAL_OW_SILVER, SPRITEMOVEDATA_BOULDERDUST
2018-01-18 20:58:55 +00:00
2018-06-24 14:09:41 +00:00
SpawnEmote:
2015-02-11 22:13:22 +00:00
push bc
2015-11-14 19:41:47 +00:00
ld de, .EmoteObject
call CopyTempObjectData
call InitTempObject
2015-02-11 22:13:22 +00:00
pop bc
ret
.EmoteObject:
; vtile, palette, movement
2015-11-14 19:41:47 +00:00
db $00, PAL_OW_SILVER, SPRITEMOVEDATA_EMOTE
2018-01-18 20:58:55 +00:00
2018-06-24 14:09:41 +00:00
ShakeGrass:
2015-02-11 22:13:22 +00:00
push bc
ld de, .GrassObject
2015-11-14 19:41:47 +00:00
call CopyTempObjectData
call InitTempObject
2015-02-11 22:13:22 +00:00
pop bc
ret
.GrassObject:
; vtile, palette, movement
2015-11-14 19:41:47 +00:00
db $00, PAL_OW_TREE, SPRITEMOVEDATA_GRASS
2018-01-18 20:58:55 +00:00
2018-06-24 14:09:41 +00:00
ShakeScreen:
2015-02-11 22:13:22 +00:00
push bc
push af
2015-11-14 19:41:47 +00:00
ld de, .ScreenShakeObject
call CopyTempObjectData
2015-02-11 22:13:22 +00:00
pop af
2015-11-14 19:41:47 +00:00
ld [wTempObjectCopyRange], a
call InitTempObject
2015-02-11 22:13:22 +00:00
pop bc
ret
.ScreenShakeObject:
; vtile, palette, movement
2015-11-14 19:41:47 +00:00
db $00, PAL_OW_SILVER, SPRITEMOVEDATA_SCREENSHAKE
2018-06-24 14:09:41 +00:00
DespawnEmote:
2015-02-11 22:13:22 +00:00
push bc
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
ld c, a
2015-11-14 19:41:47 +00:00
call .DeleteEmote
2015-02-11 22:13:22 +00:00
pop bc
ret
.DeleteEmote:
2018-01-23 22:39:09 +00:00
ld de, wObjectStructs
2015-07-26 07:11:33 +00:00
ld a, NUM_OBJECT_STRUCTS
.loop
2015-02-11 22:13:22 +00:00
push af
ld hl, OBJECT_FLAGS1
2015-02-11 22:13:22 +00:00
add hl, de
bit EMOTE_OBJECT_F, [hl]
jr z, .next
ld hl, OBJECT_SPRITE
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
and a
jr z, .next
2015-02-11 22:13:22 +00:00
push bc
xor a
ld bc, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
call ByteFill
pop bc
.next
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, de
ld d, h
ld e, l
pop af
dec a
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
InitTempObject:
2015-11-01 01:05:02 +00:00
call FindFirstEmptyObjectStruct
2015-02-11 22:13:22 +00:00
ret nc
ld d, h
ld e, l
2017-12-24 17:47:30 +00:00
farcall CopyTempObjectToObjectStruct
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
CopyTempObjectData:
2015-11-14 19:41:47 +00:00
; load into wTempObjectCopy:
; -1, -1, [de], [de + 1], [de + 2], [hMapObjectIndexBuffer], [NextMapX], [NextMapY], -1
; This spawns the object at the same place as whichever object is loaded into bc.
ld hl, wTempObjectCopyMapObjectIndex
ld [hl], -1
2015-02-11 22:13:22 +00:00
inc hl
ld [hl], -1
2015-02-11 22:13:22 +00:00
inc hl
ld a, [de]
inc de
ld [hli], a
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hli], a
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
ld [hli], a
push hl
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
pop hl
ld [hl], d
inc hl
ld [hl], e
inc hl
ld [hl], -1
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
UpdateAllObjectsFrozen::
2018-01-23 22:39:09 +00:00
ld a, [wVramState]
2015-02-11 22:13:22 +00:00
bit 0, a
ret z
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
2015-02-11 22:13:22 +00:00
xor a
.loop
ldh [hMapObjectIndexBuffer], a
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
jr z, .ok
2020-10-23 01:25:40 +00:00
call UpdateObjectFrozen
.ok
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
RespawnPlayerAndOpponent:
2018-06-25 01:39:23 +00:00
; called at battle start
2020-10-23 01:25:40 +00:00
call HideAllObjects
2015-11-16 16:53:26 +00:00
ld a, PLAYER
2020-10-23 01:25:40 +00:00
call RespawnObject
2015-11-25 15:16:29 +00:00
ld a, [wBattleScriptFlags]
2015-02-11 22:13:22 +00:00
bit 7, a
2020-10-23 01:25:40 +00:00
jr z, .skip_opponent
ldh a, [hLastTalked]
2015-02-11 22:13:22 +00:00
and a
2020-10-23 01:25:40 +00:00
jr z, .skip_opponent
call RespawnObject
.skip_opponent
2015-11-16 02:28:15 +00:00
call _UpdateSprites
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
RespawnPlayer:
call HideAllObjects
2015-11-16 16:53:26 +00:00
ld a, PLAYER
2020-10-23 01:25:40 +00:00
call RespawnObject
2015-11-16 02:28:15 +00:00
call _UpdateSprites
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
RespawnObject:
2015-07-26 07:11:33 +00:00
cp NUM_OBJECTS
2015-02-11 22:13:22 +00:00
ret nc
call GetMapObject
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp -1
2015-02-11 22:13:22 +00:00
ret z
2015-07-26 07:11:33 +00:00
cp NUM_OBJECT_STRUCTS
2015-02-11 22:13:22 +00:00
ret nc
call GetObjectStruct
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
2015-02-11 22:13:22 +00:00
ret z
2020-10-23 01:25:40 +00:00
call UpdateRespawnedObjectFrozen
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
HideAllObjects:
2015-02-11 22:13:22 +00:00
xor a
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
.loop
ldh [hMapObjectIndexBuffer], a
2015-11-16 16:53:26 +00:00
call SetFacing_Standing
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
UpdateObjectFrozen:
2015-02-11 22:13:22 +00:00
push bc
2020-10-23 01:25:40 +00:00
call CheckObjectCoveredByTextbox
2015-02-11 22:13:22 +00:00
pop bc
2015-11-16 16:53:26 +00:00
jr c, SetFacing_Standing
2020-10-23 01:25:40 +00:00
call CheckObjectOnScreen
2015-11-16 16:53:26 +00:00
jr c, SetFacing_Standing
2020-10-23 01:25:40 +00:00
call UpdateObjectNextTile
farcall HandleFrozenObjectAction ; no need to farcall
2015-02-11 22:13:22 +00:00
xor a
ret
2020-10-23 01:25:40 +00:00
UpdateRespawnedObjectFrozen:
call CheckObjectOnScreen
2015-11-16 16:53:26 +00:00
jr c, SetFacing_Standing
farcall HandleFrozenObjectAction ; no need to farcall
2015-02-11 22:13:22 +00:00
xor a
ret
2018-06-24 14:09:41 +00:00
SetFacing_Standing:
ld hl, OBJECT_FACING_STEP
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STANDING
2015-02-11 22:13:22 +00:00
scf
ret
2020-10-23 01:25:40 +00:00
UpdateObjectNextTile:
2015-02-11 22:13:22 +00:00
push bc
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
2015-11-13 05:49:27 +00:00
call GetCoordTile
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_NEXT_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
2017-12-24 17:47:30 +00:00
farcall UpdateTallGrassFlags ; no need to farcall
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
CheckObjectOnScreen:
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_X
2015-02-11 22:13:22 +00:00
add hl, bc
ld d, [hl]
2015-11-14 19:41:47 +00:00
ld hl, OBJECT_NEXT_MAP_Y
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
inc d
inc e
2018-01-23 22:39:09 +00:00
ld a, [wXCoord]
2015-02-11 22:13:22 +00:00
cp d
jr z, .equal_x
jr nc, .nope
2018-01-18 20:58:55 +00:00
add MAPOBJECT_SCREEN_WIDTH - 1
2015-02-11 22:13:22 +00:00
cp d
jr c, .nope
.equal_x
2018-01-23 22:39:09 +00:00
ld a, [wYCoord]
2015-02-11 22:13:22 +00:00
cp e
jr z, .equal_y
jr nc, .nope
2018-01-18 20:58:55 +00:00
add MAPOBJECT_SCREEN_HEIGHT - 1
2015-02-11 22:13:22 +00:00
cp e
jr c, .nope
.equal_y
2015-02-11 22:13:22 +00:00
xor a
ret
.nope
2015-02-11 22:13:22 +00:00
scf
ret
2020-10-23 01:25:40 +00:00
CheckObjectCoveredByTextbox:
; Check whether the object fits in the screen width.
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetX]
2015-02-11 22:13:22 +00:00
ld d, a
ld hl, OBJECT_SPRITE_X_OFFSET
add hl, bc
ld a, [hl]
ld hl, OBJECT_SPRITE_X
add hl, bc
add [hl]
add d
cp $f0
jr nc, .ok1
2020-10-23 01:25:40 +00:00
cp SCREEN_WIDTH_PX
jp nc, .nope
.ok1
2020-10-23 01:25:40 +00:00
; Account for objects currently moving left/right.
and %00000111
ld d, 2
2020-10-23 01:25:40 +00:00
cp TILE_WIDTH / 2
jr c, .ok2
ld d, 3
.ok2
2020-10-23 01:25:40 +00:00
; Convert pixels to tiles.
2015-02-11 22:13:22 +00:00
ld a, [hl]
srl a
srl a
srl a
cp SCREEN_WIDTH
jr c, .ok3
2018-01-18 20:58:55 +00:00
sub BG_MAP_WIDTH
.ok3
ldh [hCurSpriteXCoord], a
2020-10-23 01:25:40 +00:00
; Check whether the object fits in the screen height.
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetY]
2015-02-11 22:13:22 +00:00
ld e, a
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
ld a, [hl]
ld hl, OBJECT_SPRITE_Y
add hl, bc
add [hl]
add e
cp $f0
jr nc, .ok4
2020-10-23 01:25:40 +00:00
cp SCREEN_HEIGHT_PX
jr nc, .nope
.ok4
2020-10-23 01:25:40 +00:00
; Account for objects currently moving up/down.
and %00000111
ld e, 2
2020-10-23 01:25:40 +00:00
cp TILE_WIDTH / 2
jr c, .ok5
ld e, 3
.ok5
2020-10-23 01:25:40 +00:00
; Convert pixels to tiles.
2015-02-11 22:13:22 +00:00
ld a, [hl]
srl a
srl a
srl a
2018-01-18 20:58:55 +00:00
cp SCREEN_HEIGHT
jr c, .ok6
2018-01-18 20:58:55 +00:00
sub BG_MAP_HEIGHT
.ok6
ldh [hCurSpriteYCoord], a
2020-10-23 01:25:40 +00:00
; Account for big objects that are twice as wide and high.
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_PALETTE
add hl, bc
bit BIG_OBJECT_F, [hl]
jr z, .ok7
2015-02-11 22:13:22 +00:00
ld a, d
add 2
2015-02-11 22:13:22 +00:00
ld d, a
ld a, e
add 2
2015-02-11 22:13:22 +00:00
ld e, a
.ok7
2015-02-11 22:13:22 +00:00
ld a, d
ldh [hCurSpriteXPixel], a
2020-10-23 01:25:40 +00:00
.loop
ldh a, [hCurSpriteXPixel]
2015-02-11 22:13:22 +00:00
ld d, a
ldh a, [hCurSpriteYCoord]
2015-02-11 22:13:22 +00:00
add e
dec a
2018-01-18 20:58:55 +00:00
cp SCREEN_HEIGHT
jr nc, .ok9
2015-02-11 22:13:22 +00:00
ld b, a
.next
ldh a, [hCurSpriteXCoord]
2015-02-11 22:13:22 +00:00
add d
dec a
2018-01-18 20:58:55 +00:00
cp SCREEN_WIDTH
jr nc, .ok8
2015-02-11 22:13:22 +00:00
ld c, a
push bc
call Coord2Tile
2015-02-11 22:13:22 +00:00
pop bc
; NPCs disappear if standing on tile $60-$7f (or $e0-$ff),
; since those IDs are for text characters and textbox frames.
2015-02-11 22:13:22 +00:00
ld a, [hl]
cp FIRST_REGULAR_TEXT_CHAR
jr nc, .nope
.ok8
2015-02-11 22:13:22 +00:00
dec d
jr nz, .next
.ok9
2015-02-11 22:13:22 +00:00
dec e
jr nz, .loop
2020-10-23 01:25:40 +00:00
2015-02-11 22:13:22 +00:00
and a
ret
.nope
2015-02-11 22:13:22 +00:00
scf
ret
2018-06-24 14:09:41 +00:00
HandleNPCStep::
2020-10-23 01:25:40 +00:00
call ResetStepVector
call DoStepsForAllObjects
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
ResetStepVector:
2015-02-11 22:13:22 +00:00
xor a
ld [wPlayerStepVectorX], a
ld [wPlayerStepVectorY], a
ld [wPlayerStepFlags], a
2019-01-25 02:41:14 +00:00
ld a, STANDING
ld [wPlayerStepDirection], a
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
DoStepsForAllObjects:
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
2015-02-11 22:13:22 +00:00
xor a
.loop
ldh [hMapObjectIndexBuffer], a
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
jr z, .next
2020-10-05 20:15:57 +00:00
call HandleObjectStep
.next
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
ldh a, [hMapObjectIndexBuffer]
2015-02-11 22:13:22 +00:00
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
RefreshPlayerSprite:
2016-05-14 16:28:00 +00:00
ld a, movement_step_sleep
2015-12-29 18:15:58 +00:00
ld [wPlayerNextMovement], a
ld [wPlayerMovement], a
2015-02-11 22:13:22 +00:00
xor a
2016-05-14 17:46:14 +00:00
ld [wPlayerTurningDirection], a
2018-01-23 22:39:09 +00:00
ld [wPlayerObjectStepFrame], a
2020-10-23 01:25:40 +00:00
call TryResetPlayerAction
2017-12-24 17:47:30 +00:00
farcall CheckWarpFacingDown
call c, SpawnInFacingDown
2020-10-23 01:25:40 +00:00
call SpawnInCustomFacing
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
TryResetPlayerAction:
2015-10-24 14:34:19 +00:00
ld hl, wPlayerSpriteSetupFlags
2018-01-22 19:34:55 +00:00
bit PLAYERSPRITESETUP_RESET_ACTION_F, [hl]
jr nz, .ok
2015-02-11 22:13:22 +00:00
ret
.ok
ld a, OBJECT_ACTION_00
2018-01-23 22:39:09 +00:00
ld [wPlayerAction], a
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
SpawnInCustomFacing:
2015-10-24 14:34:19 +00:00
ld hl, wPlayerSpriteSetupFlags
2018-01-22 19:34:55 +00:00
bit PLAYERSPRITESETUP_CUSTOM_FACING_F, [hl]
2015-02-11 22:13:22 +00:00
ret z
2015-10-24 14:34:19 +00:00
ld a, [wPlayerSpriteSetupFlags]
2018-01-22 19:34:55 +00:00
and PLAYERSPRITESETUP_FACING_MASK
2015-02-11 22:13:22 +00:00
add a
2015-12-27 02:59:03 +00:00
add a
2020-10-23 01:25:40 +00:00
jr _ContinueSpawnFacing
2015-02-11 22:13:22 +00:00
2018-06-24 14:09:41 +00:00
SpawnInFacingDown:
2019-08-21 12:43:21 +00:00
ld a, DOWN
2020-10-23 01:25:40 +00:00
_ContinueSpawnFacing:
2018-01-23 22:39:09 +00:00
ld bc, wPlayerStruct
call SetSpriteDirection
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
_SetPlayerPalette:
2015-02-11 22:13:22 +00:00
ld a, d
2018-05-24 02:13:46 +00:00
and 1 << 7
2015-02-11 22:13:22 +00:00
ret z
2015-11-02 19:37:02 +00:00
ld bc, 0 ; debug?
ld hl, OBJECT_FACING
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
or d
ld [hl], a
ld a, d
swap a
2018-05-24 02:13:46 +00:00
and PALETTE_MASK
2015-02-11 22:13:22 +00:00
ld d, a
2018-01-23 22:39:09 +00:00
ld bc, wPlayerStruct
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_PALETTE
add hl, bc
ld a, [hl]
2018-05-24 02:13:46 +00:00
and $ff ^ PALETTE_MASK
2015-02-11 22:13:22 +00:00
or d
ld [hl], a
ret
2018-06-24 14:09:41 +00:00
StartFollow::
2015-02-11 22:13:22 +00:00
push bc
ld a, b
2015-11-02 16:15:32 +00:00
call SetLeaderIfVisible
2015-02-11 22:13:22 +00:00
pop bc
ret c
ld a, c
2015-11-02 16:15:32 +00:00
call SetFollowerIfVisible
2017-12-24 17:47:30 +00:00
farcall QueueFollowerFirstStep
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
SetLeaderIfVisible:
2015-11-02 16:15:32 +00:00
call CheckObjectVisibility
2015-02-11 22:13:22 +00:00
ret c
ldh a, [hObjectStructIndexBuffer]
2015-11-02 16:15:32 +00:00
ld [wObjectFollow_Leader], a
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
StopFollow::
2015-11-02 16:15:32 +00:00
call ResetLeader
call ResetFollower
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
ResetLeader:
ld a, -1
2015-11-02 16:15:32 +00:00
ld [wObjectFollow_Leader], a
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
SetFollowerIfVisible:
2015-02-11 22:13:22 +00:00
push af
2015-11-02 16:15:32 +00:00
call ResetFollower
2015-02-11 22:13:22 +00:00
pop af
2015-11-02 16:15:32 +00:00
call CheckObjectVisibility
2015-02-11 22:13:22 +00:00
ret c
2015-11-02 16:15:32 +00:00
ld hl, OBJECT_MOVEMENTTYPE
2015-02-11 22:13:22 +00:00
add hl, bc
2015-11-06 21:42:38 +00:00
ld [hl], SPRITEMOVEDATA_FOLLOWING
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_RESET
ldh a, [hObjectStructIndexBuffer]
2015-11-02 16:15:32 +00:00
ld [wObjectFollow_Follower], a
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
ResetFollower:
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Follower]
cp -1
2015-02-11 22:13:22 +00:00
ret z
call GetObjectStruct
2020-10-23 01:25:40 +00:00
farcall ResetObject ; no need to farcall
ld a, -1
2015-11-02 16:15:32 +00:00
ld [wObjectFollow_Follower], a
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
FreezeAllOtherObjects::
2015-02-11 22:13:22 +00:00
ld a, c
2015-11-02 16:15:32 +00:00
call CheckObjectVisibility
2015-02-11 22:13:22 +00:00
ret c
push bc
2020-10-23 01:25:40 +00:00
call FreezeAllObjects
2015-02-11 22:13:22 +00:00
pop bc
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
res FROZEN_F, [hl]
2015-02-11 22:13:22 +00:00
xor a
ret
2020-10-23 01:25:40 +00:00
FreezeObject: ; unreferenced
2015-11-02 16:15:32 +00:00
call CheckObjectVisibility
2015-02-11 22:13:22 +00:00
ret c
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
set FROZEN_F, [hl]
2015-02-11 22:13:22 +00:00
xor a
ret
2020-10-23 01:25:40 +00:00
FreezeAllObjects:
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
2015-02-11 22:13:22 +00:00
xor a
.loop
2015-02-11 22:13:22 +00:00
push af
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
jr z, .next
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
set FROZEN_F, [hl]
.next
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
pop af
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
_UnfreezeFollowerObject::
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Leader]
cp -1
2015-02-11 22:13:22 +00:00
ret z
push bc
call GetObjectStruct
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop bc
cp c
ret nz
2015-11-02 16:15:32 +00:00
ld a, [wObjectFollow_Follower]
cp -1
2015-02-11 22:13:22 +00:00
ret z
call GetObjectStruct
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
res FROZEN_F, [hl]
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
UnfreezeAllObjects::
2015-02-11 22:13:22 +00:00
push bc
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
2015-02-11 22:13:22 +00:00
xor a
.loop
2015-02-11 22:13:22 +00:00
push af
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
jr z, .next
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
res FROZEN_F, [hl]
.next
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
pop af
inc a
cp NUM_OBJECT_STRUCTS
jr nz, .loop
2015-02-11 22:13:22 +00:00
pop bc
ret
2020-10-23 01:25:40 +00:00
UnfreezeObject: ; unreferenced
2015-11-02 16:15:32 +00:00
call CheckObjectVisibility
2015-02-11 22:13:22 +00:00
ret c
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
2020-10-23 01:25:40 +00:00
res FROZEN_F, [hl]
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
ResetObject:
ld hl, OBJECT_MAP_OBJECT_INDEX
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
cp -1
2020-10-23 01:25:40 +00:00
jp z, .set_standing ; a jr would have been appropriate here
2015-02-11 22:13:22 +00:00
push bc
call GetMapObject
2015-07-29 22:22:23 +00:00
ld hl, MAPOBJECT_MOVEMENT
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
pop bc
2015-11-02 16:15:32 +00:00
ld hl, OBJECT_MOVEMENTTYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_RESET
2015-02-11 22:13:22 +00:00
ret
2020-10-23 01:25:40 +00:00
.set_standing:
2015-02-11 22:13:22 +00:00
call GetSpriteDirection
rrca
rrca
ld e, a
ld d, 0
2015-11-01 01:05:02 +00:00
ld hl, .standing_movefns
2015-02-11 22:13:22 +00:00
add hl, de
ld a, [hl]
2015-11-02 16:15:32 +00:00
ld hl, OBJECT_MOVEMENTTYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], a
ld hl, OBJECT_STEP_TYPE
2015-02-11 22:13:22 +00:00
add hl, bc
ld [hl], STEP_TYPE_RESET
2015-02-11 22:13:22 +00:00
ret
.standing_movefns:
2015-11-01 01:05:02 +00:00
db SPRITEMOVEDATA_STANDING_DOWN
db SPRITEMOVEDATA_STANDING_UP
db SPRITEMOVEDATA_STANDING_LEFT
db SPRITEMOVEDATA_STANDING_RIGHT
2018-01-10 18:47:57 +00:00
2018-06-24 14:09:41 +00:00
_UpdateSprites::
2018-01-23 22:39:09 +00:00
ld a, [wVramState]
2015-02-11 22:13:22 +00:00
bit 0, a
ret z
xor a
ldh [hUsedSpriteIndex], a
ldh a, [hOAMUpdate]
2015-02-11 22:13:22 +00:00
push af
ld a, 1
ldh [hOAMUpdate], a
2015-11-16 02:28:15 +00:00
call InitSprites
call .fill
2015-02-11 22:13:22 +00:00
pop af
ldh [hOAMUpdate], a
2015-02-11 22:13:22 +00:00
ret
2015-12-29 18:15:58 +00:00
.fill
2018-01-23 22:39:09 +00:00
ld a, [wVramState]
2015-02-11 22:13:22 +00:00
bit 1, a
2018-01-30 19:55:20 +00:00
ld b, LOW(wVirtualOAMEnd)
jr z, .ok
2018-01-10 18:47:57 +00:00
ld b, 28 * SPRITEOAMSTRUCT_LENGTH
.ok
ldh a, [hUsedSpriteIndex]
2015-02-11 22:13:22 +00:00
cp b
ret nc
ld l, a
ld h, HIGH(wVirtualOAM)
2018-01-10 18:47:57 +00:00
ld de, SPRITEOAMSTRUCT_LENGTH
2015-02-11 22:13:22 +00:00
ld a, b
2018-01-10 18:47:57 +00:00
ld c, SCREEN_HEIGHT_PX + 2 * TILE_WIDTH
.loop
2018-01-10 18:47:57 +00:00
ld [hl], c ; y
2015-02-11 22:13:22 +00:00
add hl, de
cp l
jr nz, .loop
2015-02-11 22:13:22 +00:00
ret
2018-06-24 14:09:41 +00:00
ApplyBGMapAnchorToObjects:
2015-02-11 22:13:22 +00:00
push hl
push de
push bc
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetX]
2015-02-11 22:13:22 +00:00
ld d, a
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetY]
2015-02-11 22:13:22 +00:00
ld e, a
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
ld a, NUM_OBJECT_STRUCTS
.loop
2015-02-11 22:13:22 +00:00
push af
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
jr z, .skip
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_X
add hl, bc
ld a, [hl]
add d
ld [hl], a
ld hl, OBJECT_SPRITE_Y
add hl, bc
ld a, [hl]
add e
ld [hl], a
.skip
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
pop af
dec a
jr nz, .loop
2015-02-11 22:13:22 +00:00
xor a
2016-05-05 02:34:09 +00:00
ld [wPlayerBGMapOffsetX], a
ld [wPlayerBGMapOffsetY], a
2015-02-11 22:13:22 +00:00
pop bc
pop de
pop hl
ret
2015-11-16 02:28:15 +00:00
PRIORITY_LOW EQU $10
PRIORITY_NORM EQU $20
PRIORITY_HIGH EQU $30
2018-01-18 20:58:55 +00:00
2018-06-24 14:09:41 +00:00
InitSprites:
2015-11-16 02:28:15 +00:00
call .DeterminePriorities
ld c, PRIORITY_HIGH
call .InitSpritesByPriority
ld c, PRIORITY_NORM
call .InitSpritesByPriority
ld c, PRIORITY_LOW
call .InitSpritesByPriority
2015-02-11 22:13:22 +00:00
ret
.DeterminePriorities:
2015-02-11 22:13:22 +00:00
xor a
2020-06-16 03:28:24 +00:00
ld hl, wObjectPriorities
2015-11-16 02:28:15 +00:00
ld bc, NUM_OBJECT_STRUCTS
2015-02-11 22:13:22 +00:00
call ByteFill
ld d, 0
2018-01-23 22:39:09 +00:00
ld bc, wObjectStructs
2020-06-16 03:28:24 +00:00
ld hl, wObjectPriorities
2015-02-11 22:13:22 +00:00
.loop
push hl
2016-05-05 02:34:09 +00:00
call DoesObjectHaveASprite
2015-02-11 22:13:22 +00:00
jr z, .skip
ld hl, OBJECT_FACING_STEP
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-16 02:28:15 +00:00
cp STANDING
2015-02-11 22:13:22 +00:00
jr z, .skip
; Define the sprite priority.
2015-11-16 02:28:15 +00:00
ld e, PRIORITY_LOW
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
bit LOW_PRIORITY_F, [hl]
2015-02-11 22:13:22 +00:00
jr nz, .add
2015-11-16 02:28:15 +00:00
ld e, PRIORITY_NORM
bit HIGH_PRIORITY_F, [hl]
2015-02-11 22:13:22 +00:00
jr z, .add
2015-11-16 02:28:15 +00:00
ld e, PRIORITY_HIGH
2015-02-11 22:13:22 +00:00
jr .add
.skip
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
pop hl
jr .next
.add
ld hl, OBJECT_LENGTH
2015-02-11 22:13:22 +00:00
add hl, bc
ld b, h
ld c, l
pop hl
ld a, d
or e
ld [hli], a
.next
inc d
ld a, d
cp NUM_OBJECT_STRUCTS
2015-02-11 22:13:22 +00:00
jr nz, .loop
ret
.InitSpritesByPriority:
2020-06-16 03:28:24 +00:00
ld hl, wObjectPriorities
2015-11-16 02:28:15 +00:00
.next_sprite
2015-02-11 22:13:22 +00:00
ld a, [hli]
ld d, a
2015-11-12 04:38:57 +00:00
and $f0
2015-02-11 22:13:22 +00:00
ret z
cp c
2015-11-16 02:28:15 +00:00
jr nz, .next_sprite
2015-02-11 22:13:22 +00:00
push bc
push hl
ld a, d
2015-11-12 04:38:57 +00:00
and $f
call .GetObjectStructPointer
2015-11-16 02:28:15 +00:00
call .InitSprite
2015-02-11 22:13:22 +00:00
pop hl
pop bc
2015-11-16 02:28:15 +00:00
jr .next_sprite
2015-02-11 22:13:22 +00:00
.InitSprite:
ld hl, OBJECT_SPRITE_TILE
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2018-05-24 00:44:32 +00:00
and $ff ^ (1 << 7)
ldh [hCurSpriteTile], a
2015-02-11 22:13:22 +00:00
xor a
bit 7, [hl]
jr nz, .skip1
2018-05-24 00:44:32 +00:00
or VRAM_BANK_1
.skip1
ld hl, OBJECT_FLAGS2
2015-02-11 22:13:22 +00:00
add hl, bc
ld e, [hl]
2019-01-25 02:41:14 +00:00
bit OBJ_FLAGS2_7, e
jr z, .skip2
2018-05-24 00:44:32 +00:00
or PRIORITY
.skip2
2018-05-24 00:44:32 +00:00
bit USE_OBP1_F, e
jr z, .skip3
2018-05-24 00:44:32 +00:00
or OBP_NUM
.skip3
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_PALETTE
add hl, bc
ld d, a
ld a, [hl]
2018-05-24 00:44:32 +00:00
and PALETTE_MASK
2015-02-11 22:13:22 +00:00
or d
ld d, a
xor a
2018-05-24 00:44:32 +00:00
bit OVERHEAD_F, e
jr z, .skip4
2018-05-24 00:44:32 +00:00
or PRIORITY
.skip4
ldh [hCurSpriteOAMFlags], a
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_X
add hl, bc
ld a, [hl]
ld hl, OBJECT_SPRITE_X_OFFSET
add hl, bc
add [hl]
add 8
ld e, a
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetX]
2015-02-11 22:13:22 +00:00
add e
ldh [hCurSpriteXPixel], a
2015-02-11 22:13:22 +00:00
ld hl, OBJECT_SPRITE_Y
add hl, bc
ld a, [hl]
ld hl, OBJECT_SPRITE_Y_OFFSET
add hl, bc
add [hl]
add 12
ld e, a
2016-05-05 02:34:09 +00:00
ld a, [wPlayerBGMapOffsetY]
2015-02-11 22:13:22 +00:00
add e
ldh [hCurSpriteYPixel], a
ld hl, OBJECT_FACING_STEP
2015-02-11 22:13:22 +00:00
add hl, bc
ld a, [hl]
2015-11-14 19:41:47 +00:00
cp STANDING
2015-02-11 22:13:22 +00:00
jp z, .done
cp NUM_FACINGS
jp nc, .done
ld l, a
ld h, 0
add hl, hl
ld bc, Facings
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ldh a, [hUsedSpriteIndex]
2015-02-11 22:13:22 +00:00
ld c, a
ld b, HIGH(wVirtualOAM)
2015-02-11 22:13:22 +00:00
ld a, [hli]
ldh [hUsedSpriteTile], a
2015-02-11 22:13:22 +00:00
add c
2018-01-30 19:55:20 +00:00
cp LOW(wVirtualOAMEnd)
2015-02-11 22:13:22 +00:00
jr nc, .full
.addsprite
ldh a, [hCurSpriteYPixel]
2015-02-11 22:13:22 +00:00
add [hl]
inc hl
2018-01-10 18:47:57 +00:00
ld [bc], a ; y
2015-02-11 22:13:22 +00:00
inc c
ldh a, [hCurSpriteXPixel]
2015-02-11 22:13:22 +00:00
add [hl]
inc hl
2018-01-10 18:47:57 +00:00
ld [bc], a ; x
2015-02-11 22:13:22 +00:00
inc c
ld e, [hl]
inc hl
ldh a, [hCurSpriteTile]
bit ABSOLUTE_TILE_ID_F, e
jr z, .nope1
2015-02-11 22:13:22 +00:00
xor a
.nope1
2015-02-11 22:13:22 +00:00
add [hl]
inc hl
2018-01-10 18:47:57 +00:00
ld [bc], a ; tile id
2015-02-11 22:13:22 +00:00
inc c
ld a, e
bit RELATIVE_ATTRIBUTES_F, a
jr z, .nope2
ldh a, [hCurSpriteOAMFlags]
2015-02-11 22:13:22 +00:00
or e
.nope2
2018-01-18 20:58:55 +00:00
and OBP_NUM | X_FLIP | Y_FLIP | PRIORITY
2015-02-11 22:13:22 +00:00
or d
2018-01-10 18:47:57 +00:00
ld [bc], a ; attributes
2015-02-11 22:13:22 +00:00
inc c
ldh a, [hUsedSpriteTile]
2015-02-11 22:13:22 +00:00
dec a
ldh [hUsedSpriteTile], a
2015-02-11 22:13:22 +00:00
jr nz, .addsprite
ld a, c
ldh [hUsedSpriteIndex], a
2015-02-11 22:13:22 +00:00
.done
xor a
ret
.full
scf
ret
.GetObjectStructPointer:
2015-02-11 22:13:22 +00:00
ld c, a
ld b, 0
ld hl, .Addresses
2015-12-29 18:15:58 +00:00
add hl, bc
add hl, bc
2015-02-11 22:13:22 +00:00
ld c, [hl]
inc hl
ld b, [hl]
ret
2018-06-24 14:09:41 +00:00
.Addresses:
2018-01-23 22:39:09 +00:00
dw wPlayerStruct
dw wObject1Struct
dw wObject2Struct
dw wObject3Struct
dw wObject4Struct
dw wObject5Struct
dw wObject6Struct
dw wObject7Struct
dw wObject8Struct
dw wObject9Struct
dw wObject10Struct
dw wObject11Struct
dw wObject12Struct