Improve item combination algorithm

2022-06-08 16:12:44 +01:00
parent 1b3988f961
commit ba8b33a87c
14 changed files with 77 additions and 22 deletions
@@ -213,6 +213,23 @@ inventoryX c = case c of
        , makeTypeCraftNum 1 DRUM
        , makeTypeCraftNum 1 MOTOR
        ]
+    'F' ->
+        [ makeTypeCraftNum 5 PIPE
+        , makeTypeCraftNum 5 TUBE
+        , makeTypeCraftNum 5 HARDWARE
+        , makeTypeCraftNum 5 TIN
+        , makeTypeCraftNum 5 CAN
+        , makeTypeCraftNum 5 SPRING
+        , makeTypeCraftNum 5 PUMP
+        , makeTypeCraftNum 5 MAGNET
+        , makeTypeCraftNum 5 PLANK
+        , makeTypeCraftNum 5 PLATE
+        , makeTypeCraftNum 5 DRUM
+        , makeTypeCraftNum 5 MOTOR
+        , makeTypeCraftNum 5 TRANSFORMER
+        , makeTypeCraftNum 5 PRISM
+        , makeTypeCraftNum 5 LIGHTER
+        ]
    _ -> []

 testInventory :: IM.IntMap Item