_modloc = _this select 0;
_range = _this select 1;
_countbld = [];
{
    _bld = tpw_furniture_houses select _forEachIndex;
    if ((_bld distance _modloc) <= _range) then
        {
            {
            deletevehicle _x;
            sleep 0.01;
            } count (_bld getvariable "tpw_spawned");
        _bld setvariable ["tpw_furnished",1];
        _bld setvariable ["tpw_spawned",[]];
        //tpw_furniture_houses set [_i,-1];
        _countbld pushBack _bld;
        };
} forEach tpw_furniture_houses;
tpw_furniture_houses = tpw_furniture_houses - _countbld;
_countbld = [];
systemChat format["%1",count _countbld];