Fix blinking bug, shrinker and shield broken

2021-11-28 00:34:16 +00:00
parent fe02739621
commit 3e64e33232
10 changed files with 36 additions and 42 deletions
@@ -107,7 +107,6 @@ data World = World
    , _selLocation          :: Int
    , _sideEffects          :: World -> IO World
    , _inventoryMode        :: InventoryMode
-    , _lClickHammer         :: HammerPosition
    , _distortions          :: [Distortion]
    , _worldBounds          :: Bounds
    , _gameRooms            :: [GameRoom] -- consider using and IntMap
@@ -342,9 +341,9 @@ data ItemAmmo
        }
 data Item
    = Weapon
-        { _itName        :: String
-        , _wpAmmo        :: ItemAmmo
-        , _itUse         :: ItemUse
+        { _itName       :: String
+        , _wpAmmo       :: ItemAmmo
+        , _itUse        :: ItemUse
        , _wpSpread     :: Float
        , _wpRange      :: Float
        , _itFloorPict  :: Item -> SPic