pokecrystal/engine/map_object_action.asm

	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
; 445f

Pointers445f: ; 445f
	dw SetFacingStanding,              SetFacingStanding ; 00
	dw SetFacingStandAction,           SetFacingCurrent ; 01 standing?
	dw SetFacingStepAction,            SetFacingCurrent ; 02 walking?
	dw SetFacingBumpAction,            SetFacingCurrent ; 03 bumping?
	dw SetFacingCounterclockwiseSpin,  SetFacingCurrent ; 04
	dw SetFacingCounterclockwiseSpin2, SetFacingStanding ; 05
	dw SetFacingFish,                  SetFacingFish ; 06
	dw SetFacingShadow,                SetFacingStanding ; 07
	dw SetFacingEmote,                 SetFacingEmote ; 08
	dw SetFacingBigDollSym,            SetFacingBigDollSym ; 09
	dw SetFacingBounce,                SetFacingFreezeBounce ; 0a
	dw SetFacingWeirdTree,             SetFacingCurrent ; 0b
	dw SetFacingBigDollAsym,           SetFacingBigDollAsym ; 0c
	dw SetFacingBigDoll,               SetFacingBigDoll ; 0d
	dw SetFacingBoulderDust,           SetFacingStanding ; 0e
	dw SetFacingGrassShake,            SetFacingStanding ; 0f
	dw SetFacingSkyfall,               SetFacingCurrent ; 10
; 44a3

SetFacingStanding: ; 44a3
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], STANDING
	ret
; 44aa

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

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

SetFacingStepAction: ; 44c1
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING, [hl]
	jp nz, SetFacingCurrent

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

	rrca
	rrca
	and %00000011
	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
; 44e4

SetFacingSkyfall: ; 44e4
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING, [hl]
	jp nz, SetFacingCurrent

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

	rrca
	rrca
	and %00000011
	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
; 4508

SetFacingBumpAction: ; 4508
	ld hl, OBJECT_FLAGS1
	add hl, bc
	bit SLIDING, [hl]
	jp nz, SetFacingCurrent

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

	ld a, [hl]
	rrca
	rrca
	rrca
	and %00000011
	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
; 4529

SetFacingCounterclockwiseSpin: ; 4529
	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
; 4539

SetFacingCounterclockwiseSpin2: ; 4539
	call CounterclockwiseSpinAction
	jp SetFacingStanding
; 453f

CounterclockwiseSpinAction: ; 453f
; 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
; 456a

.Directions: ; 456a
	db OW_DOWN, OW_RIGHT, OW_UP, OW_LEFT
; 456e

SetFacingFish: ; 456e
	call GetSpriteDirection
	rrca
	rrca
	add FACING_FISH_DOWN
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret
; 457b

SetFacingShadow: ; 457b
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_SHADOW
	ret
; 4582

SetFacingEmote: ; 4582 emote
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_EMOTE
	ret
; 4589

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

SetFacingBounce: ; 4590
	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
; 45a4

SetFacingFreezeBounce: ; 45a4
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_STEP_DOWN_0
	ret
; 45ab

SetFacingWeirdTree: ; 45ab
	ld hl, OBJECT_STEP_FRAME
	add hl, bc
	ld a, [hl]
	inc a
	ld [hl], a
	and %00001100
	rrca
	rrca
	add FACING_WEIRD_TREE_0
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], a
	ret
; 45be

SetFacingBigDollAsym: ; 45be
	ld hl, OBJECT_FACING_STEP
	add hl, bc
	ld [hl], FACING_BIG_DOLL_ASYM
	ret
; 45c5

SetFacingBigDoll: ; 45c5
	ld a, [VariableSprites + 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
; 45da

SetFacingBoulderDust: ; 45da
	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
; 45ed

SetFacingGrassShake: ; 45ed
	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
; 4600
More movement stuff 2015-12-29 18:15:58 +00:00			`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`
			`; 445f`

			`Pointers445f: ; 445f`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`dw SetFacingStanding, SetFacingStanding ; 00`
			`dw SetFacingStandAction, SetFacingCurrent ; 01 standing?`
			`dw SetFacingStepAction, SetFacingCurrent ; 02 walking?`
			`dw SetFacingBumpAction, SetFacingCurrent ; 03 bumping?`
			`dw SetFacingCounterclockwiseSpin, SetFacingCurrent ; 04`
			`dw SetFacingCounterclockwiseSpin2, SetFacingStanding ; 05`
			`dw SetFacingFish, SetFacingFish ; 06`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`dw SetFacingShadow, SetFacingStanding ; 07`
			`dw SetFacingEmote, SetFacingEmote ; 08`
			`dw SetFacingBigDollSym, SetFacingBigDollSym ; 09`
			`dw SetFacingBounce, SetFacingFreezeBounce ; 0a`
			`dw SetFacingWeirdTree, SetFacingCurrent ; 0b`
			`dw SetFacingBigDollAsym, SetFacingBigDollAsym ; 0c`
			`dw SetFacingBigDoll, SetFacingBigDoll ; 0d`
			`dw SetFacingBoulderDust, SetFacingStanding ; 0e`
Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`dw SetFacingGrassShake, SetFacingStanding ; 0f`
Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`dw SetFacingSkyfall, SetFacingCurrent ; 10`
More movement stuff 2015-12-29 18:15:58 +00:00			`; 44a3`

			`SetFacingStanding: ; 44a3`
			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], STANDING`
			`ret`
			`; 44aa`

			`SetFacingCurrent: ; 44aa`
			`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`
			`; 44b5`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingStandAction: ; 44b5`
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`
			`; 44c1`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingStepAction: ; 44c1`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
			`bit SLIDING, [hl]`
			`jp nz, SetFacingCurrent`

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

			`rrca`
			`rrca`
			`and %00000011`
			`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`
			`; 44e4`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingSkyfall: ; 44e4`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
			`bit SLIDING, [hl]`
			`jp nz, SetFacingCurrent`

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

			`rrca`
			`rrca`
			`and %00000011`
			`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`
			`; 4508`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingBumpAction: ; 4508`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FLAGS1`
			`add hl, bc`
			`bit SLIDING, [hl]`
			`jp nz, SetFacingCurrent`

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

			`ld a, [hl]`
			`rrca`
			`rrca`
			`rrca`
			`and %00000011`
			`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`
			`; 4529`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingCounterclockwiseSpin: ; 4529`
			`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`
			`; 4539`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingCounterclockwiseSpin2: ; 4539`
			`call CounterclockwiseSpinAction`
More movement stuff 2015-12-29 18:15:58 +00:00			`jp SetFacingStanding`
			`; 453f`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`CounterclockwiseSpinAction: ; 453f`
			`; 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`
			`; 456a`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.Directions: ; 456a`
More movement stuff 2015-12-29 18:15:58 +00:00			`db OW_DOWN, OW_RIGHT, OW_UP, OW_LEFT`
			`; 456e`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingFish: ; 456e`
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`
			`; 457b`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingShadow: ; 457b`
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`
			`; 4582`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingEmote: ; 4582 emote`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld hl, OBJECT_FACING_STEP`
			`add hl, bc`
			`ld [hl], FACING_EMOTE`
			`ret`
			`; 4589`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingBigDollSym: ; 4589`
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`
			`; 4590`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingBounce: ; 4590`
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`
			`; 45a4`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingFreezeBounce: ; 45a4`
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`
			`; 45ab`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingWeirdTree: ; 45ab`
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`
			`and %00001100`
			`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`
			`; 45be`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingBigDollAsym: ; 45be`
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`
			`; 45c5`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingBigDoll: ; 45c5`
More movement stuff 2015-12-29 18:15:58 +00:00			`ld a, [VariableSprites + 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`
			`; 45da`

Person action and facing labels, part 2 2016-09-27 14:10:13 +00:00			`SetFacingBoulderDust: ; 45da`
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`
			`; 45ed`

Person action and facing labels, part 1 2016-09-27 13:37:10 +00:00			`SetFacingGrassShake: ; 45ed`
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`
			`; 4600`