Script_ForcedMovement:: ; 0x1253d
	checkcode VAR_FACING
	ifequal DOWN, .down
	ifequal UP, .up
	ifequal LEFT, .left
	ifequal RIGHT, .right
	end
; 0x12550

.up ; 0x12550
	applymovement PLAYER, .MovementData_up
	end
; 0x12555

.down ; 0x12555
	applymovement PLAYER, .MovementData_down
	end
; 0x1255a

.right ; 0x1255a
	applymovement PLAYER, .MovementData_right
	end
; 0x1255f

.left ; 0x1255f
	applymovement PLAYER, .MovementData_left
	end
; 0x12564

.MovementData_up: ; 0x12564
	step_dig 16
	turn_in DOWN
	step_dig 16
	turn_head DOWN
	step_end
; 0x1256b

.MovementData_down: ; 0x1256b
	step_dig 16
	turn_in UP
	step_dig 16
	turn_head UP
	step_end
; 0x12572

.MovementData_right: ; 0x12572
	step_dig 16
	turn_in LEFT
	step_dig 16
	turn_head LEFT
	step_end
; 0x12579

.MovementData_left: ; 0x12579
	step_dig 16
	turn_in RIGHT
	step_dig 16
	turn_head RIGHT
	step_end
; 0x12580