Move hotkeys out of Creature into LWorld

2024-12-19 15:29:20 +00:00
parent 4526119fcd
commit 910c683eac
11 changed files with 24 additions and 19 deletions
@@ -56,7 +56,7 @@ data Creature = Creature
    , _crInvLock :: Bool
 --    , _crInvEquipped :: IM.IntMap EquipPosition
    , _crEquipment :: M.Map EquipPosition Int
-    , _crInvHotkeys :: IM.IntMap Hotkey
+--    , _crInvHotkeys :: IM.IntMap Hotkey
 --    , _crHotkeys :: M.Map Hotkey Int
    , _crState :: CreatureState
    , _crCorpse :: CreatureCorpse --Creature -> Corpse -> SPic
@@ -143,6 +143,7 @@ data LWorld = LWorld
    , _lTestString :: [String]
    , _lTestInt :: Int
    , _hotkeys :: M.Map Hotkey Int
+    , _imHotkeys :: IM.IntMap Hotkey
    }
 --data WorldBeams = WorldBeams
 --    { _blockingBeams :: [Beam]