Start to add mountable objects

2022-06-23 16:07:58 +01:00
parent 85406d06c1
commit e3d5c4eb4b
6 changed files with 31 additions and 11 deletions
@@ -1022,15 +1022,21 @@ data Door = Door
    , _drHP     :: Int
    , _drDeath  :: Door -> World -> World
    , _drSpeed  :: Float
-    , _drSupport :: Support
+    , _drPushedBy :: PushSource
    , _drPushes :: Maybe Int
+    , _drMounts :: [MountedObject]
    }
+data MountedObject
+    = MountedLS Int
+    | MountedProp Int
+  deriving (Eq,Ord,Show)
+
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)

-data Support = SupportsItself
-    | SupportedBy Int
-    | Unsupported
+data PushSource = PushesItself
+    | PushedBy Int
+    | NotPushed

 data ActionPlan
    = Inanimate