movement command asm

engine/movement.asm

@@ -0,0 +1,829 @@
+MovementPointers: ; 5075
+	dw Movement_turn_head_down
+	dw Movement_turn_head_up
+	dw Movement_turn_head_left
+	dw Movement_turn_head_right
+	dw Movement_half_step_down
+	dw Movement_half_step_up
+	dw Movement_half_step_left
+	dw Movement_half_step_right
+	dw Movement_slow_step_down
+	dw Movement_slow_step_up
+	dw Movement_slow_step_left
+	dw Movement_slow_step_right
+	dw Movement_step_down
+	dw Movement_step_up
+	dw Movement_step_left
+	dw Movement_step_right
+	dw Movement_big_step_down
+	dw Movement_big_step_up
+	dw Movement_big_step_left
+	dw Movement_big_step_right
+	dw Movement_slow_slide_step_down
+	dw Movement_slow_slide_step_up
+	dw Movement_slow_slide_step_left
+	dw Movement_slow_slide_step_right
+	dw Movement_slide_step_down
+	dw Movement_slide_step_up
+	dw Movement_slide_step_left
+	dw Movement_slide_step_right
+	dw Movement_fast_slide_step_down
+	dw Movement_fast_slide_step_up
+	dw Movement_fast_slide_step_left
+	dw Movement_fast_slide_step_right
+	dw Movement_turn_away_down
+	dw Movement_turn_away_up
+	dw Movement_turn_away_left
+	dw Movement_turn_away_right
+	dw Movement_turn_in_down
+	dw Movement_turn_in_up
+	dw Movement_turn_in_left
+	dw Movement_turn_in_right
+	dw Movement_turn_waterfall_down
+	dw Movement_turn_waterfall_up
+	dw Movement_turn_waterfall_left
+	dw Movement_turn_waterfall_right
+	dw Movement_slow_jump_step_down
+	dw Movement_slow_jump_step_up
+	dw Movement_slow_jump_step_left
+	dw Movement_slow_jump_step_right
+	dw Movement_jump_step_down
+	dw Movement_jump_step_up
+	dw Movement_jump_step_left
+	dw Movement_jump_step_right
+	dw Movement_fast_jump_step_down
+	dw Movement_fast_jump_step_up
+	dw Movement_fast_jump_step_left
+	dw Movement_fast_jump_step_right
+	dw Function5293
+	dw Function529c
+	dw Movement_remove_fixed_facing
+	dw Movement_fix_facing
+	dw Function52b7
+	dw Movement_hide_person
+	dw Movement_show_person
+	dw Function5226
+	dw Function522a
+	dw Function522e
+	dw Function5232
+	dw Function5236
+	dw Function523a
+	dw Movement_accelerate_last
+	dw Movement_step_sleep
+	dw Movement_step_end
+	dw Function51db
+	dw Movement_remove_person
+	dw Function51b8
+	dw Function5210
+	dw Movement_teleport_from
+	dw Movement_teleport_to
+	dw Movement_skyfall
+	dw Movement_step_wait5
+	dw Function525f
+	dw Function5189
+	dw Function51ab
+	dw Movement_hide_emote
+	dw Movement_show_emote
+	dw Movement_step_shake
+	dw Function5279
+	dw Function5196
+	dw Function516a
+	dw Function513e
+; 5129
+
+
+Movement_teleport_from: ; 5129
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $c
+	ret
+; 5130
+
+Movement_teleport_to: ; 5130
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $d
+	ret
+; 5137
+
+Movement_skyfall: ; 5137
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $e
+	ret
+; 513e
+
+Function513e: ; 513e
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $19
+	ret
+; 5145
+
+Movement_step_wait5: ; 5145
+	call GetSpriteDirection
+	rlca
+	rlca
+	ld hl, $000c
+	add hl, bc
+	ld [hl], a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $4
+	call Function505e
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $3
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ret
+; 516a
+
+Function516a: ; 516a
+	call GetSpriteDirection
+	rlca
+	rlca
+	ld hl, $000c
+	add hl, bc
+	ld [hl], a
+	call Function505e
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $12
+	ret
+; 5189
+
+Function5189: ; 5189
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $6
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $10
+	ret
+; 5196
+
+Function5196: ; 5196
+	call Function505e
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $1
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $11
+	ret
+; 51ab
+
+Function51ab: ; 51ab
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $6
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $1
+	ret
+; 51b8
+
+Function51b8: ; 51b8
+	ld hl, $001b
+	add hl, bc
+	ld [hl], $0
+	jp Function5065
+; 51c1
+
+Movement_step_end: ; 51c1
+	call $4769
+	ld hl, $0003
+	add hl, bc
+	ld [hl], a
+	ld hl, $001b
+	add hl, bc
+	ld [hl], $0
+	ld hl, VramState
+	res 7, [hl]
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $1
+	ret
+; 51db
+
+Function51db: ; 51db
+	call $4769
+	ld hl, $0003
+	add hl, bc
+	ld [hl], a
+	ld hl, $001b
+	add hl, bc
+	ld [hl], $0
+	call Function505e
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $3
+	ld hl, VramState
+	res 7, [hl]
+	ret
+; 51fd
+
+Movement_remove_person: ; 51fd
+	call $4357
+	ld hl, $d4cd
+	ld a, [hConnectionStripLength]
+	cp [hl]
+	jr nz, .asm_520a
+	ld [hl], $ff
+
+.asm_520a
+	ld hl, VramState
+	res 7, [hl]
+	ret
+; 5210
+
+Function5210: ; 5210
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $1
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $4
+	ld hl, VramState
+	res 7, [hl]
+	ret
+; 5222
+
+Movement_show_person: ; 5222
+	ld a, $1
+	jr Function5247
+
+Function5226: ; 5226
+	ld a, $2
+	jr Function5247
+
+Function522a: ; 522a
+	ld a, $3
+	jr Function5247
+
+Function522e: ; 522e
+	ld a, $4
+	jr Function5247
+
+Function5232: ; 5232
+	ld a, $5
+	jr Function5247
+
+Function5236: ; 5236
+	ld a, $6
+	jr Function5247
+
+Function523a: ; 523a
+	ld a, $7
+	jr Function5247
+
+Movement_accelerate_last: ; 523e
+	ld a, $8
+	jr Function5247
+
+Movement_step_sleep: ; 5242
+; parameters:
+;	duration (DecimalParam)
+
+	call Function505e
+	jr Function5247
+
+Function5247: ; 5247
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $3
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $1
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ret
+; 525f
+
+Function525f: ; 525f
+	ld a, $1
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $b
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $3
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ret
+; 5279
+
+Function5279: ; 5279
+	ld a, $18
+	ld hl, $000a
+	add hl, bc
+	ld [hl], a
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $3
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $b
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ret
+; 5293
+
+Function5293: ; 5293
+	ld hl, $0004
+	add hl, bc
+	res 3, [hl]
+	jp Function5065
+; 529c
+
+Function529c: ; 529c
+	ld hl, $0004
+	add hl, bc
+	set 3, [hl]
+	jp Function5065
+; 52a5
+
+Movement_remove_fixed_facing: ; 52a5
+	ld hl, $0004
+	add hl, bc
+	res 2, [hl]
+	jp Function5065
+; 52ae
+
+Movement_fix_facing: ; 52ae
+	ld hl, $0004
+	add hl, bc
+	set 2, [hl]
+	jp Function5065
+; 52b7
+
+Function52b7: ; 52b7
+	ld hl, $0004
+	add hl, bc
+	res 0, [hl]
+	jp Function5065
+; 52c0
+
+Movement_hide_person: ; 52c0
+	ld hl, $0004
+	add hl, bc
+	set 0, [hl]
+	jp Function5065
+; 52c9
+
+Movement_hide_emote: ; 52c9
+	call $5579
+	jp Function5065
+; 52cf
+
+Movement_show_emote: ; 52cf
+	call $5547
+	jp Function5065
+; 52d5
+
+Movement_step_shake: ; 52d5
+; parameters:
+;	displacement (DecimalParam)
+
+	call Function505e
+	call $5565
+	jp Function5065
+; 52de
+
+Movement_turn_head_down: ; 52de
+	ld a, $0
+	jr Function52ee
+
+Movement_turn_head_up: ; 52e2
+	ld a, $4
+	jr Function52ee
+
+Movement_turn_head_left: ; 52e6
+	ld a, $8
+	jr Function52ee
+
+Movement_turn_head_right: ; 52ea
+	ld a, $c
+	jr Function52ee
+
+Function52ee: ; 52ee
+	ld hl, $0008
+	add hl, bc
+	ld [hl], a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $1
+	ld hl, $0007
+	add hl, bc
+	ld [hl], $ff
+	ret
+; 5300
+
+Movement_slow_step_down: ; 5300
+	ld a, $0
+	jp Function5412
+; 5305
+
+Movement_slow_step_up: ; 5305
+	ld a, $1
+	jp Function5412
+; 530a
+
+Movement_slow_step_left: ; 530a
+	ld a, $2
+	jp Function5412
+; 530f
+
+Movement_slow_step_right: ; 530f
+	ld a, $3
+	jp Function5412
+; 5314
+
+Movement_step_down: ; 5314
+	ld a, $4
+	jp Function5412
+; 5319
+
+Movement_step_up: ; 5319
+	ld a, $5
+	jp Function5412
+; 531e
+
+Movement_step_left: ; 531e
+	ld a, $6
+	jp Function5412
+; 5323
+
+Movement_step_right: ; 5323
+	ld a, $7
+	jp Function5412
+; 5328
+
+Movement_big_step_down: ; 5328
+	ld a, $8
+	jp Function5412
+; 532d
+
+Movement_big_step_up: ; 532d
+	ld a, $9
+	jp Function5412
+; 5332
+
+Movement_big_step_left: ; 5332
+	ld a, $a
+	jp Function5412
+; 5337
+
+Movement_big_step_right: ; 5337
+	ld a, $b
+	jp Function5412
+; 533c
+
+
+Movement_turn_away_down: ; 533c
+	ld a, $0
+	jp Function5446
+; 5341
+
+Movement_turn_away_up: ; 5341
+	ld a, $1
+	jp Function5446
+; 5346
+
+Movement_turn_away_left: ; 5346
+	ld a, $2
+	jp Function5446
+; 534b
+
+Movement_turn_away_right: ; 534b
+	ld a, $3
+	jp Function5446
+; 5350
+
+Movement_turn_in_down: ; 5350
+	ld a, $4
+	jp Function5446
+; 5355
+
+Movement_turn_in_up: ; 5355
+	ld a, $5
+	jp Function5446
+; 535a
+
+Movement_turn_in_left: ; 535a
+	ld a, $6
+	jp Function5446
+; 535f
+
+Movement_turn_in_right: ; 535f
+	ld a, $7
+	jp Function5446
+; 5364
+
+Movement_turn_waterfall_down: ; 5364
+	ld a, $8
+	jp Function5446
+; 5369
+
+Movement_turn_waterfall_up: ; 5369
+	ld a, $9
+	jp Function5446
+; 536e
+
+Movement_turn_waterfall_left: ; 536e
+	ld a, $a
+	jp Function5446
+; 5373
+
+Movement_turn_waterfall_right: ; 5373
+	ld a, $b
+	jp Function5446
+; 5378
+
+
+Movement_slow_slide_step_down: ; 5378
+	ld a, $0
+	jp Function5468
+; 537d
+
+Movement_slow_slide_step_up: ; 537d
+	ld a, $1
+	jp Function5468
+; 5382
+
+Movement_slow_slide_step_left: ; 5382
+	ld a, $2
+	jp Function5468
+; 5387
+
+Movement_slow_slide_step_right: ; 5387
+	ld a, $3
+	jp Function5468
+; 538c
+
+Movement_slide_step_down: ; 538c
+	ld a, $4
+	jp Function5468
+; 5391
+
+Movement_slide_step_up: ; 5391
+	ld a, $5
+	jp Function5468
+; 5396
+
+Movement_slide_step_left: ; 5396
+	ld a, $6
+	jp Function5468
+; 539b
+
+Movement_slide_step_right: ; 539b
+	ld a, $7
+	jp Function5468
+; 53a0
+
+Movement_fast_slide_step_down: ; 53a0
+	ld a, $8
+	jp Function5468
+; 53a5
+
+Movement_fast_slide_step_up: ; 53a5
+	ld a, $9
+	jp Function5468
+; 53aa
+
+Movement_fast_slide_step_left: ; 53aa
+	ld a, $a
+	jp Function5468
+; 53af
+
+Movement_fast_slide_step_right: ; 53af
+	ld a, $b
+	jp Function5468
+; 53b4
+
+
+Movement_slow_jump_step_down: ; 53b4
+	ld a, $0
+	jp Function548a
+; 53b9
+
+Movement_slow_jump_step_up: ; 53b9
+	ld a, $1
+	jp Function548a
+; 53be
+
+Movement_slow_jump_step_left: ; 53be
+	ld a, $2
+	jp Function548a
+; 53c3
+
+Movement_slow_jump_step_right: ; 53c3
+	ld a, $3
+	jp Function548a
+; 53c8
+
+Movement_jump_step_down: ; 53c8
+	ld a, $4
+	jp Function548a
+; 53cd
+
+Movement_jump_step_up: ; 53cd
+	ld a, $5
+	jp Function548a
+; 53d2
+
+Movement_jump_step_left: ; 53d2
+	ld a, $6
+	jp Function548a
+; 53d7
+
+Movement_jump_step_right: ; 53d7
+	ld a, $7
+	jp Function548a
+; 53dc
+
+Movement_fast_jump_step_down: ; 53dc
+	ld a, $8
+	jp Function548a
+; 53e1
+
+Movement_fast_jump_step_up: ; 53e1
+	ld a, $9
+	jp Function548a
+; 53e6
+
+Movement_fast_jump_step_left: ; 53e6
+	ld a, $a
+	jp Function548a
+; 53eb
+
+Movement_fast_jump_step_right: ; 53eb
+	ld a, $b
+	jp Function548a
+; 53f0
+
+
+Movement_half_step_down: ; 53f0
+	ld a, $0
+	jr Function5400
+
+Movement_half_step_up: ; 53f4
+	ld a, $4
+	jr Function5400
+
+Movement_half_step_left: ; 53f8
+	ld a, $8
+	jr Function5400
+
+Movement_half_step_right: ; 53fc
+	ld a, $c
+	jr Function5400
+
+Function5400: ; 5400
+	ld hl, $001d
+	add hl, bc
+	ld [hl], a
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $2
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $a
+	ret
+; 5412
+
+Function5412: ; 5412
+	call $4690
+	call $463f
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $2
+	ld hl, $000e
+	add hl, bc
+	ld a, [hl]
+	call $188e
+	jr z, .asm_542d
+	call $1875
+	jr c, .asm_5430
+
+.asm_542d
+	call $5556
+
+.asm_5430
+	ld hl, $d4cf
+	ld a, [hConnectionStripLength]
+	cp [hl]
+	jr z, .asm_543f
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $2
+	ret
+
+.asm_543f
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $6
+	ret
+; 5446
+
+Function5446: ; 5446
+	call $4690
+	call $463f
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $4
+	ld hl, $d4cf
+	ld a, [hConnectionStripLength]
+	cp [hl]
+	jr z, .asm_5461
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $2
+	ret
+
+.asm_5461
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $6
+	ret
+; 5468
+
+
+Function5468: ; 5468
+	call $4690
+	call $463f
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $1
+	ld hl, $d4cf
+	ld a, [hConnectionStripLength]
+	cp [hl]
+	jr z, .asm_5483
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $2
+	ret
+
+.asm_5483
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $6
+	ret
+; 548a
+
+
+Function548a: ; 548a
+	call $4690
+	ld hl, $001f
+	add hl, bc
+	ld [hl], $0
+	ld hl, $0005
+	add hl, bc
+	res 3, [hl]
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $2
+	call $5529
+	ld hl, $d4cf
+	ld a, [hConnectionStripLength]
+	cp [hl]
+	jr z, .asm_54b1
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $8
+	ret
+
+.asm_54b1
+	ld hl, $0009
+	add hl, bc
+	ld [hl], $9
+	ret
+; 54b8
+
+

main.asm

@@ -5583,7 +5583,118 @@ INCBIN "baserom.gbc", $3e32, $3fb5 - $3e32
 
 SECTION "bank1",DATA,BANK[$1]
 
-INCBIN "baserom.gbc", $4000, $5f99 - $4000
+
+INCBIN "baserom.gbc", $4000, $5000 - $4000
+
+
+Function5000: ; 5000
+	ld a, [$c2de]
+	ld hl, $c2df
+	ld [hl], a
+	ld a, $3e
+	ld [$c2de], a
+	ld a, [hl]
+	ret
+; 500e
+
+Function500e: ; 500e
+	ld hl, $c2e3
+	call $1aae
+	ret
+; 5015
+
+Function5015: ; 5015
+	ld hl, $001b
+	add hl, bc
+	ld e, [hl]
+	inc [hl]
+	ld d, $0
+	ld hl, $c2e2
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	add hl, de
+	ld a, [hl]
+	ret
+; 5026
+
+Function5026: ; 5026
+	ld hl, $001b
+	add hl, bc
+	ld e, [hl]
+	inc [hl]
+	ld d, $0
+	ld hl, $c2e6
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	add hl, de
+	ld a, [hl]
+	ret
+; 5037
+
+Function5037: ; 5037
+	ld hl, $503d
+	jp $5041
+; 503d
+
+Function503d: ; 503d
+	ld a, [$c2e2]
+	ret
+; 5041
+
+Function5041: ; 5041
+	call $5055
+.asm_5044
+	xor a
+	ld [$c2ea], a
+	call Function505e
+	call Function506b
+	ld a, [$c2ea]
+	and a
+	jr nz, .asm_5044
+	ret
+; 5055
+
+Function5055: ; 5055
+	ld a, l
+	ld [$c2eb], a
+	ld a, h
+	ld [$c2ec], a
+	ret
+; 505e
+
+Function505e: ; 505e
+	ld hl, $c2eb
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp [hl]
+; 5065
+
+Function5065: ; 5065
+	ld a, $1
+	ld [$c2ea], a
+	ret
+; 506b
+
+Function506b: ; 506b
+	push af
+	call $54b8
+	pop af
+	ld hl, MovementPointers
+	rst JumpTable
+	ret
+; 5075
+
+
+; 5075
+INCLUDE "engine/movement.asm"
+; 54b8
+
+
+INCBIN "baserom.gbc", $54b8, $5f99 - $54b8
+
 
 OakSpeech: ; 0x5f99
 	ld a, $24