IsVectorInArrayWithinDistance

vector $TTArr[];
$TTArr[0] = <<2,3,22>>;
$TTArr[1] = <<2,-3,22>>;
$TTArr[2] = <<-2,3,22>>;
vector $MArr = <<22,23,22>>;
int $HHH = IsVectorInArrayWithinRange($MArr, $TTArr,111);

global proc int IsVectorInArrayWithinRange(vector $MainVec, vector $MainVecArr[], float $RangeVal) {
	//Author Nick Pisca 0001d 2009
	int $WC = 0;
	int $WCBool = 0;
	do {
		vector $MVA = $MainVecArr[$WC];
		vector $Diff = $MainVec - $MVA;
		float $DVal = mag($Diff);
		if ($RangeVal > $DVal) {
			$WCBool = 1; 
		}
		$WC++;
	} while ($WC<size($MainVecArr) && $WCBool==0);
	return $WCBool;
} 

More information on vectors and vector mathematics, read pages 14-16, 20-21 in YSYT.