Allow for stacking of items and combining sensibly

2021-12-03 17:18:06 +00:00
parent b2a9192fe4
commit b41e3e3637
24 changed files with 166 additions and 159 deletions
@@ -5,13 +5,16 @@ import Dodge.Default.Weapon
 --import Picture
 --import Geometry

-makeTypeCraft :: CombineType -> Item
-makeTypeCraft ct = defaultCraftable
-    { _itInvSize = 1
+makeTypeCraftNum :: Int -> CombineType -> Item
+makeTypeCraftNum i ct = defaultCraftable
+    { _itInvSize = 0.5
    , _itCurseStatus = Uncursed
    , _itName = show ct
    , _itCombineType = ct
-    , _itConsumption = ItemItselfConsumable 3 3 
+    , _itConsumption = ItemItselfConsumable i
    }
+
+makeTypeCraft :: CombineType -> Item
+makeTypeCraft = makeTypeCraftNum 1
 pipe :: Item
 pipe = makeTypeCraft PIPE