Move towards adding reflective shield

2021-11-05 12:14:11 +00:00
parent 5cbfa6f1ff
commit 2c768845b2
9 changed files with 8 additions and 25 deletions
@@ -288,8 +288,6 @@ data Item
        , _wpRange      :: Float
        , _itHammer     :: HammerPosition
        , _itFloorPict  :: Item -> SPic
-        , _itMaxStack   :: Int
-        , _itAmount :: Int
        , _itAimingSpeed :: Float
        , _itAimingRange :: Float
        , _itZoom    :: ItZoom
@@ -337,8 +335,6 @@ data Item
        }
     | Equipment
        { _itName :: String
-        , _itMaxStack :: Int
-        , _itAmount :: Int
        , _itFloorPict :: Item -> SPic
        , _itEquipPict :: Creature -> Int -> SPic
        , _itIdentity :: ItemIdentity
@@ -572,6 +568,7 @@ data MachineType
    | Turret
        { _tuWeapon     :: Item
        , _tuTurnSpeed  :: Float
+        , _tuFiring     :: Bool
        }
 data Door = Door
    { _drID :: Int