pokecrystal/engine/overworld/map_object_action.asm

ObjectActionPairPointers:
; entries correspond to OBJECT_ACTION_* constants
	dw SetFacingStanding,              SetFacingStanding
	dw SetFacingStandAction,           SetFacingCurrent
	dw SetFacingStepAction,            SetFacingCurrent
	dw SetFacingBumpAction,            SetFacingCurrent
	dw SetFacingCounterclockwiseSpin,  SetFacingCurrent
	dw SetFacingCounterclockwiseSpin2, SetFacingStanding
	dw SetFacingFish,                  SetFacingFish
	dw SetFacingShadow,                SetFacingStanding
	dw SetFacingEmote,                 SetFacingEmote
	dw SetFacingBigDollSym,            SetFacingBigDollSym
	dw SetFacingBounce,                SetFacingFreezeBounce
	dw SetFacingWeirdTree,             SetFacingCurrent
	dw SetFacingBigDollAsym,           SetFacingBigDollAsym
	dw SetFacingBigDoll,               SetFacingBigDoll
	dw SetFacingBoulderDust,           SetFacingStanding
	dw SetFacingGrassShake,            SetFacingStanding
	dw SetFacingSkyfall,               SetFacingCurrent

SetFacingStanding:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], STANDING
	ret

SetFacingCurrent:
	call GetSpriteDirection
	or FACING_STEP_DOWN_0 ; useless
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingStandAction:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld a, [hl]
	and 1
	jr nz, SetFacingStepAction
	jp SetFacingCurrent

SetFacingStepAction:
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING_F, [hl]
	jp nz, SetFacingCurrent

	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	inc a
	and %00001111
	ld [hl], a

	rrca
	rrca
	maskbits NUM_DIRECTIONS
	ld d, a

	call GetSpriteDirection
	or FACING_STEP_DOWN_0 ; useless
	or d
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingSkyfall:
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING_F, [hl]
	jp nz, SetFacingCurrent

	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	add 2
	and %00001111
	ld [hl], a

	rrca
	rrca
	maskbits NUM_DIRECTIONS
	ld d, a

	call GetSpriteDirection
	or FACING_STEP_DOWN_0 ; useless
	or d
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingBumpAction:
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING_F, [hl]
	jp nz, SetFacingCurrent

	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	inc [hl]

	ld a, [hl]
	rrca
	rrca
	rrca
	maskbits NUM_DIRECTIONS
	ld d, a

	call GetSpriteDirection
	or FACING_STEP_DOWN_0 ; useless
	or d
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingCounterclockwiseSpin:
	call CounterclockwiseSpinAction
	ld hl, OBJECT_FACING
	add hl, bc
	ld a, [hl]
	or FACING_STEP_DOWN_0 ; useless
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingCounterclockwiseSpin2:
	call CounterclockwiseSpinAction
	jp SetFacingStanding

CounterclockwiseSpinAction:
; Here, OBJECT_STEP_FRAME consists of two 2-bit components,
; using only bits 0,1 and 4,5.
; bits 0,1 is a timer (4 overworld frames)
; bits 4,5 determines the facing - the direction is counterclockwise.
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	and %11110000
	ld e, a

	ld a, [hl]
	inc a
	and %00001111
	ld d, a
	cp 4
	jr c, .ok

	ld d, 0
	ld a, e
	add $10
	and %00110000
	ld e, a

.ok
	ld a, d
	or e
	ld [hl], a

	swap e
	ld d, 0
	ld hl, .Directions
	add hl, de
	ld a, [hl]
	ld hl, OBJECT_FACING
	add hl, bc
	ld [hl], a
	ret

.Directions:
	db OW_DOWN, OW_RIGHT, OW_UP, OW_LEFT

SetFacingFish:
	call GetSpriteDirection
	rrca
	rrca
	add FACING_FISH_DOWN
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingShadow:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_SHADOW
	ret

SetFacingEmote:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_EMOTE
	ret

SetFacingBigDollSym:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_BIG_DOLL_SYM
	ret

SetFacingBounce:
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	inc a
	and %00001111
	ld [hl], a
	and %00001000
	jr z, SetFacingFreezeBounce
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_STEP_UP_0
	ret

SetFacingFreezeBounce:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_STEP_DOWN_0
	ret

SetFacingWeirdTree:
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	inc a
	ld [hl], a
	maskbits NUM_DIRECTIONS, 2
	rrca
	rrca
	add FACING_WEIRD_TREE_0
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret

SetFacingBigDollAsym:
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_BIG_DOLL_ASYM
	ret

SetFacingBigDoll:
	ld a, [wVariableSprites + SPRITE_BIG_DOLL - SPRITE_VARS]
	ld d, FACING_BIG_DOLL_SYM ; symmetric
	cp SPRITE_BIG_SNORLAX
	jr z, .ok
	cp SPRITE_BIG_LAPRAS
	jr z, .ok
	ld d, FACING_BIG_DOLL_ASYM ; asymmetric

.ok
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], d
	ret

SetFacingBoulderDust:
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	inc [hl]
	ld a, [hl]

	ld hl, OBJECT_FACING_STEP
	add hl, bc
	and 2
	ld a, FACING_BOULDER_DUST_1
	jr z, .ok
	inc a ; FACING_BOULDER_DUST_2
.ok
	ld [hl], a
	ret

SetFacingGrassShake:
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	inc [hl]
	ld a, [hl]
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	and 4
	ld a, FACING_GRASS_1
	jr z, .ok
	inc a ; FACING_GRASS_2

.ok
	ld [hl], a
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`ObjectActionPairPointers:`
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00			`; entries correspond to OBJECT_ACTION_* constants`
Document constants with comments, actual names, and more thorough usage 2017-12-09 05:50:59 +00:00			`dw SetFacingStanding, SetFacingStanding`
			`dw SetFacingStandAction, SetFacingCurrent`
			`dw SetFacingStepAction, SetFacingCurrent`
			`dw SetFacingBumpAction, SetFacingCurrent`
			`dw SetFacingCounterclockwiseSpin, SetFacingCurrent`
			`dw SetFacingCounterclockwiseSpin2, SetFacingStanding`
			`dw SetFacingFish, SetFacingFish`
			`dw SetFacingShadow, SetFacingStanding`
			`dw SetFacingEmote, SetFacingEmote`
			`dw SetFacingBigDollSym, SetFacingBigDollSym`
			`dw SetFacingBounce, SetFacingFreezeBounce`
			`dw SetFacingWeirdTree, SetFacingCurrent`
			`dw SetFacingBigDollAsym, SetFacingBigDollAsym`
			`dw SetFacingBigDoll, SetFacingBigDoll`
			`dw SetFacingBoulderDust, SetFacingStanding`
			`dw SetFacingGrassShake, SetFacingStanding`
			`dw SetFacingSkyfall, SetFacingCurrent`
More movement stuff 2015-12-29 18:15:58 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingStanding:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], STANDING`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingCurrent:`
More movement stuff 2015-12-29 18:15:58 +00:00			`call GetSpriteDirection`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`or FACING_STEP_DOWN_0 ; useless`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingStandAction:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld a, [hl]`
			`and 1`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`jr nz, SetFacingStepAction`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp SetFacingCurrent`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingStepAction:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`bit SLIDING_F, [hl]`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp nz, SetFacingCurrent`

			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`ld a, [hl]`
			`inc a`
			`and %00001111`
			`ld [hl], a`

			`rrca`
			`rrca`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`maskbits NUM_DIRECTIONS`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld d, a`

			`call GetSpriteDirection`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`or FACING_STEP_DOWN_0 ; useless`
More movement stuff 2015-12-29 18:15:58 +00:00			`or d`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingSkyfall:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`bit SLIDING_F, [hl]`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp nz, SetFacingCurrent`

			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`ld a, [hl]`
			`add 2`
			`and %00001111`
			`ld [hl], a`

			`rrca`
			`rrca`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`maskbits NUM_DIRECTIONS`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld d, a`

			`call GetSpriteDirection`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`or FACING_STEP_DOWN_0 ; useless`
More movement stuff 2015-12-29 18:15:58 +00:00			`or d`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBumpAction:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`bit SLIDING_F, [hl]`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp nz, SetFacingCurrent`

			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`inc [hl]`

			`ld a, [hl]`
			`rrca`
			`rrca`
			`rrca`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`maskbits NUM_DIRECTIONS`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld d, a`

			`call GetSpriteDirection`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`or FACING_STEP_DOWN_0 ; useless`
More movement stuff 2015-12-29 18:15:58 +00:00			`or d`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingCounterclockwiseSpin:`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`call CounterclockwiseSpinAction`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING`
			`add hl, bc`
			`ld a, [hl]`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`or FACING_STEP_DOWN_0 ; useless`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingCounterclockwiseSpin2:`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`call CounterclockwiseSpinAction`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp SetFacingStanding`

Remove all address comments 2018-06-24 14:09:41 +00:00			`CounterclockwiseSpinAction:`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`; Here, OBJECT_STEP_FRAME consists of two 2-bit components,`
			`; using only bits 0,1 and 4,5.`
			`; bits 0,1 is a timer (4 overworld frames)`
			`; bits 4,5 determines the facing - the direction is counterclockwise.`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`ld a, [hl]`
			`and %11110000`
			`ld e, a`

			`ld a, [hl]`
			`inc a`
			`and %00001111`
			`ld d, a`
			`cp 4`
			`jr c, .ok`

			`ld d, 0`
			`ld a, e`
			`add $10`
			`and %00110000`
			`ld e, a`

			`.ok`
			`ld a, d`
			`or e`
			`ld [hl], a`

			`swap e`
			`ld d, 0`
			`ld hl, .Directions`
			`add hl, de`
			`ld a, [hl]`
			`ld hl, OBJECT_FACING`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Directions:`
More movement stuff 2015-12-29 18:15:58 +00:00			`db OW_DOWN, OW_RIGHT, OW_UP, OW_LEFT`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingFish:`
More movement stuff 2015-12-29 18:15:58 +00:00			`call GetSpriteDirection`
			`rrca`
			`rrca`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`add FACING_FISH_DOWN`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingShadow:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld [hl], FACING_SHADOW`
More movement stuff 2015-12-29 18:15:58 +00:00			`ret`

Remove more address comments 2018-06-25 01:39:23 +00:00			`SetFacingEmote:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], FACING_EMOTE`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBigDollSym:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld [hl], FACING_BIG_DOLL_SYM`
More movement stuff 2015-12-29 18:15:58 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBounce:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`ld a, [hl]`
			`inc a`
			`and %00001111`
			`ld [hl], a`
			`and %00001000`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`jr z, SetFacingFreezeBounce`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`ld [hl], FACING_STEP_UP_0`
More movement stuff 2015-12-29 18:15:58 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingFreezeBounce:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld [hl], FACING_STEP_DOWN_0`
More movement stuff 2015-12-29 18:15:58 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingWeirdTree:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`ld a, [hl]`
			`inc a`
			`ld [hl], a`
Use known sprite movement data flag constants 2018-05-23 17:15:07 +00:00			`maskbits NUM_DIRECTIONS, 2`
More movement stuff 2015-12-29 18:15:58 +00:00			`rrca`
			`rrca`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`add FACING_WEIRD_TREE_0`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBigDollAsym:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld [hl], FACING_BIG_DOLL_ASYM`
More movement stuff 2015-12-29 18:15:58 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBigDoll:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wVariableSprites + SPRITE_BIG_DOLL - SPRITE_VARS]`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld d, FACING_BIG_DOLL_SYM ; symmetric`
More movement stuff 2015-12-29 18:15:58 +00:00			`cp SPRITE_BIG_SNORLAX`
			`jr z, .ok`
			`cp SPRITE_BIG_LAPRAS`
			`jr z, .ok`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld d, FACING_BIG_DOLL_ASYM ; asymmetric`
More movement stuff 2015-12-29 18:15:58 +00:00
			`.ok`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], d`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingBoulderDust:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`inc [hl]`
			`ld a, [hl]`

			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`and 2`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`ld a, FACING_BOULDER_DUST_1`
More movement stuff 2015-12-29 18:15:58 +00:00			`jr z, .ok`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`inc a ; FACING_BOULDER_DUST_2`
More movement stuff 2015-12-29 18:15:58 +00:00			`.ok`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SetFacingGrassShake:`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_STEP_FRAME`
			`add hl, bc`
			`inc [hl]`
			`ld a, [hl]`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`and 4`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`ld a, FACING_GRASS_1`
More movement stuff 2015-12-29 18:15:58 +00:00			`jr z, .ok`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`inc a ; FACING_GRASS_2`
More movement stuff 2015-12-29 18:15:58 +00:00
			`.ok`
			`ld [hl], a`
			`ret`