Factorio Forums

Code: Select all

	if entity.valid and entity.name == "bi-Arboretum" then
		   
		local arboretum = entity
		local radar_name = "bi-Arboretum-Radar"  
		
		local position_c = {position.x - 4, position.y + 3.95}
		local create_radar = surface.create_entity({name = radar_name, position = position_c, force = force})

		  
		create_radar.minable = false
		create_radar.destructible = false

		global.Arboretum_Table[entity.unit_number] = {inventory=entity, radar=create_radar }

	end

Code: Select all

script.on_event(defines.events.on_sector_scanned, function(event)
	
	---- Each time a Arboretum-Radar scans a sector, do ----	
	if event.radar.name == "bi-Arboretum-Radar" then
		local num = (event.radar.unit_number-1)
		Get_Arboretum_Recipe(global.Arboretum_Table[num], event) 
		
	end
	
end)

Code: Select all

defines.inventory.assembling_machine_input	
defines.inventory.assembling_machine_output	
defines.inventory.assembling_machine_modules

Code: Select all

			local my_inv = ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).get_contents()
			
					for n,a in pairs(my_inv) do
						Item_name=n
						Amount=a
					
						writeDebug("Inv is: "..Item_name)
						writeDebug("# is: "..Amount)	
					end
				

Code: Select all

	elseif recipe_name == "bi_Arboretum_r5" then
				
					writeDebug(recipe_name..": Plant Tree and change the terrain to grass - 1 (advanced)")
					local pos = ArboretumTable.inventory.position
					local surface = ArboretumTable.inventory.surface					
					
					for k = 1,10 do
										
						local xxx = math.random(-plant_radius, plant_radius)
						local yyy = math.random(-plant_radius, plant_radius)
						local new_position = {x = pos.x + xxx,y = pos.y + yyy}
						local currentTilename = surface.get_tile(new_position.x, new_position.y).name
						local can_be_placed = surface.can_place_entity{name= "seedling", position = new_position, force = "neutral"}
							
						if can_be_placed and Bi_Industries.fertility[currentTilename] then 
						
							local terrain_name
							if game.active_mods["alien-biomes"] then 
								terrain_name = "vegetation-green-grass-1"
							else
								terrain_name = "grass-1"
							end
							
							surface.set_tiles{{name=terrain_name, position=new_position}}			
							
							ArboretumTable.inventory.fluidbox[1].amount = ArboretumTable.inventory.fluidbox[1].amount - 200 --<-- Not Working
							
							for n,a in pairs(my_inv) do
								Item_name=n
								Amount=a
								writeDebug("Inv is: "..Item_name)
								writeDebug("# is: "..Amount)	
								Amount = Amount-1	
								--ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).clear() --<-- Not Working
								if Amount > 0 then
									ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).insert({name = Item_name, count = Amount})
								end
							end
							
							local create_seedling = surface.create_entity({name = "seedling", position = new_position, force = "neutral"})
							seed_planted_arboretum (event, create_seedling)
							
							break
								
						else	
						
							writeDebug("can't plant or change terrain here")
							
						end
						
					end

Code: Select all

  local get_inventory = function(entity)
    if not entity.valid then return nil end
    local inventory = {}
    for k = 1,10 do
      local inv = entity.get_inventory(k)
      if inv then
        inventory[k] = inv.get_contents()
      end
    end
    if #inventory > 0 then
      return inventory
    else
      return nil
    end
  end

Code: Select all

local Water_Name = ArboretumTable.inventory.fluidbox[1].name
local Water_Level = ArboretumTable.inventory.fluidbox[1].amount

Code: Select all

ArboretumTable.inventory.fluidbox[1].amount = ArboretumTable.inventory.fluidbox[1].amount - 200
ArboretumTable.inventory.fluidbox[1].amount.insert({name = Water_Name, count = 100})

Code: Select all

ArboretumTable.inventory.fluidbox
ArboretumTable.inventory.fluidbox.valid
ArboretumTable.inventory.fluidbox[1]
ArboretumTable.inventory.fluidbox[1].valid

Code: Select all

local my_inv = ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).get_contents()

for n,a in pairs(my_inv) do								
   Item_name=n 
   Amount=a
   writeDebug("Inv is: "..Item_name)
   writeDebug("# is: "..Amount)	
end

Code: Select all

	for n,a in pairs(my_inv) do
					
		Item_name=n
		Amount=a
		writeDebug("Inv is: "..Item_name)
		writeDebug("# is: "..Amount)	

		if Amount > 0 then
								
          		Amount = Amount-1	
			ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).clear()
			ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).insert({name = Item_name, count = Amount})
								
		end
						
	end

Code: Select all

If entity.fluidbox[1] == nil then
  entity.fluidbox[1] = {name='water',amount=10}
  end

Code: Select all

local Inventory = entity.get_inventory(defines.whatever)
local things= 0 --stacks that are large enough
for _,stack in pairs(Inventory) do
  if stack.count > 0 then --0 or whatevert the minimum amount you need is
    things = things + 1
    end
  end
if things == #Inventory --every slot in the inventory has at least one/enough item/s
  for _,stack in pairs(Inventory) do
    stack.count  = stack.count - 1
    end
   end

Code: Select all

								local Inventory = ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input)
								local things = 0 --stacks that are large enough
								for _,stack in pairs(Inventory) do
									if stack.count > 0 then --0 or whatevert the minimum amount you need is
										things = things + 1
										writeDebug("things is: "..things)
									end
								end

								if things == #Inventory then --every slot in the inventory has at least one/enough item/s
									for _,stack in pairs(Inventory) do
										stack.count  = stack.count - 1
									end
								end

Code: Select all

							local my_inv = ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).get_contents()
							for n,a in pairs(my_inv) do
								
								Item_name=n
								Amount=a
								writeDebug("Inv is: "..Item_name)
								writeDebug("# is: "..Amount)	
								if Amount > 0 then
								
									Amount = Amount-1	
									ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).clear()
									ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input).insert({name = Item_name, count = Amount})
								
								end
							
							end

Code: Select all

for i,stack in pairs(Inventory) do

Code: Select all

for i = 1, #Inventory do
local stack = Inventory[i]

Code: Select all

local Inventory = ArboretumTable.inventory.get_inventory(defines.inventory.assembling_machine_input)
					
   for i = 1, #Inventory do
        local stack = Inventory[i]
        for _,stack in pairs(Inventory) do
                 stack.count  = stack.count - 1
        end
  end