Matrix Games Forums

Code: Select all

local selectedUnit = ScenEdit_SelectedUnits()

local s = 0

if selectedUnit.units ~= nil then
  for _ in pairs(selectedUnit.units) do 
  s = s+1 
  end
else

ScenEdit_MsgBox ("ERROR: you selected an ennemy contact. Select one single unit containing cargo (hangar/Tarmac space, etc) and try again. \n\nPress 'OK' to CLOSE this window" , 1)
return 
end 

if s > 1 then 
ScenEdit_MsgBox ("ERROR: more than 1 unit is selected. \n\nPress 'OK' to CLOSE this window" , 1)
return
end

--should work only on facilities (hangars, tarmac speces, etc)
local unit = ScenEdit_GetUnit({guid=selectedUnit.units[1].guid})
if unit.type ~= "Facility"  then 
ScenEdit_MsgBox ("ERROR: The unit you selected is not a facility. \n\nPress 'Ok' to CLOSE this window" , 1)
return
end

local comp = ScenEdit_GetUnit({guid=selectedUnit.units[1].guid}):filterOnComponent('Cargo')
---------------------
  if (comp == nil) or type(comp) ~= "table" then print("Missing or nil table parameter.")
  return {}
  end
  local cargoTable = {}
  local cargoTableName = {}

  for l =1, #comp do
    if cargoTable[comp[l].comp_dbid] ~= nil then 
      cargoTable[comp[l].comp_dbid]= cargoTable[comp[l].comp_dbid] + 1 
      cargoTableName[comp[l].comp_name] =cargoTableName[comp[l].comp_name] + 1

    else
      cargoTable[comp[l].comp_dbid] = 1 
      cargoTableName[comp[l].comp_name] = 1
    end
  end
---------------------
for k,v in pairs (cargoTable) do 

local name
for j = 1, #comp do
if comp[j].comp_dbid == k then name =  comp[j].comp_name end 
end

local x = ScenEdit_MsgBox ("Do you want to unload ".. v .." units of  ".. name .." ? \n\n WARNING: This can't be undone ! " , 4)

          if x == "Yes" then
          ScenEdit_UnloadCargo(selectedUnit.units[1].guid,{{v,k}})
          
local y = ScenEdit_MsgBox ("You SUCCESSFULLY unloaded ".. v .." units of : "..name.." - \n\n Press 'OK' to CLOSE this window and proceed with the next item or press 'CANCEL' to abort the script" , 1)
if y == "Cancel" then return end
          else 
          
local z = ScenEdit_MsgBox ("Cargo "..name.." WON'T BE UNLOADED. Run the speacial action again later. \n\nPress 'OK' to CLOSE this window and proceed with the next item to unload or press 'CANCEL' to ABORT the script" , 1)
if z == "Cancel" then return end
          end
          end
          
ScenEdit_MsgBox ("No more cargo to unload \n\nPress 'Ok' to CLOSE this window" , 1)

Code: Select all

math.randomseed( os.time() ) --used for generating a random group number
-- variables declaration
local selectedUnit = ScenEdit_SelectedUnits()
local s = 0
local myUnit = { }
local myClassTable = { }
local indic = 0
local groupNum = string.sub((tostring(os.time()) .. tostring(math.random(10,99)) .. " from cargo"),8) -- creates number to name the groups 
--counts number of units in selection for tests
if selectedUnit.units ~= nil then
  for _ in pairs(selectedUnit.units) do 
  s = s+1 
  end
else
ScenEdit_MsgBox ("ERROR: you selected enemy contact(s). Select the units you unloaded from your CARGO facility (hangar/Tarmac space, etc) that you want to group and try again. \n\nPress OK to CLOSE this window" , 1)
return 
end 

for k = 1, s do
local myUnit = ScenEdit_GetUnit({guid=selectedUnit.units[k].guid})
if myUnit.type ~= "Facility"  then 

ScenEdit_MsgBox ("ERROR: Some of the units you selected are not facilities \n\nPress OK to CLOSE this window" , 1)
return
end
end

if s < 2  then 
ScenEdit_MsgBox ("ERROR: more than 1 unit must be selected. \n\nPress OK to CLOSE this window" , 1)
return
end

--should work only on facilities 
--grouping

for a = 1, s do

local myUnit = ScenEdit_GetUnit({guid=selectedUnit.units[a].guid})

if myUnit.classname ~= nil then
table.insert(myClassTable,myUnit.classname) --building classnames table
end 
end

for j =1 , s do

local myUnit = ScenEdit_GetUnit({guid=selectedUnit.units[j].guid})

    if myClassTable[j] == myClassTable[j-1] then
if myUnit.subtype == "5001" or myUnit.subtype == "5002" then 
myUnit.group = tostring(myClassTable[j]) .." Group #".. groupNum
indic = indic + 1
end
    else
if myUnit.subtype == "5001" or myUnit.subtype == "5002" then 
myUnit.group = tostring(myClassTable[j]) .. " Group #" .. groupNum 
indic = indic + 1
end
end
end

if indic >0 then 
ScenEdit_MsgBox ("SUCCESS: Selected units have been grouped by class. \n\nSwitch to GROUP view to use the groups you just created \n\nPress OK to CLOSE this window" , 1)
else
ScenEdit_MsgBox ("FAILURE: No units have been grouped. This script works only with Mobile Vehicles and Mobile Personnel. Select units you want to group and try again\n\nPress OK to CLOSE this window" , 1)
end

Code: Select all

--example
for i=1,10 do 
  print('hello' ..tostring(something[i]));
end

Code: Select all

--example
for i=1,10 do 
  print('hello' ..tostring(something[i]));
end