Fold aiming parameters into item use datatype

2021-11-27 18:10:05 +00:00
parent 8639b2d428
commit 652af6b0a9
24 changed files with 135 additions and 155 deletions
@@ -50,8 +50,7 @@ frontArmour = defaultEquipment
    }
 flatShield :: Item
 flatShield = defaultEquipment
-    { _itEquipPict = pictureWeaponOnAim' flatShieldEquipSPic
-    , _itAimStance = TwoHandFlat
+    { _itEquipPict = pictureWeaponOnAim' flatShieldEquipSPic -- this will not work any more because the shield has no aim stance
    , _itEffect = effectOnOffEquip createShieldWall removeShieldWall
    , _itName   = "SHIELD"
    , _itIdentity = FlatShield