Add sounds, move data types out into separate folders

2022-07-16 17:06:51 +01:00
parent f8f4766012
commit e4a4766ddf
48 changed files with 658 additions and 496 deletions
@@ -11,10 +11,9 @@ import Control.Lens

 makeTypeCraftNum :: Int -> CraftType -> Item
 makeTypeCraftNum i ct = defaultCraftable
-    { _itInvSize = 0.5
-    , _itCurseStatus = Uncursed
-    , _itConsumption = ItemItselfConsumable $ IcAmount i
-    }
+    & itInvSize .~ 0.5
+    & itCurseStatus .~ Uncursed
+    & itConsumption .~ ItemItselfConsumable (IcAmount i)
    & itType . iyBase .~ CRAFT ct

 makeTypeCraft :: CraftType -> Item