Add modules to items, upgrades the can persist through combinations

2022-02-20 14:13:12 +00:00
parent 3f20398ed0
commit 7afc367abc
16 changed files with 108 additions and 32 deletions
@@ -0,0 +1,9 @@
+module Dodge.Module 
+    where
+import Dodge.Data
+
+import Control.Lens
+import Data.Maybe
+
+moduleSizes :: Item -> Int
+moduleSizes it = fromMaybe 0 $ it ^? itModules . modHitEffect . modSize