58 lines
1.5 KiB
Haskell
58 lines
1.5 KiB
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
--{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Door (
|
|
module Dodge.Data.Door,
|
|
module Dodge.Data.MountedObject,
|
|
module Dodge.Data.PathGraph,
|
|
module Dodge.Data.WorldEffect,
|
|
) where
|
|
|
|
import Data.Set (Set)
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import qualified Data.IntSet as IS
|
|
import Dodge.Data.MountedObject
|
|
import Dodge.Data.PathGraph
|
|
import Dodge.Data.WorldEffect
|
|
import Geometry.Data
|
|
|
|
data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
|
|
deriving Eq
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data PushSource
|
|
= PushesItself
|
|
| PushedBy Int
|
|
| NotPushed
|
|
deriving Eq
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data Door = Door
|
|
{ _drID :: Int
|
|
, _drWallIDs :: IS.IntSet
|
|
, _drStatus :: DoorStatus
|
|
, _drTrigger :: WdBl
|
|
, _drMech :: DrWdWd
|
|
, _drPos :: (Point2, Point2)
|
|
, _drOpenPos :: (Point2, Point2)
|
|
, _drClosePos :: (Point2, Point2)
|
|
, _drHP :: Int
|
|
, _drDeath :: DrWdWd
|
|
, _drSpeed :: Float
|
|
, _drPushedBy :: PushSource
|
|
, _drPushes :: Maybe Int
|
|
, _drMounts :: [MountedObject]
|
|
, _drObstructs :: Set PathEdgeNodes
|
|
, _drObstacleType :: EdgeObstacle
|
|
}
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
makeLenses ''Door
|
|
deriveJSON defaultOptions ''DoorStatus
|
|
deriveJSON defaultOptions ''PushSource
|
|
deriveJSON defaultOptions ''Door
|