pokecrystal-board/engine/movement.asm
2015-11-02 11:15:32 -05:00

830 lines
14 KiB
NASM

MovementPointers: ; 5075
dw Movement_turn_head_down ; 00
dw Movement_turn_head_up ; 01
dw Movement_turn_head_left ; 02
dw Movement_turn_head_right ; 03
dw Movement_half_step_down ; 04
dw Movement_half_step_up ; 05
dw Movement_half_step_left ; 06
dw Movement_half_step_right ; 07
dw Movement_slow_step_down ; 08
dw Movement_slow_step_up ; 09
dw Movement_slow_step_left ; 0a
dw Movement_slow_step_right ; 0b
dw Movement_step_down ; 0c
dw Movement_step_up ; 0d
dw Movement_step_left ; 0e
dw Movement_step_right ; 0f
dw Movement_big_step_down ; 10
dw Movement_big_step_up ; 11
dw Movement_big_step_left ; 12
dw Movement_big_step_right ; 13
dw Movement_slow_slide_step_down ; 14
dw Movement_slow_slide_step_up ; 15
dw Movement_slow_slide_step_left ; 16
dw Movement_slow_slide_step_right ; 17
dw Movement_slide_step_down ; 18
dw Movement_slide_step_up ; 19
dw Movement_slide_step_left ; 1a
dw Movement_slide_step_right ; 1b
dw Movement_fast_slide_step_down ; 1c
dw Movement_fast_slide_step_up ; 1d
dw Movement_fast_slide_step_left ; 1e
dw Movement_fast_slide_step_right ; 1f
dw Movement_turn_away_down ; 20
dw Movement_turn_away_up ; 21
dw Movement_turn_away_left ; 22
dw Movement_turn_away_right ; 23
dw Movement_turn_in_down ; 24
dw Movement_turn_in_up ; 25
dw Movement_turn_in_left ; 26
dw Movement_turn_in_right ; 27
dw Movement_turn_waterfall_down ; 28
dw Movement_turn_waterfall_up ; 29
dw Movement_turn_waterfall_left ; 2a
dw Movement_turn_waterfall_right ; 2b
dw Movement_slow_jump_step_down ; 2c
dw Movement_slow_jump_step_up ; 2d
dw Movement_slow_jump_step_left ; 2e
dw Movement_slow_jump_step_right ; 2f
dw Movement_jump_step_down ; 30
dw Movement_jump_step_up ; 31
dw Movement_jump_step_left ; 32
dw Movement_jump_step_right ; 33
dw Movement_fast_jump_step_down ; 34
dw Movement_fast_jump_step_up ; 35
dw Movement_fast_jump_step_left ; 36
dw Movement_fast_jump_step_right ; 37
dw Movement_38 ; 38
dw Movement_39 ; 39
dw Movement_remove_fixed_facing ; 3a
dw Movement_fix_facing ; 3b
dw Movement_3c ; 3c
dw Movement_hide_person ; 3d
dw Movement_show_person ; 3e
dw Movement_3f ; 3f
dw Movement_40 ; 40
dw Movement_41 ; 41
dw Movement_42 ; 42
dw Movement_43 ; 43
dw Movement_44 ; 44
dw Movement_accelerate_last ; 45
dw Movement_step_sleep ; 46
dw Movement_step_end ; 47
dw Movement_48 ; 48
dw Movement_remove_person ; 49
dw Movement_4a ; 4a
dw Movement_4b ; 4b
dw Movement_teleport_from ; 4c
dw Movement_teleport_to ; 4d
dw Movement_skyfall ; 4e
dw Movement_step_wait5 ; 4f
dw Movement_50 ; 50
dw Movement_51 ; 51
dw Movement_52 ; 52
dw Movement_hide_emote ; 53
dw Movement_show_emote ; 54
dw Movement_step_shake ; 55
dw Movement_56 ; 56
dw Movement_57 ; 57
dw Movement_58 ; 58
dw Movement_59 ; 59
; 5129
Movement_teleport_from: ; 5129
ld hl, OBJECT_09
add hl, bc
ld [hl], $c
ret
; 5130
Movement_teleport_to: ; 5130
ld hl, OBJECT_09
add hl, bc
ld [hl], $d
ret
; 5137
Movement_skyfall: ; 5137
ld hl, OBJECT_09
add hl, bc
ld [hl], $e
ret
; 513e
Movement_59: ; 513e
ld hl, OBJECT_09
add hl, bc
ld [hl], $19
ret
; 5145
Movement_step_wait5: ; 5145
call GetSpriteDirection
rlca
rlca
ld hl, OBJECT_12
add hl, bc
ld [hl], a
ld hl, OBJECT_11
add hl, bc
ld [hl], $4
call GetMovementByte
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_09
add hl, bc
ld [hl], $3
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ret
; 516a
Movement_58: ; 516a
call GetSpriteDirection
rlca
rlca
ld hl, OBJECT_12
add hl, bc
ld [hl], a
call GetMovementByte
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ld hl, OBJECT_09
add hl, bc
ld [hl], $12
ret
; 5189
Movement_51: ; 5189
ld hl, OBJECT_11
add hl, bc
ld [hl], $6
ld hl, OBJECT_09
add hl, bc
ld [hl], $10
ret
; 5196
Movement_57: ; 5196
call GetMovementByte
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_11
add hl, bc
ld [hl], $1
ld hl, OBJECT_09
add hl, bc
ld [hl], $11
ret
; 51ab
Movement_52: ; 51ab
ld hl, OBJECT_11
add hl, bc
ld [hl], $6
ld hl, OBJECT_09
add hl, bc
ld [hl], $1
ret
; 51b8
Movement_4a: ; 51b8
ld hl, OBJECT_27
add hl, bc
ld [hl], $0
jp Function5065
; 51c1
Movement_step_end: ; 51c1
call RestoreDefaultMovement
ld hl, OBJECT_MOVEMENTTYPE
add hl, bc
ld [hl], a
ld hl, OBJECT_27
add hl, bc
ld [hl], $0
ld hl, VramState
res 7, [hl]
ld hl, OBJECT_09
add hl, bc
ld [hl], $1
ret
; 51db
Movement_48: ; 51db
call RestoreDefaultMovement
ld hl, OBJECT_MOVEMENTTYPE
add hl, bc
ld [hl], a
ld hl, OBJECT_27
add hl, bc
ld [hl], $0
call GetMovementByte
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_09
add hl, bc
ld [hl], $3
ld hl, VramState
res 7, [hl]
ret
; 51fd
Movement_remove_person: ; 51fd
call Function4357
ld hl, wObjectFollow_Leader
ld a, [hMapObjectIndexBuffer]
cp [hl]
jr nz, .asm_520a
ld [hl], $ff
.asm_520a
ld hl, VramState
res 7, [hl]
ret
; 5210
Movement_4b: ; 5210
ld hl, OBJECT_11
add hl, bc
ld [hl], $1
ld hl, OBJECT_09
add hl, bc
ld [hl], $4
ld hl, VramState
res 7, [hl]
ret
; 5222
Movement_show_person: ; 5222
ld a, $1
jr Function5247
Movement_3f: ; 5226
ld a, $2
jr Function5247
Movement_40: ; 522a
ld a, $3
jr Function5247
Movement_41: ; 522e
ld a, $4
jr Function5247
Movement_42: ; 5232
ld a, $5
jr Function5247
Movement_43: ; 5236
ld a, $6
jr Function5247
Movement_44: ; 523a
ld a, $7
jr Function5247
Movement_accelerate_last: ; 523e
ld a, $8
jr Function5247
Movement_step_sleep: ; 5242
; parameters:
; duration (DecimalParam)
call GetMovementByte
jr Function5247
Function5247: ; 5247
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_09
add hl, bc
ld [hl], $3
ld hl, OBJECT_11
add hl, bc
ld [hl], $1
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ret
; 525f
Movement_50: ; 525f
ld a, $1
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_09
add hl, bc
ld [hl], $b
ld hl, OBJECT_11
add hl, bc
ld [hl], $3
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ret
; 5279
Movement_56: ; 5279
ld a, $18
ld hl, OBJECT_STEP_DURATION
add hl, bc
ld [hl], a
ld hl, OBJECT_09
add hl, bc
ld [hl], $3
ld hl, OBJECT_11
add hl, bc
ld [hl], $b
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ret
; 5293
Movement_38: ; 5293
ld hl, OBJECT_FLAGS1
add hl, bc
res 3, [hl]
jp Function5065
; 529c
Movement_39: ; 529c
ld hl, OBJECT_FLAGS1
add hl, bc
set 3, [hl]
jp Function5065
; 52a5
Movement_remove_fixed_facing: ; 52a5
ld hl, OBJECT_FLAGS1
add hl, bc
res 2, [hl]
jp Function5065
; 52ae
Movement_fix_facing: ; 52ae
ld hl, OBJECT_FLAGS1
add hl, bc
set 2, [hl]
jp Function5065
; 52b7
Movement_3c: ; 52b7
ld hl, OBJECT_FLAGS1
add hl, bc
res 0, [hl]
jp Function5065
; 52c0
Movement_hide_person: ; 52c0
ld hl, OBJECT_FLAGS1
add hl, bc
set 0, [hl]
jp Function5065
; 52c9
Movement_hide_emote: ; 52c9
call Function5579
jp Function5065
; 52cf
Movement_show_emote: ; 52cf
call Function5547
jp Function5065
; 52d5
Movement_step_shake: ; 52d5
; parameters:
; displacement (DecimalParam)
call GetMovementByte
call Function5565
jp Function5065
; 52de
Movement_turn_head_down: ; 52de
ld a, OW_DOWN
jr TurnHead
Movement_turn_head_up: ; 52e2
ld a, OW_UP
jr TurnHead
Movement_turn_head_left: ; 52e6
ld a, OW_LEFT
jr TurnHead
Movement_turn_head_right: ; 52ea
ld a, OW_RIGHT
jr TurnHead
TurnHead: ; 52ee
ld hl, OBJECT_FACING
add hl, bc
ld [hl], a
ld hl, OBJECT_11
add hl, bc
ld [hl], $1
ld hl, OBJECT_DIRECTION_WALKING
add hl, bc
ld [hl], $ff
ret
; 5300
Movement_slow_step_down: ; 5300
ld a, STEP_SLOW << 2 | DOWN
jp NormalStep
; 5305
Movement_slow_step_up: ; 5305
ld a, STEP_SLOW << 2 | UP
jp NormalStep
; 530a
Movement_slow_step_left: ; 530a
ld a, STEP_SLOW << 2 | LEFT
jp NormalStep
; 530f
Movement_slow_step_right: ; 530f
ld a, STEP_SLOW << 2 | RIGHT
jp NormalStep
; 5314
Movement_step_down: ; 5314
ld a, STEP_WALK << 2 | DOWN
jp NormalStep
; 5319
Movement_step_up: ; 5319
ld a, STEP_WALK << 2 | UP
jp NormalStep
; 531e
Movement_step_left: ; 531e
ld a, STEP_WALK << 2 | LEFT
jp NormalStep
; 5323
Movement_step_right: ; 5323
ld a, STEP_WALK << 2 | RIGHT
jp NormalStep
; 5328
Movement_big_step_down: ; 5328
ld a, STEP_BIKE << 2 | DOWN
jp NormalStep
; 532d
Movement_big_step_up: ; 532d
ld a, STEP_BIKE << 2 | UP
jp NormalStep
; 5332
Movement_big_step_left: ; 5332
ld a, STEP_BIKE << 2 | LEFT
jp NormalStep
; 5337
Movement_big_step_right: ; 5337
ld a, STEP_BIKE << 2 | RIGHT
jp NormalStep
; 533c
Movement_turn_away_down: ; 533c
ld a, STEP_SLOW << 2 | DOWN
jp TurningStep
; 5341
Movement_turn_away_up: ; 5341
ld a, STEP_SLOW << 2 | UP
jp TurningStep
; 5346
Movement_turn_away_left: ; 5346
ld a, STEP_SLOW << 2 | LEFT
jp TurningStep
; 534b
Movement_turn_away_right: ; 534b
ld a, STEP_SLOW << 2 | RIGHT
jp TurningStep
; 5350
Movement_turn_in_down: ; 5350
ld a, STEP_WALK << 2 | DOWN
jp TurningStep
; 5355
Movement_turn_in_up: ; 5355
ld a, STEP_WALK << 2 | UP
jp TurningStep
; 535a
Movement_turn_in_left: ; 535a
ld a, STEP_WALK << 2 | LEFT
jp TurningStep
; 535f
Movement_turn_in_right: ; 535f
ld a, STEP_WALK << 2 | RIGHT
jp TurningStep
; 5364
Movement_turn_waterfall_down: ; 5364
ld a, STEP_BIKE << 2 | DOWN
jp TurningStep
; 5369
Movement_turn_waterfall_up: ; 5369
ld a, STEP_BIKE << 2 | UP
jp TurningStep
; 536e
Movement_turn_waterfall_left: ; 536e
ld a, STEP_BIKE << 2 | LEFT
jp TurningStep
; 5373
Movement_turn_waterfall_right: ; 5373
ld a, STEP_BIKE << 2 | RIGHT
jp TurningStep
; 5378
Movement_slow_slide_step_down: ; 5378
ld a, STEP_SLOW << 2 | DOWN
jp SlideStep
; 537d
Movement_slow_slide_step_up: ; 537d
ld a, STEP_SLOW << 2 | UP
jp SlideStep
; 5382
Movement_slow_slide_step_left: ; 5382
ld a, STEP_SLOW << 2 | LEFT
jp SlideStep
; 5387
Movement_slow_slide_step_right: ; 5387
ld a, STEP_SLOW << 2 | RIGHT
jp SlideStep
; 538c
Movement_slide_step_down: ; 538c
ld a, STEP_WALK << 2 | DOWN
jp SlideStep
; 5391
Movement_slide_step_up: ; 5391
ld a, STEP_WALK << 2 | UP
jp SlideStep
; 5396
Movement_slide_step_left: ; 5396
ld a, STEP_WALK << 2 | LEFT
jp SlideStep
; 539b
Movement_slide_step_right: ; 539b
ld a, STEP_WALK << 2 | RIGHT
jp SlideStep
; 53a0
Movement_fast_slide_step_down: ; 53a0
ld a, STEP_BIKE << 2 | DOWN
jp SlideStep
; 53a5
Movement_fast_slide_step_up: ; 53a5
ld a, STEP_BIKE << 2 | UP
jp SlideStep
; 53aa
Movement_fast_slide_step_left: ; 53aa
ld a, STEP_BIKE << 2 | LEFT
jp SlideStep
; 53af
Movement_fast_slide_step_right: ; 53af
ld a, STEP_BIKE << 2 | RIGHT
jp SlideStep
; 53b4
Movement_slow_jump_step_down: ; 53b4
ld a, STEP_SLOW << 2 | DOWN
jp JumpStep
; 53b9
Movement_slow_jump_step_up: ; 53b9
ld a, STEP_SLOW << 2 | UP
jp JumpStep
; 53be
Movement_slow_jump_step_left: ; 53be
ld a, STEP_SLOW << 2 | LEFT
jp JumpStep
; 53c3
Movement_slow_jump_step_right: ; 53c3
ld a, STEP_SLOW << 2 | RIGHT
jp JumpStep
; 53c8
Movement_jump_step_down: ; 53c8
ld a, STEP_WALK << 2 | DOWN
jp JumpStep
; 53cd
Movement_jump_step_up: ; 53cd
ld a, STEP_WALK << 2 | UP
jp JumpStep
; 53d2
Movement_jump_step_left: ; 53d2
ld a, STEP_WALK << 2 | LEFT
jp JumpStep
; 53d7
Movement_jump_step_right: ; 53d7
ld a, STEP_WALK << 2 | RIGHT
jp JumpStep
; 53dc
Movement_fast_jump_step_down: ; 53dc
ld a, STEP_BIKE << 2 | DOWN
jp JumpStep
; 53e1
Movement_fast_jump_step_up: ; 53e1
ld a, STEP_BIKE << 2 | UP
jp JumpStep
; 53e6
Movement_fast_jump_step_left: ; 53e6
ld a, STEP_BIKE << 2 | LEFT
jp JumpStep
; 53eb
Movement_fast_jump_step_right: ; 53eb
ld a, STEP_BIKE << 2 | RIGHT
jp JumpStep
; 53f0
Movement_half_step_down: ; 53f0
ld a, OW_DOWN
jr HalfStep
Movement_half_step_up: ; 53f4
ld a, OW_UP
jr HalfStep
Movement_half_step_left: ; 53f8
ld a, OW_LEFT
jr HalfStep
Movement_half_step_right: ; 53fc
ld a, OW_RIGHT
jr HalfStep
HalfStep: ; 5400
ld hl, OBJECT_29
add hl, bc
ld [hl], a
ld hl, OBJECT_11
add hl, bc
ld [hl], $2
ld hl, OBJECT_09
add hl, bc
ld [hl], $a
ret
; 5412
NormalStep: ; 5412
call Function4690
call Function463f
ld hl, OBJECT_11
add hl, bc
ld [hl], $2
ld hl, OBJECT_STANDING_TILE
add hl, bc
ld a, [hl]
call CheckSuperTallGrassTile
jr z, .asm_542d
call Function1875
jr c, .asm_5430
.asm_542d
call Function5556
.asm_5430
ld hl, wd4cf
ld a, [hMapObjectIndexBuffer]
cp [hl]
jr z, .asm_543f
ld hl, OBJECT_09
add hl, bc
ld [hl], $2
ret
.asm_543f
ld hl, OBJECT_09
add hl, bc
ld [hl], $6
ret
; 5446
TurningStep: ; 5446
call Function4690
call Function463f
ld hl, OBJECT_11
add hl, bc
ld [hl], $4
ld hl, wd4cf
ld a, [hMapObjectIndexBuffer]
cp [hl]
jr z, .asm_5461
ld hl, OBJECT_09
add hl, bc
ld [hl], $2
ret
.asm_5461
ld hl, OBJECT_09
add hl, bc
ld [hl], $6
ret
; 5468
SlideStep: ; 5468
call Function4690
call Function463f
ld hl, OBJECT_11
add hl, bc
ld [hl], $1
ld hl, wd4cf
ld a, [hMapObjectIndexBuffer]
cp [hl]
jr z, .asm_5483
ld hl, OBJECT_09
add hl, bc
ld [hl], $2
ret
.asm_5483
ld hl, OBJECT_09
add hl, bc
ld [hl], $6
ret
; 548a
JumpStep: ; 548a
call Function4690
ld hl, OBJECT_31
add hl, bc
ld [hl], $0
ld hl, OBJECT_FLAGS2
add hl, bc
res 3, [hl]
ld hl, OBJECT_11
add hl, bc
ld [hl], $2
call Function5529
ld hl, wd4cf
ld a, [hMapObjectIndexBuffer]
cp [hl]
jr z, .asm_54b1
ld hl, OBJECT_09
add hl, bc
ld [hl], $8
ret
.asm_54b1
ld hl, OBJECT_09
add hl, bc
ld [hl], $9
ret
; 54b8