reduce badness

computer/13/fluid_state.lua

@@ -8,12 +8,12 @@ return {
     amount = 50,
   },
   {
-    name = "still_milk",
-    amount = 0,
+    name = "molten_brass",
+    amount = 192,
   },
   {
     name = "lava",
-    amount = 1325,
+    amount = 1450,
   },
   {
     name = "molten_copper",

computer/13/fluids.lua

@@ -13,6 +13,7 @@ isFluid = {
 	molten_bronze = true,
 	molten_tin = true,
 	molten_zinc = true,
+	molten_brass = true,
 	compound_mixture = true,
 }
 
@@ -65,6 +66,15 @@ function getFluidAmount(type)
 	return 0
 end
 
+function getFluidAmountInTanks(type, tanks)
+	for _, fluid in pairs(tanks) do
+		if stripModname(fluid.name) == type then
+			return fluid.amount
+		end
+	end
+	return 0
+end
+
 function pumpToDevices(enable)
 	goTo(vector.new(4, 0, -1))
 	-- clutches invert the signal

computer/13/machines.lua

@@ -161,19 +161,34 @@ function alloy(parts, product)
 		connectTank(fluid.name)
 		pumpToDevices(true)
 		goTo(mixer_pos, "south")
-		-- TODO wait for 1B or tank content is in the mixer
-		sleep(5)
+		-- wait for 1B or tank content is in the mixer
+		expected_amount = math.min(getFluidAmount(fluid.name), 1000)
+		print("waiting for", expected_amount, fluid.name, "in mixer")
+		while getFluidAmountInTanks(fluid.name, pFront("tanks")) < expected_amount do
+			sleep(0.1)
+		end
 		pumpToDevices(false)
 	end
 	goTo(mixer_pos, "south")
-	-- TODO wait for alloy to be done
-	sleep(10)
+	-- wait for alloy to be done
+	local is_done = false
+	while not is_done do
+		local mixer_tanks = pFront("tanks")
+		for _, part in pairs(parts) do
+			if getFluidAmountInTanks(part.name, mixer_tanks) == 0 then
+				is_done = true
+			end
+		end
+	end
 	created_amount = 0
 	for _, fluid in pairs(pFront("tanks")) do
 		if fluid.amount > 0 then
 			connectTankOrAssign(stripModname(fluid.name))
 			pumpToTanks(true)
-			sleep(10)
+			goTo(mixer_pos, "south")
+			while getFluidAmountInTanks(fluid.name, pFront("tanks")) > 0 do
+				sleep(0.2)
+			end
 			pumpToTanks(false)
 			if stripModname(fluid.name) == product then
 				fluidInvAdd(product, fluid.amount)
@@ -241,16 +256,10 @@ function mix(extra_items, product, yield)
 			end
 		end
 	until not inputs_remaining
-	if product == "still_milk" then
-		repeat
-			is_done = false
-			for _, t in pairs(pFront("tanks")) do
-				if stripModname(t.name) == "still_milk" then
-					is_done = t.amount >= yield
-					break
-				end
-			end
-		until is_done
+	if isFluid[product]then
+		while getFluidAmountInTanks(product, pFront("tanks")) < yield do
+			sleep(0.1)
+		end
 	end
 
 	for i = 10, 18 do
@@ -262,7 +271,10 @@ function mix(extra_items, product, yield)
 		if tank.amount > 0 then
 			connectTankOrAssign(stripModname(tank.name))
 			pumpToTanks(true)
-			sleep(8)
+			goTo(mixer_pos, "south")
+			while getFluidAmountInTanks(tank.name, pFront("tanks")) > 0 do
+				sleep(0.1)
+			end
 			pumpToTanks(false)
 		end
 	end

computer/13/recipes.txt

@@ -232,8 +232,9 @@ steps:
 spout molten_rose_gold:111
 
 molten_rose_gold
+yield 111
 steps:
-alloy molten_copper molten_gold
+alloy molten_copper:111 molten_gold:111
 
 rose_gold_ingot
 steps:
@@ -458,3 +459,44 @@ deploy cogwheel
 deploy large_cogwheel
 deploy desh_nugget
 
+oxygen_tank
+steps:
+craft bronze_sheet iron_rod nil bronze_sheet bronze_sheet nil bronze_sheet bronze_sheet
+
+iron_rod
+yield 2
+base iron_ingot
+steps:
+rolling_mill
+
+brass_casing
+base copper_casing
+intermediate incomplete_brass_casing
+repeat 3
+steps:
+deploy brass_rod
+spout molten_brass:12
+deploy brass_sheet
+press
+
+brass_sheet
+base brass_ingot
+steps:
+press
+
+brass_rod
+base brass_ingot
+yield 2
+steps:
+rolling_mill
+
+molten_brass
+base brass_ingot
+yield 111
+steps:
+melt
+
+mechanical_crafter
+steps:
+craft electron_tube nil nil brass_casing nil nil precision_mechanism
+

computer/13/work.lua

@@ -10,7 +10,7 @@ keep_stocked = {
 	flint = 10
 }
 
-resetAllFluidDevices()
+--resetAllFluidDevices()
 goHome()
 
 print("known recipes:\n")