Matrix Games Forums

Code: Select all

local s = VP_GetSide({Side="NATO"})
for k,v in pairs(s:unitsBy('Aircraft')) do
print((v.name)..';'..tostring(v.guid)..';')
end

Code: Select all

local s = VP_GetSide({Side="NATO"})
local unitlist = s:unitsBy('Aircraft');
for _,v in ipairs(unitlist) do  --ipairs marginally faster as well when available (again org is fine too).
  local u = SE_GetUnit({guid=v.guid});  -- grab the unit so you can extract details per-unit you may want.
  if u ~=nil then
    --tostrings here while not always needed is more about preventing errors than necessity in this specific instance. 
    print((v.name)..';'..tostring(v.guid)..';' .. tostring(u.type) .. ';' .. tostring(u.classname)); --add stuff you want.
    --print(string.format("%s;%s;%s;%s",v.name,v.guid,u.type,u.classname));  -- example alternate
  else
    print((v.name)..';'..tostring(v.guid)..';' .. ' Error obtaining unit details.');
  end 
  u = nil;
end

Code: Select all

local aircraftCatTable={
  [1001]="None",
  [2001]="Fixed_Wing",
  [2002]="Fixed_Wing_CarrierCapable",
  [2003]="Helicopter",
  [2004]="Tiltrotor",
  [2006]="Airship",
  [2007]="Seaplane",
  [2008]="Amphibian"
  }
local function catNumToString(catTable, n)
  if catTable[n] ~=nil then return catTable[n]; else return tostring(n); end
end
  
  local s = VP_GetSide({Side="Blue"})
  local unitlist = s:unitsBy('Aircraft'); 
  
  for _,v in ipairs(unitlist) do  
    local u = SE_GetUnit({guid=v.guid});  
    if u ~=nil then
      print((v.name)..';' .. tostring(u.classname) .. ';' .. tostring(u.loadoutdbid) .. ';' .. catNumToString(aircraftCatTable,u.category)) 
    else
      print((v.name)..';'..tostring(v.guid)..';' .. ' Error obtaining unit details.');
    end 
    u = nil;
  end

Code: Select all

local aircraftCatTable={
  [1001]="None",
  [2001]="Fixed_Wing",
  [2002]="Fixed_Wing_CarrierCapable",
  [2003]="Helicopter",
  [2004]="Tiltrotor",
  [2006]="Airship",
  [2007]="Seaplane",
  [2008]="Amphibian"
  }
local function catNumToString(catTable, n)
  n = tonumber(n);
  if catTable[n] ~=nil then return catTable[n]; else return tostring(n); end
end
  
  local s = VP_GetSide({Side="Blue"})
  local unitlist = s:unitsBy('Aircraft'); 
  
  for _,v in ipairs(unitlist) do  
    local u = SE_GetUnit({guid=v.guid});  
    if u ~=nil then
      print((v.name)..';' .. tostring(u.classname) .. ';' .. tostring(u.loadoutdbid) .. ';' .. catNumToString(aircraftCatTable,u.category)) 
    else
      print((v.name)..';'..tostring(v.guid)..';' .. ' Error obtaining unit details.');
    end 
    u = nil;
  end

Code: Select all

local WpnTypeTable={
[1001] = 'None',
[2001] = 'GuidedWeapon',
[2002] = 'Rocket',
[2003] = 'IronBomb',
[2004] = 'Gun',
[2005] = 'Decoy_Expendable',
[2006] = 'Decoy_Towed',
[2007] = 'Decoy_Vehicle',
[2008] = 'TrainingRound',
[2009] = 'Dispenser',
[2010] = 'ContactBomb_Suicide',
[2011] = 'ContactBomb_Sabotage',
[2012] = 'GuidedProjectile',
[3001] = 'SensorPod',
[3002] = 'DropTank',
[3003] = 'BuddyStore',
[3004] = 'FerryTank',
[4001] = 'Torpedo',
[4002] = 'DepthCharge',
[4003] = 'Sonobuoy',
[4004] = 'BottomMine',
[4005] = 'MooredMine',
[4006] = 'FloatingMine',
[4007] = 'MovingMine',
[4008] = 'RisingMine',
[4009] = 'DriftingMine',
[4011] = 'DummyMine',
[4101] = 'HeliTowedPackage',
[5001] = 'RV',
[6001] = 'Laser',
[8001] = 'HGV',
[9001] = 'Cargo',
[9002] = 'Troops',
[9003] = 'Paratroops',
}

local s = VP_GetSide({Side="US"})
local unitlist = s:unitsBy('Aircraft');

local function catNumToString(catTable, n)
    n = tonumber(n);
    if catTable[n] ~=nil then return catTable[n]; else return tostring(n); end
end

local function dumpLoadoutWeapons(lo,indent)
    if indent == nil then indent = 2;end
    local ind = string.rep(" ",indent)
    if (lo ==nil) or lo.name ==nil then print(ind.. "Loadout: None");
    else
        print(ind.. "Loadout: " .. tostring(lo.name));
        for k,v in ipairs(lo.weapons)do
            print(ind.. "  [" .. tostring(k) .."] " ..tostring(v.wpn_current).. " - wpn_name: " .. tostring(v.wpn_name) .. " - wpn_type: " .. catNumToString(WpnTypeTable, v.wpn_type));
        end
    end
end

for _,v in ipairs(unitlist) do
    local u = SE_GetUnit({guid=v.guid});
    local lo = ScenEdit_GetLoadout({name=v.name}) -- deze added
    if u ~=nil then
        for k,v in pairs(u.mounts) do
            print("Unit: " .. (u.name) .. " (" .. tostring(u.classname) .. ")");
            dumpLoadoutWeapons(lo,2);
            print(" * Mount nr".. k .. ": mount name: " .. tostring(v.mount_name) .. " - mount guid: " .. tostring(v.mount_guid))
            if v.mount_weapons ~=nil then
                for i,j in ipairs(v.mount_weapons) do
                    print(" ~ Weapon nr" .. i .. ": weapon name: " .. j.wpn_name .. " - wpn_type: " .. catNumToString(WpnTypeTable,j.wpn_type) .. " - Current Nr: " .. j.wpn_current .. " - Weapon DBID: " .. j.wpn_dbid)
                end
            else
                print(" No weapons on this mount.")
            end
        end
    end
    print ("")
end