Work on cleaning up item effects/attachments etc

2022-07-27 16:39:58 +01:00
parent 8d17ce66e9
commit b52adddd5d
39 changed files with 693 additions and 841 deletions
@@ -0,0 +1,24 @@
+module Dodge.Item.Held
+    where
+import Dodge.Default.Weapon
+import Dodge.Data.Item
+import Control.Lens
+flatShield :: Item
+flatShield =
+    defaultWeapon
+        & itEffect . ieInv .~ EffectIfHeld CreateShieldWall RemoveShieldWall
+        & itUse
+            .~ defaultrUse
+                { _useAim =
+                    AimParams
+                        { _aimWeight = 5
+                        , _aimRange = 0
+                        , _aimZoom = ItZoom 20 0.2 1
+                        , _aimStance = TwoHandFlat
+                        , _aimHandlePos = 0
+                        , _aimMuzPos = 0
+                        }
+                }
+        & itInvSize .~ 3
+        & itType . iyBase .~ HELD FLATSHIELD
+