Start moving hotkeys out from creatures into world

2024-12-19 15:16:47 +00:00
parent 11b5ef74c5
commit 4526119fcd
11 changed files with 131 additions and 108 deletions
@@ -92,6 +92,7 @@ import Dodge.Data.WorldEffect
 import Geometry.Data
 import qualified IntMapHelp as IM
 import Picture.Data
+import qualified Data.Map.Strict as M

 data LWorld = LWorld
    { _creatures :: IM.IntMap Creature
@@ -141,6 +142,7 @@ data LWorld = LWorld
    , _lClock :: Int
    , _lTestString :: [String]
    , _lTestInt :: Int
+    , _hotkeys :: M.Map Hotkey Int
    }
 --data WorldBeams = WorldBeams
 --    { _blockingBeams :: [Beam]