Start work on crafting/combinations

2021-12-02 00:50:29 +00:00
parent ce06845278
commit 85ededc158
28 changed files with 189 additions and 112 deletions
@@ -1,10 +1,13 @@
 module Dodge.Combine.Data
-    (ItemType (..)
+    (ItemCombineType (..)
    )
    where
-data ItemType
+data ItemCombineType
    = TPipe
-    | TBigTube
+    | NoCombineType
+    | TLongPipe
+    | TVeryLongPipe
+    | TTube
    | TPlate
    | TMChip
    | TMagnet
@@ -14,11 +17,13 @@ data ItemType
    | TNailbox
    | TPlank
    | TPrism
+    | TIronBar
    | TLightSensor
    | TSoundSensor
    | THeatSensor
    | TCopperWire
    | TEmptyCan
+    | TEmptyTin
    | TPistol
    | TAutoGun
    | TRifle
@@ -29,8 +34,9 @@ data ItemType
    | TSpreadGun Int
    | TLauncher Int
    | TBattery
+    | TFuelCell
    | TPortableFusion
    | TAutoFiringMech
    | TFiringMech
    | TTargetingModule
-  deriving (Eq,Ord)
+  deriving (Eq,Ord,Show)