Implement level portal

2021-04-22 13:06:39 +02:00
parent 60b2327909
commit 0e88544de2
9 changed files with 83 additions and 115 deletions
@@ -70,6 +70,7 @@ data World = World
    , _storedLevel          :: Maybe World
    , _menuLayers           :: [MenuLayer]
    , _worldState           :: M.Map WorldState Bool
+    , _worldTriggers        :: S.Set WorldTrigger
    , _windowX              :: !Float
    , _windowY              :: !Float
    , _carteDisplay         :: !Bool
@@ -247,8 +248,13 @@ data Faction
    | NoFaction
  deriving (Eq,Show)

-- NOTE: walls must be drawn counterclockwise
-data WorldState = DoorNumOpen Int | CrNumAlive Int
+data WorldState 
+    = DoorNumOpen Int 
+    | CrNumAlive Int
+  deriving (Eq,Ord)
+
+data WorldTrigger
+    = ResetLevel Int
  deriving (Eq,Ord)

 data Button = Button