Reduced minimum spawning range for vehicles and added safe spawn check

Reduced minimum spawning distance for vehicles from 50 to 15 metres

Added code guard in case it didn't find a valid spot for the vehicle,
instead it will abort and give the player a helpful message tell them
why the vehicle hasn't spawned

Author: ultranoobian

source/dialog/spawnVehicle.sqf

@@ -4,27 +4,31 @@ _vehicleType = _this select 1;
 if (commandpointsblu1 >= _requiredPoints) then {
     commandpointsblu1 = commandpointsblu1 - _requiredPoints;
     ctrlSetText [1000, format["%1",commandpointsblu1]];
-    _spawnPos = (getpos hq_blu1) findEmptyPosition [40, 120, _vehicleType];
-    _spawnPos = [(_spawnPos select 0), _spawnPos select 1];
-    vehic = _vehicleType createVehicle _spawnPos;
+    _spawnPos = (getpos hq_blu1) findEmptyPosition [15, 120, _vehicleType];
+    if(count _spawnPos != 0) then {
+        _spawnPos = [_spawnPos select 0, _spawnPos select 1];
+        vehic = _vehicleType createVehicle _spawnPos;
 
-    if(unitIsUAV vehic) then {
-        createVehicleCrew vehic;
-    };
+        if(unitIsUAV vehic) then {
+            createVehicleCrew vehic;
+        };
 
-    if(vehic isKindOf "Tank" || vehic isKindOf "Wheeled_APC_F") then {
-        vehic addEventHandler ["IncomingMissile", {
-            _target = _this select 0;
-            _attacker = _this select 3;
-            diag_log format ["DUWS-R: MWS Event Fired for %1", _target];
-            if(player in crew (_target)) then {
-                _target say2D ["alarmCar", 100, 1];
-                _azi = (_target) getDir (_attacker);
-                titleText [format["Incoming Missile: Bearing %1", str floor _azi], "PLAIN", 0.4];
-            };
-        }];
-    };
-    hint "Vehicle ready !";
+        if(vehic isKindOf "Tank" || vehic isKindOf "Wheeled_APC_F") then {
+            vehic addEventHandler ["IncomingMissile", {
+                _target = _this select 0;
+                _attacker = _this select 3;
+                diag_log format ["DUWS-R: MWS Event Fired for %1", _target];
+                if(player in crew (_target)) then {
+                    _target say2D ["alarmCar", 100, 1];
+                    _azi = (_target) getDir (_attacker);
+                    titleText [format["Incoming Missile: Bearing %1", str floor _azi], "PLAIN", 0.4];
+                };
+            }];
+        };
+        hint "Vehicle ready !";
+        } else {
+            hint "Not enough room to spawn vehicle!";
+        };
 } else {
     hint "Not enough command points";
 };