compact.sqf

_files = [
    "BuildsOLD\RefuelRepair_npcs.sqf",
    "BuildsOLD\RefuelRepair_stations.sqf"
];
_sort = {
    {
        _type = typeOf _x;
        _compact = [_type,(getPos _x),(getDir _x)];
        if (_type isKindOf "Man") then {
            outPutUnits = outPutUnits +  ",
            "+str(_compact);
        } else {
            outPutObjects = outPutObjects +  ",
            "+str(_compact);
        };
        deleteVehicle _x;
    } forEach bigObjectArray;
    bigObjectArray = [];
};
bigObjectArray = [];
outPutUnits = "";
outPutObjects = "";
{
    systemChat ("Compacting "+_x);
    outPutUnits = outPutUnits + "
    /*Units for: "+_x+"*/";
    outPutObjects = outPutObjects + "
    /*Buildings for: "+_x+"*/";

    call compile preProcessFile _x;
    call _sort;
} forEach _files;
copyToClipboard (outPutUnits+outPutObjects);
systemChat ("Converted objects");