-----------------------------------------------------------------------------------------
-- Get table with inventory of actor, inventory cleared as a result
-----------------------------------------------------------------------------------------
function CF_GetInventory(actor)
   --print("GetInventory")
   local inventory = {}
   local classes = {}

   if MovableMan:IsActor(actor) then
      if actor.ClassName == "AHuman" then
         local human = ToAHuman(actor);
         
         if human ~= nil then
            if human.EquippedItem ~= nil then
               inventory[#inventory + 1] = human.EquippedItem.PresetName;
               classes[#classes + 1] = human.EquippedItem.ClassName;
            end
            
            human:UnequipBGArm()
         end
      end
      
      if not actor:IsInventoryEmpty() then
         local enough = false;
         while not enough do
            local weap = nil;
         
            weap = actor:SwapNextInventory(weap, true);
            
            if weap == nil then
               enough = true;
            else
               inventory[#inventory + 1] = weap.PresetName;
               classes[#classes + 1] = weap.ClassName;
            end
         end
      end
   else
      --print("Actor: ")
      --print(actor);
   end
   
   return inventory, classes;
end

local presets, classes = CF_GetInventory(source_actor)

for i = 1, #presets do
   local itm;
   
   if classes[i] == "HDFirearm" then
      itm = CreateHDFirearm(presets[i])
   elseif classes[i] == "TDExplosive" then
      itm = CreateTDExplosive(presets[i])
   elseif classes[i] == "HeldDevice" then
      itm = CreateHeldDevice(presets[i])
   end
   
   if itm ~= nil then
      dest_actor:AddInventoryItem(itm)
   end
end