50 lines
1.2 KiB
Haskell
50 lines
1.2 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Data.Machine
|
|
where
|
|
import Dodge.Data.GenParams
|
|
import Dodge.Data.Item
|
|
import Sound.Data
|
|
import Dodge.Data.Object
|
|
import Dodge.Data.Damage
|
|
import Dodge.Data.Sensor
|
|
import Geometry.Data
|
|
import Color
|
|
import Dodge.Data.Material
|
|
import qualified Data.IntSet as IS
|
|
|
|
import qualified Data.Map.Strict as M
|
|
import Control.Lens
|
|
|
|
data MachineDraw = MachineDrawMempty
|
|
| MachineDrawTerminal
|
|
| MachineDrawTurret
|
|
| MachineDrawDamageSensor Float (PaletteColor,DecorationShape)
|
|
data Machine = Machine
|
|
{ _mcID :: Int
|
|
, _mcWallIDs :: IS.IntSet
|
|
, _mcDraw :: MachineDraw --Machine -> SPic
|
|
, _mcMaterial :: Material
|
|
, _mcPos :: Point2
|
|
, _mcDir :: Float
|
|
, _mcColor :: Color
|
|
, _mcHP :: Int
|
|
, _mcSensor :: Sensor
|
|
, _mcDamage :: [Damage]
|
|
, _mcType :: MachineType
|
|
, _mcMounts :: M.Map Object Int
|
|
, _mcName :: String
|
|
, _mcCloseSound :: Maybe SoundID
|
|
}
|
|
data MachineType
|
|
= StaticMachine
|
|
| Turret
|
|
{ _tuWeapon :: Item
|
|
, _tuTurnSpeed :: Float
|
|
, _tuFireTime :: Int
|
|
, _tuMCrID :: Maybe Int
|
|
}
|
|
|
|
makeLenses ''Machine
|
|
makeLenses ''MachineType
|