OFP WW4mod force move AI on a small distance

;;;;; Select.sqs

	_dir = (((getpos selection select 0) - (getpos SELECTED select 0)) atan2 ((getpos selection select 1) - (getpos SELECTED select 1)))
	? _dir < 0 : _dir=_dir+360
	SELECTED setFormDir _dir

	? SELECTED distance selection < 5.5 : _dir exec "Unit\ForceMove.sqs"
	SELECTED move getpos selection

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;; ForceMove.sqs

	_unit = SELECTED
	_dir = _this
	_dist = _unit distance selection


	@(getDir _unit)+2 > _dir && (getDir _unit)-2 < _dir
	_unit move getpos _unit

	? _dist < 1.5 : exit
	? _dist > 1.5 && _dist < 2.1 : _unit playMove "CombatWalkF"
	? _dist > 2.1 && _dist < 4 : _unit playMove "CombatRunF"
	? _dist > 4 && _dist < 5 : _unit playMove "CombatSprintF"; _unit playMove "CombatWalkF"
	? _dist > 5 : _unit playMove "CombatSprintF"; _unit playMove "CombatSprintF"